paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 16:18:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: property-editor for TMaskEdit: set minimal width for samples listbox.

Browse Source 
(cherry picked from commit a1f45d1080)
This commit is contained in:
Bart 2024-01-15 23:15:39 +01:00 committed by Maxim Ganetsky
parent 25c7c89b8f
commit b43b509320
1 changed files with 29 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
components/ideintf/maskpropedit.lfm
View File

@ -9,17 +9,17 @@ object MaskEditorForm: TMaskEditorForm
Caption = 'Input Mask Editor' Caption = 'Input Mask Editor'
ClientHeight = 287 ClientHeight = 287
ClientWidth = 507 ClientWidth = 507
Position = poScreenCenter
LCLVersion = '3.99.0.0'
OnClose = FormClose OnClose = FormClose
OnCreate = MaskEditorFormCreate OnCreate = MaskEditorFormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object InputMaskLabel: TLabel object InputMaskLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 6 Left = 6
Height = 15 Height = 15
Top = 6 Top = 6
Width = 70 Width = 62
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Input Mask:' Caption = '&Input Mask:'
@ -32,7 +32,7 @@ object MaskEditorForm: TMaskEditorForm
Left = 201 Left = 201
Height = 15 Height = 15
Top = 6 Top = 6
Width = 90 Width = 78
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Sample Masks:' Caption = '&Sample Masks:'
ParentColor = False ParentColor = False
@ -43,8 +43,8 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 59 Top = 53
Width = 127 Width = 109
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Character for Blanks:' Caption = 'Character for Blanks:'
@ -56,13 +56,13 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideTop.Control = InputMaskLabel AnchorSideTop.Control = InputMaskLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 23
Top = 24 Top = 24
Width = 189 Width = 189
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
OnChange = InputMaskEditChange
TabOrder = 0 TabOrder = 0
OnChange = InputMaskEditChange
end end
object SampleMasksListBox: TListBox object SampleMasksListBox: TListBox
AnchorSideLeft.Control = InputMaskEdit AnchorSideLeft.Control = InputMaskEdit
@ -74,18 +74,19 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideBottom.Control = LoadSampleMasksButton AnchorSideBottom.Control = LoadSampleMasksButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 201 Left = 201
Height = 211 Height = 198
Top = 24 Top = 24
Width = 300 Width = 300
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Constraints.MinWidth = 300
ItemHeight = 0 ItemHeight = 0
OnClick = SampleMasksListBoxClick
OnDrawItem = SampleMasksListBoxDrawItem
Style = lbOwnerDrawFixed Style = lbOwnerDrawFixed
TabOrder = 4 TabOrder = 4
OnClick = SampleMasksListBoxClick
OnDrawItem = SampleMasksListBoxDrawItem
end end
object LoadSampleMasksButton: TButton object LoadSampleMasksButton: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -93,12 +94,12 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 25
Top = 210 Top = 197
Width = 75 Width = 75
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Masks...' Caption = '&Masks...'
OnClick = LoadSampleMasksButtonClick
TabOrder = 5 TabOrder = 5
OnClick = LoadSampleMasksButtonClick
end end
object CharactersForBlanksEdit: TEdit object CharactersForBlanksEdit: TEdit
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -107,29 +108,29 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideRight.Control = InputMaskEdit AnchorSideRight.Control = InputMaskEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 23
Top = 77 Top = 71
Width = 189 Width = 189
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
MaxLength = 1 MaxLength = 1
OnChange = CharactersForBlankEditChange
TabOrder = 1 TabOrder = 1
OnChange = CharactersForBlankEditChange
end end
object SaveLiteralCheckBox: TCheckBox object SaveLiteralCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CharactersForBlanksEdit AnchorSideTop.Control = CharactersForBlanksEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 20 Height = 19
Top = 112 Top = 100
Width = 169 Width = 136
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Save &Literal Characters' Caption = 'Save &Literal Characters'
OnClick = SaveLiteralCheckBoxClick
TabOrder = 2 TabOrder = 2
OnClick = SaveLiteralCheckBoxClick
end end
object TestInputPanel: TPanel object TestInputPanel: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -139,7 +140,7 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 66 Height = 66
Top = 138 Top = 125
Width = 189 Width = 189
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -156,7 +157,7 @@ object MaskEditorForm: TMaskEditorForm
Left = 8 Left = 8
Height = 15 Height = 15
Top = 8 Top = 8
Width = 63 Width = 54
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Test Input:' Caption = '&Test Input:'
@ -169,14 +170,14 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideRight.Control = TestInputPanel AnchorSideRight.Control = TestInputPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 29 Height = 23
Top = 26 Top = 26
Width = 173 Width = 173
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
CharCase = ecNormal EnableSets = False
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
SpaceChar = '_' SpaceChar = '_'
@ -186,8 +187,8 @@ object MaskEditorForm: TMaskEditorForm
AnchorSideTop.Control = LoadSampleMasksButton AnchorSideTop.Control = LoadSampleMasksButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 40 Height = 53
Top = 241 Top = 228
Width = 495 Width = 495
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
@ -207,7 +208,7 @@ object MaskEditorForm: TMaskEditorForm
Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*' Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
FilterIndex = 0 FilterIndex = 0
Options = [ofNoChangeDir, ofEnableSizing, ofViewDetail] Options = [ofNoChangeDir, ofEnableSizing, ofViewDetail]
left = 152 Left = 152
top = 96 Top = 96
end end
end end