173
ParentFont = False
TabOrder = 1
object EditQuest: TEdit
Left = 186
Top = 32
Width = 257
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object BitBtnAdd: TBitBtn
Left = 341
Top = 64
Width = 99
Height = 25
Action = ActionAdd
Caption = #1044#1086#1073#1072#1074#1080#1090#1100
TabOrder = 1
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F0
7777770FFFFFF007777777000000007777777777777777777777}
end
object BitBtnEdit: TBitBtn
Left = 341
Top = 96
Width = 99
Height = 25
174
Action = ActionEdit
Caption = #1048#1079#1084#1077#1085#1080#1090#1100
TabOrder = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777744444444477777774FFFFFFF477777774F0000
0F470000004FFFFFFF470FFFFF4F00000F470F00004FFFFFFF470FFFFF4F00F4
44470F00004FFFF4F4770FFFFF4FFFF447770F00F044444477770FFFF0F07777
77770FFFF0077777777700000077777777777777777777777777}
end
object BitBtnDel: TBitBtn
Left = 341
Top = 129
Width = 99
Height = 25
Action = ActionDel
Caption = #1059#1076#1072#1083#1080#1090#1100
TabOrder = 3
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888800000000008888880FFFFFFFF08888880FFFFFFFF
088881F0F777777F088811F0F75BFB7F0888811F11BFBF7F088888151877777F
088888511FFFFFFF08885111F1FFF00008881580FF1FF0F088888880FFFFF008
8888888000000088888888888888888888888888888888888888}
end
object BitBtnImage: TBitBtn
175
Left = 8
Top = 32
Width = 153
Height = 25
Action = ActionImageAdd
Caption = #1044#1086#1073#1072#1074#1080#1090#1100'
'#1082#1072#1088#1090#1080#1085#1082#1091
TabOrder = 4
Glyph.Data = {
7E010000424D7E01000000000000760000002800000018000000160000000100
0400000000000801000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
0000000000080777777777777777777777700F77777777777777777777700F88
888888888888888887700F88888888888888888887700F888888800000000888
87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
F0F0888887700F8888888800F008888887700F88888888800888888887700F88
888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
0008}
end
object Panel3: TPanel
Left = 3
Top = 60
Width = 337
Height = 200
BevelInner = bvLowered
TabOrder = 5
object Panel1: TPanel
Left = 2
Top = 2
Width = 333
Height = 196
176
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Image1: TImage
Left = 24
Top = 24
Width = 279
Height = 151
Stretch = True
end
end
end
object BitBtn1: TBitBtn
Left = 341
Top = 160
Width = 108
Height = 25
Action = ActionImageDel
Caption = #1059#1073#1088#1072#1090#1100'
'#1082#1072#1088#1090#1080#1085#1082#1091
TabOrder = 6
end
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 241
Height = 311
Align = alLeft
Caption = #1042#1086#1087#1088#1086#1089#1099
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object DBGridQuest: TDBGrid
Left = 2
Top = 15
Width = 237
Height = 294
Align = alClient
177
DataSource = DSQuest
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines,
dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'Name'
Title.Caption = #1058#1077#1084#1072
Width = 214
Visible = True
end>
end
end
object ActionList1: TActionList
Left = 152
Top = 104
object ActionAdd: TAction
Category = 'Edit'
Caption = #1044#1086#1073#1072#1074#1080#1090#1100
Hint = #1044#1086#1073#1072#1074#1080#1090#1100
OnExecute = ActionAddExecute
end
object ActionEdit: TAction
Category = 'Edit'
Caption = #1048#1079#1084#1077#1085#1080#1090#1100
Hint = #1048#1079#1084#1077#1085#1080#1090#1100
OnExecute = ActionEditExecute
end
object ActionDel: TAction
Category = 'Edit'
Caption = #1059#1076#1072#1083#1080#1090#1100
Hint = #1059#1076#1072#1083#1080#1090#1100
178
OnExecute = ActionDelExecute
end
object ActionClose: TAction
Category = 'Edit'
Caption = #1047#1072#1082#1088#1099#1090#1100
Hint = #1047#1072#1082#1088#1099#1090#1100
OnExecute = ActionCloseExecute
end
object ActionImageAdd: TAction
Category = 'Edit'
Caption = #1044#1086#1073#1072#1074#1080#1090#1100'
'#1082#1072#1088#1090#1080#1085#1082#1091
Hint = #1044#1086#1073#1072#1074#1080#1090#1100'
'#1082#1072#1088#1090#1080#1085#1082#1091
OnExecute = ActionImageAddExecute
end
object ActionImageDel: TAction
Category = 'Edit'
Caption = #1059#1073#1088#1072#1090#1100'
'#1082#1072#1088#1090#1080#1085#1082#1091
Hint = #1059#1073#1088#1072#1090#1100'
'#1082#1072#1088#1090#1080#1085#1082#1091
OnExecute = ActionImageDelExecute
end
end
object QQuest: TQuery
AfterScroll = QQuestAfterScroll
DatabaseName = 'Test'
SQL.Strings = (
'select * from Quest order by Name')
Left = 104
Top = 184
end
object DSQuest: TDataSource
DataSet = QQuest
Left = 136
Top = 184
end
object OpenPictureDialog1: TOpenPictureDialog
DefaultExt = '*.jpg'
Filter =
'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg|JPEG Ima' +
'ge File (*.jpg)|*.jpg'
Left = 248
179
Top = 272
end
object TableQuest: TTable
DatabaseName = 'Test'
TableName = 'quest.DB'
Left = 104
Top = 120
end
end
UnitGroup
object FGroup: TFGroup
Left = 288
Top = 107
Hint = #1057#1084#1077#1085#1080#1090#1100'
'#1074#1083#1072#1076#1077#1083#1100#1094#1072
BorderStyle = bsDialog
Caption = #1057#1084#1077#1085#1080#1090#1100'
'#1074#1083#1072#1076#1077#1083#1100#1094#1072
ClientHeight = 192
ClientWidth = 404
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 173
Width = 404
Height = 19
Panels = <>
SimplePanel = False
end
180
object Panel1: TPanel
Left = 0
Top = 0
Width = 404
Height = 173
Align = alClient
BevelInner = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 76
Width = 140
Height = 13
Caption = #1053#1086#1074#1099#1081'
'#1074#1083#1072#1076#1077#1083#1077#1094'
'#1101#1083#1077#1084#1077#1085#1090#1072':'
end
object Label2: TLabel
Left = 12
Top = 6
Width = 44
Height = 13
Caption = #1069#1083#1077#1084#1077#1085#1090
end
object ComboBox1: TComboBox
Left = 8
Top = 94
Width = 385
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
end
object MemoElement: TMemo
Left = 9
Top = 22
Width = 385
Height = 49
Lines.Strings = (
'MemoElement')
ReadOnly = True
TabOrder = 3
end
object BitBtnOk: TBitBtn
181
Left = 112
Top = 136
Width = 80
Height = 25
Caption = #1047#1072#1087#1080#1089#1072#1090#1100
TabOrder = 1
OnClick = BitBtnOkClick
Kind = bkOK
end
object BitBtnCancel: TBitBtn
Left = 216
Top = 136
Width = 80
Height = 25
Caption = #1054#1090#1084#1077#1085#1072
TabOrder = 2
Kind = bkCancel
end
end
object QTmp: TQuery
DatabaseName = 'Test'
Left = 8
Top = 120
end
end
UnitAnswer
object FAnswer: TFAnswer
Left = 330
Top = 176
Hint = #1054#1090#1074#1077#1090#1099
BorderStyle = bsDialog
Caption = #1054#1090#1074#1077#1090#1099
ClientHeight = 331
ClientWidth = 533
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
182
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 312
Width = 533
Height = 19
Panels = <>
SimplePanel = False
end
object Panel2: TPanel
Left = 265
Top = 0
Width = 268
Height = 312
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 201
Width = 268
Height = 111
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object BitBtn4: TBitBtn
Left = 163
Top = 73
Width = 99
Height = 25
Action = ActionClose
Cancel = True
Caption = #1047#1072#1082#1088#1099#1090#1100
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False