From e9c7038930f9de58479fe48ad459299114e097fe Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 24 Feb 2006 17:27:27 +0000 Subject: [PATCH] anchoreditor to resourcestring from Darius git-svn-id: trunk@8819 - --- designer/anchoreditor.lfm | 95 ++++++++-------- designer/anchoreditor.lrs | 215 ++++++++++++++++++------------------ designer/anchoreditor.pas | 83 +++++++------- ide/lazarusidestrconsts.pas | 27 +++++ 4 files changed, 224 insertions(+), 196 deletions(-) diff --git a/designer/anchoreditor.lfm b/designer/anchoreditor.lfm index 25e8d49a63..0c7ff9c249 100644 --- a/designer/anchoreditor.lfm +++ b/designer/anchoreditor.lfm @@ -1,4 +1,5 @@ object AnchorDesigner: TAnchorDesigner + ActiveControl = LeftBorderSpaceSpinEdit Caption = 'AnchorDesigner' ClientHeight = 259 ClientWidth = 520 @@ -6,7 +7,8 @@ object AnchorDesigner: TAnchorDesigner OnCreate = AnchorDesignerCreate OnDestroy = AnchorDesignerDestroy OnShow = AnchorDesignerShow - PixelsPerInch = 112 + PixelsPerInch = 96 + Position = poScreenCenter HorzScrollBar.Page = 519 VertScrollBar.Page = 258 Left = 298 @@ -16,28 +18,23 @@ object AnchorDesigner: TAnchorDesigner object BorderSpaceGroupBox: TGroupBox Anchors = [akTop, akLeft, akBottom] Caption = 'BorderSpaceGroupBox' - ClientHeight = 87 + ClientHeight = 86 ClientWidth = 168 - ParentColor = True TabOrder = 0 Left = 172 Height = 104 Top = 80 Width = 172 object LeftBorderSpaceSpinEdit: TSpinEdit - ClimbRate = 1 - MaxValue = 100 OnChange = BorderSpaceSpinEditChange ParentShowHint = False ShowHint = True TabOrder = 0 Height = 20 Top = 30 - Width = 50 + Width = 56 end object RightBorderSpaceSpinEdit: TSpinEdit - ClimbRate = 1 - MaxValue = 100 OnChange = BorderSpaceSpinEditChange ParentShowHint = False ShowHint = True @@ -45,22 +42,18 @@ object AnchorDesigner: TAnchorDesigner Left = 118 Height = 20 Top = 30 - Width = 50 + Width = 56 end object TopBorderSpaceSpinEdit: TSpinEdit - ClimbRate = 1 - MaxValue = 100 OnChange = BorderSpaceSpinEditChange ParentShowHint = False ShowHint = True TabOrder = 2 Left = 58 Height = 20 - Width = 50 + Width = 56 end object BottomBorderSpaceSpinEdit: TSpinEdit - ClimbRate = 1 - MaxValue = 100 OnChange = BorderSpaceSpinEditChange ParentShowHint = False ShowHint = True @@ -68,11 +61,9 @@ object AnchorDesigner: TAnchorDesigner Left = 58 Height = 20 Top = 57 - Width = 50 + Width = 56 end object AroundBorderSpaceSpinEdit: TSpinEdit - ClimbRate = 1 - MaxValue = 100 OnChange = BorderSpaceSpinEditChange ParentShowHint = False ShowHint = True @@ -80,15 +71,14 @@ object AnchorDesigner: TAnchorDesigner Left = 58 Height = 20 Top = 30 - Width = 50 + Width = 56 end end object TopGroupBox: TGroupBox Anchors = [akTop, akLeft, akRight] Caption = 'TopGroupBox' - ClientHeight = 33 + ClientHeight = 32 ClientWidth = 404 - ParentColor = True TabOrder = 1 Left = 64 Height = 50 @@ -128,11 +118,12 @@ object AnchorDesigner: TAnchorDesigner end object TopSiblingLabel: TLabel Caption = 'Sibling' - ParentColor = True + Color = clNone + ParentColor = False Left = 94 - Height = 12 + Height = 14 Top = 4 - Width = 38 + Width = 31 end object TopAnchoredCheckBox: TCheckBox Caption = 'Enabled' @@ -140,11 +131,12 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 0 UseOnChange = True Left = 2 - Height = 24 - Width = 70 + Height = 13 + Width = 59 end object TopSiblingComboBox: TComboBox Anchors = [akTop, akLeft, akRight] + AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] MaxLength = 0 OnChange = SiblingComboBoxChange ParentShowHint = False @@ -152,16 +144,15 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 1 Text = 'TopSiblingComboBox' Left = 158 - Height = 25 + Height = 21 Width = 129 end end object BottomGroupBox: TGroupBox Anchors = [akLeft, akRight, akBottom] Caption = 'BottomGroupBox' - ClientHeight = 33 + ClientHeight = 32 ClientWidth = 404 - ParentColor = True TabOrder = 2 Left = 64 Height = 50 @@ -202,11 +193,12 @@ object AnchorDesigner: TAnchorDesigner end object BottomSiblingLabel: TLabel Caption = 'Sibling' - ParentColor = True + Color = clNone + ParentColor = False Left = 94 - Height = 12 + Height = 14 Top = 8 - Width = 38 + Width = 31 end object BottomAnchoredCheckBox: TCheckBox Caption = 'Enabled' @@ -214,11 +206,12 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 0 UseOnChange = True Left = 2 - Height = 24 - Width = 70 + Height = 13 + Width = 59 end object BottomSiblingComboBox: TComboBox Anchors = [akTop, akLeft, akRight] + AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] MaxLength = 0 OnChange = SiblingComboBoxChange ParentShowHint = False @@ -226,16 +219,15 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 1 Text = 'BottomSiblingComboBox' Left = 158 - Height = 25 + Height = 21 Width = 129 end end object RightGroupBox: TGroupBox Anchors = [akTop, akLeft, akBottom] Caption = 'RightGroupBox' - ClientHeight = 112 + ClientHeight = 111 ClientWidth = 146 - ParentColor = True TabOrder = 3 Left = 364 Height = 129 @@ -276,11 +268,12 @@ object AnchorDesigner: TAnchorDesigner end object RightSiblingLabel: TLabel Caption = 'Sibling' - ParentColor = True + Color = clNone + ParentColor = False Left = 2 - Height = 12 + Height = 14 Top = 28 - Width = 38 + Width = 31 end object RightAnchoredCheckBox: TCheckBox Caption = 'Enabled' @@ -288,11 +281,12 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 0 UseOnChange = True Left = 2 - Height = 24 - Width = 70 + Height = 13 + Width = 59 end object RightSiblingComboBox: TComboBox Anchors = [akTop, akLeft, akRight] + AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] MaxLength = 0 OnChange = SiblingComboBoxChange ParentShowHint = False @@ -300,7 +294,7 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 1 Text = 'RightSiblingComboBox' Left = 5 - Height = 25 + Height = 21 Top = 49 Width = 135 end @@ -308,9 +302,8 @@ object AnchorDesigner: TAnchorDesigner object LeftGroupBox: TGroupBox Anchors = [akTop, akLeft, akBottom] Caption = 'LeftGroupBox' - ClientHeight = 112 + ClientHeight = 111 ClientWidth = 146 - ParentColor = True TabOrder = 4 Left = 8 Height = 129 @@ -351,11 +344,12 @@ object AnchorDesigner: TAnchorDesigner end object LeftSiblingLabel: TLabel Caption = 'Sibling' - ParentColor = True + Color = clNone + ParentColor = False Left = 2 - Height = 12 + Height = 14 Top = 28 - Width = 38 + Width = 31 end object LeftAnchoredCheckBox: TCheckBox Caption = 'Enabled' @@ -363,11 +357,12 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 0 UseOnChange = True Left = 2 - Height = 24 - Width = 70 + Height = 13 + Width = 59 end object LeftSiblingComboBox: TComboBox Anchors = [akTop, akLeft, akRight] + AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] MaxLength = 0 OnChange = SiblingComboBoxChange ParentShowHint = False @@ -375,7 +370,7 @@ object AnchorDesigner: TAnchorDesigner TabOrder = 1 Text = 'LeftSiblingComboBox' Left = 5 - Height = 25 + Height = 21 Top = 49 Width = 134 end diff --git a/designer/anchoreditor.lrs b/designer/anchoreditor.lrs index a0154c8b4a..168efe34f3 100644 --- a/designer/anchoreditor.lrs +++ b/designer/anchoreditor.lrs @@ -1,110 +1,113 @@ { This is an automatically generated lazarus resource file } LazarusResources.Add('TAnchorDesigner','FORMDATA',[ - 'TPF0'#15'TAnchorDesigner'#14'AnchorDesigner'#7'Caption'#6#14'AnchorDesigner' - +#12'ClientHeight'#3#3#1#11'ClientWidth'#3#8#2#7'OnClose'#7#19'AnchorDesigner' - +'Close'#8'OnCreate'#7#20'AnchorDesignerCreate'#9'OnDestroy'#7#21'AnchorDesig' - +'nerDestroy'#6'OnShow'#7#18'AnchorDesignerShow'#13'PixelsPerInch'#2'p'#18'Ho' - +'rzScrollBar.Page'#3#7#2#18'VertScrollBar.Page'#3#2#1#4'Left'#3'*'#1#6'Heigh' - +'t'#3#3#1#3'Top'#3#179#0#5'Width'#3#8#2#0#9'TGroupBox'#19'BorderSpaceGroupBo' - +'x'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#19'BorderSpa' - +'ceGroupBox'#12'ClientHeight'#2'W'#11'ClientWidth'#3#168#0#11'ParentColor'#9 - +#8'TabOrder'#2#0#4'Left'#3#172#0#6'Height'#2'h'#3'Top'#2'P'#5'Width'#3#172#0 - +#0#9'TSpinEdit'#23'LeftBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd' - +#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint' - +#9#8'TabOrder'#2#0#6'Height'#2#20#3'Top'#2#30#5'Width'#2'2'#0#0#9'TSpinEdit' - +#24'RightBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7 - +#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder' - +#2#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'2'#0#0#9'TSpinEdit' - +#22'TopBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7 - +#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder' - +#2#2#4'Left'#2':'#6'Height'#2#20#5'Width'#2'2'#0#0#9'TSpinEdit'#25'BottomBor' - +'derSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7#25'Border' - +'SpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#4'L' - +'eft'#2':'#6'Height'#2#20#3'Top'#2'9'#5'Width'#2'2'#0#0#9'TSpinEdit'#25'Arou' - +'ndBorderSpaceSpinEdit'#9'ClimbRate'#2#1#8'MaxValue'#2'd'#8'OnChange'#7#25'B' - +'orderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4 - +#4'Left'#2':'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'2'#0#0#0#9'TGroupBox'#11 - +'TopGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#11 - +'TopGroupBox'#12'ClientHeight'#2'!'#11'ClientWidth'#3#148#1#11'ParentColor'#9 - +#8'TabOrder'#2#1#4'Left'#2'@'#6'Height'#2'2'#5'Width'#3#152#1#0#12'TSpeedBut' - +'ton'#20'TopRefTopSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupI' - +'ndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'Sh' - +'owHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6'Height'#2#30#5'Width'#2#30#0 - +#0#12'TSpeedButton'#23'TopRefBottomSpeedButton'#7'Anchors'#11#5'akTop'#7'akR' - +'ight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideBu' - +'ttonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'K'#1#6'Height'#2 - +#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefCenterSpeedButton'#7'Anchors' - +#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26 - +'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'n' - +#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel'#15'TopSiblingLabel'#7'Caption' - +#6#7'Sibling'#11'ParentColor'#9#4'Left'#2'^'#6'Height'#2#12#3'Top'#2#4#5'Wid' - +'th'#2'&'#0#0#9'TCheckBox'#19'TopAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8 - +'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange' - +#9#4'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#18'TopSiblingCo' - +'mboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'On' - +'Change'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'Ta' - +'bOrder'#2#1#4'Text'#6#18'TopSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#25 - +#5'Width'#3#129#0#0#0#0#9'TGroupBox'#14'BottomGroupBox'#7'Anchors'#11#6'akLe' - +'ft'#7'akRight'#8'akBottom'#0#7'Caption'#6#14'BottomGroupBox'#12'ClientHeigh' - +'t'#2'!'#11'ClientWidth'#3#148#1#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2 - +'@'#6'Height'#2'2'#3'Top'#3#200#0#5'Width'#3#152#1#0#12'TSpeedButton'#23'Bot' - +'tomRefTopSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3 - +#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9 - +#14'ParentShowHint'#8#4'Left'#3'('#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSp' - +'eedButton'#26'BottomRefBottomSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight' - +#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonCl' - +'icked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'K'#1#6'Height'#2#30#5'W' - +'idth'#2#30#0#0#12'TSpeedButton'#26'BottomRefCenterSpeedButton'#7'Anchors'#11 - +#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'R' - +'eferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'n'#1 - +#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel'#18'BottomSiblingLabel'#7'Caption' - +#6#7'Sibling'#11'ParentColor'#9#4'Left'#2'^'#6'Height'#2#12#3'Top'#2#8#5'Wid' - +'th'#2'&'#0#0#9'TCheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled' - +#8'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChang' - +'e'#9#4'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#21'BottomSib' - +'lingComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0 - +#8'OnChange'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8 - ,'TabOrder'#2#1#4'Text'#6#21'BottomSiblingComboBox'#4'Left'#3#158#0#6'Height' - +#2#25#5'Width'#3#129#0#0#0#0#9'TGroupBox'#13'RightGroupBox'#7'Anchors'#11#5 - +'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#13'RightGroupBox'#12'ClientHeig' - +'ht'#2'p'#11'ClientWidth'#3#146#0#11'ParentColor'#9#8'TabOrder'#2#3#4'Left'#3 - +'l'#1#6'Height'#3#129#0#3'Top'#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#23'R' - +'ightRefLeftSpeedButton'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26 - +'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6 - +'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#24'RightRefRigh' - +'tSpeedButton'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'Reference' - +'SideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height' - +#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#25'RightRefCenterSpeedB' - +'utton'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideBut' - +'tonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3 - +'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#17'RightSiblingLabel'#7'Caption'#6#7 - +'Sibling'#11'ParentColor'#9#4'Left'#2#2#6'Height'#2#12#3'Top'#2#28#5'Width'#2 - +'&'#0#0#9'TCheckBox'#21'RightAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnC' - +'hange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4 - +'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#20'RightSiblingComb' - +'oBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'OnCh' - +'ange'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabO' - +'rder'#2#1#4'Text'#6#20'RightSiblingComboBox'#4'Left'#2#5#6'Height'#2#25#3'T' - +'op'#2'1'#5'Width'#3#135#0#0#0#0#9'TGroupBox'#12'LeftGroupBox'#7'Anchors'#11 - +#5'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#12'LeftGroupBox'#12'ClientHei' - +'ght'#2'p'#11'ClientWidth'#3#146#0#11'ParentColor'#9#8'TabOrder'#2#4#4'Left' - +#2#8#6'Height'#3#129#0#3'Top'#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#22'Le' - +'ftRefLeftSpeedButton'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'R' - +'eferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6 - +'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#23'LeftRefRight' - +'SpeedButton'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceS' - +'ideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height' - +#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#24'LeftRefCenterSpeedBu' - +'tton'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButt' - +'onClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3 - +'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#16'LeftSiblingLabel'#7'Caption'#6#7'S' - +'ibling'#11'ParentColor'#9#4'Left'#2#2#6'Height'#2#12#3'Top'#2#28#5'Width'#2 - +'&'#0#0#9'TCheckBox'#20'LeftAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnCh' - +'ange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4 - +'Left'#2#2#6'Height'#2#24#5'Width'#2'F'#0#0#9'TComboBox'#19'LeftSiblingCombo' - +'Box'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'OnCha' - +'nge'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOr' - +'der'#2#1#4'Text'#6#19'LeftSiblingComboBox'#4'Left'#2#5#6'Height'#2#25#3'Top' - +#2'1'#5'Width'#3#134#0#0#0#0#0 + 'TPF0'#15'TAnchorDesigner'#14'AnchorDesigner'#13'ActiveControl'#7#23'LeftBord' + +'erSpaceSpinEdit'#7'Caption'#6#14'AnchorDesigner'#12'ClientHeight'#3#3#1#11 + +'ClientWidth'#3#8#2#7'OnClose'#7#19'AnchorDesignerClose'#8'OnCreate'#7#20'An' + +'chorDesignerCreate'#9'OnDestroy'#7#21'AnchorDesignerDestroy'#6'OnShow'#7#18 + +'AnchorDesignerShow'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter' + +#18'HorzScrollBar.Page'#3#7#2#18'VertScrollBar.Page'#3#2#1#4'Left'#3'*'#1#6 + +'Height'#3#3#1#3'Top'#3#179#0#5'Width'#3#8#2#0#9'TGroupBox'#19'BorderSpaceGr' + +'oupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#19'Bord' + +'erSpaceGroupBox'#12'ClientHeight'#2'V'#11'ClientWidth'#3#168#0#8'TabOrder'#2 + +#0#4'Left'#3#172#0#6'Height'#2'h'#3'Top'#2'P'#5'Width'#3#172#0#0#9'TSpinEdit' + +#23'LeftBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14 + +'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#6'Height'#2#20#3'Top'#2#30#5 + +'Width'#2'8'#0#0#9'TSpinEdit'#24'RightBorderSpaceSpinEdit'#8'OnChange'#7#25 + +'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2 + +#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'8'#0#0#9'TSpinEdit'#22 + +'TopBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'Pare' + +'ntShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#4'Left'#2':'#6'Height'#2#20#5'W' + +'idth'#2'8'#0#0#9'TSpinEdit'#25'BottomBorderSpaceSpinEdit'#8'OnChange'#7#25 + +'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2 + +#3#4'Left'#2':'#6'Height'#2#20#3'Top'#2'9'#5'Width'#2'8'#0#0#9'TSpinEdit'#25 + +'AroundBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'P' + +'arentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#4'Left'#2':'#6'Height'#2#20#3 + +'Top'#2#30#5'Width'#2'8'#0#0#0#9'TGroupBox'#11'TopGroupBox'#7'Anchors'#11#5 + +'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#11'TopGroupBox'#12'ClientHeight' + +#2' '#11'ClientWidth'#3#148#1#8'TabOrder'#2#1#4'Left'#2'@'#6'Height'#2'2'#5 + +'Width'#3#152#1#0#12'TSpeedButton'#20'TopRefTopSpeedButton'#7'Anchors'#11#5 + +'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'Ref' + +'erenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6 + +'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefBottomSpeedButton' + +#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'O' + +'nClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8 + +#4'Left'#3'K'#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefC' + +'enterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9 + +'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14 + +'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel' + +#15'TopSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11'ParentC' + +'olor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#4#5'Width'#2#31#0#0#9'TCheckBo' + +'x'#19'TopAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27'AnchorE' + +'nabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Heigh' + +'t'#2#13#5'Width'#2';'#0#0#9'TComboBox'#18'TopSiblingComboBox'#7'Anchors'#11 + +#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineCo' + +'mplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21'Siblin' + +'gComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text' + +#6#18'TopSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#21#5'Width'#3#129#0#0#0 + +#0#9'TGroupBox'#14'BottomGroupBox'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBo' + +'ttom'#0#7'Caption'#6#14'BottomGroupBox'#12'ClientHeight'#2' '#11'ClientWidt' + +'h'#3#148#1#8'TabOrder'#2#2#4'Left'#2'@'#6'Height'#2'2'#3'Top'#3#200#0#5'Wid' + +'th'#3#152#1#0#12'TSpeedButton'#23'BottomRefTopSpeedButton'#7'Anchors'#11#5 + +'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'Ref' + +'erenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6 + +'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'BottomRefBottomSpeedButt' + +'on'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0 + +#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint' + +#8#4'Left'#3'K'#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'Botto' + +'mRefCenterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2 + +#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9 + +#14'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLab' + +'el'#18'BottomSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11 + +'ParentColor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#8#5'Width'#2#31#0#0#9'T' + +'CheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7 + +#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2 + +#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#21'BottomSiblingComboBox'#7 + +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac' + +'tEndOfLineComplete'#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#21'BottomSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#21#5'Widt' + +'h'#3#129#0#0#0#0#9'TGroupBox'#13'RightGroupBox'#7'Anchors'#11#5'akTop'#6'ak' + +'Left'#8'akBottom'#0#7'Caption'#6#13'RightGroupBox'#12'ClientHeight'#2'o'#11 + +'ClientWidth'#3#146#0#8'TabOrder'#2#3#4'Left'#3'l'#1#6'Height'#3#129#0#3'Top' + +#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#23'RightRefLeftSpeedButton'#10'Gro' + +'upIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8 + +'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'W' + +'idth'#2#30#0#0#12'TSpeedButton'#24'RightRefRightSpeedButton'#10'GroupIndex' + +#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint' + +#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30 + +#0#0#12'TSpeedButton'#25'RightRefCenterSpeedButton'#10'GroupIndex'#2#4#9'Num' + +'Glyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Pa' + +'rentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6 + +'TLabel'#17'RightSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone' + +#11'ParentColor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9 + +'TCheckBox'#21'RightAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7 + +#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2 + +#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#20'RightSiblingComboBox'#7 + +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac' + +'tEndOfLineComplete'#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#20'RightSiblingComboBox'#4'Left'#2#5#6'Height'#2#21#3'Top'#2'1' + +#5'Width'#3#135#0#0#0#0#9'TGroupBox'#12'LeftGroupBox'#7'Anchors'#11#5'akTop' + +#6'akLeft'#8'akBottom'#0#7'Caption'#6#12'LeftGroupBox'#12'ClientHeight'#2'o' + +#11'ClientWidth'#3#146#0#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#3#129#0#3'Top' + +#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#22'LeftRefLeftSpeedButton'#10'Grou' + +'pIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8 + +'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'W' + +'idth'#2#30#0#0#12'TSpeedButton'#23'LeftRefRightSpeedButton'#10'GroupIndex'#2 + +#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9 + +#14'ParentShowHint'#8#4'Left'#2'('#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0 + +#0#12'TSpeedButton'#24'LeftRefCenterSpeedButton'#10'GroupIndex'#2#2#9'NumGly' + +'phs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Paren' + +'tShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6'TL' + +'abel'#16'LeftSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11 + +'ParentColor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9'T' + +'CheckBox'#20'LeftAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27 + +'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6 + +'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#19'LeftSiblingComboBox'#7'Ancho' + +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndO' + +'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 ]); diff --git a/designer/anchoreditor.pas b/designer/anchoreditor.pas index 1ba80e41ef..b1c98ca9ae 100644 --- a/designer/anchoreditor.pas +++ b/designer/anchoreditor.pas @@ -186,46 +186,50 @@ begin KeyPreview:=true; 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.'; - BorderSpaceGroupBox.Caption:='BorderSpace'; - BottomAnchoredCheckBox.Caption:='Enabled'; + AroundBorderSpaceSpinEdit.Hint:=lisAroundBorderSpaceHint; + BorderSpaceGroupBox.Caption:=lisBorderSpace; + + BottomAnchoredCheckBox.Caption:=lisEnabled; BottomAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akBottom']); - BottomBorderSpaceSpinEdit.Hint:='Bottom borderspace. This value is added to base borderspace and used for the space below the control.'; - BottomGroupBox.Caption:='Bottom anchoring'; - BottomRefBottomSpeedButton.Hint:='Anchor to bottom side of sibling, keep border space'; - BottomRefCenterSpeedButton.Hint:='Center control vertically relative to the given sibling'; - BottomRefTopSpeedButton.Hint:='Anchor to top side of sibling, keep border space'; - BottomSiblingComboBox.Hint:='This is the sibling control to which the bottom side is anchored. Leave empty for parent.'; - BottomSiblingLabel.Caption:='Sibling'; - LeftAnchoredCheckBox.Caption:='Enabled'; + BottomBorderSpaceSpinEdit.Hint:=lisBottomBorderSpaceSpinEditHint; + BottomGroupBox.Caption:=lisBottomGroupBoxCaption; + BottomRefBottomSpeedButton.Hint:=lisAnchorToBottomSideKeepBorderSpace; + BottomRefCenterSpeedButton.Hint:=lisCenterControlVerticallyRelativeToSibling; + BottomRefTopSpeedButton.Hint:=lisAnchorToTopSideKeepBorderSpace; + BottomSiblingComboBox.Hint:=lisBottomSiblingComboBoxHint; + BottomSiblingLabel.Caption:=lisSibling; + + LeftAnchoredCheckBox.Caption:=lisEnabled; 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.'; - LeftGroupBox.Caption:='Left anchoring'; - LeftRefCenterSpeedButton.Hint:='Center control horizontally relative to the given sibling'; - LeftRefLeftSpeedButton.Hint:='Anchor to left side of sibling, keep border space'; - LeftRefRightSpeedButton.Hint:='Anchor to right side of sibling, keep border space'; - LeftSiblingComboBox.Hint:='This is the sibling control to which the left side is anchored. Leave empty for parent.'; - LeftSiblingLabel.Caption:='Sibling'; - RightAnchoredCheckBox.Caption:='Enabled'; + LeftBorderSpaceSpinEdit.Hint:=lisLeftBorderSpaceSpinEditHint; + LeftGroupBox.Caption:=lisLeftGroupBoxCaption; + LeftRefCenterSpeedButton.Hint:=lisCenterControlHorizontallyRelativeToSibling; + LeftRefLeftSpeedButton.Hint:=lisAnchorToLeftSideKeepBorderSpace; + LeftRefRightSpeedButton.Hint:=lisAnchorToRightSideKeepBorderSpace; + LeftSiblingComboBox.Hint:=lisLeftSiblingComboBoxHint; + LeftSiblingLabel.Caption:=lisSibling; + + RightAnchoredCheckBox.Caption:=lisEnabled; 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.'; - RightGroupBox.Caption:='Right anchoring'; - RightRefCenterSpeedButton.Hint:='Center control horizontally relative to the given sibling'; - RightRefLeftSpeedButton.Hint:='Anchor to left side of sibling, keep border space'; - RightRefRightSpeedButton.Hint:='Anchor to right side of sibling, keep border space'; - RightSiblingComboBox.Hint:='This is the sibling control to which the right side is anchored. Leave empty for parent.'; - RightSiblingLabel.Caption:='Sibling'; - TopAnchoredCheckBox.Caption:='Enabled'; + RightBorderSpaceSpinEdit.Hint:=lisRightBorderSpaceSpinEditHint; + RightGroupBox.Caption:=lisRightAnchoring; + RightRefCenterSpeedButton.Hint:=lisCenterControlHorizontallyRelativeToSibling; + RightRefLeftSpeedButton.Hint:=lisAnchorToLeftSideKeepBorderSpace; + RightRefRightSpeedButton.Hint:=lisAnchorToRightSideKeepBorderSpace; + RightSiblingComboBox.Hint:=lisRightSiblingComboBoxHint; + RightSiblingLabel.Caption:=lisSibling; + + TopAnchoredCheckBox.Caption:=lisEnabled; TopAnchoredCheckBox.Hint:=Format(AnchorEnabledHint,['akTop']); - TopBorderSpaceSpinEdit.Hint:='Top borderspace. This value is added to base borderspace and used for the space above the control.'; - TopGroupBox.Caption:='Top anchoring'; - TopRefBottomSpeedButton.Hint:='Anchor to bottom side of sibling, keep border space'; - TopRefCenterSpeedButton.Hint:='Center control vertically relative to the given sibling'; - TopRefTopSpeedButton.Hint:='Anchor to top side of sibling, keep border space'; - TopSiblingComboBox.Hint:='This is the sibling control to which the top side is anchored. Leave empty for parent.'; - TopSiblingLabel.Caption:='Sibling'; + TopBorderSpaceSpinEdit.Hint:=lisTopBorderSpaceSpinEditHint; + TopGroupBox.Caption:=lisTopAnchoring; + TopRefBottomSpeedButton.Hint:=lisAnchorToBottomSideKeepBorderSpace; + TopRefCenterSpeedButton.Hint:=lisCenterControlVerticallyRelativeToSibling; + TopRefTopSpeedButton.Hint:= lisAnchorToTopSideKeepBorderSpace; + TopSiblingComboBox.Hint:=lisTopSiblingComboBoxHint; + TopSiblingLabel.Caption:=lisSibling; LeftRefLeftSpeedButton.Glyph.LoadFromLazarusResource('anchorleftleft'); LeftRefCenterSpeedButton.Glyph.LoadFromLazarusResource('anchorcenterhorizontal'); @@ -398,9 +402,8 @@ begin CurControl.AnchorSide[Kind].Control:=NewSibling; except on E: Exception do begin - MessageDlg('Error', - 'Unable to set AnchorSide Control'#13 - +E.Message,mtError,[mbCancel],0); + MessageDlg('Error', lisUnableToSetAnchorSideControl+#13 +E.Message, + mtError,[mbCancel],0); end; end; end; @@ -566,14 +569,14 @@ begin //debugln('TAnchorDesigner.Refresh B ',dbgs(SelectedControlCount)); if (Values=nil) then begin - Caption:='Anchor Editor - no control selected'; + Caption:=lisAnchorEditorNoControlSelected; BorderSpaceGroupBox.Enabled:=false; TopGroupBox.Enabled:=false; LeftGroupBox.Enabled:=false; RightGroupBox.Enabled:=false; BottomGroupBox.Enabled:=false; end else begin - Caption:='Anchors of selected controls'; + Caption:=lisAnchorsOfSelectedControls; // all BorderSpaceGroupBox.Enabled:=true; diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index b30da9a808..3048dace70 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -2957,5 +2957,32 @@ resourcestring lisShowOldTabOrder = 'Show old tab order'; 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 end.