help for FPC keywords: added option to setup path

git-svn-id: trunk@9184 -
This commit is contained in:
mattias 2006-04-25 17:16:56 +00:00
parent b37b0732b3
commit aa44cc8127
10 changed files with 358 additions and 182 deletions

View File

@ -7,7 +7,7 @@ object AnchorDesigner: TAnchorDesigner
OnCreate = AnchorDesignerCreate
OnDestroy = AnchorDesignerDestroy
OnShow = AnchorDesignerShow
PixelsPerInch = 96
PixelsPerInch = 112
Position = poScreenCenter
HorzScrollBar.Page = 519
VertScrollBar.Page = 258
@ -18,7 +18,7 @@ object AnchorDesigner: TAnchorDesigner
object BorderSpaceGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom]
Caption = 'BorderSpaceGroupBox'
ClientHeight = 86
ClientHeight = 87
ClientWidth = 168
TabOrder = 0
Left = 172
@ -30,6 +30,7 @@ object AnchorDesigner: TAnchorDesigner
ParentShowHint = False
ShowHint = True
TabOrder = 0
Value = 1
Height = 20
Top = 30
Width = 56
@ -39,6 +40,7 @@ object AnchorDesigner: TAnchorDesigner
ParentShowHint = False
ShowHint = True
TabOrder = 1
Value = 1
Left = 118
Height = 20
Top = 30
@ -49,6 +51,7 @@ object AnchorDesigner: TAnchorDesigner
ParentShowHint = False
ShowHint = True
TabOrder = 2
Value = 1
Left = 58
Height = 20
Width = 56
@ -58,6 +61,7 @@ object AnchorDesigner: TAnchorDesigner
ParentShowHint = False
ShowHint = True
TabOrder = 3
Value = 1
Left = 58
Height = 20
Top = 57
@ -68,6 +72,7 @@ object AnchorDesigner: TAnchorDesigner
ParentShowHint = False
ShowHint = True
TabOrder = 4
Value = 1
Left = 58
Height = 20
Top = 30
@ -77,7 +82,7 @@ object AnchorDesigner: TAnchorDesigner
object TopGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight]
Caption = 'TopGroupBox'
ClientHeight = 32
ClientHeight = 33
ClientWidth = 404
TabOrder = 1
Left = 64
@ -85,8 +90,10 @@ object AnchorDesigner: TAnchorDesigner
Width = 408
object TopRefTopSpeedButton: TSpeedButton
Anchors = [akTop, akRight]
Color = clBtnFace
GroupIndex = 1
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -96,8 +103,10 @@ object AnchorDesigner: TAnchorDesigner
end
object TopRefBottomSpeedButton: TSpeedButton
Anchors = [akTop, akRight]
Color = clBtnFace
GroupIndex = 1
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -107,8 +116,10 @@ object AnchorDesigner: TAnchorDesigner
end
object TopRefCenterSpeedButton: TSpeedButton
Anchors = [akTop, akRight]
Color = clBtnFace
GroupIndex = 1
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -151,7 +162,7 @@ object AnchorDesigner: TAnchorDesigner
object BottomGroupBox: TGroupBox
Anchors = [akLeft, akRight, akBottom]
Caption = 'BottomGroupBox'
ClientHeight = 32
ClientHeight = 33
ClientWidth = 404
TabOrder = 2
Left = 64
@ -160,8 +171,10 @@ object AnchorDesigner: TAnchorDesigner
Width = 408
object BottomRefTopSpeedButton: TSpeedButton
Anchors = [akTop, akRight]
Color = clBtnFace
GroupIndex = 3
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -171,8 +184,10 @@ object AnchorDesigner: TAnchorDesigner
end
object BottomRefBottomSpeedButton: TSpeedButton
Anchors = [akTop, akRight]
Color = clBtnFace
GroupIndex = 3
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -182,8 +197,10 @@ object AnchorDesigner: TAnchorDesigner
end
object BottomRefCenterSpeedButton: TSpeedButton
Anchors = [akTop, akRight]
Color = clBtnFace
GroupIndex = 3
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -226,7 +243,7 @@ object AnchorDesigner: TAnchorDesigner
object RightGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom]
Caption = 'RightGroupBox'
ClientHeight = 111
ClientHeight = 112
ClientWidth = 146
TabOrder = 3
Left = 364
@ -234,8 +251,10 @@ object AnchorDesigner: TAnchorDesigner
Top = 64
Width = 150
object RightRefLeftSpeedButton: TSpeedButton
Color = clBtnFace
GroupIndex = 4
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -245,8 +264,10 @@ object AnchorDesigner: TAnchorDesigner
Width = 30
end
object RightRefRightSpeedButton: TSpeedButton
Color = clBtnFace
GroupIndex = 4
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -256,8 +277,10 @@ object AnchorDesigner: TAnchorDesigner
Width = 30
end
object RightRefCenterSpeedButton: TSpeedButton
Color = clBtnFace
GroupIndex = 4
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -302,7 +325,7 @@ object AnchorDesigner: TAnchorDesigner
object LeftGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom]
Caption = 'LeftGroupBox'
ClientHeight = 111
ClientHeight = 112
ClientWidth = 146
TabOrder = 4
Left = 8
@ -310,8 +333,10 @@ object AnchorDesigner: TAnchorDesigner
Top = 64
Width = 150
object LeftRefLeftSpeedButton: TSpeedButton
Color = clBtnFace
GroupIndex = 2
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -321,8 +346,10 @@ object AnchorDesigner: TAnchorDesigner
Width = 30
end
object LeftRefRightSpeedButton: TSpeedButton
Color = clBtnFace
GroupIndex = 2
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False
@ -332,8 +359,10 @@ object AnchorDesigner: TAnchorDesigner
Width = 30
end
object LeftRefCenterSpeedButton: TSpeedButton
Color = clBtnFace
GroupIndex = 2
NumGlyphs = 0
Transparent = False
OnClick = ReferenceSideButtonClicked
ShowHint = True
ParentShowHint = False

View File

@ -5,109 +5,116 @@ LazarusResources.Add('TAnchorDesigner','FORMDATA',[
+'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'
+'AnchorDesignerShow'#13'PixelsPerInch'#2'p'#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
+'erSpaceGroupBox'#12'ClientHeight'#2'W'#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
+'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#5'Value'#2#1#6'Height'#2#20
+#3'Top'#2#30#5'Width'#2'8'#0#0#9'TSpinEdit'#24'RightBorderSpaceSpinEdit'#8'O'
+'nChange'#7#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9
+#8'TabOrder'#2#1#5'Value'#2#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Widt'
+'h'#2'8'#0#0#9'TSpinEdit'#22'TopBorderSpaceSpinEdit'#8'OnChange'#7#25'Border'
+'SpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#5'V'
+'alue'#2#1#4'Left'#2':'#6'Height'#2#20#5'Width'#2'8'#0#0#9'TSpinEdit'#25'Bot'
+'tomBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'Pare'
+'ntShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#5'Value'#2#1#4'Left'#2':'#6'Hei'
+'ght'#2#20#3'Top'#2'9'#5'Width'#2'8'#0#0#9'TSpinEdit'#25'AroundBorderSpaceSp'
+'inEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8
+'ShowHint'#9#8'TabOrder'#2#4#5'Value'#2#1#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#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#11'T'
+'ransparent'#8#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'TSpeed'
+'Button'#23'TopRefBottomSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#5'C'
+'olor'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#11'Transparent'#8#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'#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
+'enterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFac'
+'e'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'Re'
+'ferenceSideButtonClicked'#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'ParentColor'#8#4'Left'#2'^'#6'Height'#2
+#14#3'Top'#2#4#5'Width'#2#31#0#0#9'TCheckBox'#19'TopAnchoredCheckBox'#7'Capt'
+'ion'#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'TCombo'
+'Box'#18'TopSiblingComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16
+'AutoCompleteText'#11#22'cbactEndOfLineComplete'#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#18'TopSiblingComboBox'#4'Left'#3#158
+#0#6'Height'#2#21#5'Width'#3#129#0#0#0#0#9'TGroupBox'#14'BottomGroupBox'#7'A'
+'nchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#14'BottomGroupBo'
+'x'#12'ClientHeight'#2'!'#11'ClientWidth'#3#148#1#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#5'Color'#7#9'clBt'
+'nFace'#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#11'Transparent'#8#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'TSpeedButton'#26'BottomRefBottomSpeed'
+'Button'#7'Anchors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'Grou'
+'pIndex'#2#3#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'ReferenceSid'
+'eButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'K'#1#6'Height'
+#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'BottomRefCenterSpeedButton'#7'An'
+'chors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#3#9
+'NumGlyphs'#2#0#11'Transparent'#8#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'#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'TCheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'On'
,'Change'#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'BottomSiblingC'
+'omboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'
+#11#22'cbactEndOfLineComplete'#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'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#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'RightRefLeftSpeedB'
+'utton'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#11'Trans'
+'parent'#8#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Pare'
+'ntShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'T'
+'SpeedButton'#24'RightRefRightSpeedButton'#5'Color'#7#9'clBtnFace'#10'GroupI'
+'ndex'#2#4#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'ReferenceSideB'
+'uttonClicked'#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'
+#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#11'Transparent'
+#8#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHi'
+'nt'#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'ParentCo'
+'lor'#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'AnchorEn'
+'abledCheckBoxChange'#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'cbactEndOfLineComp'
+'lete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21'SiblingC'
+'omboBoxChange'#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'p'#11'ClientWi'
+'dth'#3#146#0#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2'@'#5'Wi'
+'dth'#3#150#0#0#12'TSpeedButton'#22'LeftRefLeftSpeedButton'#5'Color'#7#9'clB'
+'tnFace'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0#11'Transparent'#8#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'#23'LeftRefR'
+'ightSpeedButton'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#2#9'NumGlyphs'#2#0
+#11'Transparent'#8#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
+#0#12'TSpeedButton'#24'LeftRefCenterSpeedButton'#5'Color'#7#9'clBtnFace'#10
+'GroupIndex'#2#2#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'Referenc'
+'eSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'K'#6'Heigh'
+'t'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#16'LeftSiblingLabel'#7'Capt'
+'ion'#6#7'Sibling'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#2#6'Heig'
+'ht'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9'TCheckBox'#20'LeftAnchoredCheckBox'
+#7'Caption'#6#7'Enabled'#8'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'Tab'
+'Order'#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Height'#2#13#5'Width'#2';'#0#0#9
+'TComboBox'#19'LeftSiblingComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ht'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAsce'
+'nding'#0#9'MaxLength'#2#0#8'OnChange'#7#21'SiblingComboBoxChange'#14'Parent'
+'ShowHint'#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'Width'#3#134#0#0#0#0#0
]);

View File

@ -126,7 +126,6 @@ var
sl: TStringList;
p: Integer;
TagStart: LongInt;
Level: Integer;
begin
Result:='';
sl:=TStringList.Create;

View File

@ -452,9 +452,12 @@ function THelpManager.ShowHelpForSourcePosition(const Filename: string;
procedure FindHelpForFPCKeyWord(const KeyWord: string);
var
RefFilename: String;
sl: TStringList;
i: Integer;
List: TStrings;
Line: string;
FileStartPos: Integer;
FileEndPos: LongInt;
HTMLFilename: String;
begin
if Keyword='' then exit;
RefFilename:=HelpOpts.FPCDocsHTMLDirectory;
@ -466,7 +469,22 @@ function THelpManager.ShowHelpForSourcePosition(const Filename: string;
if LoadStringListFromFile(RefFilename,'FPC keyword list',List)<>mrOk then
exit;
for i:=0 to List.Count-1 do begin
// example: integer=refsu5.html#keyword:integer
Line:=List[i];
if (length(Line)>length(KeyWord))
and (Line[length(KeyWord)+1]='=')
and (SysUtils.CompareText(KeyWord,copy(Line,1,length(KeyWord)))=0) then
begin
FileStartPos:=length(KeyWord)+2;
FileEndPos:=FileStartPos;
while (FileEndPos<=length(Line)) and (Line[FileEndPos]<>'#') do
inc(FileEndPos);
HTMLFilename:=copy(Line,FileStartPos,FileEndPos-FileStartPos);
HTMLFilename:=AppendPathDelim(HelpOpts.FPCDocsHTMLDirectory)+'ref'
+PathDelim+HTMLFilename;
break;
end;
end;
finally
List.Free;

View File

@ -6,7 +6,7 @@ object HelpOptionsDialog: THelpOptionsDialog
ClientWidth = 500
OnClose = HelpOptionsDialogClose
OnCreate = HelpOptionsDialogCreate
PixelsPerInch = 96
PixelsPerInch = 112
Position = poScreenCenter
HorzScrollBar.Page = 499
VertScrollBar.Page = 299
@ -22,15 +22,60 @@ object HelpOptionsDialog: THelpOptionsDialog
PageIndex = 0
AnchorSideBottom.Control = OkButton
Left = 6
Height = 248
Height = 254
Top = 6
Width = 488
object GeneralPage: TPage
Caption = 'GeneralPage'
ClientWidth = 484
ClientHeight = 224
Left = 2
Height = 224
Top = 28
Width = 484
object FPCDocHTMLLabel: TLabel
Caption = 'FPCDocHTMLLabel'
Color = clNone
ParentColor = False
AnchorSideTop.Control = FPCDocHTMLBrowseButton
AnchorSideTop.Side = asrCenter
Left = 14
Height = 13
Top = 16
Width = 114
end
object FPCDocHTMLEdit: TEdit
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
TabOrder = 0
Text = 'FPCDocHTMLEdit'
AnchorSideLeft.Control = FPCDocHTMLLabel
AnchorSideLeft.Side = asrBottom
Left = 134
Height = 23
Top = 10
Width = 308
end
object FPCDocHTMLBrowseButton: TButton
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 2
Caption = '...'
OnClick = FPCDocHTMLBrowseButtonClick
TabOrder = 1
Left = 447
Height = 25
Top = 10
Width = 30
end
end
object ViewersPage: TPage
Caption = 'ViewersPage'
ClientWidth = 480
ClientHeight = 222
Height = 222
Width = 480
ClientWidth = 484
ClientHeight = 224
Left = 2
Height = 224
Top = 28
Width = 484
object ViewersLabel: TLabel
Caption = 'ViewersLabel'
Color = clNone
@ -48,11 +93,12 @@ object HelpOptionsDialog: THelpOptionsDialog
ClickOnSelChange = False
OnSelectionChange = ViewersListBoxSelectionChange
TabOrder = 0
TopIndex = -1
AnchorSideLeft.Control = ViewersPage
AnchorSideTop.Control = ViewersLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 192
Height = 194
Top = 26
Width = 152
end
@ -61,23 +107,25 @@ object HelpOptionsDialog: THelpOptionsDialog
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'ViewerPropsGroupBox'
ClientHeight = 192
ClientWidth = 306
ClientHeight = 212
ClientWidth = 314
TabOrder = 1
AnchorSideLeft.Control = ViewersListBox
AnchorSideLeft.Side = asrBottom
Left = 164
Height = 210
Height = 212
Top = 6
Width = 310
Width = 314
end
end
object DataBasePage: TPage
Caption = 'DataBasePage'
ClientWidth = 480
ClientHeight = 222
Height = 222
Width = 480
ClientWidth = 484
ClientHeight = 224
Left = 2
Height = 224
Top = 28
Width = 484
object DatabasesLabel: TLabel
Caption = 'DatabasesLabel'
Color = clNone
@ -95,11 +143,12 @@ object HelpOptionsDialog: THelpOptionsDialog
ClickOnSelChange = False
OnSelectionChange = DatabasesListBoxSelectionChange
TabOrder = 0
TopIndex = -1
AnchorSideLeft.Control = DataBasePage
AnchorSideTop.Control = DatabasesLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 190
Height = 192
Top = 26
Width = 152
end
@ -108,15 +157,15 @@ object HelpOptionsDialog: THelpOptionsDialog
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'DataBasesPropsGroupBox'
ClientHeight = 192
ClientWidth = 306
ClientHeight = 212
ClientWidth = 314
TabOrder = 1
AnchorSideLeft.Control = DatabasesListBox
AnchorSideLeft.Side = asrBottom
Left = 164
Height = 210
Height = 212
Top = 6
Width = 310
Width = 314
end
end
end
@ -130,15 +179,16 @@ object HelpOptionsDialog: THelpOptionsDialog
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = OkButtonClick
TabOrder = 1
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 432
Height = 34
Top = 260
Width = 62
Left = 443
Height = 28
Top = 266
Width = 51
end
object CancelButton: TBitBtn
Anchors = [akRight, akBottom]
@ -154,9 +204,9 @@ object HelpOptionsDialog: THelpOptionsDialog
AnchorSideRight.Control = OkButton
AnchorSideBottom.Control = OkButton
AnchorSideBottom.Side = asrBottom
Left = 346
Height = 34
Top = 260
Width = 80
Left = 364
Height = 28
Top = 266
Width = 73
end
end

View File

@ -5,54 +5,68 @@ LazarusResources.Add('THelpOptionsDialog','FORMDATA',[
+'ewersListBox'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#17'HelpOpt'
+'ionsDialog'#12'ClientHeight'#3','#1#11'ClientWidth'#3#244#1#7'OnClose'#7#22
+'HelpOptionsDialogClose'#8'OnCreate'#7#23'HelpOptionsDialogCreate'#13'Pixels'
+'PerInch'#2'`'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3#243
+'PerInch'#2'p'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3#243
+#1#18'VertScrollBar.Page'#3'+'#1#21'AnchorSideBottom.Side'#7#9'asrBottom'#4
+'Left'#3'8'#1#6'Height'#3','#1#3'Top'#3'f'#1#5'Width'#3#244#1#0#9'TNotebook'
+#12'MainNotebook'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akB'
+'ottom'#0#20'BorderSpacing.Around'#2#6#9'PageIndex'#2#0#24'AnchorSideBottom.'
+'Control'#7#8'OkButton'#4'Left'#2#6#6'Height'#3#248#0#3'Top'#2#6#5'Width'#3
+#232#1#0#5'TPage'#11'ViewersPage'#7'Caption'#6#11'ViewersPage'#11'ClientWidt'
+'h'#3#224#1#12'ClientHeight'#3#222#0#6'Height'#3#222#0#5'Width'#3#224#1#0#6
+'TLabel'#12'ViewersLabel'#7'Caption'#6#12'ViewersLabel'#5'Color'#7#6'clNone'
+#11'ParentColor'#8#21'AnchorSideTop.Control'#7#19'ViewerPropsGroupBox'#4'Lef'
+'t'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'?'#0#0#8'TListBox'#14'ViewersLi'
+'stBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'
+#2#6#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#17'OnSelectionChange'#7
+#29'ViewersListBoxSelectionChange'#8'TabOrder'#2#0#22'AnchorSideLeft.Control'
+#7#11'ViewersPage'#21'AnchorSideTop.Control'#7#12'ViewersLabel'#18'AnchorSid'
+'eTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#192#0#3'Top'#2#26#5'Width'
+#3#152#0#0#0#9'TGroupBox'#19'ViewerPropsGroupBox'#5'Align'#7#7'alRight'#7'An'
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Arou'
+'nd'#2#6#7'Caption'#6#19'ViewerPropsGroupBox'#12'ClientHeight'#3#192#0#11'Cl'
+'ientWidth'#3'2'#1#8'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#14'ViewersLi'
+'stBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#164#0#6'Height'#3
+#210#0#3'Top'#2#6#5'Width'#3'6'#1#0#0#0#5'TPage'#12'DataBasePage'#7'Caption'
+#6#12'DataBasePage'#11'ClientWidth'#3#224#1#12'ClientHeight'#3#222#0#6'Heigh'
+'t'#3#222#0#5'Width'#3#224#1#0#6'TLabel'#14'DatabasesLabel'#7'Caption'#6#14
+'DatabasesLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#21'AnchorSideTop.Con'
+'trol'#7#22'DataBasesPropsGroupBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5
+'Width'#2'M'#0#0#8'TListBox'#16'DatabasesListBox'#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#16
+'ClickOnSelChange'#8#17'OnSelectionChange'#7#31'DatabasesListBoxSelectionCha'
+'nge'#8'TabOrder'#2#0#22'AnchorSideLeft.Control'#7#12'DataBasePage'#21'Ancho'
+'rSideTop.Control'#7#14'DatabasesLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#4'Left'#2#6#6'Height'#3#190#0#3'Top'#2#26#5'Width'#3#152#0#0#0#9'TGroupBox'
+#22'DataBasesPropsGroupBox'#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22
+'DataBasesPropsGroupBox'#12'ClientHeight'#3#192#0#11'ClientWidth'#3'2'#1#8'T'
+'abOrder'#2#1#22'AnchorSideLeft.Control'#7#16'DatabasesListBox'#19'AnchorSid'
+'eLeft.Side'#7#9'asrBottom'#4'Left'#3#164#0#6'Height'#3#210#0#3'Top'#2#6#5'W'
+'idth'#3'6'#1#0#0#0#0#7'TBitBtn'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBo'
+'ttom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBo'
+'rder'#2#2#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'
+#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#23'AnchorSideRight.Control'#7#5'Owner'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Ow'
+'ner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#176#1#6'Height'#2'"'
+#3'Top'#3#4#1#5'Width'#2'>'#0#0#7'TBitBtn'#12'CancelButton'#7'Anchors'#11#7
+'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#25'BorderS'
+'pacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCa'
+'ncel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#23'AnchorSideRig'
+'ht.Control'#7#8'OkButton'#24'AnchorSideBottom.Control'#7#8'OkButton'#21'Anc'
+'horSideBottom.Side'#7#9'asrBottom'#4'Left'#3'Z'#1#6'Height'#2'"'#3'Top'#3#4
+#1#5'Width'#2'P'#0#0#0
+'Control'#7#8'OkButton'#4'Left'#2#6#6'Height'#3#254#0#3'Top'#2#6#5'Width'#3
+#232#1#0#5'TPage'#11'GeneralPage'#7'Caption'#6#11'GeneralPage'#11'ClientWidt'
+'h'#3#228#1#12'ClientHeight'#3#224#0#4'Left'#2#2#6'Height'#3#224#0#3'Top'#2
+#28#5'Width'#3#228#1#0#6'TLabel'#15'FPCDocHTMLLabel'#7'Caption'#6#15'FPCDocH'
+'TMLLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7
+#22'FPCDocHTMLBrowseButton'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#14#6'Height'#2#13#3'Top'#2#16#5'Width'#2'r'#0#0#5'TEdit'#14'FPCDocHTMLEdit'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#8
+'TabOrder'#2#0#4'Text'#6#14'FPCDocHTMLEdit'#22'AnchorSideLeft.Control'#7#15
+'FPCDocHTMLLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#134#0#6'H'
+'eight'#2#23#3'Top'#2#10#5'Width'#3'4'#1#0#0#7'TButton'#22'FPCDocHTMLBrowseB'
+'utton'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2
+#7'Caption'#6#3'...'#7'OnClick'#7#27'FPCDocHTMLBrowseButtonClick'#8'TabOrder'
+#2#1#4'Left'#3#191#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2#30#0#0#0#5'TPage'
+#11'ViewersPage'#7'Caption'#6#11'ViewersPage'#11'ClientWidth'#3#228#1#12'Cli'
+'entHeight'#3#224#0#4'Left'#2#2#6'Height'#3#224#0#3'Top'#2#28#5'Width'#3#228
+#1#0#6'TLabel'#12'ViewersLabel'#7'Caption'#6#12'ViewersLabel'#5'Color'#7#6'c'
+'lNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7#19'ViewerPropsGroupBox'
+#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'?'#0#0#8'TListBox'#14'View'
+'ersListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing'
+'.Left'#2#6#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#17'OnSelectionC'
+'hange'#7#29'ViewersListBoxSelectionChange'#8'TabOrder'#2#0#8'TopIndex'#2#255
+#22'AnchorSideLeft.Control'#7#11'ViewersPage'#21'AnchorSideTop.Control'#7#12
+'ViewersLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3
+#194#0#3'Top'#2#26#5'Width'#3#152#0#0#0#9'TGroupBox'#19'ViewerPropsGroupBox'
+#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBotto'
+'m'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'ViewerPropsGroupBox'#12'C'
+'lientHeight'#3#212#0#11'ClientWidth'#3':'#1#8'TabOrder'#2#1#22'AnchorSideLe'
+'ft.Control'#7#14'ViewersListBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'L'
+'eft'#3#164#0#6'Height'#3#212#0#3'Top'#2#6#5'Width'#3':'#1#0#0#0#5'TPage'#12
+'DataBasePage'#7'Caption'#6#12'DataBasePage'#11'ClientWidth'#3#228#1#12'Clie'
+'ntHeight'#3#224#0#4'Left'#2#2#6'Height'#3#224#0#3'Top'#2#28#5'Width'#3#228#1
+#0#6'TLabel'#14'DatabasesLabel'#7'Caption'#6#14'DatabasesLabel'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7#22'DataBasesPropsGrou'
+'pBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'M'#0#0#8'TListBox'#16
+'DatabasesListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderS'
+'pacing.Left'#2#6#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#17'OnSele'
+'ctionChange'#7#31'DatabasesListBoxSelectionChange'#8'TabOrder'#2#0#8'TopInd'
+'ex'#2#255#22'AnchorSideLeft.Control'#7#12'DataBasePage'#21'AnchorSideTop.Co'
+'ntrol'#7#14'DatabasesLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+#6#6'Height'#3#192#0#3'Top'#2#26#5'Width'#3#152#0#0#0#9'TGroupBox'#22'DataBa'
+'sesPropsGroupBox'#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'DataBas'
+'esPropsGroupBox'#12'ClientHeight'#3#212#0#11'ClientWidth'#3':'#1#8'TabOrder'
+#2#1#22'AnchorSideLeft.Control'#7#16'DatabasesListBox'#19'AnchorSideLeft.Sid'
+'e'#7#9'asrBottom'#4'Left'#3#164#0#6'Height'#3#212#0#3'Top'#2#6#5'Width'#3':'
+#1#0#0#0#0#7'TBitBtn'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'A'
+'utoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumG'
+'lyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#1#23'AnchorSideRigh'
+'t.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSide'
+'Bottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'
+#3#187#1#6'Height'#2#28#3'Top'#3#10#1#5'Width'#2'3'#0#0#7'TBitBtn'#12'Cancel'
+'Button'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpaci'
+'ng.Right'#2#6#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6
,'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrd'
+'er'#2#2#23'AnchorSideRight.Control'#7#8'OkButton'#24'AnchorSideBottom.Contr'
+'ol'#7#8'OkButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'l'#1#6
+'Height'#2#28#3'Top'#3#10#1#5'Width'#2'I'#0#0#0
]);

View File

@ -37,7 +37,7 @@ interface
uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ExtCtrls,
ObjectInspector, HelpIntf, IDEWindowIntf, Laz_XMLCfg,
ObjectInspector, HelpIntf, IDEWindowIntf, IDEDialogs, Laz_XMLCfg,
LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs;
type
@ -70,12 +70,16 @@ type
{ THelpOptionsDialog }
THelpOptionsDialog = class(TForm)
FPCDocHTMLBrowseButton: TButton;
FPCDocHTMLEdit: TEdit;
FPCDocHTMLLabel: TLabel;
OkButton: TBitBtn;
CancelButton: TBitBtn;
DataBasePage: TPage;
DatabasesLabel: TLabel;
DataBasesPropsGroupBox: TGroupBox;
DatabasesListBox: TListBox;
GeneralPage: TPage;
ViewerPropsGroupBox: TGroupBox;
ViewersLabel: TLabel;
ViewersListBox: TListBox;
@ -83,6 +87,7 @@ type
ViewersPage: TPage;
procedure CancelButtonClick(Sender: TObject);
procedure DatabasesListBoxSelectionChange(Sender: TObject; User: boolean);
procedure FPCDocHTMLBrowseButtonClick(Sender: TObject);
procedure HelpOptionsDialogClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure HelpOptionsDialogCreate(Sender: TObject);
@ -92,6 +97,7 @@ type
public
ViewersPropertiesGrid: TCustomPropertiesGrid;
DatabasesPropertiesGrid: TCustomPropertiesGrid;
procedure FillGeneralPage;
procedure FillViewersList;
procedure FillViewerPropGrid;
procedure FillDatabasesList;
@ -131,6 +137,8 @@ begin
Caption:=lisHlpOptsHelpOptions;
OkButton.Caption:=lisLazBuildOk;
CancelButton.Caption:=dlgCancel;
GeneralPage.Caption:=lisMenuInsertGeneral;
FPCDocHTMLLabel.Caption:=lisHOFPCDocHTMLPath;
ViewersPage.Caption:=lisHlpOptsViewers;
ViewerPropsGroupBox.Caption:=lisHlpOptsProperties;
ViewersLabel.Caption:=lisHlpOptsViewers;
@ -152,6 +160,7 @@ begin
Align:=alClient;
end;
FillGeneralPage;
FillViewersList;
FillViewerPropGrid;
FillDatabasesList;
@ -160,6 +169,7 @@ end;
procedure THelpOptionsDialog.OkButtonClick(Sender: TObject);
begin
HelpOpts.FPCDocsHTMLDirectory:=FPCDocHTMLEdit.Text;
ModalResult:=mrOk;
end;
@ -169,6 +179,11 @@ begin
FillViewerPropGrid;
end;
procedure THelpOptionsDialog.FillGeneralPage;
begin
FPCDocHTMLEdit.Text:=HelpOpts.FPCDocsHTMLDirectory;
end;
procedure THelpOptionsDialog.FillViewersList;
var
i: Integer;
@ -259,6 +274,15 @@ begin
FillDatabasesPropGrid;
end;
procedure THelpOptionsDialog.FPCDocHTMLBrowseButtonClick(Sender: TObject);
var
NewFilename: String;
begin
NewFilename:=LazSelectDirectory('FPC Doc HTML directory','');
if NewFilename='' then exit;
FPCDocHTMLEdit.Text:=NewFilename;
end;
{ THelpOptions }
procedure THelpOptions.SetFilename(const AValue: string);

View File

@ -2845,6 +2845,7 @@ resourcestring
// Help Options
lisHlpOptsHelpOptions = 'Help Options';
lisHlpOptsViewers = 'Viewers';
lisHOFPCDocHTMLPath = 'FPC Doc HTML Path';
lisHlpOptsProperties = 'Properties:';
lisHlpOptsDatabases = 'Databases';

View File

@ -73,6 +73,7 @@ uses
// IDE interface
AllIDEIntf, ObjectInspector, PropEdits, MacroIntf, IDECommands, SrcEditorIntf,
NewItemIntf, IDEMsgIntf, PackageIntf, ProjectIntf, MenuIntf, LazIDEIntf,
IDEDialogs,
// protocol
IDEProtocol,
// compile
@ -297,6 +298,7 @@ type
var Key: word; Shift: TShiftState;
IDEWindowClass: TCustomFormClass);
function OnExecuteIDECommand(Sender: TObject; Command: word): boolean;
function OnSelectDirectory(const Title, InitialDir: string): string;
// Environment options dialog events
procedure OnLoadEnvironmentSettings(Sender: TObject;
@ -445,7 +447,7 @@ type
// MessagesView events
procedure MessagesViewSelectionChanged(sender: TObject);
//SearchResultsView events
// SearchResultsView events
procedure SearchResultsViewSelectionChanged(sender: TObject);
// External Tools events
@ -497,6 +499,7 @@ type
procedure LoadMenuShortCuts; override;
procedure ConnectMainBarEvents;
procedure SetupSpeedButtons;
procedure SetupDialogs;
procedure SetupComponentNoteBook;
procedure SetupHints;
procedure SetupOutputFilter;
@ -1085,6 +1088,7 @@ begin
SetupStandardIDEMenuItems;
SetupMainMenu;
SetupSpeedButtons;
SetupDialogs;
SetupComponentNoteBook;
ConnectMainBarEvents;
@ -1418,6 +1422,11 @@ begin
MainIDEBar.OpenFilePopupMenu.AutoPopup := False;
end;
procedure TMainIDE.SetupDialogs;
begin
LazIDESelectDirectory:=@OnSelectDirectory;
end;
procedure TMainIDE.SetupComponentNoteBook;
begin
// Component Notebook
@ -2528,6 +2537,30 @@ begin
OnProcessIDECommand(Sender,Command,Result);
end;
function TMainIDE.OnSelectDirectory(const Title, InitialDir: string
): string;
var
Dialog: TSelectDirectoryDialog;
DummyResult: Boolean;
begin
Result:='';
Dialog:=TSelectDirectoryDialog.Create(nil);
try
InputHistories.ApplyFileDialogSettings(Dialog);
Dialog.Title:=Title;
Dialog.Options:=Dialog.Options+[ofFileMustExist];
if InitialDir<>'' then
Dialog.InitialDir:=InitialDir;
DummyResult:=Dialog.Execute;
InputHistories.StoreFileDialogSettings(Dialog);
if DummyResult and DirPathExists(Dialog.Filename) then begin
Result:=Dialog.Filename;
end;
finally
Dialog.Free;
end;
end;
procedure TMainIDE.OnExecuteIDEShortCut(Sender: TObject; var Key: word;
Shift: TShiftState;
IDEWindowClass: TCustomFormClass);

View File

@ -34,6 +34,7 @@ uses
HelpHTML,
HelpIntf,
IDECommands,
IDEDialogs,
IDEMsgIntf,
IDEWindowIntf,
ImageListEditor,