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

View File

@ -5,109 +5,116 @@ LazarusResources.Add('TAnchorDesigner','FORMDATA',[
+'erSpaceSpinEdit'#7'Caption'#6#14'AnchorDesigner'#12'ClientHeight'#3#3#1#11 +'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' +'ClientWidth'#3#8#2#7'OnClose'#7#19'AnchorDesignerClose'#8'OnCreate'#7#20'An'
+'chorDesignerCreate'#9'OnDestroy'#7#21'AnchorDesignerDestroy'#6'OnShow'#7#18 +'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 +#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' +'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' +'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' +#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 +#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 +'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#5'Value'#2#1#6'Height'#2#20
+'Width'#2'8'#0#0#9'TSpinEdit'#24'RightBorderSpaceSpinEdit'#8'OnChange'#7#25 +#3'Top'#2#30#5'Width'#2'8'#0#0#9'TSpinEdit'#24'RightBorderSpaceSpinEdit'#8'O'
+'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2 +'nChange'#7#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9
+#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Width'#2'8'#0#0#9'TSpinEdit'#22 +#8'TabOrder'#2#1#5'Value'#2#1#4'Left'#2'v'#6'Height'#2#20#3'Top'#2#30#5'Widt'
+'TopBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'Pare' +'h'#2'8'#0#0#9'TSpinEdit'#22'TopBorderSpaceSpinEdit'#8'OnChange'#7#25'Border'
+'ntShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#4'Left'#2':'#6'Height'#2#20#5'W' +'SpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#5'V'
+'idth'#2'8'#0#0#9'TSpinEdit'#25'BottomBorderSpaceSpinEdit'#8'OnChange'#7#25 +'alue'#2#1#4'Left'#2':'#6'Height'#2#20#5'Width'#2'8'#0#0#9'TSpinEdit'#25'Bot'
+'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2 +'tomBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'Pare'
+#3#4'Left'#2':'#6'Height'#2#20#3'Top'#2'9'#5'Width'#2'8'#0#0#9'TSpinEdit'#25 +'ntShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#3#5'Value'#2#1#4'Left'#2':'#6'Hei'
+'AroundBorderSpaceSpinEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'P' +'ght'#2#20#3'Top'#2'9'#5'Width'#2'8'#0#0#9'TSpinEdit'#25'AroundBorderSpaceSp'
+'arentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#4'Left'#2':'#6'Height'#2#20#3 +'inEdit'#8'OnChange'#7#25'BorderSpaceSpinEditChange'#14'ParentShowHint'#8#8
+'Top'#2#30#5'Width'#2'8'#0#0#0#9'TGroupBox'#11'TopGroupBox'#7'Anchors'#11#5 +'ShowHint'#9#8'TabOrder'#2#4#5'Value'#2#1#4'Left'#2':'#6'Height'#2#20#3'Top'
+'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#11'TopGroupBox'#12'ClientHeight' +#2#30#5'Width'#2'8'#0#0#0#9'TGroupBox'#11'TopGroupBox'#7'Anchors'#11#5'akTop'
+#2' '#11'ClientWidth'#3#148#1#8'TabOrder'#2#1#4'Left'#2'@'#6'Height'#2'2'#5 +#6'akLeft'#7'akRight'#0#7'Caption'#6#11'TopGroupBox'#12'ClientHeight'#2'!'#11
+'Width'#3#152#1#0#12'TSpeedButton'#20'TopRefTopSpeedButton'#7'Anchors'#11#5 +'ClientWidth'#3#148#1#8'TabOrder'#2#1#4'Left'#2'@'#6'Height'#2'2'#5'Width'#3
+'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#26'Ref' +#152#1#0#12'TSpeedButton'#20'TopRefTopSpeedButton'#7'Anchors'#11#5'akTop'#7
+'erenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6 +'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#11'T'
+'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#23'TopRefBottomSpeedButton' +'ransparent'#8#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14
+#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#7'O' +'ParentShowHint'#8#4'Left'#3'('#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeed'
+'nClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8 +'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' +#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 +'enterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFac'
+'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14 +'e'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'Re'
+'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel' +'ferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'n'#1
+#15'TopSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11'ParentC' +#6'Height'#2#30#5'Width'#2#30#0#0#6'TLabel'#15'TopSiblingLabel'#7'Caption'#6
+'olor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#4#5'Width'#2#31#0#0#9'TCheckBo' +#7'Sibling'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'^'#6'Height'#2
+'x'#19'TopAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27'AnchorE' +#14#3'Top'#2#4#5'Width'#2#31#0#0#9'TCheckBox'#19'TopAnchoredCheckBox'#7'Capt'
+'nabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Heigh' +'ion'#6#7'Enabled'#8'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'
+'t'#2#13#5'Width'#2';'#0#0#9'TComboBox'#18'TopSiblingComboBox'#7'Anchors'#11 +#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TCombo'
+#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineCo' +'Box'#18'TopSiblingComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16
+'mplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21'Siblin' +'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9
+'gComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text' +'MaxLength'#2#0#8'OnChange'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8
+#6#18'TopSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#21#5'Width'#3#129#0#0#0 +#8'ShowHint'#9#8'TabOrder'#2#1#4'Text'#6#18'TopSiblingComboBox'#4'Left'#3#158
+#0#9'TGroupBox'#14'BottomGroupBox'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBo' +#0#6'Height'#2#21#5'Width'#3#129#0#0#0#0#9'TGroupBox'#14'BottomGroupBox'#7'A'
+'ttom'#0#7'Caption'#6#14'BottomGroupBox'#12'ClientHeight'#2' '#11'ClientWidt' +'nchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#14'BottomGroupBo'
+'h'#3#148#1#8'TabOrder'#2#2#4'Left'#2'@'#6'Height'#2'2'#3'Top'#3#200#0#5'Wid' +'x'#12'ClientHeight'#2'!'#11'ClientWidth'#3#148#1#8'TabOrder'#2#2#4'Left'#2
+'th'#3#152#1#0#12'TSpeedButton'#23'BottomRefTopSpeedButton'#7'Anchors'#11#5 +'@'#6'Height'#2'2'#3'Top'#3#200#0#5'Width'#3#152#1#0#12'TSpeedButton'#23'Bot'
+'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'Ref' +'tomRefTopSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBt'
+'erenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('#1#6 +'nFace'#10'GroupIndex'#2#3#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26
+'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'BottomRefBottomSpeedButt' +'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'('
+'on'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2#3#9'NumGlyphs'#2#0 +#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'BottomRefBottomSpeed'
+#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint' +'Button'#7'Anchors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'Grou'
+#8#4'Left'#3'K'#1#6'Height'#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'Botto' +'pIndex'#2#3#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'ReferenceSid'
+'mRefCenterSpeedButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'GroupIndex'#2 +'eButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'K'#1#6'Height'
+#3#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9 +#2#30#5'Width'#2#30#0#0#12'TSpeedButton'#26'BottomRefCenterSpeedButton'#7'An'
+#14'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2#30#0#0#6'TLab' +'chors'#11#5'akTop'#7'akRight'#0#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#3#9
+'el'#18'BottomSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11 +'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'ReferenceSideButtonClicked'
+'ParentColor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#8#5'Width'#2#31#0#0#9'T' +#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#3'n'#1#6'Height'#2#30#5'Width'#2
+'CheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7 +#30#0#0#6'TLabel'#18'BottomSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6
+#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2 +'clNone'#11'ParentColor'#8#4'Left'#2'^'#6'Height'#2#14#3'Top'#2#8#5'Width'#2
+#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#21'BottomSiblingComboBox'#7 +#31#0#0#9'TCheckBox'#22'BottomAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'On'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac' ,'Change'#7#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9
+'tEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange' +#4'Left'#2#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#21'BottomSiblingC'
,#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2 +'omboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'
+#1#4'Text'#6#21'BottomSiblingComboBox'#4'Left'#3#158#0#6'Height'#2#21#5'Widt' +#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8
+'h'#3#129#0#0#0#0#9'TGroupBox'#13'RightGroupBox'#7'Anchors'#11#5'akTop'#6'ak' +'OnChange'#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8
+'Left'#8'akBottom'#0#7'Caption'#6#13'RightGroupBox'#12'ClientHeight'#2'o'#11 +'TabOrder'#2#1#4'Text'#6#21'BottomSiblingComboBox'#4'Left'#3#158#0#6'Height'
+'ClientWidth'#3#146#0#8'TabOrder'#2#3#4'Left'#3'l'#1#6'Height'#3#129#0#3'Top' +#2#21#5'Width'#3#129#0#0#0#0#9'TGroupBox'#13'RightGroupBox'#7'Anchors'#11#5
+#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#23'RightRefLeftSpeedButton'#10'Gro' +'akTop'#6'akLeft'#8'akBottom'#0#7'Caption'#6#13'RightGroupBox'#12'ClientHeig'
+'upIndex'#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8 +'ht'#2'p'#11'ClientWidth'#3#146#0#8'TabOrder'#2#3#4'Left'#3'l'#1#6'Height'#3
+'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'W' +#129#0#3'Top'#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#23'RightRefLeftSpeedB'
+'idth'#2#30#0#0#12'TSpeedButton'#24'RightRefRightSpeedButton'#10'GroupIndex' +'utton'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#11'Trans'
+#2#4#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint' +'parent'#8#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Pare'
+#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30 +'ntShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#12'T'
+#0#0#12'TSpeedButton'#25'RightRefCenterSpeedButton'#10'GroupIndex'#2#4#9'Num' +'SpeedButton'#24'RightRefRightSpeedButton'#5'Color'#7#9'clBtnFace'#10'GroupI'
+'Glyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Pa' +'ndex'#2#4#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'ReferenceSideB'
+'rentShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6 +'uttonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'('#6'Height'#2#30
+'TLabel'#17'RightSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone' +#3'Top'#2'Q'#5'Width'#2#30#0#0#12'TSpeedButton'#25'RightRefCenterSpeedButton'
+#11'ParentColor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9 +#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#4#9'NumGlyphs'#2#0#11'Transparent'
+'TCheckBox'#21'RightAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7 +#8#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'ParentShowHi'
+#27'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2 +'nt'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#17
+#2#6'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#20'RightSiblingComboBox'#7 +'RightSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11'ParentCo'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac' +'lor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9'TCheckBox'
+'tEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange' +#21'RightAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27'AnchorEn'
+#7#21'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2 +'abledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Height'
+#1#4'Text'#6#20'RightSiblingComboBox'#4'Left'#2#5#6'Height'#2#21#3'Top'#2'1' +#2#13#5'Width'#2';'#0#0#9'TComboBox'#20'RightSiblingComboBox'#7'Anchors'#11#5
+#5'Width'#3#135#0#0#0#0#9'TGroupBox'#12'LeftGroupBox'#7'Anchors'#11#5'akTop' +'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComp'
+#6'akLeft'#8'akBottom'#0#7'Caption'#6#12'LeftGroupBox'#12'ClientHeight'#2'o' +'lete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21'SiblingC'
+#11'ClientWidth'#3#146#0#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#3#129#0#3'Top' +'omboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text'#6
+#2'@'#5'Width'#3#150#0#0#12'TSpeedButton'#22'LeftRefLeftSpeedButton'#10'Grou' +#20'RightSiblingComboBox'#4'Left'#2#5#6'Height'#2#21#3'Top'#2'1'#5'Width'#3
+'pIndex'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8 +#135#0#0#0#0#9'TGroupBox'#12'LeftGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8
+'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2#5#6'Height'#2#30#3'Top'#2'Q'#5'W' +'akBottom'#0#7'Caption'#6#12'LeftGroupBox'#12'ClientHeight'#2'p'#11'ClientWi'
+'idth'#2#30#0#0#12'TSpeedButton'#23'LeftRefRightSpeedButton'#10'GroupIndex'#2 +'dth'#3#146#0#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2'@'#5'Wi'
+#2#9'NumGlyphs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9 +'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 +#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' +#0#12'TSpeedButton'#24'LeftRefCenterSpeedButton'#5'Color'#7#9'clBtnFace'#10
+'phs'#2#0#7'OnClick'#7#26'ReferenceSideButtonClicked'#8'ShowHint'#9#14'Paren' +'GroupIndex'#2#2#9'NumGlyphs'#2#0#11'Transparent'#8#7'OnClick'#7#26'Referenc'
+'tShowHint'#8#4'Left'#2'K'#6'Height'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6'TL' +'eSideButtonClicked'#8'ShowHint'#9#14'ParentShowHint'#8#4'Left'#2'K'#6'Heigh'
+'abel'#16'LeftSiblingLabel'#7'Caption'#6#7'Sibling'#5'Color'#7#6'clNone'#11 +'t'#2#30#3'Top'#2'Q'#5'Width'#2#30#0#0#6'TLabel'#16'LeftSiblingLabel'#7'Capt'
+'ParentColor'#8#4'Left'#2#2#6'Height'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9'T' +'ion'#6#7'Sibling'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#2#6'Heig'
+'CheckBox'#20'LeftAnchoredCheckBox'#7'Caption'#6#7'Enabled'#8'OnChange'#7#27 +'ht'#2#14#3'Top'#2#28#5'Width'#2#31#0#0#9'TCheckBox'#20'LeftAnchoredCheckBox'
+'AnchorEnabledCheckBoxChange'#8'TabOrder'#2#0#11'UseOnChange'#9#4'Left'#2#2#6 +#7'Caption'#6#7'Enabled'#8'OnChange'#7#27'AnchorEnabledCheckBoxChange'#8'Tab'
+'Height'#2#13#5'Width'#2';'#0#0#9'TComboBox'#19'LeftSiblingComboBox'#7'Ancho' +'Order'#2#0#11'UseOnChange'#9#4'Left'#2#2#6'Height'#2#13#5'Width'#2';'#0#0#9
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndO' +'TComboBox'#19'LeftSiblingComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'fLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#21 +'ht'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAsce'
+'SiblingComboBoxChange'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4 +'nding'#0#9'MaxLength'#2#0#8'OnChange'#7#21'SiblingComboBoxChange'#14'Parent'
+'Text'#6#19'LeftSiblingComboBox'#4'Left'#2#5#6'Height'#2#21#3'Top'#2'1'#5'Wi' +'ShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#4'Text'#6#19'LeftSiblingComboBox'
+'dth'#3#134#0#0#0#0#0 +#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; sl: TStringList;
p: Integer; p: Integer;
TagStart: LongInt; TagStart: LongInt;
Level: Integer;
begin begin
Result:=''; Result:='';
sl:=TStringList.Create; sl:=TStringList.Create;

View File

@ -452,9 +452,12 @@ function THelpManager.ShowHelpForSourcePosition(const Filename: string;
procedure FindHelpForFPCKeyWord(const KeyWord: string); procedure FindHelpForFPCKeyWord(const KeyWord: string);
var var
RefFilename: String; RefFilename: String;
sl: TStringList;
i: Integer; i: Integer;
List: TStrings; List: TStrings;
Line: string;
FileStartPos: Integer;
FileEndPos: LongInt;
HTMLFilename: String;
begin begin
if Keyword='' then exit; if Keyword='' then exit;
RefFilename:=HelpOpts.FPCDocsHTMLDirectory; RefFilename:=HelpOpts.FPCDocsHTMLDirectory;
@ -466,7 +469,22 @@ function THelpManager.ShowHelpForSourcePosition(const Filename: string;
if LoadStringListFromFile(RefFilename,'FPC keyword list',List)<>mrOk then if LoadStringListFromFile(RefFilename,'FPC keyword list',List)<>mrOk then
exit; exit;
for i:=0 to List.Count-1 do begin 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; end;
finally finally
List.Free; List.Free;

View File

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

View File

@ -5,54 +5,68 @@ LazarusResources.Add('THelpOptionsDialog','FORMDATA',[
+'ewersListBox'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#17'HelpOpt' +'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 +'ionsDialog'#12'ClientHeight'#3','#1#11'ClientWidth'#3#244#1#7'OnClose'#7#22
+'HelpOptionsDialogClose'#8'OnCreate'#7#23'HelpOptionsDialogCreate'#13'Pixels' +'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 +#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' +'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' +#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.' +'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 +'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'ViewersPage'#7'Caption'#6#11'ViewersPage'#11'ClientWidt' +#232#1#0#5'TPage'#11'GeneralPage'#7'Caption'#6#11'GeneralPage'#11'ClientWidt'
+'h'#3#224#1#12'ClientHeight'#3#222#0#6'Height'#3#222#0#5'Width'#3#224#1#0#6 +'h'#3#228#1#12'ClientHeight'#3#224#0#4'Left'#2#2#6'Height'#3#224#0#3'Top'#2
+'TLabel'#12'ViewersLabel'#7'Caption'#6#12'ViewersLabel'#5'Color'#7#6'clNone' +#28#5'Width'#3#228#1#0#6'TLabel'#15'FPCDocHTMLLabel'#7'Caption'#6#15'FPCDocH'
+#11'ParentColor'#8#21'AnchorSideTop.Control'#7#19'ViewerPropsGroupBox'#4'Lef' +'TMLLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7
+'t'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'?'#0#0#8'TListBox'#14'ViewersLi' +#22'FPCDocHTMLBrowseButton'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+'stBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left' +#14#6'Height'#2#13#3'Top'#2#16#5'Width'#2'r'#0#0#5'TEdit'#14'FPCDocHTMLEdit'
+#2#6#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#17'OnSelectionChange'#7 +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#8
+#29'ViewersListBoxSelectionChange'#8'TabOrder'#2#0#22'AnchorSideLeft.Control' +'TabOrder'#2#0#4'Text'#6#14'FPCDocHTMLEdit'#22'AnchorSideLeft.Control'#7#15
+#7#11'ViewersPage'#21'AnchorSideTop.Control'#7#12'ViewersLabel'#18'AnchorSid' +'FPCDocHTMLLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#134#0#6'H'
+'eTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#192#0#3'Top'#2#26#5'Width' +'eight'#2#23#3'Top'#2#10#5'Width'#3'4'#1#0#0#7'TButton'#22'FPCDocHTMLBrowseB'
+#3#152#0#0#0#9'TGroupBox'#19'ViewerPropsGroupBox'#5'Align'#7#7'alRight'#7'An' +'utton'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Arou' +#7'Caption'#6#3'...'#7'OnClick'#7#27'FPCDocHTMLBrowseButtonClick'#8'TabOrder'
+'nd'#2#6#7'Caption'#6#19'ViewerPropsGroupBox'#12'ClientHeight'#3#192#0#11'Cl' +#2#1#4'Left'#3#191#1#6'Height'#2#25#3'Top'#2#10#5'Width'#2#30#0#0#0#5'TPage'
+'ientWidth'#3'2'#1#8'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#14'ViewersLi' +#11'ViewersPage'#7'Caption'#6#11'ViewersPage'#11'ClientWidth'#3#228#1#12'Cli'
+'stBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#164#0#6'Height'#3 +'entHeight'#3#224#0#4'Left'#2#2#6'Height'#3#224#0#3'Top'#2#28#5'Width'#3#228
+#210#0#3'Top'#2#6#5'Width'#3'6'#1#0#0#0#5'TPage'#12'DataBasePage'#7'Caption' +#1#0#6'TLabel'#12'ViewersLabel'#7'Caption'#6#12'ViewersLabel'#5'Color'#7#6'c'
+#6#12'DataBasePage'#11'ClientWidth'#3#224#1#12'ClientHeight'#3#222#0#6'Heigh' +'lNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7#19'ViewerPropsGroupBox'
+'t'#3#222#0#5'Width'#3#224#1#0#6'TLabel'#14'DatabasesLabel'#7'Caption'#6#14 +#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'?'#0#0#8'TListBox'#14'View'
+'DatabasesLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#21'AnchorSideTop.Con' +'ersListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderSpacing'
+'trol'#7#22'DataBasesPropsGroupBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5 +'.Left'#2#6#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#17'OnSelectionC'
+'Width'#2'M'#0#0#8'TListBox'#16'DatabasesListBox'#7'Anchors'#11#5'akTop'#6'a' +'hange'#7#29'ViewersListBoxSelectionChange'#8'TabOrder'#2#0#8'TopIndex'#2#255
+'kLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#16 +#22'AnchorSideLeft.Control'#7#11'ViewersPage'#21'AnchorSideTop.Control'#7#12
+'ClickOnSelChange'#8#17'OnSelectionChange'#7#31'DatabasesListBoxSelectionCha' +'ViewersLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3
+'nge'#8'TabOrder'#2#0#22'AnchorSideLeft.Control'#7#12'DataBasePage'#21'Ancho' +#194#0#3'Top'#2#26#5'Width'#3#152#0#0#0#9'TGroupBox'#19'ViewerPropsGroupBox'
+'rSideTop.Control'#7#14'DatabasesLabel'#18'AnchorSideTop.Side'#7#9'asrBottom' +#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBotto'
+#4'Left'#2#6#6'Height'#3#190#0#3'Top'#2#26#5'Width'#3#152#0#0#0#9'TGroupBox' +'m'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'ViewerPropsGroupBox'#12'C'
+#22'DataBasesPropsGroupBox'#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#6'a' +'lientHeight'#3#212#0#11'ClientWidth'#3':'#1#8'TabOrder'#2#1#22'AnchorSideLe'
+'kLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22 +'ft.Control'#7#14'ViewersListBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'L'
+'DataBasesPropsGroupBox'#12'ClientHeight'#3#192#0#11'ClientWidth'#3'2'#1#8'T' +'eft'#3#164#0#6'Height'#3#212#0#3'Top'#2#6#5'Width'#3':'#1#0#0#0#5'TPage'#12
+'abOrder'#2#1#22'AnchorSideLeft.Control'#7#16'DatabasesListBox'#19'AnchorSid' +'DataBasePage'#7'Caption'#6#12'DataBasePage'#11'ClientWidth'#3#228#1#12'Clie'
+'eLeft.Side'#7#9'asrBottom'#4'Left'#3#164#0#6'Height'#3#210#0#3'Top'#2#6#5'W' +'ntHeight'#3#224#0#4'Left'#2#2#6'Height'#3#224#0#3'Top'#2#28#5'Width'#3#228#1
+'idth'#3'6'#1#0#0#0#0#7'TBitBtn'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBo' +#0#6'TLabel'#14'DatabasesLabel'#7'Caption'#6#14'DatabasesLabel'#5'Color'#7#6
+'ttom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBo' +'clNone'#11'ParentColor'#8#21'AnchorSideTop.Control'#7#22'DataBasesPropsGrou'
+'rder'#2#2#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult' +'pBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2'M'#0#0#8'TListBox'#16
+#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#23'AnchorSideRight.Control'#7#5'Owner' +'DatabasesListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#18'BorderS'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Ow' +'pacing.Left'#2#6#17'BorderSpacing.Top'#2#6#16'ClickOnSelChange'#8#17'OnSele'
+'ner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#176#1#6'Height'#2'"' +'ctionChange'#7#31'DatabasesListBoxSelectionChange'#8'TabOrder'#2#0#8'TopInd'
+#3'Top'#3#4#1#5'Width'#2'>'#0#0#7'TBitBtn'#12'CancelButton'#7'Anchors'#11#7 +'ex'#2#255#22'AnchorSideLeft.Control'#7#12'DataBasePage'#21'AnchorSideTop.Co'
+'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#25'BorderS' +'ntrol'#7#14'DatabasesLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+'pacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCa' +#6#6'Height'#3#192#0#3'Top'#2#26#5'Width'#3#152#0#0#0#9'TGroupBox'#22'DataBa'
+'ncel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#23'AnchorSideRig' +'sesPropsGroupBox'#5'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'ht.Control'#7#8'OkButton'#24'AnchorSideBottom.Control'#7#8'OkButton'#21'Anc' +'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'DataBas'
+'horSideBottom.Side'#7#9'asrBottom'#4'Left'#3'Z'#1#6'Height'#2'"'#3'Top'#3#4 +'esPropsGroupBox'#12'ClientHeight'#3#212#0#11'ClientWidth'#3':'#1#8'TabOrder'
+#1#5'Width'#2'P'#0#0#0 +#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 uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ExtCtrls, StdCtrls, Buttons, ExtCtrls,
ObjectInspector, HelpIntf, IDEWindowIntf, Laz_XMLCfg, ObjectInspector, HelpIntf, IDEWindowIntf, IDEDialogs, Laz_XMLCfg,
LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs; LazConf, LazarusIDEStrConsts, IDEProcs, IDEOptionDefs;
type type
@ -70,12 +70,16 @@ type
{ THelpOptionsDialog } { THelpOptionsDialog }
THelpOptionsDialog = class(TForm) THelpOptionsDialog = class(TForm)
FPCDocHTMLBrowseButton: TButton;
FPCDocHTMLEdit: TEdit;
FPCDocHTMLLabel: TLabel;
OkButton: TBitBtn; OkButton: TBitBtn;
CancelButton: TBitBtn; CancelButton: TBitBtn;
DataBasePage: TPage; DataBasePage: TPage;
DatabasesLabel: TLabel; DatabasesLabel: TLabel;
DataBasesPropsGroupBox: TGroupBox; DataBasesPropsGroupBox: TGroupBox;
DatabasesListBox: TListBox; DatabasesListBox: TListBox;
GeneralPage: TPage;
ViewerPropsGroupBox: TGroupBox; ViewerPropsGroupBox: TGroupBox;
ViewersLabel: TLabel; ViewersLabel: TLabel;
ViewersListBox: TListBox; ViewersListBox: TListBox;
@ -83,6 +87,7 @@ type
ViewersPage: TPage; ViewersPage: TPage;
procedure CancelButtonClick(Sender: TObject); procedure CancelButtonClick(Sender: TObject);
procedure DatabasesListBoxSelectionChange(Sender: TObject; User: boolean); procedure DatabasesListBoxSelectionChange(Sender: TObject; User: boolean);
procedure FPCDocHTMLBrowseButtonClick(Sender: TObject);
procedure HelpOptionsDialogClose(Sender: TObject; procedure HelpOptionsDialogClose(Sender: TObject;
var CloseAction: TCloseAction); var CloseAction: TCloseAction);
procedure HelpOptionsDialogCreate(Sender: TObject); procedure HelpOptionsDialogCreate(Sender: TObject);
@ -92,6 +97,7 @@ type
public public
ViewersPropertiesGrid: TCustomPropertiesGrid; ViewersPropertiesGrid: TCustomPropertiesGrid;
DatabasesPropertiesGrid: TCustomPropertiesGrid; DatabasesPropertiesGrid: TCustomPropertiesGrid;
procedure FillGeneralPage;
procedure FillViewersList; procedure FillViewersList;
procedure FillViewerPropGrid; procedure FillViewerPropGrid;
procedure FillDatabasesList; procedure FillDatabasesList;
@ -131,6 +137,8 @@ begin
Caption:=lisHlpOptsHelpOptions; Caption:=lisHlpOptsHelpOptions;
OkButton.Caption:=lisLazBuildOk; OkButton.Caption:=lisLazBuildOk;
CancelButton.Caption:=dlgCancel; CancelButton.Caption:=dlgCancel;
GeneralPage.Caption:=lisMenuInsertGeneral;
FPCDocHTMLLabel.Caption:=lisHOFPCDocHTMLPath;
ViewersPage.Caption:=lisHlpOptsViewers; ViewersPage.Caption:=lisHlpOptsViewers;
ViewerPropsGroupBox.Caption:=lisHlpOptsProperties; ViewerPropsGroupBox.Caption:=lisHlpOptsProperties;
ViewersLabel.Caption:=lisHlpOptsViewers; ViewersLabel.Caption:=lisHlpOptsViewers;
@ -152,6 +160,7 @@ begin
Align:=alClient; Align:=alClient;
end; end;
FillGeneralPage;
FillViewersList; FillViewersList;
FillViewerPropGrid; FillViewerPropGrid;
FillDatabasesList; FillDatabasesList;
@ -160,6 +169,7 @@ end;
procedure THelpOptionsDialog.OkButtonClick(Sender: TObject); procedure THelpOptionsDialog.OkButtonClick(Sender: TObject);
begin begin
HelpOpts.FPCDocsHTMLDirectory:=FPCDocHTMLEdit.Text;
ModalResult:=mrOk; ModalResult:=mrOk;
end; end;
@ -169,6 +179,11 @@ begin
FillViewerPropGrid; FillViewerPropGrid;
end; end;
procedure THelpOptionsDialog.FillGeneralPage;
begin
FPCDocHTMLEdit.Text:=HelpOpts.FPCDocsHTMLDirectory;
end;
procedure THelpOptionsDialog.FillViewersList; procedure THelpOptionsDialog.FillViewersList;
var var
i: Integer; i: Integer;
@ -259,6 +274,15 @@ begin
FillDatabasesPropGrid; FillDatabasesPropGrid;
end; 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 } { THelpOptions }
procedure THelpOptions.SetFilename(const AValue: string); procedure THelpOptions.SetFilename(const AValue: string);

View File

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

View File

@ -73,6 +73,7 @@ uses
// IDE interface // IDE interface
AllIDEIntf, ObjectInspector, PropEdits, MacroIntf, IDECommands, SrcEditorIntf, AllIDEIntf, ObjectInspector, PropEdits, MacroIntf, IDECommands, SrcEditorIntf,
NewItemIntf, IDEMsgIntf, PackageIntf, ProjectIntf, MenuIntf, LazIDEIntf, NewItemIntf, IDEMsgIntf, PackageIntf, ProjectIntf, MenuIntf, LazIDEIntf,
IDEDialogs,
// protocol // protocol
IDEProtocol, IDEProtocol,
// compile // compile
@ -297,6 +298,7 @@ type
var Key: word; Shift: TShiftState; var Key: word; Shift: TShiftState;
IDEWindowClass: TCustomFormClass); IDEWindowClass: TCustomFormClass);
function OnExecuteIDECommand(Sender: TObject; Command: word): boolean; function OnExecuteIDECommand(Sender: TObject; Command: word): boolean;
function OnSelectDirectory(const Title, InitialDir: string): string;
// Environment options dialog events // Environment options dialog events
procedure OnLoadEnvironmentSettings(Sender: TObject; procedure OnLoadEnvironmentSettings(Sender: TObject;
@ -445,7 +447,7 @@ type
// MessagesView events // MessagesView events
procedure MessagesViewSelectionChanged(sender: TObject); procedure MessagesViewSelectionChanged(sender: TObject);
//SearchResultsView events // SearchResultsView events
procedure SearchResultsViewSelectionChanged(sender: TObject); procedure SearchResultsViewSelectionChanged(sender: TObject);
// External Tools events // External Tools events
@ -497,6 +499,7 @@ type
procedure LoadMenuShortCuts; override; procedure LoadMenuShortCuts; override;
procedure ConnectMainBarEvents; procedure ConnectMainBarEvents;
procedure SetupSpeedButtons; procedure SetupSpeedButtons;
procedure SetupDialogs;
procedure SetupComponentNoteBook; procedure SetupComponentNoteBook;
procedure SetupHints; procedure SetupHints;
procedure SetupOutputFilter; procedure SetupOutputFilter;
@ -1085,6 +1088,7 @@ begin
SetupStandardIDEMenuItems; SetupStandardIDEMenuItems;
SetupMainMenu; SetupMainMenu;
SetupSpeedButtons; SetupSpeedButtons;
SetupDialogs;
SetupComponentNoteBook; SetupComponentNoteBook;
ConnectMainBarEvents; ConnectMainBarEvents;
@ -1418,6 +1422,11 @@ begin
MainIDEBar.OpenFilePopupMenu.AutoPopup := False; MainIDEBar.OpenFilePopupMenu.AutoPopup := False;
end; end;
procedure TMainIDE.SetupDialogs;
begin
LazIDESelectDirectory:=@OnSelectDirectory;
end;
procedure TMainIDE.SetupComponentNoteBook; procedure TMainIDE.SetupComponentNoteBook;
begin begin
// Component Notebook // Component Notebook
@ -2528,6 +2537,30 @@ begin
OnProcessIDECommand(Sender,Command,Result); OnProcessIDECommand(Sender,Command,Result);
end; 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; procedure TMainIDE.OnExecuteIDEShortCut(Sender: TObject; var Key: word;
Shift: TShiftState; Shift: TShiftState;
IDEWindowClass: TCustomFormClass); IDEWindowClass: TCustomFormClass);

View File

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