mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 17:40:40 +02:00
help for FPC keywords: added option to setup path
git-svn-id: trunk@9184 -
This commit is contained in:
parent
b37b0732b3
commit
aa44cc8127
@ -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
|
||||||
|
@ -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
|
||||||
]);
|
]);
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
]);
|
]);
|
||||||
|
@ -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);
|
||||||
|
@ -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';
|
||||||
|
|
||||||
|
35
ide/main.pp
35
ide/main.pp
@ -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);
|
||||||
|
@ -34,6 +34,7 @@ uses
|
|||||||
HelpHTML,
|
HelpHTML,
|
||||||
HelpIntf,
|
HelpIntf,
|
||||||
IDECommands,
|
IDECommands,
|
||||||
|
IDEDialogs,
|
||||||
IDEMsgIntf,
|
IDEMsgIntf,
|
||||||
IDEWindowIntf,
|
IDEWindowIntf,
|
||||||
ImageListEditor,
|
ImageListEditor,
|
||||||
|
Loading…
Reference in New Issue
Block a user