183
TabOrder = 0
Glyph.Data = {
66010000424D6601000000000000760000002800000018000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888000088888000088888888888888888000EEE0FFFF8888888
888000EEEEEE0000F88888800080EEEEEEEE0000F88888888880EEEEEEEE0000
F88888888880EEEEEEEE0000F88888888880EEEEE60E0000F88888888880EEEE
6B6E0000F88888888880EEEEEEEE0000F88888888880E66666EE0000F8888888
8880E6BBB6EE0000F88888888880E6BBB6EE0000F88888888880E6BBB6EE0000
F88888888880E66BB6EE0000F88888888880EEE666EE0000F8888880008000EE
EEEE0000F8888888888888000EEE0000F8888888800008888000088888888888
88888888888888888888}
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 268
Height = 201
Align = alTop
Caption = #1054#1090#1074#1077#1090#1099
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 68
Width = 49
184
Height = 13
Caption = #1054#1094#1077#1085#1082#1072':'
end
object EditAnswer: TEdit
Left = 8
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 BitBtn1: TBitBtn
Left = 163
Top = 64
Width = 99
Height = 25
Action = ActionAdd
Caption = #1044#1086#1073#1072#1074#1080#1090#1100
TabOrder = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F0
7777770FFFFFF007777777000000007777777777777777777777}
end
object BitBtn2: TBitBtn
Left = 163
Top = 96
Width = 99
185
Height = 25
Action = ActionEdit
Caption = #1048#1079#1084#1077#1085#1080#1090#1100
TabOrder = 3
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777744444444477777774FFFFFFF477777774F0000
0F470000004FFFFFFF470FFFFF4F00000F470F00004FFFFFFF470FFFFF4F00F4
44470F00004FFFF4F4770FFFFF4FFFF447770F00F044444477770FFFF0F07777
77770FFFF0077777777700000077777777777777777777777777}
end
object BitBtn3: TBitBtn
Left = 163
Top = 129
Width = 99
Height = 25
Action = ActionDel
Caption = #1059#1076#1072#1083#1080#1090#1100
TabOrder = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888800000000008888880FFFFFFFF08888880FFFFFFFF
088881F0F777777F088811F0F75BFB7F0888811F11BFBF7F088888151877777F
088888511FFFFFFF08885111F1FFF00008881580FF1FF0F088888880FFFFF008
8888888000000088888888888888888888888888888888888888}
end
186
object EditVes: TEdit
Left = 64
Top = 66
Width = 57
Height = 21
TabOrder = 1
Text = 'EditVes'
end
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 265
Height = 312
Align = alLeft
Caption = #1054#1090#1074#1077#1090#1099
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object DBGridAnswer: TDBGrid
Left = 2
Top = 15
Width = 261
Height = 295
Align = alClient
DataSource = DSAnswer
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'
187
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'Name'
Title.Caption = #1054#1090#1074#1077#1090#1099
Width = 180
Visible = True
end
item
Expanded = False
FieldName = 'Ves'
Title.Caption = #1054#1094#1077#1085#1082#1072
Width = 50
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
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
188
end
end
object QAnswer: TQuery
AfterScroll = QAnswerAfterScroll
DatabaseName = 'Test'
SQL.Strings = (
'select * from Answer order by Name')
Left = 104
Top = 184
end
object DSAnswer: TDataSource
DataSet = QAnswer
Left = 136
Top = 184
end
end
