paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchoreditor to resourcestring from Darius

Browse Source 
git-svn-id: trunk@8819 -
This commit is contained in:
mattias 2006-02-24 17:27:27 +00:00
parent d0aae65b76
commit e9c7038930
4 changed files with 224 additions and 196 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
designer/anchoreditor.lfm
View File

@ -1,4 +1,5 @@
object AnchorDesigner: TAnchorDesigner object AnchorDesigner: TAnchorDesigner
ActiveControl = LeftBorderSpaceSpinEdit
Caption = 'AnchorDesigner' Caption = 'AnchorDesigner'
ClientHeight = 259 ClientHeight = 259
ClientWidth = 520 ClientWidth = 520
@ -6,7 +7,8 @@ object AnchorDesigner: TAnchorDesigner
OnCreate = AnchorDesignerCreate OnCreate = AnchorDesignerCreate
OnDestroy = AnchorDesignerDestroy OnDestroy = AnchorDesignerDestroy
OnShow = AnchorDesignerShow OnShow = AnchorDesignerShow
PixelsPerInch = 112 PixelsPerInch = 96
Position = poScreenCenter
HorzScrollBar.Page = 519 HorzScrollBar.Page = 519
VertScrollBar.Page = 258 VertScrollBar.Page = 258
Left = 298 Left = 298
@ -16,28 +18,23 @@ object AnchorDesigner: TAnchorDesigner
object BorderSpaceGroupBox: TGroupBox object BorderSpaceGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'BorderSpaceGroupBox' Caption = 'BorderSpaceGroupBox'
ClientHeight = 87 ClientHeight = 86
ClientWidth = 168 ClientWidth = 168
ParentColor = True
TabOrder = 0 TabOrder = 0
Left = 172 Left = 172
Height = 104 Height = 104
Top = 80 Top = 80
Width = 172 Width = 172
object LeftBorderSpaceSpinEdit: TSpinEdit object LeftBorderSpaceSpinEdit: TSpinEdit
ClimbRate = 1
MaxValue = 100
OnChange = BorderSpaceSpinEditChange OnChange = BorderSpaceSpinEditChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
Height = 20 Height = 20
Top = 30 Top = 30
Width = 50 Width = 56
end end
object RightBorderSpaceSpinEdit: TSpinEdit object RightBorderSpaceSpinEdit: TSpinEdit
ClimbRate = 1
MaxValue = 100
OnChange = BorderSpaceSpinEditChange OnChange = BorderSpaceSpinEditChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -45,22 +42,18 @@ object AnchorDesigner: TAnchorDesigner
Left = 118 Left = 118
Height = 20 Height = 20
Top = 30 Top = 30
Width = 50 Width = 56
end end
object TopBorderSpaceSpinEdit: TSpinEdit object TopBorderSpaceSpinEdit: TSpinEdit
ClimbRate = 1
MaxValue = 100
OnChange = BorderSpaceSpinEditChange OnChange = BorderSpaceSpinEditChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
Left = 58 Left = 58
Height = 20 Height = 20
Width = 50 Width = 56
end end
object BottomBorderSpaceSpinEdit: TSpinEdit object BottomBorderSpaceSpinEdit: TSpinEdit
ClimbRate = 1
MaxValue = 100
OnChange = BorderSpaceSpinEditChange OnChange = BorderSpaceSpinEditChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -68,11 +61,9 @@ object AnchorDesigner: TAnchorDesigner
Left = 58 Left = 58
Height = 20 Height = 20
Top = 57 Top = 57
Width = 50 Width = 56
end end
object AroundBorderSpaceSpinEdit: TSpinEdit object AroundBorderSpaceSpinEdit: TSpinEdit
ClimbRate = 1
MaxValue = 100
OnChange = BorderSpaceSpinEditChange OnChange = BorderSpaceSpinEditChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -80,15 +71,14 @@ object AnchorDesigner: TAnchorDesigner
Left = 58 Left = 58
Height = 20 Height = 20
Top = 30 Top = 30
Width = 50 Width = 56
end end
end end
object TopGroupBox: TGroupBox object TopGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'TopGroupBox' Caption = 'TopGroupBox'
ClientHeight = 33 ClientHeight = 32
ClientWidth = 404 ClientWidth = 404
ParentColor = True
TabOrder = 1 TabOrder = 1
Left = 64 Left = 64
Height = 50 Height = 50
@ -128,11 +118,12 @@ object AnchorDesigner: TAnchorDesigner
end end
object TopSiblingLabel: TLabel object TopSiblingLabel: TLabel
Caption = 'Sibling' Caption = 'Sibling'
ParentColor = True Color = clNone
ParentColor = False
Left = 94 Left = 94
Height = 12 Height = 14
Top = 4 Top = 4
Width = 38 Width = 31
end end
object TopAnchoredCheckBox: TCheckBox object TopAnchoredCheckBox: TCheckBox
Caption = 'Enabled' Caption = 'Enabled'
@ -140,11 +131,12 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 0 TabOrder = 0
UseOnChange = True UseOnChange = True
Left = 2 Left = 2
Height = 24 Height = 13
Width = 70 Width = 59
end end
object TopSiblingComboBox: TComboBox object TopSiblingComboBox: TComboBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
OnChange = SiblingComboBoxChange OnChange = SiblingComboBoxChange
ParentShowHint = False ParentShowHint = False
@ -152,16 +144,15 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 1 TabOrder = 1
Text = 'TopSiblingComboBox' Text = 'TopSiblingComboBox'
Left = 158 Left = 158
Height = 25 Height = 21
Width = 129 Width = 129
end end
end end
object BottomGroupBox: TGroupBox object BottomGroupBox: TGroupBox
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'BottomGroupBox' Caption = 'BottomGroupBox'
ClientHeight = 33 ClientHeight = 32
ClientWidth = 404 ClientWidth = 404
ParentColor = True
TabOrder = 2 TabOrder = 2
Left = 64 Left = 64
Height = 50 Height = 50
@ -202,11 +193,12 @@ object AnchorDesigner: TAnchorDesigner
end end
object BottomSiblingLabel: TLabel object BottomSiblingLabel: TLabel
Caption = 'Sibling' Caption = 'Sibling'
ParentColor = True Color = clNone
ParentColor = False
Left = 94 Left = 94
Height = 12 Height = 14
Top = 8 Top = 8
Width = 38 Width = 31
end end
object BottomAnchoredCheckBox: TCheckBox object BottomAnchoredCheckBox: TCheckBox
Caption = 'Enabled' Caption = 'Enabled'
@ -214,11 +206,12 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 0 TabOrder = 0
UseOnChange = True UseOnChange = True
Left = 2 Left = 2
Height = 24 Height = 13
Width = 70 Width = 59
end end
object BottomSiblingComboBox: TComboBox object BottomSiblingComboBox: TComboBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
OnChange = SiblingComboBoxChange OnChange = SiblingComboBoxChange
ParentShowHint = False ParentShowHint = False
@ -226,16 +219,15 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 1 TabOrder = 1
Text = 'BottomSiblingComboBox' Text = 'BottomSiblingComboBox'
Left = 158 Left = 158
Height = 25 Height = 21
Width = 129 Width = 129
end end
end end
object RightGroupBox: TGroupBox object RightGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'RightGroupBox' Caption = 'RightGroupBox'
ClientHeight = 112 ClientHeight = 111
ClientWidth = 146 ClientWidth = 146
ParentColor = True
TabOrder = 3 TabOrder = 3
Left = 364 Left = 364
Height = 129 Height = 129
@ -276,11 +268,12 @@ object AnchorDesigner: TAnchorDesigner
end end
object RightSiblingLabel: TLabel object RightSiblingLabel: TLabel
Caption = 'Sibling' Caption = 'Sibling'
ParentColor = True Color = clNone
ParentColor = False
Left = 2 Left = 2
Height = 12 Height = 14
Top = 28 Top = 28
Width = 38 Width = 31
end end
object RightAnchoredCheckBox: TCheckBox object RightAnchoredCheckBox: TCheckBox
Caption = 'Enabled' Caption = 'Enabled'
@ -288,11 +281,12 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 0 TabOrder = 0
UseOnChange = True UseOnChange = True
Left = 2 Left = 2
Height = 24 Height = 13
Width = 70 Width = 59
end end
object RightSiblingComboBox: TComboBox object RightSiblingComboBox: TComboBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
OnChange = SiblingComboBoxChange OnChange = SiblingComboBoxChange
ParentShowHint = False ParentShowHint = False
@ -300,7 +294,7 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 1 TabOrder = 1
Text = 'RightSiblingComboBox' Text = 'RightSiblingComboBox'
Left = 5 Left = 5
Height = 25 Height = 21
Top = 49 Top = 49
Width = 135 Width = 135
end end
@ -308,9 +302,8 @@ object AnchorDesigner: TAnchorDesigner
object LeftGroupBox: TGroupBox object LeftGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'LeftGroupBox' Caption = 'LeftGroupBox'
ClientHeight = 112 ClientHeight = 111
ClientWidth = 146 ClientWidth = 146
ParentColor = True
TabOrder = 4 TabOrder = 4
Left = 8 Left = 8
Height = 129 Height = 129
@ -351,11 +344,12 @@ object AnchorDesigner: TAnchorDesigner
end end
object LeftSiblingLabel: TLabel object LeftSiblingLabel: TLabel
Caption = 'Sibling' Caption = 'Sibling'
ParentColor = True Color = clNone
ParentColor = False
Left = 2 Left = 2
Height = 12 Height = 14
Top = 28 Top = 28
Width = 38 Width = 31
end end
object LeftAnchoredCheckBox: TCheckBox object LeftAnchoredCheckBox: TCheckBox
Caption = 'Enabled' Caption = 'Enabled'
@ -363,11 +357,12 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 0 TabOrder = 0
UseOnChange = True UseOnChange = True
Left = 2 Left = 2
Height = 24 Height = 13
Width = 70 Width = 59
end end
object LeftSiblingComboBox: TComboBox object LeftSiblingComboBox: TComboBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
OnChange = SiblingComboBoxChange OnChange = SiblingComboBoxChange
ParentShowHint = False ParentShowHint = False
@ -375,7 +370,7 @@ object AnchorDesigner: TAnchorDesigner
TabOrder = 1 TabOrder = 1
Text = 'LeftSiblingComboBox' Text = 'LeftSiblingComboBox'
Left = 5 Left = 5
Height = 25 Height = 21
Top = 49 Top = 49
Width = 134 Width = 134
end end

215
designer/anchoreditor.lrs
View File

@ -1,110 +1,113 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TAnchorDesigner','FORMDATA',[ LazarusResources.Add('TAnchorDesigner','FORMDATA',[
'TPF0'#15'TAnchorDesigner'#14'AnchorDesigner'#7'Caption'#6#14'AnchorDesigner' 'TPF0'#15'TAnchorDesigner'#14'AnchorDesigner'#13'ActiveControl'#7#23'LeftBord'
+#12'ClientHeight'#3#3#1#11'ClientWidth'#3#8#2#7'OnClose'#7#19'AnchorDesigner' +'erSpaceSpinEdit'#7'Caption'#6#14'AnchorDesigner'#12'ClientHeight'#3#3#1#11
+'Close'#8'OnCreate'#7#20'AnchorDesignerCreate'#9'OnDestroy'#7#21'AnchorDesig' +'ClientWidth'#3#8#2#7'OnClose'#7#19'AnchorDesignerClose'#8'OnCreate'#7#20'An'
+'nerDestroy'#6'OnShow'#7#18'AnchorDesignerShow'#13'PixelsPerInch'#2'p'#18'Ho' +'chorDesignerCreate'#9'OnDestroy'#7#21'AnchorDesignerDestroy'#6'OnShow'#7#18
+'rzScrollBar.Page'#3#7#2#18'VertScrollBar.Page'#3#2#1#4'Left'#3'*'#1#6'Heigh' +'AnchorDesignerShow'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'
+'t'#3#3#1#3'Top'#3#179#0#5'Width'#3#8#2#0#9'TGroupBox'#19'BorderSpaceGroupBo' +#18'HorzScrollBar.Page'#3#7#2#18'VertScrollBar.Page'#3#2#1#4'Left'#3'*'#1#6
+'x'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#19'BorderSpa' +'Height'#3#3#1#3'Top'#3#179#0#5'Width'#3#8#2#0#9'TGroupBox'#19'BorderSpaceGr'
+'ceGroupBox'#12'ClientHeight'#2'W'#11'ClientWidth'#3#168#0#11'ParentColor'#9 +'oupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#19'Bord'
+#8'TabOrder'#2#0#4'Left'#3#172#0#6'Height'#2'h'#3'Top'#2'P'#5'Width'#3#172#0 +'erSpaceGroupBox'#12'ClientHeight'#2'V'#11'ClientWidth'#3#168#0#8'TabOrder'#2
+#0#9'TSpinEdit'#23'LeftBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd' +#0#4'Left'#3#172#0#6'Height'#2'h'#3'Top'#2'P'#5'Width'#3#172#0#0#9'TSpinEdit'
+#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint' +#23'LeftBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14
+#9#8'TabOrder'#2#0#6'Height'#2#20#3'Top'#2#30#5'Width'#2'2'#0#0#9'TSpinEdit' +'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#6'Height'#2#20#3'Top'#2#30#5
+#24'RightBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7 +'Width'#2'8'#0#0#9'TSpinEdit'#24'RightBorderSpaceSpinEdit'#8'OnChange'#7#25
+#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder' +'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2
+#2#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'2'#0#0#9'TSpinEdit' +#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'8'#0#0#9'TSpinEdit'#22
+#22'TopBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7 +'TopBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'Pare'
+#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder' +'ntShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#4'Left'#2':'#6'Height'#2#20#5'W'
+#2#2#4'Left'#2':'#6'Height'#2#20#5'Width'#2'2'#0#0#9'TSpinEdit'#25'BottomBor' +'idth'#2'8'#0#0#9'TSpinEdit'#25'BottomBorderSpaceSpinEdit'#8'OnChange'#7#25
+'derSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7#25'Border' +'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2
+'SpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#4'L' +#3#4'Left'#2':'#6'Height'#2#20#3'Top'#2'9'#5'Width'#2'8'#0#0#9'TSpinEdit'#25
+'eft'#2':'#6'Height'#2#20#3'Top'#2'9'#5'Width'#2'2'#0#0#9'TSpinEdit'#25'Arou' +'AroundBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'P'
+'ndBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7#25'B' +'arentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#4'Left'#2':'#6'Height'#2#20#3
+'orderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4 +'Top'#2#30#5'Width'#2'8'#0#0#0#9'TGroupBox'#11'TopGroupBox'#7'Anchors'#11#5
+#4'Left'#2':'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'2'#0#0#0#9'TGroupBox'#11 +'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#11'TopGroupBox'#12'ClientHeight'
+'TopGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#11 +#2' '#11'ClientWidth'#3#148#1#8'TabOrder'#2#1#4'Left'#2'@'#6'Height'#2'2'#5
+'TopGroupBox'#12'ClientHeight'#2'!'#11'ClientWidth'#3#148#1#11'ParentColor'#9 +'Width'#3#152#1#0#12'TSpeedButton'#20'TopRefTopSpeedButton'#7'Anchors'#11#5
+#8'TabOrder'#2#1#4'Left'#2'@'#6'Height'#2'2'#5'Width'#3#152#1#0#12'TSpeedBut' +'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'Ref'
+'ton'#20'TopRefTopSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupI' +'erenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6
+'ndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'Sh' +'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefBottomSpeedButton'
+'owHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6'Height'#2#30#5'Width'#2#30#0 +#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'O'
+#0#12'TSpeedButton'#23'TopRefBottomSpeedButton'#7'Anchors'#11#5'akTop'#7'akR' +'nClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8
+'ight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideBu' +#4'Left'#3'K'#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefC'
+'ttonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'K'#1#6'Height'#2 +'enterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9
+#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefCenterSpeedButton'#7'Anchors' +'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14
+#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26 +'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel'
+'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'n' +#15'TopSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11'ParentC'
+#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel'#15'TopSiblingLabel'#7'Caption' +'olor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#4#5'Width'#2#31#0#0#9'TCheckBo'
+#6#7'Sibling'#11'ParentColor'#9#4'Left'#2'^'#6'Height'#2#12#3'Top'#2#4#5'Wid' +'x'#19'TopAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27'AnchorE'
+'th'#2'&'#0#0#9'TCheckBox'#19'TopAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8 +'nabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Heigh'
+'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange' +'t'#2#13#5'Width'#2';'#0#0#9'TComboBox'#18'TopSiblingComboBox'#7'Anchors'#11
+#9#4'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#18'TopSiblingCo' +#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineCo'
+'mboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'On' +'mplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21'Siblin'
+'Change'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'Ta' +'gComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text'
+'bOrder'#2#1#4'Text'#6#18'TopSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#25 +#6#18'TopSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#21#5'Width'#3#129#0#0#0
+#5'Width'#3#129#0#0#0#0#9'TGroupBox'#14'BottomGroupBox'#7'Anchors'#11#6'akLe' +#0#9'TGroupBox'#14'BottomGroupBox'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBo'
+'ft'#7'akRight'#8'akBottom'#0#7'Caption'#6#14'BottomGroupBox'#12'ClientHeigh' +'ttom'#0#7'Caption'#6#14'BottomGroupBox'#12'ClientHeight'#2' '#11'ClientWidt'
+'t'#2'!'#11'ClientWidth'#3#148#1#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2 +'h'#3#148#1#8'TabOrder'#2#2#4'Left'#2'@'#6'Height'#2'2'#3'Top'#3#200#0#5'Wid'
+'@'#6'Height'#2'2'#3'Top'#3#200#0#5'Width'#3#152#1#0#12'TSpeedButton'#23'Bot' +'th'#3#152#1#0#12'TSpeedButton'#23'BottomRefTopSpeedButton'#7'Anchors'#11#5
+'tomRefTopSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3 +'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'Ref'
+#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9 +'erenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6
+#14'ParentShowHint'#8#4'Left'#3'('#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSp' +'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'BottomRefBottomSpeedButt'
+'eedButton'#26'BottomRefBottomSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight' +'on'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0
+#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonCl' +#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'
+'icked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'K'#1#6'Height'#2#30#5'W' +#8#4'Left'#3'K'#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'Botto'
+'idth'#2#30#0#0#12'TSpeedButton'#26'BottomRefCenterSpeedButton'#7'Anchors'#11 +'mRefCenterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2
+#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'R' +#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9
+'eferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'n'#1 +#14'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLab'
+#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel'#18'BottomSiblingLabel'#7'Caption' +'el'#18'BottomSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11
+#6#7'Sibling'#11'ParentColor'#9#4'Left'#2'^'#6'Height'#2#12#3'Top'#2#8#5'Wid' +'ParentColor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#8#5'Width'#2#31#0#0#9'T'
+'th'#2'&'#0#0#9'TCheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled' +'CheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7
+#8'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChang' +#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2
+'e'#9#4'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#21'BottomSib' +#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#21'BottomSiblingComboBox'#7
+'lingComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0 +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac'
+#8'OnChange'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8 +'tEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'
,'TabOrder'#2#1#4'Text'#6#21'BottomSiblingComboBox'#4'Left'#3#158#0#6'Height' ,#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2
+#2#25#5'Width'#3#129#0#0#0#0#9'TGroupBox'#13'RightGroupBox'#7'Anchors'#11#5 +#1#4'Text'#6#21'BottomSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#21#5'Widt'
+'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#13'RightGroupBox'#12'ClientHeig' +'h'#3#129#0#0#0#0#9'TGroupBox'#13'RightGroupBox'#7'Anchors'#11#5'akTop'#6'ak'
+'ht'#2'p'#11'ClientWidth'#3#146#0#11'ParentColor'#9#8'TabOrder'#2#3#4'Left'#3 +'Left'#8'akBottom'#0#7'Caption'#6#13'RightGroupBox'#12'ClientHeight'#2'o'#11
+'l'#1#6'Height'#3#129#0#3'Top'#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#23'R' +'ClientWidth'#3#146#0#8'TabOrder'#2#3#4'Left'#3'l'#1#6'Height'#3#129#0#3'Top'
+'ightRefLeftSpeedButton'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26 +#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#23'RightRefLeftSpeedButton'#10'Gro'
+'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6 +'upIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8
+'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#24'RightRefRigh' +'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'W'
+'tSpeedButton'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'Reference' +'idth'#2#30#0#0#12'TSpeedButton'#24'RightRefRightSpeedButton'#10'GroupIndex'
+'SideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height' +#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'
+#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#25'RightRefCenterSpeedB' +#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30
+'utton'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideBut' +#0#0#12'TSpeedButton'#25'RightRefCenterSpeedButton'#10'GroupIndex'#2#4#9'Num'
+'tonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3 +'Glyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Pa'
+'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#17'RightSiblingLabel'#7'Caption'#6#7 +'rentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6
+'Sibling'#11'ParentColor'#9#4'Left'#2#2#6'Height'#2#12#3'Top'#2#28#5'Width'#2 +'TLabel'#17'RightSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'
+'&'#0#0#9'TCheckBox'#21'RightAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnC' +#11'ParentColor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9
+'hange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4 +'TCheckBox'#21'RightAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7
+'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#20'RightSiblingComb' +#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2
+'oBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'OnCh' +#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#20'RightSiblingComboBox'#7
+'ange'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabO' +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac'
+'rder'#2#1#4'Text'#6#20'RightSiblingComboBox'#4'Left'#2#5#6'Height'#2#25#3'T' +'tEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'
+'op'#2'1'#5'Width'#3#135#0#0#0#0#9'TGroupBox'#12'LeftGroupBox'#7'Anchors'#11 +#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2
+#5'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#12'LeftGroupBox'#12'ClientHei' +#1#4'Text'#6#20'RightSiblingComboBox'#4'Left'#2#5#6'Height'#2#21#3'Top'#2'1'
+'ght'#2'p'#11'ClientWidth'#3#146#0#11'ParentColor'#9#8'TabOrder'#2#4#4'Left' +#5'Width'#3#135#0#0#0#0#9'TGroupBox'#12'LeftGroupBox'#7'Anchors'#11#5'akTop'
+#2#8#6'Height'#3#129#0#3'Top'#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#22'Le' +#6'akLeft'#8'akBottom'#0#7'Caption'#6#12'LeftGroupBox'#12'ClientHeight'#2'o'
+'ftRefLeftSpeedButton'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'R' +#11'ClientWidth'#3#146#0#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#3#129#0#3'Top'
+'eferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6 +#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#22'LeftRefLeftSpeedButton'#10'Grou'
+'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#23'LeftRefRight' +'pIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8
+'SpeedButton'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceS' +'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'W'
+'ideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height' +'idth'#2#30#0#0#12'TSpeedButton'#23'LeftRefRightSpeedButton'#10'GroupIndex'#2
+#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#24'LeftRefCenterSpeedBu' +#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9
+'tton'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButt' +#14'ParentShowHint'#8#4'Left'#2'('#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0
+'onClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3 +#0#12'TSpeedButton'#24'LeftRefCenterSpeedButton'#10'GroupIndex'#2#2#9'NumGly'
+'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#16'LeftSiblingLabel'#7'Caption'#6#7'S' +'phs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Paren'
+'ibling'#11'ParentColor'#9#4'Left'#2#2#6'Height'#2#12#3'Top'#2#28#5'Width'#2 +'tShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6'TL'
+'&'#0#0#9'TCheckBox'#20'LeftAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnCh' +'abel'#16'LeftSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11
+'ange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4 +'ParentColor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9'T'
+'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#19'LeftSiblingCombo' +'CheckBox'#20'LeftAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27
+'Box'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'OnCha' +'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6
+'nge'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOr' +'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#19'LeftSiblingComboBox'#7'Ancho'
+'der'#2#1#4'Text'#6#19'LeftSiblingComboBox'#4'Left'#2#5#6'Height'#2#25#3'Top' +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndO'
+#2'1'#5'Width'#3#134#0#0#0#0#0 +'fLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21
+'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4
+'Text'#6#19'LeftSiblingComboBox'#4'Left'#2#5#6'Height'#2#21#3'Top'#2'1'#5'Wi'
+'dth'#3#134#0#0#0#0#0
]); ]);

83
designer/anchoreditor.pas
View File

@ -186,46 +186,50 @@ begin
KeyPreview:=true; KeyPreview:=true;
FSelection:=TPersistentSelectionList.Create; FSelection:=TPersistentSelectionList.Create;
AnchorEnabledHint:='Enabled = Include %s in Anchors'; AnchorEnabledHint:=lisAnchorEnabledHint;
AroundBorderSpaceSpinEdit.Hint:='Borderspace around the control. The other four borderspaces are added to this value.'; AroundBorderSpaceSpinEdit.Hint:=lisAroundBorderSpaceHint;
BorderSpaceGroupBox.Caption:='BorderSpace'; BorderSpaceGroupBox.Caption:=lisBorderSpace;
BottomAnchoredCheckBox.Caption:='Enabled';
BottomAnchoredCheckBox.Caption:=lisEnabled;
BottomAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akBottom']); BottomAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akBottom']);
BottomBorderSpaceSpinEdit.Hint:='Bottom borderspace. This value is added to base borderspace and used for the space below the control.'; BottomBorderSpaceSpinEdit.Hint:=lisBottomBorderSpaceSpinEditHint;
BottomGroupBox.Caption:='Bottom anchoring'; BottomGroupBox.Caption:=lisBottomGroupBoxCaption;
BottomRefBottomSpeedButton.Hint:='Anchor to bottom side of sibling, keep border space'; BottomRefBottomSpeedButton.Hint:=lisAnchorToBottomSideKeepBorderSpace;
BottomRefCenterSpeedButton.Hint:='Center control vertically relative to the given sibling'; BottomRefCenterSpeedButton.Hint:=lisCenterControlVerticallyRelativeToSibling;
BottomRefTopSpeedButton.Hint:='Anchor to top side of sibling, keep border space'; BottomRefTopSpeedButton.Hint:=lisAnchorToTopSideKeepBorderSpace;
BottomSiblingComboBox.Hint:='This is the sibling control to which the bottom side is anchored. Leave empty for parent.'; BottomSiblingComboBox.Hint:=lisBottomSiblingComboBoxHint;
BottomSiblingLabel.Caption:='Sibling'; BottomSiblingLabel.Caption:=lisSibling;
LeftAnchoredCheckBox.Caption:='Enabled';
LeftAnchoredCheckBox.Caption:=lisEnabled;
LeftAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akLeft']); LeftAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akLeft']);
LeftBorderSpaceSpinEdit.Hint:='Left borderspace. This value is added to base borderspace and used for the space left to the control.'; LeftBorderSpaceSpinEdit.Hint:=lisLeftBorderSpaceSpinEditHint;
LeftGroupBox.Caption:='Left anchoring'; LeftGroupBox.Caption:=lisLeftGroupBoxCaption;
LeftRefCenterSpeedButton.Hint:='Center control horizontally relative to the given sibling'; LeftRefCenterSpeedButton.Hint:=lisCenterControlHorizontallyRelativeToSibling;
LeftRefLeftSpeedButton.Hint:='Anchor to left side of sibling, keep border space'; LeftRefLeftSpeedButton.Hint:=lisAnchorToLeftSideKeepBorderSpace;
LeftRefRightSpeedButton.Hint:='Anchor to right side of sibling, keep border space'; LeftRefRightSpeedButton.Hint:=lisAnchorToRightSideKeepBorderSpace;
LeftSiblingComboBox.Hint:='This is the sibling control to which the left side is anchored. Leave empty for parent.'; LeftSiblingComboBox.Hint:=lisLeftSiblingComboBoxHint;
LeftSiblingLabel.Caption:='Sibling'; LeftSiblingLabel.Caption:=lisSibling;
RightAnchoredCheckBox.Caption:='Enabled';
RightAnchoredCheckBox.Caption:=lisEnabled;
RightAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akRight']); RightAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akRight']);
RightBorderSpaceSpinEdit.Hint:='Right borderspace. This value is added to base borderspace and used for the space right to the control.'; RightBorderSpaceSpinEdit.Hint:=lisRightBorderSpaceSpinEditHint;
RightGroupBox.Caption:='Right anchoring'; RightGroupBox.Caption:=lisRightAnchoring;
RightRefCenterSpeedButton.Hint:='Center control horizontally relative to the given sibling'; RightRefCenterSpeedButton.Hint:=lisCenterControlHorizontallyRelativeToSibling;
RightRefLeftSpeedButton.Hint:='Anchor to left side of sibling, keep border space'; RightRefLeftSpeedButton.Hint:=lisAnchorToLeftSideKeepBorderSpace;
RightRefRightSpeedButton.Hint:='Anchor to right side of sibling, keep border space'; RightRefRightSpeedButton.Hint:=lisAnchorToRightSideKeepBorderSpace;
RightSiblingComboBox.Hint:='This is the sibling control to which the right side is anchored. Leave empty for parent.'; RightSiblingComboBox.Hint:=lisRightSiblingComboBoxHint;
RightSiblingLabel.Caption:='Sibling'; RightSiblingLabel.Caption:=lisSibling;
TopAnchoredCheckBox.Caption:='Enabled';
TopAnchoredCheckBox.Caption:=lisEnabled;
TopAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akTop']); TopAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akTop']);
TopBorderSpaceSpinEdit.Hint:='Top borderspace. This value is added to base borderspace and used for the space above the control.'; TopBorderSpaceSpinEdit.Hint:=lisTopBorderSpaceSpinEditHint;
TopGroupBox.Caption:='Top anchoring'; TopGroupBox.Caption:=lisTopAnchoring;
TopRefBottomSpeedButton.Hint:='Anchor to bottom side of sibling, keep border space'; TopRefBottomSpeedButton.Hint:=lisAnchorToBottomSideKeepBorderSpace;
TopRefCenterSpeedButton.Hint:='Center control vertically relative to the given sibling'; TopRefCenterSpeedButton.Hint:=lisCenterControlVerticallyRelativeToSibling;
TopRefTopSpeedButton.Hint:='Anchor to top side of sibling, keep border space'; TopRefTopSpeedButton.Hint:= lisAnchorToTopSideKeepBorderSpace;
TopSiblingComboBox.Hint:='This is the sibling control to which the top side is anchored. Leave empty for parent.'; TopSiblingComboBox.Hint:=lisTopSiblingComboBoxHint;
TopSiblingLabel.Caption:='Sibling'; TopSiblingLabel.Caption:=lisSibling;
LeftRefLeftSpeedButton.Glyph.LoadFromLazarusResource('anchorleftleft'); LeftRefLeftSpeedButton.Glyph.LoadFromLazarusResource('anchorleftleft');
LeftRefCenterSpeedButton.Glyph.LoadFromLazarusResource('anchorcenterhorizontal'); LeftRefCenterSpeedButton.Glyph.LoadFromLazarusResource('anchorcenterhorizontal');
@ -398,9 +402,8 @@ begin
CurControl.AnchorSide[Kind].Control:=NewSibling; CurControl.AnchorSide[Kind].Control:=NewSibling;
except except
on E: Exception do begin on E: Exception do begin
MessageDlg('Error', MessageDlg('Error', lisUnableToSetAnchorSideControl+#13 +E.Message,
'Unable to set AnchorSide Control'#13 mtError,[mbCancel],0);
+E.Message,mtError,[mbCancel],0);
end; end;
end; end;
end; end;
@ -566,14 +569,14 @@ begin
//debugln('TAnchorDesigner.Refresh B ',dbgs(SelectedControlCount)); //debugln('TAnchorDesigner.Refresh B ',dbgs(SelectedControlCount));
if (Values=nil) then begin if (Values=nil) then begin
Caption:='Anchor Editor - no control selected'; Caption:=lisAnchorEditorNoControlSelected;
BorderSpaceGroupBox.Enabled:=false; BorderSpaceGroupBox.Enabled:=false;
TopGroupBox.Enabled:=false; TopGroupBox.Enabled:=false;
LeftGroupBox.Enabled:=false; LeftGroupBox.Enabled:=false;
RightGroupBox.Enabled:=false; RightGroupBox.Enabled:=false;
BottomGroupBox.Enabled:=false; BottomGroupBox.Enabled:=false;
end else begin end else begin
Caption:='Anchors of selected controls'; Caption:=lisAnchorsOfSelectedControls;
// all // all
BorderSpaceGroupBox.Enabled:=true; BorderSpaceGroupBox.Enabled:=true;

27
ide/lazarusidestrconsts.pas
View File

@ -2957,5 +2957,32 @@ resourcestring
lisShowOldTabOrder = 'Show old tab order'; lisShowOldTabOrder = 'Show old tab order';
lisTabOrderOf = 'Tab Order of'; lisTabOrderOf = 'Tab Order of';
lisAnchorEnabledHint = 'Enabled = Include %s in Anchors';
lisAroundBorderSpaceHint = 'Borderspace around the control. The other four borderspaces are added to this value.';
lisTopBorderSpaceSpinEditHint = 'Top borderspace. This value is added to base borderspace and used for the space above the control.';
lisBottomBorderSpaceSpinEditHint = 'Bottom borderspace. This value is added to base borderspace and used for the space below the control.';
lisLeftBorderSpaceSpinEditHint = 'Left borderspace. This value is added to base borderspace and used for the space left to the control.';
lisRightBorderSpaceSpinEditHint = 'Right borderspace. This value is added to base borderspace and used for the space right to the control.';
lisCenterControlVerticallyRelativeToSibling = 'Center control vertically relative to the given sibling';
lisCenterControlHorizontallyRelativeToSibling = 'Center control horizontally relative to the given sibling';
lisAnchorToTopSideKeepBorderSpace = 'Anchor to top side of sibling, keep border space';
lisAnchorToBottomSideKeepBorderSpace = 'Anchor to bottom side of sibling, keep border space';
lisAnchorToLeftSideKeepBorderSpace = 'Anchor to left side of sibling, keep border space';
lisAnchorToRightSideKeepBorderSpace = 'Anchor to right side of sibling, keep border space';
lisTopSiblingComboBoxHint = 'This is the sibling control to which the top side is anchored. Leave empty for parent.';
lisBottomSiblingComboBoxHint = 'This is the sibling control to which the bottom side is anchored. Leave empty for parent.';
lisRightSiblingComboBoxHint = 'This is the sibling control to which the right side is anchored. Leave empty for parent.';
lisLeftSiblingComboBoxHint = 'This is the sibling control to which the left side is anchored. Leave empty for parent.';
lisBorderSpace = 'BorderSpace';
lisSibling = 'Sibling';
lisEnabled = 'Enabled';
lisRightAnchoring = 'Right anchoring';
lisTopAnchoring = 'Top anchoring';
lisLeftGroupBoxCaption = 'Left anchoring';
lisBottomGroupBoxCaption = 'Bottom anchoring';
lisUnableToSetAnchorSideControl = 'Unable to set AnchorSide Control';
lisAnchorEditorNoControlSelected = 'Anchor Editor - no control selected';
lisAnchorsOfSelectedControls = 'Anchors of selected controls';
implementation implementation
end. end.