mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 23:39:24 +02:00
LazReport, more dialogs improvement from Aleksey Lagunov
git-svn-id: trunk@23680 -
This commit is contained in:
jesus
parent
b4983e5d51
commit
ffbae73a6b
@ -1382,6 +1382,10 @@ msgstr ""
|
||||
msgid "MM"
|
||||
msgstr "mm"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr "Nein"
|
||||
|
||||
@ -1371,6 +1371,10 @@ msgstr "Matemáticas"
|
||||
msgid "MM"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr ""
|
||||
|
||||
@ -1380,6 +1380,10 @@ msgstr "Math"
|
||||
msgid "MM"
|
||||
msgstr "MM"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr "Non"
|
||||
|
||||
@ -1371,6 +1371,10 @@ msgstr "Matematika"
|
||||
msgid "MM"
|
||||
msgstr "MM"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr "Tidak"
|
||||
|
||||
@ -1373,6 +1373,10 @@ msgstr "Matematika"
|
||||
msgid "MM"
|
||||
msgstr "mm"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr "Ne"
|
||||
|
||||
@ -1371,6 +1371,10 @@ msgstr "Aritmética"
|
||||
msgid "MM"
|
||||
msgstr "MM"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr "Não"
|
||||
|
||||
@ -1374,6 +1374,10 @@ msgstr ""
|
||||
msgid "MM"
|
||||
msgstr "MM"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr ""
|
||||
|
||||
@ -1366,6 +1366,10 @@ msgstr ""
|
||||
msgid "MM"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr ""
|
||||
|
||||
@ -1371,6 +1371,10 @@ msgstr "Математические"
|
||||
msgid "MM"
|
||||
msgstr "MM"
|
||||
|
||||
#: lr_const.snewtemplate
|
||||
msgid "New template"
|
||||
msgstr ""
|
||||
|
||||
#: lr_const.sno
|
||||
msgid "No"
|
||||
msgstr "Нет"
|
||||
|
||||
@ -144,7 +144,8 @@ resourcestring
|
||||
|
||||
//--- TemplForm resources -----------------------------------------------------
|
||||
sTemplFormNewRp = 'New report';
|
||||
sTemplFormDesc = 'Description';
|
||||
sTemplFormDesc = 'Description';
|
||||
sNewTemplate = 'New template';
|
||||
|
||||
//--- GEditorForm resources ---------------------------------------------------
|
||||
sGEditorFormCapt = 'Picture';
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
inherited frDesignerForm: TfrDesignerForm
|
||||
Left = 57
|
||||
Left = 462
|
||||
Height = 434
|
||||
Top = 112
|
||||
Top = 217
|
||||
Width = 695
|
||||
HorzScrollBar.Page = 694
|
||||
HorzScrollBar.Range = 304
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,24 +1,33 @@
|
||||
object frEvForm: TfrEvForm
|
||||
Left = 460
|
||||
Height = 331
|
||||
Top = 106
|
||||
Width = 329
|
||||
Left = 422
|
||||
Height = 391
|
||||
Top = 123
|
||||
Width = 521
|
||||
HorzScrollBar.Page = 328
|
||||
VertScrollBar.Page = 330
|
||||
ActiveControl = VarList
|
||||
BorderIcons = [biSystemMenu, biHelp]
|
||||
Caption = 'Variables editor'
|
||||
ClientHeight = 331
|
||||
ClientWidth = 329
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
ClientHeight = 391
|
||||
ClientWidth = 521
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
ShowHint = True
|
||||
LCLVersion = '0.9.29'
|
||||
object SB1: TSpeedButton
|
||||
Left = 92
|
||||
Height = 25
|
||||
AnchorSideLeft.Control = Button3
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Button3
|
||||
AnchorSideBottom.Control = Button3
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 95
|
||||
Height = 85
|
||||
Hint = 'Copy variables'
|
||||
Top = 300
|
||||
Width = 25
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
F6000000424DF600000000000000760000002800000010000000100000000100
|
||||
@ -34,11 +43,18 @@ object frEvForm: TfrEvForm
|
||||
OnClick = SB1Click
|
||||
end
|
||||
object SB2: TSpeedButton
|
||||
Left = 117
|
||||
Height = 25
|
||||
AnchorSideLeft.Control = SB1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Button3
|
||||
AnchorSideBottom.Control = Button3
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 120
|
||||
Height = 85
|
||||
Hint = 'Paste variables'
|
||||
Top = 300
|
||||
Width = 25
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
AutoSize = True
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
F6000000424DF600000000000000760000002800000010000000100000000100
|
||||
@ -54,138 +70,164 @@ object frEvForm: TfrEvForm
|
||||
OnClick = SB2Click
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 4
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Label3
|
||||
Left = 0
|
||||
Height = 2
|
||||
Top = 288
|
||||
Width = 320
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Top = 290
|
||||
Width = 521
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 39
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 6
|
||||
Width = 66
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Variable'
|
||||
FocusControl = VarCombo
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 166
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 27
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 235
|
||||
Height = 18
|
||||
Top = 6
|
||||
Width = 50
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Va&lue'
|
||||
FocusControl = ValCombo
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideBottom.Control = Edit1
|
||||
Left = 4
|
||||
Height = 14
|
||||
Top = 244
|
||||
Width = 53
|
||||
Height = 18
|
||||
Top = 292
|
||||
Width = 89
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = '&Expression'
|
||||
FocusControl = Edit1
|
||||
ParentColor = False
|
||||
end
|
||||
object VarCombo: TComboBox
|
||||
Left = 4
|
||||
Height = 21
|
||||
Top = 24
|
||||
Width = 155
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label2
|
||||
Left = 6
|
||||
Height = 31
|
||||
Top = 30
|
||||
Width = 223
|
||||
HelpContext = 69
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Enabled = False
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
ItemHeight = 0
|
||||
OnChange = VarComboClick
|
||||
OnClick = VarComboClick
|
||||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 4
|
||||
Height = 189
|
||||
Top = 48
|
||||
Width = 155
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = VarCombo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Label2
|
||||
AnchorSideBottom.Control = Bevel1
|
||||
Left = 6
|
||||
Height = 217
|
||||
Top = 67
|
||||
Width = 223
|
||||
HelpContext = 78
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
ClickOnSelChange = False
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
OnClick = VarListClick
|
||||
TabOrder = 1
|
||||
TopIndex = -1
|
||||
end
|
||||
object ValCombo: TComboBox
|
||||
Left = 166
|
||||
Height = 21
|
||||
Top = 24
|
||||
Width = 158
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 241
|
||||
Height = 31
|
||||
Top = 30
|
||||
Width = 274
|
||||
HelpContext = 87
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
BorderSpacing.Around = 6
|
||||
Enabled = False
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
ItemHeight = 0
|
||||
OnChange = ValComboClick
|
||||
OnClick = ValComboClick
|
||||
Style = csDropDownList
|
||||
TabOrder = 2
|
||||
end
|
||||
object ValList: TListBox
|
||||
Left = 166
|
||||
Height = 189
|
||||
Top = 48
|
||||
Width = 158
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideTop.Control = VarCombo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Bevel1
|
||||
Left = 241
|
||||
Height = 217
|
||||
Top = 67
|
||||
Width = 274
|
||||
HelpContext = 93
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
ClickOnSelChange = False
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
OnClick = ValListClick
|
||||
OnExit = Edit1Exit
|
||||
TabOrder = 3
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 169
|
||||
Height = 25
|
||||
Top = 300
|
||||
Width = 75
|
||||
HelpContext = 40
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
OnClick = Button1Click
|
||||
TabOrder = 4
|
||||
TopIndex = -1
|
||||
end
|
||||
object Edit1: TEdit
|
||||
AnchorSideBottom.Control = ButtonPanel1
|
||||
Left = 4
|
||||
Height = 21
|
||||
Top = 260
|
||||
Width = 320
|
||||
Height = 29
|
||||
Top = 310
|
||||
Width = 512
|
||||
HelpContext = 104
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
OnExit = Edit1Exit
|
||||
TabOrder = 5
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 249
|
||||
Height = 25
|
||||
Top = 300
|
||||
Width = 75
|
||||
HelpContext = 50
|
||||
Anchors = [akTop, akRight]
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 6
|
||||
TabOrder = 4
|
||||
end
|
||||
object Button3: TButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 25
|
||||
Height = 85
|
||||
Top = 300
|
||||
Width = 85
|
||||
HelpContext = 114
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'Va&riables...'
|
||||
OnClick = Button3Click
|
||||
TabOrder = 7
|
||||
TabOrder = 5
|
||||
end
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 40
|
||||
Top = 345
|
||||
Width = 509
|
||||
TabOrder = 6
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,68 +1,92 @@
|
||||
{ Ceci est un fichier ressource généré automatiquement par Lazarus }
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrEvForm','FORMDATA',[
|
||||
'TPF0'#9'TfrEvForm'#8'frEvForm'#4'Left'#3#204#1#6'Height'#3'K'#1#3'Top'#2'j'#5
|
||||
+'Width'#3'I'#1#18'HorzScrollBar.Page'#3'H'#1#18'VertScrollBar.Page'#3'J'#1#11
|
||||
+'BorderIcons'#11#12'biSystemMenu'#6'biHelp'#0#7'Caption'#6#16'Variables edit'
|
||||
+'or'#12'ClientHeight'#3'K'#1#11'ClientWidth'#3'I'#1#11'Font.Height'#2#245#9
|
||||
+'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'ShowHint'#9#0
|
||||
+#12'TSpeedButton'#3'SB1'#4'Left'#2'\'#6'Height'#2#25#4'Hint'#6#14'Copy varia'
|
||||
+'bles'#3'Top'#3','#1#5'Width'#2#25#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10
|
||||
+#250#0#0#0#246#0#0#0'BM'#246#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0#0#0#16#0#0
|
||||
+#0#1#0#4#0#0#0#0#0#128#0#0#0#195#14#0#0#195#14#0#0#16#0#0#0#16#0#0#0#0#0#0#0
|
||||
+#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192#192
|
||||
+#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0
|
||||
+#255#255#0#0#255#255#255#0'www'#0#0#0#0#7'www'#139#187#187#187#7'www'#139#0#0
|
||||
+#11#7'p'#0#0#139#187#187#187#7'x'#255#255#139#0#0#11#7'x'#240#0#139#187#187
|
||||
+#187#7'x'#255#255#139#0#0#11#7'x'#240#0#139#187#187#187#7'x'#255#255#139#0
|
||||
+#176#0#7'x'#240#0#139#187#176#240'wx'#255#255#139#187#176#7'wx'#240#15#136
|
||||
+#136#128'wwx'#255#255#15#7'wwwx'#255#255#0'wwwwx'#136#136#7'wwwwwwwwwwww'#9
|
||||
+'NumGlyphs'#2#0#7'OnClick'#7#8'SB1Click'#0#0#12'TSpeedButton'#3'SB2'#4'Left'
|
||||
+#2'u'#6'Height'#2#25#4'Hint'#6#15'Paste variables'#3'Top'#3','#1#5'Width'#2
|
||||
+#25#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10#250#0#0#0#246#0#0#0'BM'#246#0#0
|
||||
+#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0#0#0#195
|
||||
+#14#0#0#195#14#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0
|
||||
+#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0
|
||||
+#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'www'#0#0
|
||||
+#0#0#7'w'#0#0#139#187#187#187#7'x'#255#255#139#0#0#11#7'x'#255#255#139#187
|
||||
+#187#187#7'x'#255#255#139#0#0#11#7'x'#255#255#139#187#187#187#7'x'#255#255
|
||||
+#139#0#0#11#7'x'#255#255#139#187#187#187#7'x'#255#255#139#0#176#0#7'x'#255
|
||||
+#255#139#187#176#240'wx'#240#0#139#187#176#7'wx'#240#255#136#136#128#7'wx'
|
||||
+#255#15#0#240#255#7'ww'#136#128#255#8#136'wwwwp'#0#7'wwwwwwwwwww'#9'NumGlyph'
|
||||
+'s'#2#0#7'OnClick'#7#8'SB2Click'#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#4#6'Heigh'
|
||||
+'t'#2#2#3'Top'#3' '#1#5'Width'#3'@'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
|
||||
+'ight'#0#5'Shape'#7#9'bsTopLine'#0#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Heigh'
|
||||
+'t'#2#14#3'Top'#2#8#5'Width'#2''''#7'Caption'#6#9'&Variable'#12'FocusControl'
|
||||
+#7#8'VarCombo'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#166#0#6'H'
|
||||
+'eight'#2#14#3'Top'#2#8#5'Width'#2#27#7'Caption'#6#6'Va&lue'#12'FocusControl'
|
||||
+#7#8'ValCombo'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#4#6'Heigh'
|
||||
+'t'#2#14#3'Top'#3#244#0#5'Width'#2'5'#7'Caption'#6#11'&Expression'#12'FocusC'
|
||||
+'ontrol'#7#5'Edit1'#11'ParentColor'#8#0#0#9'TComboBox'#8'VarCombo'#4'Left'#2
|
||||
+#4#6'Height'#2#21#3'Top'#2#24#5'Width'#3#155#0#11'HelpContext'#2'E'#16'AutoC'
|
||||
+'ompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#7'Ena'
|
||||
+'bled'#8#10'ItemHeight'#2#13#9'MaxLength'#2#0#8'OnChange'#7#13'VarComboClick'
|
||||
+#7'OnClick'#7#13'VarComboClick'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0
|
||||
+#0#0#8'TListBox'#7'VarList'#4'Left'#2#4#6'Height'#3#189#0#3'Top'#2'0'#5'Widt'
|
||||
+'h'#3#155#0#11'HelpContext'#2'N'#16'ClickOnSelChange'#8#10'ItemHeight'#2#13#7
|
||||
+'OnClick'#7#12'VarListClick'#8'TabOrder'#2#1#0#0#9'TComboBox'#8'ValCombo'#4
|
||||
+'Left'#3#166#0#6'Height'#2#21#3'Top'#2#24#5'Width'#3#158#0#11'HelpContext'#2
|
||||
+'W'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22
|
||||
+'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#7'Enabled'#8#10'ItemHeig'
|
||||
+'ht'#2#13#9'MaxLength'#2#0#8'OnChange'#7#13'ValComboClick'#7'OnClick'#7#13'V'
|
||||
+'alComboClick'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#2#0#0#8'TListBox'
|
||||
+#7'ValList'#4'Left'#3#166#0#6'Height'#3#189#0#3'Top'#2'0'#5'Width'#3#158#0#11
|
||||
+'HelpContext'#2']'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'ClickOnS'
|
||||
+'elChange'#8#10'ItemHeight'#2#13#7'OnClick'#7#12'ValListClick'#6'OnExit'#7#9
|
||||
+'Edit1Exit'#8'TabOrder'#2#3#0#0#7'TButton'#7'Button1'#4'Left'#3#169#0#6'Heig'
|
||||
+'ht'#2#25#3'Top'#3','#1#5'Width'#2'K'#11'HelpContext'#2'('#7'Anchors'#11#5'a'
|
||||
+'kTop'#7'akRight'#0#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#7'On'
|
||||
+'Click'#7#12'Button1Click'#8'TabOrder'#2#4#0#0#5'TEdit'#5'Edit1'#4'Left'#2#4
|
||||
+#6'Height'#2#21#3'Top'#3#4#1#5'Width'#3'@'#1#11'HelpContext'#2'h'#7'Anchors'
|
||||
+#11#5'akTop'#6'akLeft'#7'akRight'#0#6'OnExit'#7#9'Edit1Exit'#8'TabOrder'#2#5
|
||||
+#0#0#7'TButton'#7'Button2'#4'Left'#3#249#0#6'Height'#2#25#3'Top'#3','#1#5'Wi'
|
||||
+'dth'#2'K'#11'HelpContext'#2'2'#7'Anchors'#11#5'akTop'#7'akRight'#0#6'Cancel'
|
||||
+#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#6#0#0#7'TButton'
|
||||
+#7'Button3'#4'Left'#2#4#6'Height'#2#25#3'Top'#3','#1#5'Width'#2'U'#11'HelpCo'
|
||||
+'ntext'#2'r'#7'Caption'#6#13'Va&riables...'#7'OnClick'#7#12'Button3Click'#8
|
||||
+'TabOrder'#2#7#0#0#0
|
||||
'TPF0'#9'TfrEvForm'#8'frEvForm'#4'Left'#3#166#1#6'Height'#3#135#1#3'Top'#2'{'
|
||||
+#5'Width'#3#9#2#18'HorzScrollBar.Page'#3'H'#1#18'VertScrollBar.Page'#3'J'#1
|
||||
+#13'ActiveControl'#7#7'VarList'#11'BorderIcons'#11#12'biSystemMenu'#6'biHelp'
|
||||
+#0#7'Caption'#6#16'Variables editor'#12'ClientHeight'#3#135#1#11'ClientWidth'
|
||||
+#3#9#2#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#8'ShowH'
|
||||
+'int'#9#10'LCLVersion'#6#6'0.9.29'#0#12'TSpeedButton'#3'SB1'#22'AnchorSideLe'
|
||||
+'ft.Control'#7#7'Button3'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi'
|
||||
+'deTop.Control'#7#7'Button3'#24'AnchorSideBottom.Control'#7#7'Button3'#21'An'
|
||||
+'chorSideBottom.Side'#7#9'asrBottom'#4'Left'#2'_'#6'Height'#2'U'#4'Hint'#6#14
|
||||
+'Copy variables'#3'Top'#3','#1#5'Width'#2#25#7'Anchors'#11#5'akTop'#6'akLeft'
|
||||
+#8'akBottom'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#5'Color'#7#9'clBtnFa'
|
||||
+'ce'#10'Glyph.Data'#10#250#0#0#0#246#0#0#0'BM'#246#0#0#0#0#0#0#0'v'#0#0#0'('
|
||||
+#0#0#0#16#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0#0#0#195#14#0#0#195#14#0#0#16#0
|
||||
+#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
|
||||
+#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255
|
||||
+#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'www'#0#0#0#0#7'www'#139#187#187
|
||||
+#187#7'www'#139#0#0#11#7'p'#0#0#139#187#187#187#7'x'#255#255#139#0#0#11#7'x'
|
||||
+#240#0#139#187#187#187#7'x'#255#255#139#0#0#11#7'x'#240#0#139#187#187#187#7
|
||||
+'x'#255#255#139#0#176#0#7'x'#240#0#139#187#176#240'wx'#255#255#139#187#176#7
|
||||
+'wx'#240#15#136#136#128'wwx'#255#255#15#7'wwwx'#255#255#0'wwwwx'#136#136#7'w'
|
||||
+'wwwwwwwwwww'#9'NumGlyphs'#2#0#7'OnClick'#7#8'SB1Click'#0#0#12'TSpeedButton'
|
||||
+#3'SB2'#22'AnchorSideLeft.Control'#7#3'SB1'#19'AnchorSideLeft.Side'#7#9'asrB'
|
||||
+'ottom'#21'AnchorSideTop.Control'#7#7'Button3'#24'AnchorSideBottom.Control'#7
|
||||
+#7'Button3'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2'x'#6'Height'#2
|
||||
+'U'#4'Hint'#6#15'Paste variables'#3'Top'#3','#1#5'Width'#2#25#7'Anchors'#11#5
|
||||
+'akTop'#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#5'Color'#7#9'clBtnFace'#10'Gly'
|
||||
+'ph.Data'#10#250#0#0#0#246#0#0#0'BM'#246#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0
|
||||
+#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0#0#0#195#14#0#0#195#14#0#0#16#0#0#0#16#0#0
|
||||
+#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0
|
||||
+#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0
|
||||
+#255#0#255#255#0#0#255#255#255#0'www'#0#0#0#0#7'w'#0#0#139#187#187#187#7'x'
|
||||
+#255#255#139#0#0#11#7'x'#255#255#139#187#187#187#7'x'#255#255#139#0#0#11#7'x'
|
||||
+#255#255#139#187#187#187#7'x'#255#255#139#0#0#11#7'x'#255#255#139#187#187#187
|
||||
+#7'x'#255#255#139#0#176#0#7'x'#255#255#139#187#176#240'wx'#240#0#139#187#176
|
||||
+#7'wx'#240#255#136#136#128#7'wx'#255#15#0#240#255#7'ww'#136#128#255#8#136'ww'
|
||||
+'wwp'#0#7'wwwwwwwwwww'#9'NumGlyphs'#2#0#7'OnClick'#7#8'SB2Click'#0#0#6'TBeve'
|
||||
+'l'#6'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#23'AnchorSideRight.Contr'
|
||||
+'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.'
|
||||
+'Control'#7#6'Label3'#4'Left'#2#0#6'Height'#2#2#3'Top'#3'"'#1#5'Width'#3#9#2
|
||||
+#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#5'Shape'#7#9'bsTopLine'#0#0
|
||||
+#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.'
|
||||
+'Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'B'#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#9'&Variable'#12'FocusControl'#7#8'Va'
|
||||
+'rCombo'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'
|
||||
+#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'
|
||||
+#7#5'Owner'#4'Left'#3#235#0#6'Height'#2#18#3'Top'#2#6#5'Width'#2'2'#17'Borde'
|
||||
+'rSpacing.Top'#2#6#7'Caption'#6#6'Va&lue'#12'FocusControl'#7#8'ValCombo'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label3'#24'AnchorSideBottom.Control'#7#5'Edi'
|
||||
+'t1'#4'Left'#2#4#6'Height'#2#18#3'Top'#3'$'#1#5'Width'#2'Y'#7'Anchors'#11#6
|
||||
+'akLeft'#8'akBottom'#0#7'Caption'#6#11'&Expression'#12'FocusControl'#7#5'Edi'
|
||||
+'t1'#11'ParentColor'#8#0#0#9'TComboBox'#8'VarCombo'#22'AnchorSideLeft.Contro'
|
||||
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7
|
||||
+#9'asrBottom'#23'AnchorSideRight.Control'#7#6'Label2'#4'Left'#2#6#6'Height'#2
|
||||
+#31#3'Top'#2#30#5'Width'#3#223#0#11'HelpContext'#2'E'#7'Anchors'#11#5'akTop'
|
||||
+#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Enabled'#8#10'ItemHei'
|
||||
+'ght'#2#0#8'OnChange'#7#13'VarComboClick'#7'OnClick'#7#13'VarComboClick'#5'S'
|
||||
+'tyle'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#8'TListBox'#7'VarList'#22'An'
|
||||
+'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'VarCombo'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#6'Label2'
|
||||
+#24'AnchorSideBottom.Control'#7#6'Bevel1'#4'Left'#2#6#6'Height'#3#217#0#3'To'
|
||||
+'p'#2'C'#5'Width'#3#223#0#11'HelpContext'#2'N'#7'Anchors'#11#5'akTop'#6'akLe'
|
||||
+'ft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#16'ClickOnSelChan'
|
||||
+'ge'#8#10'ItemHeight'#2#0#7'OnClick'#7#12'VarListClick'#8'TabOrder'#2#1#8'To'
|
||||
+'pIndex'#2#255#0#0#9'TComboBox'#8'ValCombo'#22'AnchorSideLeft.Control'#7#6'L'
|
||||
,'abel2'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'asr'
|
||||
+'Bottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
|
||||
+'asrBottom'#4'Left'#3#241#0#6'Height'#2#31#3'Top'#2#30#5'Width'#3#18#1#11'He'
|
||||
+'lpContext'#2'W'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpac'
|
||||
+'ing.Around'#2#6#7'Enabled'#8#10'ItemHeight'#2#0#8'OnChange'#7#13'ValComboCl'
|
||||
+'ick'#7'OnClick'#7#13'ValComboClick'#5'Style'#7#14'csDropDownList'#8'TabOrde'
|
||||
+'r'#2#2#0#0#8'TListBox'#7'ValList'#22'AnchorSideLeft.Control'#7#6'Label2'#21
|
||||
+'AnchorSideTop.Control'#7#8'VarCombo'#18'AnchorSideTop.Side'#7#9'asrBottom'
|
||||
+#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
|
||||
+'om'#24'AnchorSideBottom.Control'#7#6'Bevel1'#4'Left'#3#241#0#6'Height'#3#217
|
||||
+#0#3'Top'#2'C'#5'Width'#3#18#1#11'HelpContext'#2']'#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#16'ClickOnSel'
|
||||
+'Change'#8#10'ItemHeight'#2#0#7'OnClick'#7#12'ValListClick'#6'OnExit'#7#9'Ed'
|
||||
+'it1Exit'#8'TabOrder'#2#3#8'TopIndex'#2#255#0#0#5'TEdit'#5'Edit1'#24'AnchorS'
|
||||
+'ideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#4#6'Height'#2#29#3'Top'#3'6'
|
||||
+#1#5'Width'#3#0#2#11'HelpContext'#2'h'#7'Anchors'#11#6'akLeft'#7'akRight'#8
|
||||
+'akBottom'#0#6'OnExit'#7#9'Edit1Exit'#8'TabOrder'#2#4#0#0#7'TButton'#7'Butto'
|
||||
+'n3'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'as'
|
||||
+'rBottom'#4'Left'#2#4#6'Height'#2'U'#3'Top'#3','#1#5'Width'#2'U'#11'HelpCont'
|
||||
+'ext'#2'r'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#18'B'
|
||||
+'orderSpacing.Left'#2#12#7'Caption'#6#13'Va&riables...'#7'OnClick'#7#12'Butt'
|
||||
+'on3Click'#8'TabOrder'#2#5#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6
|
||||
+#6'Height'#2'('#3'Top'#3'Y'#1#5'Width'#3#253#1#8'TabOrder'#2#6#11'ShowButton'
|
||||
+'s'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -15,24 +15,23 @@ interface
|
||||
{$I LR_Vers.inc}
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources,
|
||||
Forms, Controls, Graphics, Dialogs,
|
||||
Buttons, StdCtrls,ExtCtrls,
|
||||
|
||||
LR_Class;
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
|
||||
StdCtrls,ExtCtrls, ButtonPanel, LR_Class;
|
||||
|
||||
type
|
||||
|
||||
{ TfrEvForm }
|
||||
|
||||
TfrEvForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
VarCombo: TComboBox;
|
||||
VarList: TListBox;
|
||||
ValCombo: TComboBox;
|
||||
ValList: TListBox;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Button1: TButton;
|
||||
Edit1: TEdit;
|
||||
Label3: TLabel;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
SB1: TSpeedButton;
|
||||
SB2: TSpeedButton;
|
||||
@ -443,8 +442,18 @@ begin
|
||||
SB1.Hint := sEvFormCopy;
|
||||
SB2.Hint := sEvFormPaste;
|
||||
Button3.Caption := sEvFormVars;
|
||||
Button1.Caption := sOk;
|
||||
Button2.Caption := sCancel;
|
||||
|
||||
Button3.Parent:=ButtonPanel1;
|
||||
SB1.Parent:=ButtonPanel1;
|
||||
SB2.Parent:=ButtonPanel1;
|
||||
Button3.AnchorSide[akLeft].Control:=ButtonPanel1.HelpButton;
|
||||
Button3.AnchorSide[akTop].Control:=ButtonPanel1.HelpButton;
|
||||
Button3.AnchorSide[akBottom].Control:=ButtonPanel1.HelpButton;
|
||||
|
||||
SB1.AnchorSide[akTop].Control:=ButtonPanel1.HelpButton;
|
||||
SB1.AnchorSide[akBottom].Control:=ButtonPanel1.HelpButton;
|
||||
SB2.AnchorSide[akTop].Control:=ButtonPanel1.HelpButton;
|
||||
SB2.AnchorSide[akBottom].Control:=ButtonPanel1.HelpButton;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -1,41 +1,56 @@
|
||||
object frTemplNewForm: TfrTemplNewForm
|
||||
Left = 550
|
||||
Height = 292
|
||||
Height = 353
|
||||
Top = 171
|
||||
Width = 219
|
||||
Width = 400
|
||||
HorzScrollBar.Page = 218
|
||||
VertScrollBar.Page = 291
|
||||
ActiveControl = Memo1
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Íîâûé øàáëîí'
|
||||
ClientHeight = 292
|
||||
ClientWidth = 219
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Caption = 'New template'
|
||||
ClientHeight = 353
|
||||
ClientWidth = 400
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.29'
|
||||
object Label1: TLabel
|
||||
Height = 13
|
||||
Width = 1
|
||||
Caption = 'Êîììåíòàðèé'
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 6
|
||||
Width = 80
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Description'
|
||||
FocusControl = Memo1
|
||||
ParentColor = False
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 4
|
||||
Height = 117
|
||||
Top = 136
|
||||
Width = 211
|
||||
Caption = 'Êàðòèíêà'
|
||||
ClientHeight = 100
|
||||
ClientWidth = 207
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = ButtonPanel1
|
||||
Left = 6
|
||||
Height = 122
|
||||
Top = 179
|
||||
Width = 388
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Image'
|
||||
ClientHeight = 101
|
||||
ClientWidth = 380
|
||||
TabOrder = 0
|
||||
object Panel1: TPanel
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = GroupBox2
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
Left = 6
|
||||
Height = 89
|
||||
Top = 6
|
||||
Width = 88
|
||||
HelpContext = 83
|
||||
BorderSpacing.Around = 6
|
||||
BevelOuter = bvLowered
|
||||
ClientHeight = 89
|
||||
ClientWidth = 88
|
||||
@ -48,53 +63,51 @@ object frTemplNewForm: TfrTemplNewForm
|
||||
Width = 86
|
||||
Align = alClient
|
||||
Center = True
|
||||
Transparent = False
|
||||
end
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 124
|
||||
Height = 25
|
||||
Top = 20
|
||||
Width = 75
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
Left = 100
|
||||
Height = 29
|
||||
Top = 6
|
||||
Width = 57
|
||||
HelpContext = 64
|
||||
Caption = 'Îáçîð...'
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Load...'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 60
|
||||
Height = 25
|
||||
Top = 264
|
||||
Width = 75
|
||||
HelpContext = 40
|
||||
Caption = 'Ok'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
object Memo1: TMemo
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = GroupBox2
|
||||
Left = 6
|
||||
Height = 143
|
||||
Top = 30
|
||||
Width = 388
|
||||
HelpContext = 73
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
TabOrder = 1
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 140
|
||||
Height = 25
|
||||
Top = 264
|
||||
Width = 75
|
||||
HelpContext = 50
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 40
|
||||
Top = 307
|
||||
Width = 388
|
||||
TabOrder = 2
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 4
|
||||
Height = 109
|
||||
Top = 20
|
||||
Width = 210
|
||||
HelpContext = 73
|
||||
TabOrder = 3
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
FilterIndex = 0
|
||||
left = 152
|
||||
top = 196
|
||||
left = 144
|
||||
top = 248
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,29 +1,38 @@
|
||||
{ Ceci est un fichier ressource généré automatiquement par Lazarus }
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrTemplNewForm','FORMDATA',[
|
||||
'TPF0'#15'TfrTemplNewForm'#14'frTemplNewForm'#4'Left'#3'&'#2#6'Height'#3'$'#1
|
||||
+#3'Top'#3#171#0#5'Width'#3#219#0#18'HorzScrollBar.Page'#3#218#0#18'VertScrol'
|
||||
+'lBar.Page'#3'#'#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#12#205#238#226
|
||||
+#251#233' '#248#224#225#235#238#237#12'ClientHeight'#3'$'#1#11'ClientWidth'#3
|
||||
+#219#0#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'
|
||||
+#7#12'FormActivate'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCe'
|
||||
+'nter'#0#6'TLabel'#6'Label1'#6'Height'#2#13#5'Width'#2#1#7'Caption'#6#11#202
|
||||
+#238#236#236#229#237#242#224#240#232#233#12'FocusControl'#7#5'Memo1'#11'Pare'
|
||||
+'ntColor'#8#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2#4#6'Height'#2'u'#3'Top'#3
|
||||
+#136#0#5'Width'#3#211#0#7'Caption'#6#8#202#224#240#242#232#237#234#224#12'Cl'
|
||||
+'ientHeight'#2'd'#11'ClientWidth'#3#207#0#8'TabOrder'#2#0#0#6'TPanel'#6'Pane'
|
||||
+'l1'#4'Left'#2#8#6'Height'#2'Y'#3'Top'#2#6#5'Width'#2'X'#11'HelpContext'#2'S'
|
||||
+#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'Y'#11'ClientWidth'#2'X'#11
|
||||
+'FullRepaint'#8#8'TabOrder'#2#0#0#6'TImage'#6'Image1'#4'Left'#2#1#6'Height'#2
|
||||
+'W'#3'Top'#2#1#5'Width'#2'V'#5'Align'#7#8'alClient'#6'Center'#9#11'Transpare'
|
||||
+'nt'#8#0#0#0#7'TButton'#7'Button1'#4'Left'#2'|'#6'Height'#2#25#3'Top'#2#20#5
|
||||
+'Width'#2'K'#11'HelpContext'#2'@'#7'Caption'#6#8#206#225#231#238#240'...'#7
|
||||
+'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1#0#0#0#7'TButton'#7'Button2'#4'L'
|
||||
+'eft'#2'<'#6'Height'#2#25#3'Top'#3#8#1#5'Width'#2'K'#11'HelpContext'#2'('#7
|
||||
+'Caption'#6#2'Ok'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#1#0#0#7'TBu'
|
||||
+'tton'#7'Button3'#4'Left'#3#140#0#6'Height'#2#25#3'Top'#3#8#1#5'Width'#2'K'
|
||||
+#11'HelpContext'#2'2'#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2
|
||||
+#8'TabOrder'#2#2#0#0#5'TMemo'#5'Memo1'#4'Left'#2#4#6'Height'#2'm'#3'Top'#2#20
|
||||
+#5'Width'#3#210#0#11'HelpContext'#2'I'#8'TabOrder'#2#3#0#0#11'TOpenDialog'#11
|
||||
+'OpenDialog1'#11'FilterIndex'#2#0#4'left'#3#152#0#3'top'#3#196#0#0#0#0
|
||||
'TPF0'#15'TfrTemplNewForm'#14'frTemplNewForm'#4'Left'#3'&'#2#6'Height'#3'a'#1
|
||||
+#3'Top'#3#171#0#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#218#0#18'VertScrol'
|
||||
+'lBar.Page'#3'#'#1#13'ActiveControl'#7#5'Memo1'#11'BorderStyle'#7#8'bsDialog'
|
||||
+#7'Caption'#6#12'New template'#12'ClientHeight'#3'a'#1#11'ClientWidth'#3#144
|
||||
+#1#10'OnActivate'#7#12'FormActivate'#8'OnCreate'#7#10'FormCreate'#8'Position'
|
||||
+#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6'Label1'#22'An'
|
||||
+'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Lef'
|
||||
+'t'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'P'#20'BorderSpacing.Around'#2#6
|
||||
+#7'Caption'#6#11'Description'#12'FocusControl'#7#5'Memo1'#11'ParentColor'#8#0
|
||||
+#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#5'Owner'#23'Anchor'
|
||||
+'SideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'An'
|
||||
+'chorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2'z'#3'Top'
|
||||
+#3#179#0#5'Width'#3#132#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8
|
||||
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'Image'#12'ClientHei'
|
||||
+'ght'#2'e'#11'ClientWidth'#3'|'#1#8'TabOrder'#2#0#0#6'TPanel'#6'Panel1'#22'A'
|
||||
+'nchorSideLeft.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#9'GroupBo'
|
||||
+'x2'#4'Left'#2#6#6'Height'#2'Y'#3'Top'#2#6#5'Width'#2'X'#11'HelpContext'#2'S'
|
||||
+#20'BorderSpacing.Around'#2#6#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'
|
||||
+#2'Y'#11'ClientWidth'#2'X'#11'FullRepaint'#8#8'TabOrder'#2#0#0#6'TImage'#6'I'
|
||||
+'mage1'#4'Left'#2#1#6'Height'#2'W'#3'Top'#2#1#5'Width'#2'V'#5'Align'#7#8'alC'
|
||||
+'lient'#6'Center'#9#0#0#0#7'TButton'#7'Button1'#22'AnchorSideLeft.Control'#7
|
||||
+#6'Panel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
|
||||
+#9'GroupBox2'#4'Left'#2'd'#6'Height'#2#29#3'Top'#2#6#5'Width'#2'9'#11'HelpCo'
|
||||
+'ntext'#2'@'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Load.'
|
||||
+'..'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1#0#0#0#5'TMemo'#5'Memo1'#22
|
||||
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#6'Label1'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#9'Group'
|
||||
+'Box2'#4'Left'#2#6#6'Height'#3#143#0#3'Top'#2#30#5'Width'#3#132#1#11'HelpCon'
|
||||
+'text'#2'I'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bor'
|
||||
+'derSpacing.Around'#2#6#8'TabOrder'#2#1#0#0#12'TButtonPanel'#12'ButtonPanel1'
|
||||
+#4'Left'#2#6#6'Height'#2'('#3'Top'#3'3'#1#5'Width'#3#132#1#8'TabOrder'#2#2#11
|
||||
+'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#11'TOpenDialog'#11'Open'
|
||||
+'Dialog1'#11'FilterIndex'#2#0#4'left'#3#144#0#3'top'#3#248#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -15,20 +15,19 @@ interface
|
||||
{$I LR_Vers.inc}
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources,
|
||||
Forms, Controls, Graphics, Dialogs,
|
||||
Buttons, StdCtrls,ClipBrd,ExtCtrls,
|
||||
|
||||
LR_Const;
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
|
||||
StdCtrls,ClipBrd,ExtCtrls, ButtonPanel, LR_Const;
|
||||
|
||||
type
|
||||
|
||||
{ TfrTemplNewForm }
|
||||
|
||||
TfrTemplNewForm = class(TForm)
|
||||
ButtonPanel1: TButtonPanel;
|
||||
GroupBox2: TGroupBox;
|
||||
Panel1: TPanel;
|
||||
Image1: TImage;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
Memo1: TMemo;
|
||||
Label1: TLabel;
|
||||
@ -63,12 +62,10 @@ end;
|
||||
|
||||
procedure TfrTemplNewForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Caption := LoadStr(frRes + 320);
|
||||
Label1.Caption := LoadStr(frRes + 321);
|
||||
GroupBox2.Caption := LoadStr(frRes + 322);
|
||||
Button1.Caption := LoadStr(frRes + 323);
|
||||
Button2.Caption := sOk;
|
||||
Button3.Caption := sCancel;
|
||||
Caption := sNewTemplate;
|
||||
Label1.Caption := sTemplFormDesc;
|
||||
GroupBox2.Caption := sGEditorFormCapt;
|
||||
Button1.Caption := sGEditorFormLoad;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -1,101 +1,115 @@
|
||||
object frVBandEditorForm: TfrVBandEditorForm
|
||||
Left = 312
|
||||
Height = 126
|
||||
Top = 210
|
||||
Width = 399
|
||||
Left = 515
|
||||
Height = 195
|
||||
Top = 286
|
||||
Width = 477
|
||||
HorzScrollBar.Page = 398
|
||||
VertScrollBar.Page = 125
|
||||
BorderStyle = bsDialog
|
||||
ActiveControl = edtRecCount
|
||||
Caption = 'Band data sources'
|
||||
ClientHeight = 126
|
||||
ClientWidth = 399
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
ClientHeight = 195
|
||||
ClientWidth = 477
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
object Button1: TButton
|
||||
Left = 236
|
||||
Height = 25
|
||||
Top = 96
|
||||
Width = 75
|
||||
HelpContext = 40
|
||||
Caption = 'Ok'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 0
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 316
|
||||
Height = 25
|
||||
Top = 96
|
||||
Width = 75
|
||||
HelpContext = 50
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 1
|
||||
end
|
||||
LCLVersion = '0.9.29'
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 4
|
||||
Height = 117
|
||||
Top = 4
|
||||
Width = 185
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = GroupBox2
|
||||
AnchorSideBottom.Control = ButtonPanel1
|
||||
Left = 6
|
||||
Height = 137
|
||||
Top = 6
|
||||
Width = 251
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Bands'
|
||||
ClientHeight = 99
|
||||
ClientWidth = 181
|
||||
TabOrder = 2
|
||||
ClientHeight = 116
|
||||
ClientWidth = 243
|
||||
TabOrder = 0
|
||||
object LB1: TListBox
|
||||
Left = 5
|
||||
Height = 93
|
||||
Width = 169
|
||||
Left = 0
|
||||
Height = 116
|
||||
Top = 0
|
||||
Width = 243
|
||||
HelpContext = 105
|
||||
Align = alClient
|
||||
ClickOnSelChange = False
|
||||
ItemHeight = 13
|
||||
ItemHeight = 0
|
||||
OnClick = LB1Click
|
||||
TabOrder = 0
|
||||
TopIndex = -1
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 196
|
||||
Height = 81
|
||||
Top = 4
|
||||
Width = 197
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 263
|
||||
Height = 97
|
||||
Top = 0
|
||||
Width = 214
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
Caption = 'Data source'
|
||||
ClientHeight = 63
|
||||
ClientWidth = 193
|
||||
TabOrder = 3
|
||||
ClientHeight = 76
|
||||
ClientWidth = 206
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 13
|
||||
Top = 41
|
||||
Width = 80
|
||||
AnchorSideLeft.Control = GroupBox2
|
||||
AnchorSideTop.Control = CB1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = edtRecCount
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 18
|
||||
Top = 52
|
||||
Width = 106
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
Caption = '&Record count'
|
||||
FocusControl = Edit1
|
||||
ParentColor = False
|
||||
end
|
||||
object CB1: TComboBox
|
||||
Left = 4
|
||||
Height = 21
|
||||
Top = 5
|
||||
Width = 181
|
||||
AnchorSideLeft.Control = GroupBox2
|
||||
AnchorSideTop.Control = GroupBox2
|
||||
Left = 6
|
||||
Height = 31
|
||||
Top = 6
|
||||
Width = 194
|
||||
HelpContext = 88
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
OnChange = CB1Click
|
||||
OnExit = CB1Exit
|
||||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 128
|
||||
Height = 21
|
||||
Top = 37
|
||||
Width = 57
|
||||
object edtRecCount: TSpinEdit
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = CB1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBox2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 118
|
||||
Height = 27
|
||||
Top = 43
|
||||
Width = 82
|
||||
HelpContext = 95
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
OnExit = CB1Exit
|
||||
TabOrder = 1
|
||||
Text = '1'
|
||||
Value = 1
|
||||
end
|
||||
end
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 40
|
||||
Top = 149
|
||||
Width = 465
|
||||
TabOrder = 2
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,29 +1,41 @@
|
||||
{ Ceci est un fichier ressource généré automatiquement par Lazarus }
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrVBandEditorForm','FORMDATA',[
|
||||
'TPF0'#18'TfrVBandEditorForm'#17'frVBandEditorForm'#4'Left'#3'8'#1#6'Height'#2
|
||||
+'~'#3'Top'#3#210#0#5'Width'#3#143#1#18'HorzScrollBar.Page'#3#142#1#18'VertSc'
|
||||
+'rollBar.Page'#2'}'#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Band data '
|
||||
+'sources'#12'ClientHeight'#2'~'#11'ClientWidth'#3#143#1#11'Font.Height'#2#245
|
||||
+#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'Position'#7
|
||||
+#14'poScreenCenter'#0#7'TButton'#7'Button1'#4'Left'#3#236#0#6'Height'#2#25#3
|
||||
+'Top'#2'`'#5'Width'#2'K'#11'HelpContext'#2'('#7'Caption'#6#2'Ok'#7'Default'#9
|
||||
+#11'ModalResult'#2#1#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3'<'#1
|
||||
+#6'Height'#2#25#3'Top'#2'`'#5'Width'#2'K'#11'HelpContext'#2'2'#6'Cancel'#9#7
|
||||
+'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#9'TGroupBox'#9
|
||||
+'GroupBox1'#4'Left'#2#4#6'Height'#2'u'#3'Top'#2#4#5'Width'#3#185#0#7'Caption'
|
||||
+#6#5'Bands'#12'ClientHeight'#2'c'#11'ClientWidth'#3#181#0#8'TabOrder'#2#2#0#8
|
||||
+'TListBox'#3'LB1'#4'Left'#2#5#6'Height'#2']'#5'Width'#3#169#0#11'HelpContext'
|
||||
+#2'i'#16'ClickOnSelChange'#8#10'ItemHeight'#2#13#7'OnClick'#7#8'LB1Click'#8
|
||||
+'TabOrder'#2#0#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#3#196#0#6'Height'#2'Q'
|
||||
+#3'Top'#2#4#5'Width'#3#197#0#7'Caption'#6#11'Data source'#12'ClientHeight'#2
|
||||
+'?'#11'ClientWidth'#3#193#0#8'TabOrder'#2#3#0#6'TLabel'#6'Label1'#4'Left'#2#4
|
||||
+#6'Height'#2#13#3'Top'#2')'#5'Width'#2'P'#7'Caption'#6#13'&Record count'#12
|
||||
+'FocusControl'#7#5'Edit1'#11'ParentColor'#8#0#0#9'TComboBox'#3'CB1'#4'Left'#2
|
||||
+#4#6'Height'#2#21#3'Top'#2#5#5'Width'#3#181#0#11'HelpContext'#2'X'#16'AutoCo'
|
||||
+'mpleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'Ite'
|
||||
+'mHeight'#2#13#9'MaxLength'#2#0#8'OnChange'#7#8'CB1Click'#6'OnExit'#7#7'CB1E'
|
||||
+'xit'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#5'TEdit'#5'Edit1'#4
|
||||
+'Left'#3#128#0#6'Height'#2#21#3'Top'#2'%'#5'Width'#2'9'#11'HelpContext'#2'_'
|
||||
+#6'OnExit'#7#7'CB1Exit'#8'TabOrder'#2#1#4'Text'#6#1'1'#0#0#0#0
|
||||
'TPF0'#18'TfrVBandEditorForm'#17'frVBandEditorForm'#4'Left'#3#3#2#6'Height'#3
|
||||
+#195#0#3'Top'#3#30#1#5'Width'#3#221#1#18'HorzScrollBar.Page'#3#142#1#18'Vert'
|
||||
+'ScrollBar.Page'#2'}'#13'ActiveControl'#7#11'edtRecCount'#7'Caption'#6#17'Ba'
|
||||
+'nd data sources'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#221#1#8'OnCreat'
|
||||
+'e'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9'
|
||||
+'.29'#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'A'
|
||||
+'nchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#9'GroupBox2'
|
||||
+#24'AnchorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#6#6'Height'#3#137
|
||||
+#0#3'Top'#2#6#5'Width'#3#251#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
|
||||
+'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'Bands'#12'ClientHei'
|
||||
+'ght'#2't'#11'ClientWidth'#3#243#0#8'TabOrder'#2#0#0#8'TListBox'#3'LB1'#4'Le'
|
||||
+'ft'#2#0#6'Height'#2't'#3'Top'#2#0#5'Width'#3#243#0#11'HelpContext'#2'i'#5'A'
|
||||
+'lign'#7#8'alClient'#16'ClickOnSelChange'#8#10'ItemHeight'#2#0#7'OnClick'#7#8
|
||||
+'LB1Click'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#0#9'TGroupBox'#9'GroupBox2'
|
||||
+#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'
|
||||
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#7#1#6'Height'#2'a'#3'Top'
|
||||
+#2#0#5'Width'#3#214#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#7'Ca'
|
||||
+'ption'#6#11'Data source'#12'ClientHeight'#2'L'#11'ClientWidth'#3#206#0#8'Ta'
|
||||
+'bOrder'#2#1#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox2'
|
||||
+#21'AnchorSideTop.Control'#7#3'CB1'#18'AnchorSideTop.Side'#7#9'asrBottom'#24
|
||||
+'AnchorSideBottom.Control'#7#11'edtRecCount'#21'AnchorSideBottom.Side'#7#9'a'
|
||||
+'srBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'4'#5'Width'#2'j'#7'Anchors'#11
|
||||
+#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#7'Caption'#6#13'&Record '
|
||||
+'count'#11'ParentColor'#8#0#0#9'TComboBox'#3'CB1'#22'AnchorSideLeft.Control'
|
||||
+#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#9'GroupBox2'#4'Left'#2#6#6'Heigh'
|
||||
+'t'#2#31#3'Top'#2#6#5'Width'#3#194#0#11'HelpContext'#2'X'#20'BorderSpacing.A'
|
||||
+'round'#2#6#10'ItemHeight'#2#0#8'OnChange'#7#8'CB1Click'#6'OnExit'#7#7'CB1Ex'
|
||||
+'it'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#9'TSpinEdit'#11'edtRe'
|
||||
+'cCount'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9
|
||||
+'asrBottom'#21'AnchorSideTop.Control'#7#3'CB1'#18'AnchorSideTop.Side'#7#9'as'
|
||||
+'rBottom'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Side'
|
||||
+#7#9'asrBottom'#4'Left'#2'v'#6'Height'#2#27#3'Top'#2'+'#5'Width'#2'R'#11'Hel'
|
||||
+'pContext'#2'_'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
|
||||
+'ng.Around'#2#6#6'OnExit'#7#7'CB1Exit'#8'TabOrder'#2#1#5'Value'#2#1#0#0#0#12
|
||||
+'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2'('#3'Top'#3#149#0#5
|
||||
+'Width'#3#209#1#8'TabOrder'#2#2#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbH'
|
||||
+'elp'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -17,7 +17,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, LResources,
|
||||
Forms, Controls, Graphics, Dialogs,
|
||||
Buttons, StdCtrls,Variants,
|
||||
Buttons, StdCtrls, ButtonPanel, Spin,Variants,
|
||||
|
||||
LR_Class, LR_Intrp;
|
||||
|
||||
@ -26,13 +26,12 @@ type
|
||||
{ TfrVBandEditorForm }
|
||||
|
||||
TfrVBandEditorForm = class(TForm)
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
ButtonPanel1: TButtonPanel;
|
||||
edtRecCount: TSpinEdit;
|
||||
GroupBox1: TGroupBox;
|
||||
GroupBox2: TGroupBox;
|
||||
Label1: TLabel;
|
||||
CB1: TComboBox;
|
||||
Edit1: TEdit;
|
||||
LB1: TListBox;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure CB1Click(Sender: TObject);
|
||||
@ -134,13 +133,11 @@ begin
|
||||
GroupBox1.Caption := sVBandEditorFormBnd;
|
||||
GroupBox2.Caption := sVBandEditorFormDataSource;
|
||||
Label1.Caption := sVBandEditorFormRecordCount;
|
||||
Button1.Caption := sOk;
|
||||
Button2.Caption := sCancel;
|
||||
end;
|
||||
|
||||
procedure TfrVBandEditorForm.CB1Click(Sender: TObject);
|
||||
begin
|
||||
frEnableControls([Label1, Edit1], CB1.ItemIndex = 1);
|
||||
frEnableControls([Label1, edtRecCount], CB1.ItemIndex = 1);
|
||||
end;
|
||||
|
||||
procedure TfrVBandEditorForm.LB1Click(Sender: TObject);
|
||||
@ -154,7 +151,7 @@ begin
|
||||
if (s <> '') and (s[1] in ['1'..'9']) then
|
||||
begin
|
||||
i := 1;
|
||||
Edit1.Text := s;
|
||||
edtRecCount.Text := s;
|
||||
end
|
||||
else
|
||||
begin
|
||||
@ -173,7 +170,7 @@ begin
|
||||
s := LB1.Items[LB1.ItemIndex];
|
||||
s := Copy(s, 1, Pos(':', s) - 1);
|
||||
if CB1.ItemIndex = 1 then
|
||||
List[s] := Edit1.Text
|
||||
List[s] := edtRecCount.Text
|
||||
else
|
||||
List[s] := CB1.Items[CB1.ItemIndex];
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user