mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-03 20:43:40 +01:00
ideintf: fix layouts
- use TButtonPanel in string and mask property editors - reanchor mask property editor git-svn-id: trunk@19720 -
This commit is contained in:
paul
parent
0dff87dd53
commit
285a8af5a6
@ -1,160 +1,188 @@
|
||||
object MaskEditorForm: TMaskEditorForm
|
||||
Left = 458
|
||||
Height = 239
|
||||
Height = 267
|
||||
Top = 248
|
||||
Width = 507
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Input Mask Editor'
|
||||
ClientHeight = 239
|
||||
ClientHeight = 267
|
||||
ClientWidth = 507
|
||||
OnCreate = MaskEditorFormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object InputMaskLabel: TLabel
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 8
|
||||
Top = 6
|
||||
Width = 58
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '&Input Mask:'
|
||||
FocusControl = InputMaskEdit
|
||||
ParentColor = False
|
||||
end
|
||||
object SampleMasksLabel: TLabel
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 208
|
||||
Height = 14
|
||||
Top = 5
|
||||
Top = 6
|
||||
Width = 71
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '&Sample Masks:'
|
||||
ParentColor = False
|
||||
end
|
||||
object CharactersForBlanksLabel: TLabel
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = InputMaskEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 48
|
||||
Top = 52
|
||||
Width = 103
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Character for Blanks:'
|
||||
FocusControl = CharactersForBlanksEdit
|
||||
ParentColor = False
|
||||
end
|
||||
object InputMaskEdit: TEdit
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = InputMaskLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 24
|
||||
Top = 23
|
||||
Width = 189
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
OnChange = InputMaskEditChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object SampleMasksListBox: TListBox
|
||||
Left = 208
|
||||
Height = 174
|
||||
Top = 24
|
||||
Width = 287
|
||||
AnchorSideLeft.Control = InputMaskEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = SampleMasksLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = LoadSampleMasksButton
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 201
|
||||
Height = 195
|
||||
Top = 23
|
||||
Width = 300
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Right = 6
|
||||
ItemHeight = 0
|
||||
OnClick = SampleMasksListBoxClick
|
||||
OnDrawItem = SampleMasksListBoxDrawItem
|
||||
Style = lbOwnerDrawFixed
|
||||
TabOrder = 4
|
||||
TopIndex = 0
|
||||
end
|
||||
object LoadSampleMasksButton: TButton
|
||||
Left = 16
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = TestInputPanel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 206
|
||||
Top = 193
|
||||
Width = 75
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Masks...'
|
||||
OnClick = LoadSampleMasksButtonClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object CharactersForBlanksEdit: TEdit
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = CharactersForBlanksLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = InputMaskEdit
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 64
|
||||
Top = 69
|
||||
Width = 189
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
MaxLength = 1
|
||||
OnChange = CharactersForBlankEditChange
|
||||
TabOrder = 1
|
||||
end
|
||||
object SaveLiteralCheckBox: TCheckBox
|
||||
Left = 8
|
||||
Height = 19
|
||||
Top = 88
|
||||
Width = 138
|
||||
BorderSpacing.Left = 3
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = CharactersForBlanksEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 98
|
||||
Width = 128
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Save &Literal Characters'
|
||||
OnClick = SaveLiteralCheckBoxClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object TestInputPanel: TPanel
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = SaveLiteralCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = InputMaskEdit
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 66
|
||||
Top = 118
|
||||
Width = 192
|
||||
Top = 121
|
||||
Width = 189
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
ClientHeight = 66
|
||||
ClientWidth = 192
|
||||
ClientWidth = 189
|
||||
FullRepaint = False
|
||||
TabOrder = 3
|
||||
object TestInputLabel: TLabel
|
||||
Left = 8
|
||||
Height = 17
|
||||
AnchorSideLeft.Control = TestInputPanel
|
||||
AnchorSideTop.Control = TestInputPanel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 6
|
||||
Width = 65
|
||||
Width = 55
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = '&Test Input:'
|
||||
ParentColor = False
|
||||
end
|
||||
object TestMaskEdit: TMaskEdit
|
||||
Left = 8
|
||||
AnchorSideLeft.Control = TestInputPanel
|
||||
AnchorSideTop.Control = TestInputLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = TestInputPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 26
|
||||
Width = 176
|
||||
Ctl3D = False
|
||||
Top = 23
|
||||
Width = 177
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 0
|
||||
SpaceChar = '_'
|
||||
end
|
||||
end
|
||||
object OkButton: TBitBtn
|
||||
Left = 263
|
||||
Height = 25
|
||||
Top = 206
|
||||
Width = 75
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = '&OK'
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 227
|
||||
Width = 495
|
||||
TabOrder = 6
|
||||
end
|
||||
object CancelButton: TBitBtn
|
||||
Left = 343
|
||||
Height = 25
|
||||
Top = 206
|
||||
Width = 75
|
||||
Anchors = [akRight, akBottom]
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 7
|
||||
end
|
||||
object HelpButton: TBitBtn
|
||||
Left = 423
|
||||
Height = 25
|
||||
Top = 206
|
||||
Width = 75
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = '&Help'
|
||||
Kind = bkHelp
|
||||
NumGlyphs = 0
|
||||
TabOrder = 8
|
||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Title = 'Open mask file (*.dem)'
|
||||
@ -162,7 +190,7 @@ object MaskEditorForm: TMaskEditorForm
|
||||
Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
|
||||
FilterIndex = 0
|
||||
Options = [ofNoChangeDir, ofEnableSizing, ofViewDetail]
|
||||
left = 48
|
||||
top = 240
|
||||
left = 152
|
||||
top = 96
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,51 +1,74 @@
|
||||
{ Ceci est un fichier ressource généré automatiquement par Lazarus }
|
||||
|
||||
LazarusResources.Add('TMaskEditorForm','FORMDATA',[
|
||||
'TPF0'#15'TMaskEditorForm'#14'MaskEditorForm'#4'Left'#3#202#1#6'Height'#3#239
|
||||
+#0#3'Top'#3#248#0#5'Width'#3#251#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
|
||||
+#17'Input Mask Editor'#12'ClientHeight'#3#239#0#11'ClientWidth'#3#251#1#8'On'
|
||||
+'Create'#7#20'MaskEditorFormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLV'
|
||||
+'ersion'#6#6'0.9.27'#0#6'TLabel'#14'InputMaskLabel'#4'Left'#2#8#6'Height'#2
|
||||
+#14#3'Top'#2#8#5'Width'#2':'#7'Caption'#6#12'&Input Mask:'#12'FocusControl'#7
|
||||
+#13'InputMaskEdit'#11'ParentColor'#8#0#0#6'TLabel'#16'SampleMasksLabel'#4'Le'
|
||||
+'ft'#3#208#0#6'Height'#2#14#3'Top'#2#5#5'Width'#2'G'#7'Caption'#6#14'&Sample'
|
||||
+' Masks:'#11'ParentColor'#8#0#0#6'TLabel'#24'CharactersForBlanksLabel'#4'Lef'
|
||||
+'t'#2#8#6'Height'#2#14#3'Top'#2'0'#5'Width'#2'g'#7'Caption'#6#21'Character f'
|
||||
+'or Blanks:'#12'FocusControl'#7#23'CharactersForBlanksEdit'#11'ParentColor'#8
|
||||
+#0#0#5'TEdit'#13'InputMaskEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5'Wid'
|
||||
+'th'#3#189#0#8'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'#2#0#0#0#8'TLi'
|
||||
+'stBox'#18'SampleMasksListBox'#4'Left'#3#208#0#6'Height'#3#174#0#3'Top'#2#24
|
||||
+#5'Width'#3#31#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10
|
||||
+'ItemHeight'#2#0#7'OnClick'#7#23'SampleMasksListBoxClick'#10'OnDrawItem'#7#26
|
||||
+'SampleMasksListBoxDrawItem'#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrder'#2#4
|
||||
+#8'TopIndex'#2#0#0#0#7'TButton'#21'LoadSampleMasksButton'#4'Left'#2#16#6'Hei'
|
||||
+'ght'#2#25#3'Top'#3#206#0#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0
|
||||
+#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'LoadSampleMasksButtonClick'#8'Tab'
|
||||
+'Order'#2#5#0#0#5'TEdit'#23'CharactersForBlanksEdit'#23'AnchorSideRight.Cont'
|
||||
+'rol'#7#13'InputMaskEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8
|
||||
+#6'Height'#2#23#3'Top'#2'@'#5'Width'#3#189#0#7'Anchors'#11#5'akTop'#6'akLeft'
|
||||
+#7'akRight'#0#18'BorderSpacing.Left'#2#3#9'MaxLength'#2#1#8'OnChange'#7#28'C'
|
||||
+'haractersForBlankEditChange'#8'TabOrder'#2#1#0#0#9'TCheckBox'#19'SaveLitera'
|
||||
+'lCheckBox'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'X'#5'Width'#3#138#0#18'Borde'
|
||||
+'rSpacing.Left'#2#3#7'Caption'#6#24'Save &Literal Characters'#7'OnClick'#7#24
|
||||
+'SaveLiteralCheckBoxClick'#8'TabOrder'#2#2#0#0#6'TPanel'#14'TestInputPanel'#4
|
||||
+'Left'#2#8#6'Height'#2'B'#3'Top'#2'v'#5'Width'#3#192#0#10'BevelInner'#7#8'bv'
|
||||
+'Raised'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'B'#11'ClientWidth'
|
||||
+#3#192#0#11'FullRepaint'#8#8'TabOrder'#2#3#0#6'TLabel'#14'TestInputLabel'#4
|
||||
+'Left'#2#8#6'Height'#2#17#3'Top'#2#6#5'Width'#2'A'#7'Caption'#6#12'&Test Inp'
|
||||
+'ut:'#11'ParentColor'#8#0#0#9'TMaskEdit'#12'TestMaskEdit'#4'Left'#2#8#6'Heig'
|
||||
+'ht'#2#23#3'Top'#2#26#5'Width'#3#176#0#5'Ctl3D'#8#8'TabOrder'#2#0#9'SpaceCha'
|
||||
+'r'#6#1'_'#0#0#0#7'TBitBtn'#8'OkButton'#4'Left'#3#7#1#6'Height'#2#25#3'Top'#3
|
||||
+#206#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#3'&'
|
||||
+'OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'T'
|
||||
+'abOrder'#2#6#0#0#7'TBitBtn'#12'CancelButton'#4'Left'#3'W'#1#6'Height'#2#25#3
|
||||
+'Top'#3#206#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'
|
||||
+#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGly'
|
||||
+'phs'#2#0#8'TabOrder'#2#7#0#0#7'TBitBtn'#10'HelpButton'#4'Left'#3#167#1#6'He'
|
||||
+'ight'#2#25#3'Top'#3#206#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'
|
||||
+#0#7'Caption'#6#5'&Help'#4'Kind'#7#6'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2#8
|
||||
+#0#0#11'TOpenDialog'#11'OpenDialog1'#5'Title'#6#22'Open mask file (*.dem)'#10
|
||||
+'DefaultExt'#6#4'.dem'#6'Filter'#6',Edit Masks (*.dem)|*.dem|All Files (*.*)'
|
||||
+'|*.*'#11'FilterIndex'#2#0#7'Options'#11#13'ofNoChangeDir'#14'ofEnableSizing'
|
||||
+#12'ofViewDetail'#0#4'left'#2'0'#3'top'#3#240#0#0#0#0
|
||||
'TPF0'#15'TMaskEditorForm'#14'MaskEditorForm'#4'Left'#3#202#1#6'Height'#3#11#1
|
||||
+#3'Top'#3#248#0#5'Width'#3#251#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
|
||||
+#17'Input Mask Editor'#12'ClientHeight'#3#11#1#11'ClientWidth'#3#251#1#8'OnC'
|
||||
+'reate'#7#20'MaskEditorFormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVe'
|
||||
+'rsion'#6#6'0.9.27'#0#6'TLabel'#14'InputMaskLabel'#22'AnchorSideLeft.Control'
|
||||
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2#14#3
|
||||
+'Top'#2#6#5'Width'#2':'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6
|
||||
+#7'Caption'#6#12'&Input Mask:'#12'FocusControl'#7#13'InputMaskEdit'#11'Paren'
|
||||
+'tColor'#8#0#0#6'TLabel'#16'SampleMasksLabel'#21'AnchorSideTop.Control'#7#5
|
||||
+'Owner'#4'Left'#3#208#0#6'Height'#2#14#3'Top'#2#6#5'Width'#2'G'#17'BorderSpa'
|
||||
+'cing.Top'#2#6#7'Caption'#6#14'&Sample Masks:'#11'ParentColor'#8#0#0#6'TLabe'
|
||||
+'l'#24'CharactersForBlanksLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
|
||||
+'chorSideTop.Control'#7#13'InputMaskEdit'#18'AnchorSideTop.Side'#7#9'asrBott'
|
||||
+'om'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'4'#5'Width'#2'g'#18'BorderSpacing.L'
|
||||
+'eft'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#21'Character for Blanks:'#12
|
||||
+'FocusControl'#7#23'CharactersForBlanksEdit'#11'ParentColor'#8#0#0#5'TEdit'
|
||||
+#13'InputMaskEdit'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
|
||||
+'ntrol'#7#14'InputMaskLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
|
||||
+#6#6'Height'#2#23#3'Top'#2#23#5'Width'#3#189#0#18'BorderSpacing.Left'#2#6#17
|
||||
+'BorderSpacing.Top'#2#3#8'OnChange'#7#19'InputMaskEditChange'#8'TabOrder'#2#0
|
||||
+#0#0#8'TListBox'#18'SampleMasksListBox'#22'AnchorSideLeft.Control'#7#13'Inpu'
|
||||
+'tMaskEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'
|
||||
+#7#16'SampleMasksLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
|
||||
+'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorS'
|
||||
+'ideBottom.Control'#7#21'LoadSampleMasksButton'#21'AnchorSideBottom.Side'#7#9
|
||||
+'asrBottom'#4'Left'#3#201#0#6'Height'#3#195#0#3'Top'#2#23#5'Width'#3','#1#7
|
||||
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Le'
|
||||
+'ft'#2#6#17'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#10'ItemHeight'
|
||||
+#2#0#7'OnClick'#7#23'SampleMasksListBoxClick'#10'OnDrawItem'#7#26'SampleMask'
|
||||
+'sListBoxDrawItem'#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrder'#2#4#0#0#7'TBu'
|
||||
+'tton'#21'LoadSampleMasksButton'#22'AnchorSideLeft.Control'#7#5'Owner'#21'An'
|
||||
+'chorSideTop.Control'#7#14'TestInputPanel'#18'AnchorSideTop.Side'#7#9'asrBot'
|
||||
+'tom'#4'Left'#2#6#6'Height'#2#25#3'Top'#3#193#0#5'Width'#2'K'#20'BorderSpaci'
|
||||
+'ng.Around'#2#6#7'Caption'#6#9'&Masks...'#7'OnClick'#7#26'LoadSampleMasksBut'
|
||||
+'tonClick'#8'TabOrder'#2#5#0#0#5'TEdit'#23'CharactersForBlanksEdit'#22'Ancho'
|
||||
+'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#24'CharactersForB'
|
||||
+'lanksLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
|
||||
+'l'#7#13'InputMaskEdit'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6
|
||||
+'Height'#2#23#3'Top'#2'E'#5'Width'#3#189#0#7'Anchors'#11#5'akTop'#6'akLeft'#7
|
||||
+'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#9'MaxLength'
|
||||
+#2#1#8'OnChange'#7#28'CharactersForBlankEditChange'#8'TabOrder'#2#1#0#0#9'TC'
|
||||
+'heckBox'#19'SaveLiteralCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'A'
|
||||
+'nchorSideTop.Control'#7#23'CharactersForBlanksEdit'#18'AnchorSideTop.Side'#7
|
||||
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#17#3'Top'#2'b'#5'Width'#3#128#0#18'Bor'
|
||||
+'derSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#24'Save &Litera'
|
||||
+'l Characters'#7'OnClick'#7#24'SaveLiteralCheckBoxClick'#8'TabOrder'#2#2#0#0
|
||||
+#6'TPanel'#14'TestInputPanel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Ancho'
|
||||
+'rSideTop.Control'#7#19'SaveLiteralCheckBox'#18'AnchorSideTop.Side'#7#9'asrB'
|
||||
+'ottom'#23'AnchorSideRight.Control'#7#13'InputMaskEdit'#20'AnchorSideRight.S'
|
||||
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'B'#3'Top'#2'y'#5'Width'#3#189#0
|
||||
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17
|
||||
+'BorderSpacing.Top'#2#6#10'BevelInner'#7#8'bvRaised'#10'BevelOuter'#7#9'bvLo'
|
||||
+'wered'#12'ClientHeight'#2'B'#11'ClientWidth'#3#189#0#11'FullRepaint'#8#8'Ta'
|
||||
+'bOrder'#2#3#0#6'TLabel'#14'TestInputLabel'#22'AnchorSideLeft.Control'#7#14
|
||||
+'TestInputPanel'#21'AnchorSideTop.Control'#7#14'TestInputPanel'#4'Left'#2#6#6
|
||||
+'Height'#2#14#3'Top'#2#6#5'Width'#2'7'#18'BorderSpacing.Left'#2#6#17'BorderS'
|
||||
+'pacing.Top'#2#6#7'Caption'#6#12'&Test Input:'#11'ParentColor'#8#0#0#9'TMask'
|
||||
+'Edit'#12'TestMaskEdit'#22'AnchorSideLeft.Control'#7#14'TestInputPanel'#21'A'
|
||||
+'nchorSideTop.Control'#7#14'TestInputLabel'#18'AnchorSideTop.Side'#7#9'asrBo'
|
||||
+'ttom'#23'AnchorSideRight.Control'#7#14'TestInputPanel'#20'AnchorSideRight.S'
|
||||
+'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#23#5'Width'#3#177#0
|
||||
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17
|
||||
+'BorderSpacing.Top'#2#3#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#0#9'SpaceC'
|
||||
+'har'#6#1'_'#0#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2
|
||||
,'"'#3'Top'#3#227#0#5'Width'#3#239#1#8'TabOrder'#2#6#11'ShowButtons'#11#4'pbO'
|
||||
+'K'#8'pbCancel'#6'pbHelp'#0#0#0#11'TOpenDialog'#11'OpenDialog1'#5'Title'#6#22
|
||||
+'Open mask file (*.dem)'#10'DefaultExt'#6#4'.dem'#6'Filter'#6',Edit Masks (*'
|
||||
+'.dem)|*.dem|All Files (*.*)|*.*'#11'FilterIndex'#2#0#7'Options'#11#13'ofNoC'
|
||||
+'hangeDir'#14'ofEnableSizing'#12'ofViewDetail'#0#4'left'#3#152#0#3'top'#2'`'
|
||||
+#0#0#0
|
||||
]);
|
||||
|
||||
@ -26,17 +26,15 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, MaskUtils, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StrUtils, StdCtrls, Buttons, ExtCtrls, FileUtil, MaskEdit, LazIDEIntf,
|
||||
PropEdits, ComponentEditors, ObjInspStrConsts;
|
||||
PropEdits, ComponentEditors, ObjInspStrConsts, ButtonPanel;
|
||||
|
||||
type
|
||||
|
||||
{ TMaskEditorForm }
|
||||
|
||||
TMaskEditorForm = class(TForm)
|
||||
CancelButton: TBitBtn;
|
||||
HelpButton: TBitBtn;
|
||||
ButtonPanel1: TButtonPanel;
|
||||
LoadSampleMasksButton: TButton;
|
||||
OkButton: TBitBtn;
|
||||
SaveLiteralCheckBox: TCheckBox;
|
||||
InputMaskEdit: TEdit;
|
||||
CharactersForBlanksEdit: TEdit;
|
||||
|
||||
@ -13,15 +13,19 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object TextGroupBox: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = BtnPanel
|
||||
Left = 6
|
||||
Height = 252
|
||||
Height = 258
|
||||
Top = 6
|
||||
Width = 388
|
||||
Align = alTop
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
ClientHeight = 234
|
||||
ClientHeight = 240
|
||||
ClientWidth = 384
|
||||
TabOrder = 0
|
||||
object StatusLabel: TLabel
|
||||
@ -29,7 +33,7 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 214
|
||||
Top = 220
|
||||
Width = 57
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
@ -41,7 +45,7 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
|
||||
AnchorSideRight.Control = SortButton
|
||||
AnchorSideBottom.Control = StatusLabel
|
||||
Left = 6
|
||||
Height = 202
|
||||
Height = 208
|
||||
Top = 6
|
||||
Width = 291
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
@ -69,51 +73,13 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object BtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 38
|
||||
Top = 264
|
||||
Width = 400
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 38
|
||||
ClientWidth = 400
|
||||
object BtnPanel: TButtonPanel
|
||||
Left = 6
|
||||
Height = 26
|
||||
Top = 270
|
||||
Width = 388
|
||||
TabOrder = 1
|
||||
object CancelButton: TBitBtn
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 317
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 77
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Constraints.MinWidth = 75
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object OKButton: TBitBtn
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 236
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 75
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&OK'
|
||||
Constraints.MinWidth = 75
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
ShowButtons = [pbOK, pbCancel]
|
||||
ShowBevel = False
|
||||
end
|
||||
end
|
||||
|
||||
@ -6,17 +6,19 @@ LazarusResources.Add('TStringsPropEditorFrm','FORMDATA',[
|
||||
+'Caption'#6#20'StringsPropEditorFrm'#12'ClientHeight'#3'.'#1#11'ClientWidth'
|
||||
+#3#144#1#21'Constraints.MinHeight'#3#160#0#20'Constraints.MinWidth'#3#180#0#8
|
||||
+'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
|
||||
+#6'0.9.27'#0#9'TGroupBox'#12'TextGroupBox'#24'AnchorSideBottom.Control'#7#8
|
||||
+'BtnPanel'#4'Left'#2#6#6'Height'#3#252#0#3'Top'#2#6#5'Width'#3#132#1#5'Align'
|
||||
+#6'0.9.27'#0#9'TGroupBox'#12'TextGroupBox'#22'AnchorSideLeft.Control'#7#5'Ow'
|
||||
+'ner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'O'
|
||||
+'wner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
|
||||
+#8'BtnPanel'#4'Left'#2#6#6'Height'#3#2#1#3'Top'#2#6#5'Width'#3#132#1#5'Align'
|
||||
+#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bor'
|
||||
+'derSpacing.Around'#2#6#12'ClientHeight'#3#234#0#11'ClientWidth'#3#128#1#8'T'
|
||||
+'derSpacing.Around'#2#6#12'ClientHeight'#3#240#0#11'ClientWidth'#3#128#1#8'T'
|
||||
+'abOrder'#2#0#0#6'TLabel'#11'StatusLabel'#24'AnchorSideBottom.Control'#7#12
|
||||
+'TextGroupBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#9#6'Height'
|
||||
+#2#14#3'Top'#3#214#0#5'Width'#2'9'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20
|
||||
+#2#14#3'Top'#3#220#0#5'Width'#2'9'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#11'StatusLabel'#11'ParentColor'#8#0#0
|
||||
+#5'TMemo'#4'Memo'#22'AnchorSideLeft.Control'#7#12'TextGroupBox'#23'AnchorSid'
|
||||
+'eRight.Control'#7#10'SortButton'#24'AnchorSideBottom.Control'#7#11'StatusLa'
|
||||
+'bel'#4'Left'#2#6#6'Height'#3#202#0#3'Top'#2#6#5'Width'#3'#'#1#7'Anchors'#11
|
||||
+'bel'#4'Left'#2#6#6'Height'#3#208#0#3'Top'#2#6#5'Width'#3'#'#1#7'Anchors'#11
|
||||
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8
|
||||
+'OnChange'#7#10'MemoChange'#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#8
|
||||
+'WordWrap'#8#0#0#7'TButton'#10'SortButton'#22'AnchorSideLeft.Control'#7#4'Me'
|
||||
@ -24,17 +26,8 @@ LazarusResources.Add('TStringsPropEditorFrm','FORMDATA',[
|
||||
+'TextGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3'/'#1#6'Heig'
|
||||
+'ht'#2#23#3'Top'#2#6#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'Aut'
|
||||
+'oSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#4'Sort'#20'Constraints.M'
|
||||
+'inWidth'#2'K'#7'OnClick'#7#15'SortButtonClick'#8'TabOrder'#2#1#0#0#0#6'TPan'
|
||||
+'el'#8'BtnPanel'#4'Left'#2#0#6'Height'#2'&'#3'Top'#3#8#1#5'Width'#3#144#1#5
|
||||
+'Align'#7#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeig'
|
||||
+'ht'#2'&'#11'ClientWidth'#3#144#1#8'TabOrder'#2#1#0#7'TBitBtn'#12'CancelButt'
|
||||
+'on'#20'AnchorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'a'
|
||||
+'srBottom'#4'Left'#3'='#1#6'Height'#2#26#3'Top'#2#6#5'Width'#2'M'#5'Align'#7
|
||||
+#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'Caption'
|
||||
+#6#6'Cancel'#20'Constraints.MinWidth'#2'K'#4'Kind'#7#8'bkCancel'#11'ModalRes'
|
||||
+'ult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'OKButton'#21'Anc'
|
||||
+'horSideBottom.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#26#3'Top'#2#6
|
||||
+#5'Width'#2'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2
|
||||
+#6#7'Caption'#6#3'&OK'#20'Constraints.MinWidth'#2'K'#7'Default'#9#4'Kind'#7#4
|
||||
+'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0
|
||||
+'inWidth'#2'K'#7'OnClick'#7#15'SortButtonClick'#8'TabOrder'#2#1#0#0#0#12'TBu'
|
||||
+'ttonPanel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26#3'Top'#3#14#1#5'Width'#3
|
||||
+#132#1#8'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#9'ShowBevel'
|
||||
+#8#0#0#0
|
||||
]);
|
||||
|
||||
@ -23,16 +23,14 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Buttons, Dialogs, StdCtrls,
|
||||
TextTools, ObjInspStrConsts, ExtCtrls;
|
||||
TextTools, ObjInspStrConsts, ExtCtrls, ButtonPanel;
|
||||
|
||||
type
|
||||
|
||||
{ TStringsPropEditorFrm }
|
||||
|
||||
TStringsPropEditorFrm = class(TForm)
|
||||
OKButton: TBitBtn;
|
||||
CancelButton: TBitBtn;
|
||||
BtnPanel: TPanel;
|
||||
BtnPanel: TButtonPanel;
|
||||
StatusLabel: TLabel;
|
||||
SortButton: TButton;
|
||||
TextGroupBox: TGroupBox;
|
||||
@ -54,8 +52,8 @@ begin
|
||||
Caption := oisStringsEditorDialog;
|
||||
StatusLabel.Caption := ois0Lines0Chars;
|
||||
SortButton.Caption := oisSort;
|
||||
OKButton.Caption := oisOk2;
|
||||
CancelButton.Caption := oiStdActDataSetCancel1Hint;
|
||||
BtnPanel.OKButton.Caption := oisOk2;
|
||||
BtnPanel.CancelButton.Caption := oiStdActDataSetCancel1Hint;
|
||||
|
||||
AddButtons;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user