Enabled hints, build dlg now remember last options file

git-svn-id: trunk@7329 -
This commit is contained in:
jesus 2005-07-07 21:08:42 +00:00
parent f3e322eb6c
commit 15efd6b829
10 changed files with 1202 additions and 1178 deletions

View File

@ -1,18 +1,17 @@
object BuildForm: TBuildForm object BuildForm: TBuildForm
Caption = 'Build documentation' Caption = 'Build documentation'
ClientHeight = 337 ClientHeight = 337
ClientWidth = 410 ClientWidth = 477
OnCloseQuery = BuildFormCloseQuery OnCloseQuery = BuildFormCloseQuery
OnCreate = BuildFormCreate OnCreate = BuildFormCreate
PixelsPerInch = 90 PixelsPerInch = 75
HorzScrollBar.Page = 409 HorzScrollBar.Page = 476
VertScrollBar.Page = 336 VertScrollBar.Page = 336
Left = 370 Left = 303
Height = 337 Height = 337
Top = 145 Top = 145
Width = 410 Width = 477
object LCBPackage: TLabel object LCBPackage: TLabel
BorderSpacing.OnChange = nil
Caption = '&Package' Caption = '&Package'
FocusControl = CBPackage FocusControl = CBPackage
Layout = tlCenter Layout = tlCenter
@ -23,7 +22,6 @@ object BuildForm: TBuildForm
Width = 58 Width = 58
end end
object LCBFormat: TLabel object LCBFormat: TLabel
BorderSpacing.OnChange = nil
Caption = '&Format' Caption = '&Format'
FocusControl = CBFormat FocusControl = CBFormat
Layout = tlCenter Layout = tlCenter
@ -34,7 +32,6 @@ object BuildForm: TBuildForm
Width = 47 Width = 47
end end
object Label1: TLabel object Label1: TLabel
BorderSpacing.OnChange = nil
Caption = '&Output' Caption = '&Output'
Layout = tlCenter Layout = tlCenter
ParentColor = True ParentColor = True
@ -44,7 +41,6 @@ object BuildForm: TBuildForm
Width = 46 Width = 46
end end
object CBPackage: TComboBox object CBPackage: TComboBox
BorderSpacing.OnChange = nil
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Left = 112 Left = 112
@ -54,11 +50,10 @@ object BuildForm: TBuildForm
end end
object BClose: TButton object BClose: TButton
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.OnChange = nil
Caption = '&Close' Caption = '&Close'
OnClick = BCloseClick OnClick = BCloseClick
TabOrder = 1 TabOrder = 1
Left = 330 Left = 397
Height = 25 Height = 25
Top = 104 Top = 104
Width = 75 Width = 75
@ -66,9 +61,8 @@ object BuildForm: TBuildForm
object BBuild: TButton object BBuild: TButton
Action = ABuild Action = ABuild
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.OnChange = nil
TabOrder = 2 TabOrder = 2
Left = 330 Left = 397
Height = 25 Height = 25
Top = 8 Top = 8
Width = 75 Width = 75
@ -76,9 +70,8 @@ object BuildForm: TBuildForm
object BLoad: TButton object BLoad: TButton
Action = ALoad Action = ALoad
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.OnChange = nil
TabOrder = 3 TabOrder = 3
Left = 330 Left = 397
Height = 25 Height = 25
Top = 40 Top = 40
Width = 75 Width = 75
@ -86,15 +79,13 @@ object BuildForm: TBuildForm
object BSave: TButton object BSave: TButton
Action = ASave Action = ASave
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.OnChange = nil
TabOrder = 4 TabOrder = 4
Left = 330 Left = 397
Height = 25 Height = 25
Top = 72 Top = 72
Width = 75 Width = 75
end end
object CBFormat: TComboBox object CBFormat: TComboBox
BorderSpacing.OnChange = nil
Items.Strings = ( Items.Strings = (
'html' 'html'
'latex' 'latex'
@ -114,34 +105,31 @@ object BuildForm: TBuildForm
object PCOptions: TPageControl object PCOptions: TPageControl
ActivePage = TSDescription ActivePage = TSDescription
Align = alBottom Align = alBottom
BorderSpacing.OnChange = nil
TabIndex = 0 TabIndex = 0
TabOrder = 6 TabOrder = 6
Height = 200 Height = 200
Top = 137 Top = 137
Width = 410 Width = 477
object TSDescription: TTabSheet object TSDescription: TTabSheet
Caption = 'Description' Caption = 'Description'
ClientHeight = 170 ClientHeight = 170
ClientWidth = 406 ClientWidth = 473
Left = 2 Left = 2
Height = 170 Height = 170
Top = 28 Top = 28
Width = 406 Width = 473
object PBDescr: TPanel object PBDescr: TPanel
Align = alRight Align = alRight
BorderSpacing.OnChange = nil
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 170 ClientHeight = 170
ClientWidth = 92 ClientWidth = 92
FullRepaint = False FullRepaint = False
TabOrder = 0 TabOrder = 0
Left = 314 Left = 381
Height = 170 Height = 170
Width = 92 Width = 92
object BAddDescription: TButton object BAddDescription: TButton
Action = ADescrAdd Action = ADescrAdd
BorderSpacing.OnChange = nil
TabOrder = 0 TabOrder = 0
Left = 10 Left = 10
Height = 25 Height = 25
@ -150,7 +138,6 @@ object BuildForm: TBuildForm
end end
object BDeleteDescription: TButton object BDeleteDescription: TButton
Action = ADescrDelete Action = ADescrDelete
BorderSpacing.OnChange = nil
TabOrder = 1 TabOrder = 1
Left = 10 Left = 10
Height = 25 Height = 25
@ -159,7 +146,6 @@ object BuildForm: TBuildForm
end end
object BEditDescription: TButton object BEditDescription: TButton
Action = ADescrEdit Action = ADescrEdit
BorderSpacing.OnChange = nil
TabOrder = 2 TabOrder = 2
Left = 10 Left = 10
Height = 25 Height = 25
@ -168,6 +154,7 @@ object BuildForm: TBuildForm
end end
object BAddAll: TButton object BAddAll: TButton
Action = ADescrAddAll Action = ADescrAddAll
BorderSpacing.OnChange = nil
TabOrder = 3 TabOrder = 3
Left = 10 Left = 10
Height = 25 Height = 25
@ -177,36 +164,33 @@ object BuildForm: TBuildForm
end end
object LBDescrFiles: TListBox object LBDescrFiles: TListBox
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
ClickOnSelChange = False ClickOnSelChange = False
TabOrder = 1 TabOrder = 1
TopIndex = -1 TopIndex = -1
Height = 170 Height = 170
Width = 314 Width = 381
end end
end end
object TSSources: TTabSheet object TSSources: TTabSheet
Caption = 'Sources' Caption = 'Sources'
ClientHeight = 170 ClientHeight = 170
ClientWidth = 406 ClientWidth = 473
Left = 2 Left = 2
Height = 170 Height = 170
Top = 28 Top = 28
Width = 406 Width = 473
object PSources: TPanel object PSources: TPanel
Align = alRight Align = alRight
BorderSpacing.OnChange = nil
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 170 ClientHeight = 170
ClientWidth = 92 ClientWidth = 92
FullRepaint = False FullRepaint = False
TabOrder = 0 TabOrder = 0
Left = 314 Left = 381
Height = 170 Height = 170
Width = 92 Width = 92
object BSourceAdd: TButton object BSourceAdd: TButton
Action = ASourceAdd Action = ASourceAdd
BorderSpacing.OnChange = nil
TabOrder = 0 TabOrder = 0
Left = 12 Left = 12
Height = 25 Height = 25
@ -215,7 +199,6 @@ object BuildForm: TBuildForm
end end
object BSourceDelete: TButton object BSourceDelete: TButton
Action = ASourceDelete Action = ASourceDelete
BorderSpacing.OnChange = nil
TabOrder = 1 TabOrder = 1
Left = 12 Left = 12
Height = 25 Height = 25
@ -224,7 +207,6 @@ object BuildForm: TBuildForm
end end
object BSourceEdit: TButton object BSourceEdit: TButton
Action = ASourceEdit Action = ASourceEdit
BorderSpacing.OnChange = nil
TabOrder = 2 TabOrder = 2
Left = 12 Left = 12
Height = 25 Height = 25
@ -234,7 +216,6 @@ object BuildForm: TBuildForm
end end
object SGSources: TStringGrid object SGSources: TStringGrid
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
Color = clWhite Color = clWhite
ColCount = 2 ColCount = 2
DefaultColWidth = 150 DefaultColWidth = 150
@ -248,7 +229,11 @@ object BuildForm: TBuildForm
VisibleColCount = 2 VisibleColCount = 2
VisibleRowCount = 1 VisibleRowCount = 1
Height = 170 Height = 170
Width = 314 Width = 381
ColWidths = (
242
119
)
Cells = ( Cells = (
2 2
0 0
@ -263,14 +248,13 @@ object BuildForm: TBuildForm
object TSOther: TTabSheet object TSOther: TTabSheet
Caption = 'Other options' Caption = 'Other options'
ClientHeight = 170 ClientHeight = 170
ClientWidth = 406 ClientWidth = 473
Left = 2 Left = 2
Height = 170 Height = 170
Top = 28 Top = 28
Width = 406 Width = 473
object Label2: TLabel object Label2: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'Import content file' Caption = 'Import content file'
Color = clNone Color = clNone
Layout = tlCenter Layout = tlCenter
@ -281,7 +265,6 @@ object BuildForm: TBuildForm
end end
object Label3: TLabel object Label3: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'Target OS' Caption = 'Target OS'
Color = clNone Color = clNone
Layout = tlCenter Layout = tlCenter
@ -292,7 +275,6 @@ object BuildForm: TBuildForm
end end
object LTargetCPU: TLabel object LTargetCPU: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'CPU' Caption = 'CPU'
Color = clNone Color = clNone
Layout = tlCenter Layout = tlCenter
@ -302,6 +284,7 @@ object BuildForm: TBuildForm
Width = 40 Width = 40
end end
object CBShowPrivate: TCheckBox object CBShowPrivate: TCheckBox
BorderSpacing.OnChange = nil
Caption = 'Show p&rivate methods' Caption = 'Show p&rivate methods'
TabOrder = 0 TabOrder = 0
Left = 14 Left = 14
@ -310,6 +293,7 @@ object BuildForm: TBuildForm
Width = 141 Width = 141
end end
object CBHideProtected: TCheckBox object CBHideProtected: TCheckBox
BorderSpacing.OnChange = nil
Caption = '&Hide protected methods' Caption = '&Hide protected methods'
TabOrder = 1 TabOrder = 1
Left = 14 Left = 14
@ -318,7 +302,6 @@ object BuildForm: TBuildForm
Width = 172 Width = 172
end end
object CBWarnNoNode: TCheckBox object CBWarnNoNode: TCheckBox
BorderSpacing.OnChange = nil
Caption = 'Warn if no documentation node found' Caption = 'Warn if no documentation node found'
TabOrder = 2 TabOrder = 2
Left = 14 Left = 14
@ -330,18 +313,15 @@ object BuildForm: TBuildForm
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil
TabOrder = 3 TabOrder = 3
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil
TabOrder = 3 TabOrder = 3
Left = 118 Left = 118
Height = 23 Height = 23
Top = 106 Top = 106
Width = 251 Width = 318
end end
object ETargetOS: TEdit object ETargetOS: TEdit
BorderSpacing.OnChange = nil
TabOrder = 4 TabOrder = 4
Left = 118 Left = 118
Height = 23 Height = 23
@ -349,7 +329,6 @@ object BuildForm: TBuildForm
Width = 80 Width = 80
end end
object ETargetCPU: TEdit object ETargetCPU: TEdit
BorderSpacing.OnChange = nil
TabOrder = 5 TabOrder = 5
Left = 246 Left = 246
Height = 23 Height = 23
@ -360,35 +339,33 @@ object BuildForm: TBuildForm
object TSBuild: TTabSheet object TSBuild: TTabSheet
Caption = 'Build output' Caption = 'Build output'
ClientHeight = 170 ClientHeight = 170
ClientWidth = 406 ClientWidth = 473
Left = 2 Left = 2
Height = 170 Height = 170
Top = 28 Top = 28
Width = 406 Width = 473
object MLog: TMemo object MLog: TMemo
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
TabOrder = 0 TabOrder = 0
Height = 170 Height = 170
Width = 406 Width = 473
end end
end end
end end
object EOutput: TEditButton object EOutput: TEditButton
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil
ButtonWidth = 23 ButtonWidth = 23
OnButtonClick = EOutputButtonClick OnButtonClick = EOutputButtonClick
TabOrder = 7 TabOrder = 7
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil
TabOrder = 7 TabOrder = 7
Left = 112 Left = 112
Height = 23 Height = 23
Top = 72 Top = 72
Width = 172 Width = 239
end end
object CBContent: TCheckBox object CBContent: TCheckBox
BorderSpacing.OnChange = nil
Caption = 'Create cont&ent file' Caption = 'Create cont&ent file'
TabOrder = 8 TabOrder = 8
Left = 112 Left = 112

View File

@ -1,131 +1,122 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TBuildForm','FORMDATA',[ LazarusResources.Add('TBuildForm','FORMDATA',[
'TPF0'#10'TBuildForm'#9'BuildForm'#7'Caption'#6#19'Build documentation'#12'Cl' 'TPF0'#10'TBuildForm'#9'BuildForm'#7'Caption'#6#19'Build documentation'#12'Cl'
+'ientHeight'#3'Q'#1#11'ClientWidth'#3#154#1#12'OnCloseQuery'#7#19'BuildFormC' +'ientHeight'#3'Q'#1#11'ClientWidth'#3#221#1#12'OnCloseQuery'#7#19'BuildFormC'
+'loseQuery'#8'OnCreate'#7#15'BuildFormCreate'#13'PixelsPerInch'#2'Z'#18'Horz' +'loseQuery'#8'OnCreate'#7#15'BuildFormCreate'#13'PixelsPerInch'#2'K'#18'Horz'
+'ScrollBar.Page'#3#153#1#18'VertScrollBar.Page'#3'P'#1#4'Left'#3'r'#1#6'Heig' +'ScrollBar.Page'#3#220#1#18'VertScrollBar.Page'#3'P'#1#4'Left'#3'/'#1#6'Heig'
+'ht'#3'Q'#1#3'Top'#3#145#0#5'Width'#3#154#1#0#6'TLabel'#10'LCBPackage'#22'Bo' +'ht'#3'Q'#1#3'Top'#3#145#0#5'Width'#3#221#1#0#6'TLabel'#10'LCBPackage'#7'Cap'
+'rderSpacing.OnChange'#13#7'Caption'#6#8'&Package'#12'FocusControl'#7#9'CBPa' +'tion'#6#8'&Package'#12'FocusControl'#7#9'CBPackage'#6'Layout'#7#8'tlCenter'
+'ckage'#6'Layout'#7#8'tlCenter'#11'ParentColor'#9#4'Left'#2#7#6'Height'#2#12 +#11'ParentColor'#9#4'Left'#2#7#6'Height'#2#12#3'Top'#2#12#5'Width'#2':'#0#0#6
+#3'Top'#2#12#5'Width'#2':'#0#0#6'TLabel'#9'LCBFormat'#22'BorderSpacing.OnCha' +'TLabel'#9'LCBFormat'#7'Caption'#6#7'&Format'#12'FocusControl'#7#8'CBFormat'
+'nge'#13#7'Caption'#6#7'&Format'#12'FocusControl'#7#8'CBFormat'#6'Layout'#7#8 +#6'Layout'#7#8'tlCenter'#11'ParentColor'#9#4'Left'#2#7#6'Height'#2#12#3'Top'
+'tlCenter'#11'ParentColor'#9#4'Left'#2#7#6'Height'#2#12#3'Top'#2'('#5'Width' +#2'('#5'Width'#2'/'#0#0#6'TLabel'#6'Label1'#7'Caption'#6#7'&Output'#6'Layout'
+#2'/'#0#0#6'TLabel'#6'Label1'#22'BorderSpacing.OnChange'#13#7'Caption'#6#7'&' +#7#8'tlCenter'#11'ParentColor'#9#4'Left'#2#8#6'Height'#2#12#3'Top'#2'K'#5'Wi'
+'Output'#6'Layout'#7#8'tlCenter'#11'ParentColor'#9#4'Left'#2#8#6'Height'#2#12 +'dth'#2'.'#0#0#9'TComboBox'#9'CBPackage'#9'MaxLength'#2#0#8'TabOrder'#2#0#4
+#3'Top'#2'K'#5'Width'#2'.'#0#0#9'TComboBox'#9'CBPackage'#22'BorderSpacing.On' +'Left'#2'p'#6'Height'#2#25#3'Top'#2#8#5'Width'#2'd'#0#0#7'TButton'#6'BClose'
+'Change'#13#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Left'#2'p'#6'Height'#2#25#3'T' +#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#6'&Close'#7'OnClick'#7#11
+'op'#2#8#5'Width'#2'd'#0#0#7'TButton'#6'BClose'#7'Anchors'#11#5'akTop'#7'akR' +'BCloseClick'#8'TabOrder'#2#1#4'Left'#3#141#1#6'Height'#2#25#3'Top'#2'h'#5'W'
+'ight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#6'&Close'#7'OnClick'#7#11 +'idth'#2'K'#0#0#7'TButton'#6'BBuild'#6'Action'#7#6'ABuild'#7'Anchors'#11#5'a'
+'BCloseClick'#8'TabOrder'#2#1#4'Left'#3'J'#1#6'Height'#2#25#3'Top'#2'h'#5'Wi' +'kTop'#7'akRight'#0#8'TabOrder'#2#2#4'Left'#3#141#1#6'Height'#2#25#3'Top'#2#8
+'dth'#2'K'#0#0#7'TButton'#6'BBuild'#6'Action'#7#6'ABuild'#7'Anchors'#11#5'ak' +#5'Width'#2'K'#0#0#7'TButton'#5'BLoad'#6'Action'#7#5'ALoad'#7'Anchors'#11#5
+'Top'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#2#4'Left'#3'J' +'akTop'#7'akRight'#0#8'TabOrder'#2#3#4'Left'#3#141#1#6'Height'#2#25#3'Top'#2
+#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#0#0#7'TButton'#5'BLoad'#6'Action' +'('#5'Width'#2'K'#0#0#7'TButton'#5'BSave'#6'Action'#7#5'ASave'#7'Anchors'#11
+#7#5'ALoad'#7'Anchors'#11#5'akTop'#7'akRight'#0#22'BorderSpacing.OnChange'#13 +#5'akTop'#7'akRight'#0#8'TabOrder'#2#4#4'Left'#3#141#1#6'Height'#2#25#3'Top'
+#8'TabOrder'#2#3#4'Left'#3'J'#1#6'Height'#2#25#3'Top'#2'('#5'Width'#2'K'#0#0 +#2'H'#5'Width'#2'K'#0#0#9'TComboBox'#8'CBFormat'#13'Items.Strings'#1#6#4'htm'
+#7'TButton'#5'BSave'#6'Action'#7#5'ASave'#7'Anchors'#11#5'akTop'#7'akRight'#0 +'l'#6#5'latex'#6#3'man'#6#3'txt'#0#9'ItemIndex'#2#0#9'MaxLength'#2#0#5'Style'
+#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#4#4'Left'#3'J'#1#6'Height'#2#25 +#7#14'csDropDownList'#8'TabOrder'#2#5#4'Text'#6#4'html'#4'Left'#2'p'#6'Heigh'
+#3'Top'#2'H'#5'Width'#2'K'#0#0#9'TComboBox'#8'CBFormat'#22'BorderSpacing.OnC' +'t'#2#25#3'Top'#2''''#5'Width'#2'd'#0#0#12'TPageControl'#9'PCOptions'#10'Act'
+'hange'#13#13'Items.Strings'#1#6#4'html'#6#5'latex'#6#3'man'#6#3'txt'#0#9'It' +'ivePage'#7#13'TSDescription'#5'Align'#7#8'alBottom'#8'TabIndex'#2#0#8'TabOr'
+'emIndex'#2#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5 +'der'#2#6#6'Height'#3#200#0#3'Top'#3#137#0#5'Width'#3#221#1#0#9'TTabSheet'#13
+#4'Text'#6#4'html'#4'Left'#2'p'#6'Height'#2#25#3'Top'#2''''#5'Width'#2'd'#0#0 +'TSDescription'#7'Caption'#6#11'Description'#12'ClientHeight'#3#170#0#11'Cli'
+#12'TPageControl'#9'PCOptions'#10'ActivePage'#7#13'TSDescription'#5'Align'#7 +'entWidth'#3#217#1#4'Left'#2#2#6'Height'#3#170#0#3'Top'#2#28#5'Width'#3#217#1
+#8'alBottom'#22'BorderSpacing.OnChange'#13#8'TabIndex'#2#0#8'TabOrder'#2#6#6 +#0#6'TPanel'#7'PBDescr'#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12
+'Height'#3#200#0#3'Top'#3#137#0#5'Width'#3#154#1#0#9'TTabSheet'#13'TSDescrip' +'ClientHeight'#3#170#0#11'ClientWidth'#2'\'#11'FullRepaint'#8#8'TabOrder'#2#0
+'tion'#7'Caption'#6#11'Description'#12'ClientHeight'#3#170#0#11'ClientWidth' +#4'Left'#3'}'#1#6'Height'#3#170#0#5'Width'#2'\'#0#7'TButton'#15'BAddDescript'
+#3#150#1#4'Left'#2#2#6'Height'#3#170#0#3'Top'#2#28#5'Width'#3#150#1#0#6'TPan' +'ion'#6'Action'#7#9'ADescrAdd'#8'TabOrder'#2#0#4'Left'#2#10#6'Height'#2#25#3
+'el'#7'PBDescr'#5'Align'#7#7'alRight'#22'BorderSpacing.OnChange'#13#10'Bevel' +'Top'#2#6#5'Width'#2'K'#0#0#7'TButton'#18'BDeleteDescription'#6'Action'#7#12
+'Outer'#7#6'bvNone'#12'ClientHeight'#3#170#0#11'ClientWidth'#2'\'#11'FullRep' +'ADescrDelete'#8'TabOrder'#2#1#4'Left'#2#10#6'Height'#2#25#3'Top'#2'&'#5'Wid'
+'aint'#8#8'TabOrder'#2#0#4'Left'#3':'#1#6'Height'#3#170#0#5'Width'#2'\'#0#7 +'th'#2'K'#0#0#7'TButton'#16'BEditDescription'#6'Action'#7#10'ADescrEdit'#8'T'
+'TButton'#15'BAddDescription'#6'Action'#7#9'ADescrAdd'#22'BorderSpacing.OnCh' +'abOrder'#2#2#4'Left'#2#10#6'Height'#2#25#3'Top'#2'F'#5'Width'#2'K'#0#0#7'TB'
+'ange'#13#8'TabOrder'#2#0#4'Left'#2#10#6'Height'#2#25#3'Top'#2#6#5'Width'#2 +'utton'#7'BAddAll'#6'Action'#7#12'ADescrAddAll'#22'BorderSpacing.OnChange'#13
+'K'#0#0#7'TButton'#18'BDeleteDescription'#6'Action'#7#12'ADescrDelete'#22'Bo' +#8'TabOrder'#2#3#4'Left'#2#10#6'Height'#2#25#3'Top'#2'd'#5'Width'#2'K'#0#0#0
+'rderSpacing.OnChange'#13#8'TabOrder'#2#1#4'Left'#2#10#6'Height'#2#25#3'Top' +#8'TListBox'#12'LBDescrFiles'#5'Align'#7#8'alClient'#16'ClickOnSelChange'#8#8
+#2'&'#5'Width'#2'K'#0#0#7'TButton'#16'BEditDescription'#6'Action'#7#10'ADesc' +'TabOrder'#2#1#8'TopIndex'#2#255#6'Height'#3#170#0#5'Width'#3'}'#1#0#0#0#9'T'
+'rEdit'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#2#4'Left'#2#10#6'Height' +'TabSheet'#9'TSSources'#7'Caption'#6#7'Sources'#12'ClientHeight'#3#170#0#11
+#2#25#3'Top'#2'F'#5'Width'#2'K'#0#0#7'TButton'#7'BAddAll'#6'Action'#7#12'ADe' +'ClientWidth'#3#217#1#4'Left'#2#2#6'Height'#3#170#0#3'Top'#2#28#5'Width'#3
+'scrAddAll'#8'TabOrder'#2#3#4'Left'#2#10#6'Height'#2#25#3'Top'#2'd'#5'Width' +#217#1#0#6'TPanel'#8'PSources'#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNo'
+#2'K'#0#0#0#8'TListBox'#12'LBDescrFiles'#5'Align'#7#8'alClient'#22'BorderSpa' +'ne'#12'ClientHeight'#3#170#0#11'ClientWidth'#2'\'#11'FullRepaint'#8#8'TabOr'
+'cing.OnChange'#13#16'ClickOnSelChange'#8#8'TabOrder'#2#1#8'TopIndex'#2#255#6 +'der'#2#0#4'Left'#3'}'#1#6'Height'#3#170#0#5'Width'#2'\'#0#7'TButton'#10'BSo'
+'Height'#3#170#0#5'Width'#3':'#1#0#0#0#9'TTabSheet'#9'TSSources'#7'Caption'#6 +'urceAdd'#6'Action'#7#10'ASourceAdd'#8'TabOrder'#2#0#4'Left'#2#12#6'Height'#2
+#7'Sources'#12'ClientHeight'#3#170#0#11'ClientWidth'#3#150#1#4'Left'#2#2#6'H' +#25#3'Top'#2#6#5'Width'#2'K'#0#0#7'TButton'#13'BSourceDelete'#6'Action'#7#13
+'eight'#3#170#0#3'Top'#2#28#5'Width'#3#150#1#0#6'TPanel'#8'PSources'#5'Align' +'ASourceDelete'#8'TabOrder'#2#1#4'Left'#2#12#6'Height'#2#25#3'Top'#2'&'#5'Wi'
+#7#7'alRight'#22'BorderSpacing.OnChange'#13#10'BevelOuter'#7#6'bvNone'#12'Cl' +'dth'#2'K'#0#0#7'TButton'#11'BSourceEdit'#6'Action'#7#11'ASourceEdit'#8'TabO'
+'ientHeight'#3#170#0#11'ClientWidth'#2'\'#11'FullRepaint'#8#8'TabOrder'#2#0#4 +'rder'#2#2#4'Left'#2#12#6'Height'#2#25#3'Top'#2'F'#5'Width'#2'K'#0#0#0#11'TS'
+'Left'#3':'#1#6'Height'#3#170#0#5'Width'#2'\'#0#7'TButton'#10'BSourceAdd'#6 +'tringGrid'#9'SGSources'#5'Align'#7#8'alClient'#5'Color'#7#7'clWhite'#8'ColC'
+'Action'#7#10'ASourceAdd'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#0#4'Le' +'ount'#2#2#15'DefaultColWidth'#3#150#0#16'DefaultRowHeight'#2#24#10'FixedCol'
+'ft'#2#12#6'Height'#2#25#3'Top'#2#6#5'Width'#2'K'#0#0#7'TButton'#13'BSourceD' +'or'#7#9'clBtnFace'#9'FixedCols'#2#0#13'GridLineWidth'#2#0#7'Options'#11#15
+'elete'#6'Action'#7#13'ASourceDelete'#22'BorderSpacing.OnChange'#13#8'TabOrd' +'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRan'
+'er'#2#1#4'Left'#2#12#6'Height'#2#25#3'Top'#2'&'#5'Width'#2'K'#0#0#7'TButton' +'geSelect'#11'goColSizing'#14'goSmoothScroll'#0#8'RowCount'#2#2#10'ScrollBar'
+#11'BSourceEdit'#6'Action'#7#11'ASourceEdit'#22'BorderSpacing.OnChange'#13#8 +'s'#7#10'ssAutoBoth'#15'VisibleColCount'#2#2#15'VisibleRowCount'#2#1#6'Heigh'
+'TabOrder'#2#2#4'Left'#2#12#6'Height'#2#25#3'Top'#2'F'#5'Width'#2'K'#0#0#0#11 +'t'#3#170#0#5'Width'#3'}'#1#9'ColWidths'#1#3#242#0#2'w'#0#5'Cells'#1#2#2#2#0
+'TStringGrid'#9'SGSources'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange' +#2#0#6#8'Filename'#2#1#2#0#6#13'Other options'#0#0#0#0#9'TTabSheet'#7'TSOthe'
+#13#5'Color'#7#7'clWhite'#8'ColCount'#2#2#15'DefaultColWidth'#3#150#0#16'Def' +'r'#7'Caption'#6#13'Other options'#12'ClientHeight'#3#170#0#11'ClientWidth'#3
+'aultRowHeight'#2#24#10'FixedColor'#7#9'clBtnFace'#9'FixedCols'#2#0#13'GridL' +#217#1#4'Left'#2#2#6'Height'#3#170#0#3'Top'#2#28#5'Width'#3#217#1#0#6'TLabel'
+'ineWidth'#2#0#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVe' +#6'Label2'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#19'Import content '
+'rtLine'#10'goHorzLine'#13'goRangeSelect'#11'goColSizing'#14'goSmoothScroll' +'file'#5'Color'#7#6'clNone'#6'Layout'#7#8'tlCenter'#4'Left'#2#254#6'Height'#2
+#0#8'RowCount'#2#2#10'ScrollBars'#7#10'ssAutoBoth'#15'VisibleColCount'#2#2#15 +#23#3'Top'#2'j'#5'Width'#2'q'#0#0#6'TLabel'#6'Label3'#9'Alignment'#7#14'taRi'
,'VisibleRowCount'#2#1#6'Height'#3#170#0#5'Width'#3':'#1#5'Cells'#1#2#2#2#0#2 ,'ghtJustify'#7'Caption'#6#9'Target OS'#5'Color'#7#6'clNone'#6'Layout'#7#8'tl'
+#0#6#8'Filename'#2#1#2#0#6#13'Other options'#0#0#0#0#9'TTabSheet'#7'TSOther' +'Center'#4'Left'#2'.'#6'Height'#2#23#3'Top'#3#137#0#5'Width'#2'A'#0#0#6'TLab'
+#7'Caption'#6#13'Other options'#12'ClientHeight'#3#170#0#11'ClientWidth'#3 +'el'#10'LTargetCPU'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#3'CPU'#5
+#150#1#4'Left'#2#2#6'Height'#3#170#0#3'Top'#2#28#5'Width'#3#150#1#0#6'TLabel' +'Color'#7#6'clNone'#6'Layout'#7#8'tlCenter'#4'Left'#3#198#0#6'Height'#2#23#3
+#6'Label2'#9'Alignment'#7#14'taRightJustify'#22'BorderSpacing.OnChange'#13#7 +'Top'#3#137#0#5'Width'#2'('#0#0#9'TCheckBox'#13'CBShowPrivate'#22'BorderSpac'
+'Caption'#6#19'Import content file'#5'Color'#7#6'clNone'#6'Layout'#7#8'tlCen' +'ing.OnChange'#13#7'Caption'#6#21'Show p&rivate methods'#8'TabOrder'#2#0#4'L'
+'ter'#4'Left'#2#254#6'Height'#2#23#3'Top'#2'j'#5'Width'#2'q'#0#0#6'TLabel'#6 +'eft'#2#14#6'Height'#2#23#3'Top'#2'#'#5'Width'#3#141#0#0#0#9'TCheckBox'#15'C'
+'Label3'#9'Alignment'#7#14'taRightJustify'#22'BorderSpacing.OnChange'#13#7'C' +'BHideProtected'#22'BorderSpacing.OnChange'#13#7'Caption'#6#23'&Hide protect'
+'aption'#6#9'Target OS'#5'Color'#7#6'clNone'#6'Layout'#7#8'tlCenter'#4'Left' +'ed methods'#8'TabOrder'#2#1#4'Left'#2#14#6'Height'#2#23#3'Top'#2#11#5'Width'
+#2'.'#6'Height'#2#23#3'Top'#3#137#0#5'Width'#2'A'#0#0#6'TLabel'#10'LTargetCP' +#3#172#0#0#0#9'TCheckBox'#12'CBWarnNoNode'#7'Caption'#6'#Warn if no document'
+'U'#9'Alignment'#7#14'taRightJustify'#22'BorderSpacing.OnChange'#13#7'Captio' +'ation node found'#8'TabOrder'#2#2#4'Left'#2#14#6'Height'#2#23#3'Top'#2';'#5
+'n'#6#3'CPU'#5'Color'#7#6'clNone'#6'Layout'#7#8'tlCenter'#4'Left'#3#198#0#6 +'Width'#3#232#0#0#0#13'TFileNameEdit'#12'FEImportFIle'#11'ButtonWidth'#2#23#9
+'Height'#2#23#3'Top'#3#137#0#5'Width'#2'('#0#0#9'TCheckBox'#13'CBShowPrivate' +'NumGlyphs'#2#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3
+#7'Caption'#6#21'Show p&rivate methods'#8'TabOrder'#2#0#4'Left'#2#14#6'Heigh' +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#4'Left'#2'v'#6
+'t'#2#23#3'Top'#2'#'#5'Width'#3#141#0#0#0#9'TCheckBox'#15'CBHideProtected'#7 +'Height'#2#23#3'Top'#2'j'#5'Width'#3'>'#1#0#0#5'TEdit'#9'ETargetOS'#8'TabOrd'
+'Caption'#6#23'&Hide protected methods'#8'TabOrder'#2#1#4'Left'#2#14#6'Heigh' +'er'#2#4#4'Left'#2'v'#6'Height'#2#23#3'Top'#3#137#0#5'Width'#2'P'#0#0#5'TEdi'
+'t'#2#23#3'Top'#2#11#5'Width'#3#172#0#0#0#9'TCheckBox'#12'CBWarnNoNode'#22'B' +'t'#10'ETargetCPU'#8'TabOrder'#2#5#4'Left'#3#246#0#6'Height'#2#23#3'Top'#3
+'orderSpacing.OnChange'#13#7'Caption'#6'#Warn if no documentation node found' +#137#0#5'Width'#2'P'#0#0#0#9'TTabSheet'#7'TSBuild'#7'Caption'#6#12'Build out'
+#8'TabOrder'#2#2#4'Left'#2#14#6'Height'#2#23#3'Top'#2';'#5'Width'#3#232#0#0#0 +'put'#12'ClientHeight'#3#170#0#11'ClientWidth'#3#217#1#4'Left'#2#2#6'Height'
+#13'TFileNameEdit'#12'FEImportFIle'#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#7 +#3#170#0#3'Top'#2#28#5'Width'#3#217#1#0#5'TMemo'#4'MLog'#5'Align'#7#8'alClie'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8 +'nt'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#0#6'Height'#3#170#0#5'Width'
+'TabOrder'#2#3#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacin' +#3#217#1#0#0#0#0#11'TEditButton'#7'EOutput'#7'Anchors'#11#5'akTop'#6'akLeft'
+'g.OnChange'#13#8'TabOrder'#2#3#4'Left'#2'v'#6'Height'#2#23#3'Top'#2'j'#5'Wi' +#7'akRight'#0#11'ButtonWidth'#2#23#13'OnButtonClick'#7#18'EOutputButtonClick'
+'dth'#3#251#0#0#0#5'TEdit'#9'ETargetOS'#22'BorderSpacing.OnChange'#13#8'TabO' +#8'TabOrder'#2#7#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2
+'rder'#2#4#4'Left'#2'v'#6'Height'#2#23#3'Top'#3#137#0#5'Width'#2'P'#0#0#5'TE' +#7#4'Left'#2'p'#6'Height'#2#23#3'Top'#2'H'#5'Width'#3#239#0#0#0#9'TCheckBox'
+'dit'#10'ETargetCPU'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#5#4'Left'#3 +#9'CBContent'#7'Caption'#6#20'Create cont&ent file'#8'TabOrder'#2#8#4'Left'#2
+#246#0#6'Height'#2#23#3'Top'#3#137#0#5'Width'#2'P'#0#0#0#9'TTabSheet'#7'TSBu' +'p'#6'Height'#2#23#3'Top'#2'e'#5'Width'#3#170#0#0#0#11'TOpenDialog'#10'ODSet'
+'ild'#7'Caption'#6#12'Build output'#12'ClientHeight'#3#170#0#11'ClientWidth' +'tings'#7'Options'#11#15'ofFileMustExist'#14'ofEnableSizing'#12'ofViewDetail'
+#3#150#1#4'Left'#2#2#6'Height'#3#170#0#3'Top'#2#28#5'Width'#3#150#1#0#5'TMem' +#0#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4'.ldp'#6'Filter'#6'/D'
+'o'#4'MLog'#5'Align'#7#8'alClient'#8'TabOrder'#2#0#6'Height'#3#170#0#5'Width' +'ocumentation project files|*.ldp|All files|*.*'#11'FilterIndex'#2#0#5'Title'
+#3#150#1#0#0#0#0#11'TEditButton'#7'EOutput'#7'Anchors'#11#5'akTop'#6'akLeft' +#6#18'Open existing file'#4'left'#2#8#3'top'#3#30#1#0#0#11'TSaveDialog'#10'S'
+#7'akRight'#0#22'BorderSpacing.OnChange'#13#11'ButtonWidth'#2#23#13'OnButton' +'DSettings'#7'Options'#11#15'ofPathMustExist'#14'ofEnableSizing'#12'ofViewDe'
+'Click'#7#18'EOutputButtonClick'#8'TabOrder'#2#7#7'Anchors'#11#5'akTop'#6'ak' +'tail'#0#5'Title'#6#12'Save file as'#10'DefaultExt'#6#4'.ldp'#6'Filter'#6'/D'
+'Left'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#7#4'Left'#2 +'ocumentation project files|*.ldp|All files|*.*'#11'FilterIndex'#2#0#5'Title'
+'p'#6'Height'#2#23#3'Top'#2'H'#5'Width'#3#172#0#0#0#9'TCheckBox'#9'CBContent' +#6#12'Save file as'#4'left'#2#8#3'top'#3#248#0#0#0#11'TOpenDialog'#13'ODDesc'
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#20'Create cont&ent file'#8'TabOr' +'ription'#7'Options'#11#15'ofFileMustExist'#14'ofEnableSizing'#12'ofViewDeta'
+'der'#2#8#4'Left'#2'p'#6'Height'#2#23#3'Top'#2'e'#5'Width'#3#170#0#0#0#11'TO' +'il'#0#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4'.xml'#6'Filter'#6
+'penDialog'#10'ODSettings'#7'Options'#11#15'ofFileMustExist'#14'ofEnableSizi' +#29'XML files|*.xml|All files|*.*'#11'FilterIndex'#2#0#5'Title'#6#18'Open ex'
+'ng'#12'ofViewDetail'#0#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4 +'isting file'#4'left'#3'('#1#3'top'#3'h'#1#0#0#11'TActionList'#11'ActionList'
+'.ldp'#6'Filter'#6'/Documentation project files|*.ldp|All files|*.*'#11'Filt' +'1'#4'left'#2'i'#3'top'#2'3'#0#7'TAction'#9'ADescrAdd'#7'Caption'#6#4'&Add'#9
+'erIndex'#2#0#5'Title'#6#18'Open existing file'#4'left'#2#8#3'top'#3#30#1#0#0 +'OnExecute'#7#16'ADescrAddExecute'#0#0#7'TAction'#10'ADescrEdit'#7'Caption'#6
+#11'TSaveDialog'#10'SDSettings'#7'Options'#11#15'ofPathMustExist'#14'ofEnabl' +#5'&Edit'#9'OnExecute'#7#17'ADescrEditExecute'#8'OnUpdate'#7#16'ADescrEditUp'
+'eSizing'#12'ofViewDetail'#0#5'Title'#6#12'Save file as'#10'DefaultExt'#6#4 +'date'#0#0#7'TAction'#12'ADescrDelete'#7'Caption'#6#7'&Delete'#9'OnExecute'#7
+'.ldp'#6'Filter'#6'/Documentation project files|*.ldp|All files|*.*'#11'Filt' +#19'ADescrDeleteExecute'#8'OnUpdate'#7#18'ADescrDeleteUpdate'#0#0#7'TAction'
+'erIndex'#2#0#5'Title'#6#12'Save file as'#4'left'#2#8#3'top'#3#248#0#0#0#11 +#6'ABuild'#7'Caption'#6#6'&Build'#9'OnExecute'#7#13'ABuildExecute'#8'OnUpdat'
+'TOpenDialog'#13'ODDescription'#7'Options'#11#15'ofFileMustExist'#14'ofEnabl' +'e'#7#12'ABuildUpdate'#0#0#7'TAction'#10'ASourceAdd'#7'Caption'#6#4'&Add'#9
+'eSizing'#12'ofViewDetail'#0#5'Title'#6#18'Open existing file'#10'DefaultExt' +'OnExecute'#7#17'ASourceAddExecute'#0#0#7'TAction'#11'ASourceEdit'#7'Caption'
+#6#4'.xml'#6'Filter'#6#29'XML files|*.xml|All files|*.*'#11'FilterIndex'#2#0 +#6#5'&Edit'#9'OnExecute'#7#18'ASourceEditExecute'#8'OnUpdate'#7#17'ASourceEd'
+#5'Title'#6#18'Open existing file'#4'left'#3'('#1#3'top'#3'h'#1#0#0#11'TActi' +'itUpdate'#0#0#7'TAction'#13'ASourceDelete'#7'Caption'#6#7'&Delete'#9'OnExec'
+'onList'#11'ActionList1'#4'left'#2'i'#3'top'#2'3'#0#7'TAction'#9'ADescrAdd'#7 +'ute'#7#20'ASourceDeleteExecute'#8'OnUpdate'#7#19'ASourceDeleteUpdate'#0#0#7
+'Caption'#6#4'&Add'#9'OnExecute'#7#16'ADescrAddExecute'#0#0#7'TAction'#10'AD' +'TAction'#12'ADescrAddAll'#7'Caption'#6#7'Add All'#9'OnExecute'#7#19'ADescrA'
+'escrEdit'#7'Caption'#6#5'&Edit'#9'OnExecute'#7#17'ADescrEditExecute'#8'OnUp' +'ddAllExecute'#8'OnUpdate'#7#18'ADescrAddAllUpdate'#0#0#7'TAction'#5'ALoad'#7
+'date'#7#16'ADescrEditUpdate'#0#0#7'TAction'#12'ADescrDelete'#7'Caption'#6#7 +'Caption'#6#5'&Load'#9'OnExecute'#7#12'ALoadExecute'#0#0#7'TAction'#5'ASave'
+'&Delete'#9'OnExecute'#7#19'ADescrDeleteExecute'#8'OnUpdate'#7#18'ADescrDele' +#7'Caption'#6#5'&Save'#9'OnExecute'#7#12'ASaveExecute'#0#0#0#0
+'teUpdate'#0#0#7'TAction'#6'ABuild'#7'Caption'#6#6'&Build'#9'OnExecute'#7#13
+'ABuildExecute'#8'OnUpdate'#7#12'ABuildUpdate'#0#0#7'TAction'#10'ASourceAdd'
+#7'Caption'#6#4'&Add'#9'OnExecute'#7#17'ASourceAddExecute'#0#0#7'TAction'#11
+'ASourceEdit'#7'Caption'#6#5'&Edit'#9'OnExecute'#7#18'ASourceEditExecute'#8
+'OnUpdate'#7#17'ASourceEditUpdate'#0#0#7'TAction'#13'ASourceDelete'#7'Captio'
+'n'#6#7'&Delete'#9'OnExecute'#7#20'ASourceDeleteExecute'#8'OnUpdate'#7#19'AS'
+'ourceDeleteUpdate'#0#0#7'TAction'#12'ADescrAddAll'#7'Caption'#6#7'Add All'#9
+'OnExecute'#7#19'ADescrAddAllExecute'#8'OnUpdate'#7#18'ADescrAddAllUpdate'#0
+#0#7'TAction'#5'ALoad'#7'Caption'#6#5'&Load'#9'OnExecute'#7#12'ALoadExecute'
+#0#0#7'TAction'#5'ASave'#7'Caption'#6#5'&Save'#9'OnExecute'#7#12'ASaveExecut'
,'e'#0#0#0#0
]); ]);

View File

@ -274,7 +274,10 @@ begin
if Sender=nil then ; if Sender=nil then ;
With ODSettings do With ODSettings do
If Execute then If Execute then
begin
LoadOptions(FileName); LoadOptions(FileName);
FFileName := FileName;
end;
end; end;
procedure TBuildForm.ASaveExecute(Sender: TObject); procedure TBuildForm.ASaveExecute(Sender: TObject);

View File

@ -1,20 +1,18 @@
object MainForm: TMainForm object MainForm: TMainForm
Caption = 'MainForm' Caption = 'MainForm'
ClientHeight = 521 ClientHeight = 518
ClientWidth = 602 ClientWidth = 602
Menu = MMain Menu = MMain
OnCloseQuery = MainFormCloseQuery OnCloseQuery = MainFormCloseQuery
OnCreate = MainFormCreate OnCreate = MainFormCreate
OnDestroy = MainFormDestroy OnDestroy = MainFormDestroy
PixelsPerInch = 90 PixelsPerInch = 75
HorzScrollBar.Page = 601 HorzScrollBar.Page = 601
VertScrollBar.Page = 520 VertScrollBar.Page = 517
Left = 529 Left = 189
Height = 545 Height = 544
Top = 127
Width = 602 Width = 602
object TBMain: TToolBar object TBMain: TToolBar
BorderSpacing.OnChange = nil
ButtonHeight = 28 ButtonHeight = 28
ButtonWidth = 28 ButtonWidth = 28
Caption = 'TBMain' Caption = 'TBMain'
@ -176,23 +174,22 @@ object MainForm: TMainForm
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Panels = <> Panels = <>
Height = 20 Height = 20
Top = 501 Top = 498
Width = 602 Width = 602
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Height = 471 Height = 468
ParentColor = True ParentColor = True
Cursor = crHSplit Cursor = crHSplit
Height = 471 Height = 468
Top = 30 Top = 30
Width = 5 Width = 5
end end
object PCFiles: TPageControl object PCFiles: TPageControl
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
TabOrder = 1 TabOrder = 1
Left = 5 Left = 5
Height = 471 Height = 468
Top = 30 Top = 30
Width = 597 Width = 597
end end
@ -491,6 +488,7 @@ object MainForm: TMainForm
DefaultExt = '.xml' DefaultExt = '.xml'
Filter = 'XML files|*.xml|All files|*.*' Filter = 'XML files|*.xml|All files|*.*'
FilterIndex = 0 FilterIndex = 0
Title = 'Save file as'
left = 80 left = 80
top = 64 top = 64
end end
@ -500,6 +498,7 @@ object MainForm: TMainForm
DefaultExt = '.xml' DefaultExt = '.xml'
Filter = 'XML files|*.xml|All files|*.*' Filter = 'XML files|*.xml|All files|*.*'
FilterIndex = 0 FilterIndex = 0
Title = 'Open existing file'
left = 80 left = 80
top = 101 top = 101
end end

File diff suppressed because it is too large Load Diff

View File

@ -134,6 +134,7 @@ type
private private
{ private declarations } { private declarations }
FRecent : TStringList; FRecent : TStringList;
FRecentBuildSettingsFile: String;
// Editor functions. // Editor functions.
procedure BuildReopenList; procedure BuildReopenList;
Procedure AddTorecent(FN : String); Procedure AddTorecent(FN : String);
@ -155,6 +156,7 @@ type
Procedure InsertTable; Procedure InsertTable;
Procedure ShowAbout; Procedure ShowAbout;
Procedure GetCurrentFiles(List : TStrings); Procedure GetCurrentFiles(List : TStrings);
Procedure ApplyOptions;
public public
{ public declarations } { public declarations }
end; end;
@ -217,6 +219,7 @@ begin
LoadCommandLine; LoadCommandLine;
LoadOptions; LoadOptions;
LoadRecent; LoadRecent;
ApplyOptions;
end; end;
procedure TMainForm.AOpenExecute(Sender: TObject); procedure TMainForm.AOpenExecute(Sender: TObject);
@ -238,8 +241,10 @@ begin
if Sender=nil then ; if Sender=nil then ;
With TBuildForm.Create(Self) do With TBuildForm.Create(Self) do
Try Try
FileName := FRecentBuildSettingsFile;
OnGetList:=@Self.GetCurrentFiles; OnGetList:=@Self.GetCurrentFiles;
ShowModal; ShowModal;
FRecentBuildSettingsFile := FileName;
Finally Finally
Free; Free;
end; end;
@ -256,7 +261,8 @@ begin
if Sender=nil then ; if Sender=nil then ;
With TOptionsForm.Create(Self) do With TOptionsForm.Create(Self) do
Try Try
ShowModal; if ShowModal=mrOk then
ApplyOptions;
finally finally
Free; Free;
end; end;
@ -814,6 +820,11 @@ begin
List.Add(TEditorPage(PCFiles.Pages[i]).FileName); List.Add(TEditorPage(PCFiles.Pages[i]).FileName);
end; end;
procedure TMainForm.ApplyOptions;
begin
ShowHint := ShowHelpHints;
end;
initialization initialization
{$I frmmain.lrs} {$I frmmain.lrs}

View File

@ -1,151 +1,131 @@
object OptionsForm: TOptionsForm object OptionsForm: TOptionsForm
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Options' Caption = 'Options'
ClientHeight = 260 ClientHeight = 337
ClientWidth = 387 ClientWidth = 398
OnShow = OptionsFormShow OnShow = OptionsFormShow
PixelsPerInch = 90 PixelsPerInch = 75
HorzScrollBar.Page = 386 HorzScrollBar.Page = 397
VertScrollBar.Page = 259 VertScrollBar.Page = 336
Left = 432 Left = 253
Height = 260 Height = 337
Top = 260 Top = 60
Width = 387 Width = 398
object PageControl1: TPageControl
ActivePage = tabGeneral
Align = alClient
BorderSpacing.OnChange = nil
TabIndex = 0
TabOrder = 0
Height = 287
Width = 398
object tabGeneral: TTabSheet
Caption = 'General'
ClientHeight = 257
ClientWidth = 394
Left = 2
Height = 257
Top = 28
Width = 394
object LEBackupExtension: TLabel object LEBackupExtension: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'Backup extension' Caption = 'Backup extension'
FocusControl = EBackupExtension FocusControl = EBackupExtension
Layout = tlCenter Layout = tlCenter
ParentColor = True ParentColor = True
Left = 6 Left = 6
Height = 19 Height = 19
Top = 136 Top = 130
Width = 105 Width = 105
end end
object LEMaxMRU: TLabel object LEMaxMRU: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'Max. recent used' Caption = 'Max. recent used'
Layout = tlCenter Layout = tlCenter
ParentColor = True ParentColor = True
Left = 6 Left = 6
Height = 23 Height = 23
Top = 159 Top = 153
Width = 105 Width = 105
end end
object LEDefaultExtension: TLabel object LEDefaultExtension: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'Default extension' Caption = 'Default extension'
Layout = tlCenter Layout = tlCenter
ParentColor = True ParentColor = True
Left = 6 Left = 6
Height = 17 Height = 17
Top = 110 Top = 104
Width = 104 Width = 104
end end
object LFEMakeskel: TLabel object LFEMakeskel: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'makeskel program' Caption = 'makeskel program'
Color = clNone Color = clNone
FocusControl = FEMakeSkel FocusControl = FEMakeSkel
Layout = tlCenter Layout = tlCenter
Left = 8 Left = 8
Height = 23 Height = 23
Top = 192 Top = 186
Width = 103 Width = 103
end end
object LFEfpdoc: TLabel object LFEfpdoc: TLabel
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.OnChange = nil
Caption = 'fpdoc program' Caption = 'fpdoc program'
Color = clNone Color = clNone
Layout = tlCenter Layout = tlCenter
Left = 9 Left = 9
Height = 23 Height = 23
Top = 226 Top = 220
Width = 102 Width = 102
end end
object CBConfirmDelete: TCheckBox object CBConfirmDelete: TCheckBox
AllowGrayed = True AllowGrayed = True
BorderSpacing.OnChange = nil
Caption = 'C&onfirm deletes' Caption = 'C&onfirm deletes'
TabOrder = 0 TabOrder = 0
Left = 14 Left = 14
Height = 23 Height = 23
Top = 12 Top = 6
Width = 136 Width = 136
end end
object CBCreateBackup: TCheckBox object CBCreateBackup: TCheckBox
AllowGrayed = True AllowGrayed = True
BorderSpacing.OnChange = nil
Caption = 'Create &backups' Caption = 'Create &backups'
TabOrder = 1 TabOrder = 1
Left = 14 Left = 14
Height = 23 Height = 23
Top = 40 Top = 34
Width = 134 Width = 134
end end
object CBSkipEmptyNodes: TCheckBox object CBSkipEmptyNodes: TCheckBox
AllowGrayed = True AllowGrayed = True
BorderSpacing.OnChange = nil
Caption = '&Skip empty nodes when saving' Caption = '&Skip empty nodes when saving'
TabOrder = 2 TabOrder = 2
Left = 14 Left = 14
Height = 23 Height = 23
Top = 72 Top = 66
Width = 227 Width = 227
end end
object EBackupExtension: TEdit object EBackupExtension: TEdit
BorderSpacing.OnChange = nil
TabOrder = 3 TabOrder = 3
Left = 120 Left = 120
Height = 23 Height = 23
Top = 136 Top = 130
Width = 80 Width = 80
end end
object BOK: TButton
BorderSpacing.OnChange = nil
Caption = '&OK'
Default = True
ModalResult = 1
OnClick = BOKClick
TabOrder = 5
Left = 296
Height = 25
Top = 10
Width = 88
end
object BCancel: TButton
BorderSpacing.OnChange = nil
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 6
Cursor = crAppStart
Left = 296
Height = 25
Top = 40
Width = 88
end
object SEMaxRecentUsed: TSpinEdit object SEMaxRecentUsed: TSpinEdit
BorderSpacing.OnChange = nil
MaxValue = 100 MaxValue = 100
TabStop = True
TabOrder = 4 TabOrder = 4
Left = 120 Left = 120
Height = 20 Height = 20
Top = 160 Top = 154
Width = 81 Width = 81
end end
object EDefaultExtension: TEdit object EDefaultExtension: TEdit
BorderSpacing.OnChange = nil
TabOrder = 7 TabOrder = 7
Left = 121 Left = 120
Height = 23 Height = 23
Top = 110 Top = 104
Width = 80 Width = 80
end end
object FEMakeSkel: TFileNameEdit object FEMakeSkel: TFileNameEdit
@ -153,29 +133,77 @@ object OptionsForm: TOptionsForm
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil TabOrder = 5
TabOrder = 8
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil TabOrder = 5
TabOrder = 8
Left = 120 Left = 120
Height = 23 Height = 23
Top = 192 Top = 186
Width = 232 Width = 248
end end
object FEfpdoc: TFileNameEdit object FEfpdoc: TFileNameEdit
DialogTitle = 'Select documentation generator' DialogTitle = 'Select documentation generator'
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil TabOrder = 6
TabOrder = 9
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil TabOrder = 6
TabOrder = 9 Left = 120
Left = 119
Height = 23 Height = 23
Top = 226 Top = 212
Width = 233 Width = 248
end
end
object tabDesktop: TTabSheet
Caption = 'Desktop'
ClientHeight = 257
ClientWidth = 394
Left = 2
Height = 257
Top = 28
Width = 394
object CBShowHints: TCheckBox
BorderSpacing.OnChange = nil
Caption = 'Show Hints'
TabOrder = 0
Left = 14
Height = 23
Top = 12
Width = 144
end
end
end
object Panel1: TPanel
Align = alBottom
ClientHeight = 50
ClientWidth = 398
FullRepaint = False
TabOrder = 1
Height = 50
Top = 287
Width = 398
object BOK: TButton
Caption = '&OK'
Default = True
ModalResult = 1
OnClick = BOKClick
TabOrder = 0
Left = 198
Height = 25
Top = 12
Width = 88
end
object BCancel: TButton
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 1
Cursor = crAppStart
Left = 294
Height = 25
Top = 12
Width = 88
end
end end
end end

View File

@ -2,53 +2,57 @@
LazarusResources.Add('TOptionsForm','FORMDATA',[ LazarusResources.Add('TOptionsForm','FORMDATA',[
'TPF0'#12'TOptionsForm'#11'OptionsForm'#11'BorderStyle'#7#8'bsDialog'#7'Capti' 'TPF0'#12'TOptionsForm'#11'OptionsForm'#11'BorderStyle'#7#8'bsDialog'#7'Capti'
+'on'#6#7'Options'#12'ClientHeight'#3#4#1#11'ClientWidth'#3#131#1#6'OnShow'#7 +'on'#6#7'Options'#12'ClientHeight'#3'Q'#1#11'ClientWidth'#3#142#1#6'OnShow'#7
+#15'OptionsFormShow'#13'PixelsPerInch'#2'Z'#18'HorzScrollBar.Page'#3#130#1#18 +#15'OptionsFormShow'#13'PixelsPerInch'#2'K'#18'HorzScrollBar.Page'#3#141#1#18
+'VertScrollBar.Page'#3#3#1#4'Left'#3#176#1#6'Height'#3#4#1#3'Top'#3#4#1#5'Wi' +'VertScrollBar.Page'#3'P'#1#4'Left'#3#253#0#6'Height'#3'Q'#1#3'Top'#2'<'#5'W'
+'dth'#3#131#1#0#6'TLabel'#17'LEBackupExtension'#9'Alignment'#7#14'taRightJus' +'idth'#3#142#1#0#12'TPageControl'#12'PageControl1'#10'ActivePage'#7#10'tabGe'
+'tify'#22'BorderSpacing.OnChange'#13#7'Caption'#6#16'Backup extension'#12'Fo' +'neral'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange'#13#8'TabIndex'#2#0
+'cusControl'#7#16'EBackupExtension'#6'Layout'#7#8'tlCenter'#11'ParentColor'#9 +#8'TabOrder'#2#0#6'Height'#3#31#1#5'Width'#3#142#1#0#9'TTabSheet'#10'tabGene'
+#4'Left'#2#6#6'Height'#2#19#3'Top'#3#136#0#5'Width'#2'i'#0#0#6'TLabel'#8'LEM' +'ral'#7'Caption'#6#7'General'#12'ClientHeight'#3#1#1#11'ClientWidth'#3#138#1
+'axMRU'#9'Alignment'#7#14'taRightJustify'#22'BorderSpacing.OnChange'#13#7'Ca' +#4'Left'#2#2#6'Height'#3#1#1#3'Top'#2#28#5'Width'#3#138#1#0#6'TLabel'#17'LEB'
+'ption'#6#16'Max. recent used'#6'Layout'#7#8'tlCenter'#11'ParentColor'#9#4'L' +'ackupExtension'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#16'Backup ex'
+'eft'#2#6#6'Height'#2#23#3'Top'#3#159#0#5'Width'#2'i'#0#0#6'TLabel'#18'LEDef' +'tension'#12'FocusControl'#7#16'EBackupExtension'#6'Layout'#7#8'tlCenter'#11
+'aultExtension'#9'Alignment'#7#14'taRightJustify'#22'BorderSpacing.OnChange' +'ParentColor'#9#4'Left'#2#6#6'Height'#2#19#3'Top'#3#130#0#5'Width'#2'i'#0#0#6
+#13#7'Caption'#6#17'Default extension'#6'Layout'#7#8'tlCenter'#11'ParentColo' +'TLabel'#8'LEMaxMRU'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#16'Max. '
+'r'#9#4'Left'#2#6#6'Height'#2#17#3'Top'#2'n'#5'Width'#2'h'#0#0#6'TLabel'#11 +'recent used'#6'Layout'#7#8'tlCenter'#11'ParentColor'#9#4'Left'#2#6#6'Height'
+'LFEMakeskel'#9'Alignment'#7#14'taRightJustify'#22'BorderSpacing.OnChange'#13 +#2#23#3'Top'#3#153#0#5'Width'#2'i'#0#0#6'TLabel'#18'LEDefaultExtension'#9'Al'
+#7'Caption'#6#16'makeskel program'#5'Color'#7#6'clNone'#12'FocusControl'#7#10 +'ignment'#7#14'taRightJustify'#7'Caption'#6#17'Default extension'#6'Layout'#7
+'FEMakeSkel'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#192 +#8'tlCenter'#11'ParentColor'#9#4'Left'#2#6#6'Height'#2#17#3'Top'#2'h'#5'Widt'
+#0#5'Width'#2'g'#0#0#6'TLabel'#8'LFEfpdoc'#9'Alignment'#7#14'taRightJustify' +'h'#2'h'#0#0#6'TLabel'#11'LFEMakeskel'#9'Alignment'#7#14'taRightJustify'#7'C'
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#13'fpdoc program'#5'Color'#7#6'c' +'aption'#6#16'makeskel program'#5'Color'#7#6'clNone'#12'FocusControl'#7#10'F'
+'lNone'#6'Layout'#7#8'tlCenter'#4'Left'#2#9#6'Height'#2#23#3'Top'#3#226#0#5 +'EMakeSkel'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#186#0
+'Width'#2'f'#0#0#9'TCheckBox'#15'CBConfirmDelete'#11'AllowGrayed'#9#22'Borde' +#5'Width'#2'g'#0#0#6'TLabel'#8'LFEfpdoc'#9'Alignment'#7#14'taRightJustify'#7
+'rSpacing.OnChange'#13#7'Caption'#6#16'C&onfirm deletes'#8'TabOrder'#2#0#4'L' +'Caption'#6#13'fpdoc program'#5'Color'#7#6'clNone'#6'Layout'#7#8'tlCenter'#4
+'eft'#2#14#6'Height'#2#23#3'Top'#2#12#5'Width'#3#136#0#0#0#9'TCheckBox'#14'C' +'Left'#2#9#6'Height'#2#23#3'Top'#3#220#0#5'Width'#2'f'#0#0#9'TCheckBox'#15'C'
+'BCreateBackup'#11'AllowGrayed'#9#22'BorderSpacing.OnChange'#13#7'Caption'#6 +'BConfirmDelete'#11'AllowGrayed'#9#7'Caption'#6#16'C&onfirm deletes'#8'TabOr'
+#15'Create &backups'#8'TabOrder'#2#1#4'Left'#2#14#6'Height'#2#23#3'Top'#2'(' +'der'#2#0#4'Left'#2#14#6'Height'#2#23#3'Top'#2#6#5'Width'#3#136#0#0#0#9'TChe'
+#5'Width'#3#134#0#0#0#9'TCheckBox'#16'CBSkipEmptyNodes'#11'AllowGrayed'#9#22 +'ckBox'#14'CBCreateBackup'#11'AllowGrayed'#9#7'Caption'#6#15'Create &backups'
+'BorderSpacing.OnChange'#13#7'Caption'#6#29'&Skip empty nodes when saving'#8 +#8'TabOrder'#2#1#4'Left'#2#14#6'Height'#2#23#3'Top'#2'"'#5'Width'#3#134#0#0#0
+'TabOrder'#2#2#4'Left'#2#14#6'Height'#2#23#3'Top'#2'H'#5'Width'#3#227#0#0#0#5 +#9'TCheckBox'#16'CBSkipEmptyNodes'#11'AllowGrayed'#9#7'Caption'#6#29'&Skip e'
+'TEdit'#16'EBackupExtension'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#3#4 +'mpty nodes when saving'#8'TabOrder'#2#2#4'Left'#2#14#6'Height'#2#23#3'Top'#2
+'Left'#2'x'#6'Height'#2#23#3'Top'#3#136#0#5'Width'#2'P'#0#0#7'TButton'#3'BOK' +'B'#5'Width'#3#227#0#0#0#5'TEdit'#16'EBackupExtension'#8'TabOrder'#2#3#4'Lef'
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#3'&OK'#7'Default'#9#11'ModalResu' +'t'#2'x'#6'Height'#2#23#3'Top'#3#130#0#5'Width'#2'P'#0#0#9'TSpinEdit'#15'SEM'
+'lt'#2#1#7'OnClick'#7#8'BOKClick'#8'TabOrder'#2#5#4'Left'#3'('#1#6'Height'#2 +'axRecentUsed'#8'MaxValue'#5#0#0#0#0#0#0#0#200#5'@'#8'TabOrder'#2#4#4'Left'#2
+#25#3'Top'#2#10#5'Width'#2'X'#0#0#7'TButton'#7'BCancel'#22'BorderSpacing.OnC' +'x'#6'Height'#2#20#3'Top'#3#154#0#5'Width'#2'Q'#0#0#5'TEdit'#17'EDefaultExte'
+'hange'#13#6'Cancel'#9#7'Caption'#6#7'&Cancel'#11'ModalResult'#2#2#8'TabOrde' +'nsion'#8'TabOrder'#2#7#4'Left'#2'x'#6'Height'#2#23#3'Top'#2'h'#5'Width'#2'P'
+'r'#2#6#6'Cursor'#7#10'crAppStart'#4'Left'#3'('#1#6'Height'#2#25#3'Top'#2'(' +#0#0#13'TFileNameEdit'#10'FEMakeSkel'#11'DialogTitle'#6#25'Select skeleton g'
+#5'Width'#2'X'#0#0#9'TSpinEdit'#15'SEMaxRecentUsed'#22'BorderSpacing.OnChang' +'enerator'#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#7'Anchors'#11#5'akTop'#6'ak'
+'e'#13#8'MaxValue'#5#0#0#0#0#0#0#0#200#5'@'#7'TabStop'#9#8'TabOrder'#2#4#4'L' +'Left'#7'akRight'#0#8'TabOrder'#2#5#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'eft'#2'x'#6'Height'#2#20#3'Top'#3#160#0#5'Width'#2'Q'#0#0#5'TEdit'#17'EDefa' +'ht'#0#8'TabOrder'#2#5#4'Left'#2'x'#6'Height'#2#23#3'Top'#3#186#0#5'Width'#3
+'ultExtension'#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#7#4'Left'#2'y'#6 +#248#0#0#0#13'TFileNameEdit'#7'FEfpdoc'#11'DialogTitle'#6#30'Select document'
+'Height'#2#23#3'Top'#2'n'#5'Width'#2'P'#0#0#13'TFileNameEdit'#10'FEMakeSkel' +'ation generator'#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#7'Anchors'#11#5'akTo'
+#11'DialogTitle'#6#25'Select skeleton generator'#11'ButtonWidth'#2#23#9'NumG' +'p'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#6#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'lyphs'#2#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.O' +'akRight'#0#8'TabOrder'#2#6#4'Left'#2'x'#6'Height'#2#23#3'Top'#3#212#0#5'Wid'
+'nChange'#13#8'TabOrder'#2#8#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22 +'th'#3#248#0#0#0#0#9'TTabSheet'#10'tabDesktop'#7'Caption'#6#7'Desktop'#12'Cl'
+'BorderSpacing.OnChange'#13#8'TabOrder'#2#8#4'Left'#2'x'#6'Height'#2#23#3'To' +'ientHeight'#3#1#1#11'ClientWidth'#3#138#1#4'Left'#2#2#6'Height'#3#1#1#3'Top'
+'p'#3#192#0#5'Width'#3#232#0#0#0#13'TFileNameEdit'#7'FEfpdoc'#11'DialogTitle' +#2#28#5'Width'#3#138#1#0#9'TCheckBox'#11'CBShowHints'#22'BorderSpacing.OnCha'
+#6#30'Select documentation generator'#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#7 +'nge'#13#7'Caption'#6#10'Show Hints'#8'TabOrder'#2#0#4'Left'#2#14#6'Height'#2
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8 +#23#3'Top'#2#12#5'Width'#3#144#0#0#0#0#0#6'TPanel'#6'Panel1'#5'Align'#7#8'al'
+'TabOrder'#2#9#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacin' +'Bottom'#12'ClientHeight'#2'2'#11'ClientWidth'#3#142#1#11'FullRepaint'#8#8'T'
+'g.OnChange'#13#8'TabOrder'#2#9#4'Left'#2'w'#6'Height'#2#23#3'Top'#3#226#0#5 +'abOrder'#2#1#6'Height'#2'2'#3'Top'#3#31#1#5'Width'#3#142#1#0#7'TButton'#3'B'
+'Width'#3#233#0#0#0#0 +'OK'#7'Caption'#6#3'&OK'#7'Default'#9#11'ModalResult'#2#1#7'OnClick'#7#8'BOK'
+'Click'#8'TabOrder'#2#0#4'Left'#3#198#0#6'Height'#2#25#3'Top'#2#12#5'Width'#2
+'X'#0#0#7'TButton'#7'BCancel'#6'Cancel'#9#7'Caption'#6#7'&Cancel'#11'ModalRe'
+'sult'#2#2#8'TabOrder'#2#1#6'Cursor'#7#10'crAppStart'#4'Left'#3'&'#1#6'Heigh'
+'t'#2#25#3'Top'#2#12#5'Width'#2'X'#0#0#0#0
]); ]);

View File

@ -28,7 +28,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, Spin, EditBtn; Buttons, Spin, EditBtn, ExtCtrls, ComCtrls;
type type
@ -40,6 +40,7 @@ type
CBConfirmDelete: TCheckBox; CBConfirmDelete: TCheckBox;
CBCreateBackup: TCheckBox; CBCreateBackup: TCheckBox;
CBSkipEmptyNodes: TCheckBox; CBSkipEmptyNodes: TCheckBox;
CBShowHints: TCheckBox;
EBackupExtension: TEdit; EBackupExtension: TEdit;
EDefaultExtension: TEdit; EDefaultExtension: TEdit;
FEMakeSkel: TFileNameEdit; FEMakeSkel: TFileNameEdit;
@ -49,7 +50,11 @@ type
LEDefaultExtension: TLabel; LEDefaultExtension: TLabel;
LEBackupExtension: TLabel; LEBackupExtension: TLabel;
LEMaxMRU: TLabel; LEMaxMRU: TLabel;
PageControl1: TPageControl;
Panel1: TPanel;
SEMaxRecentUsed: TSpinEdit; SEMaxRecentUsed: TSpinEdit;
tabGeneral: TTabSheet;
tabDesktop: TTabSheet;
procedure BOKClick(Sender: TObject); procedure BOKClick(Sender: TObject);
procedure OptionsFormShow(Sender: TObject); procedure OptionsFormShow(Sender: TObject);
private private
@ -91,6 +96,7 @@ begin
SEMaxRecentUsed.Text:=IntToStr(MaxRecentUsed); SEMaxRecentUsed.Text:=IntToStr(MaxRecentUsed);
FEMakeskel.Text:=cmdMakeSkel; FEMakeskel.Text:=cmdMakeSkel;
FEFPDoc.Text:=cmdfpdoc; FEFPDoc.Text:=cmdfpdoc;
CBShowHints.Checked:=ShowHelpHints;
end; end;
procedure TOptionsForm.FormToOptions; procedure TOptionsForm.FormToOptions;
@ -103,6 +109,7 @@ begin
MaxRecentUsed:=StrToIntDef(SEMaxRecentUsed.Text,0); MaxRecentUsed:=StrToIntDef(SEMaxRecentUsed.Text,0);
cmdMakeSkel:=FEMakeskel.Text; cmdMakeSkel:=FEMakeskel.Text;
cmdfpdoc:=FEFPDoc.Text; cmdfpdoc:=FEFPDoc.Text;
ShowHelpHints:=CBShowHints.Checked;
SaveOptions; SaveOptions;
end; end;

View File

@ -32,6 +32,7 @@ Var
SkipEmptyNodes : Boolean; SkipEmptyNodes : Boolean;
ConfirmDelete : Boolean; ConfirmDelete : Boolean;
CreateBackup : Boolean; CreateBackup : Boolean;
ShowHelpHints : Boolean;
MaxRecentUsed : Integer; MaxRecentUsed : Integer;
BackupExtension : String; BackupExtension : String;
DefaultExtension : String; DefaultExtension : String;
@ -55,6 +56,7 @@ Const
//KeyMaxRecentUsed = 'MaxMRUitems'; //KeyMaxRecentUsed = 'MaxMRUitems';
KeyCmdMakeSkel = 'makeskel'; KeyCmdMakeSkel = 'makeskel';
KeyCmdFpdoc = 'fpdoc'; KeyCmdFpdoc = 'fpdoc';
KeyShowHints = 'ShowHints';
{$ifndef win32} {$ifndef win32}
Function GetOptionFileName : String; Function GetOptionFileName : String;
@ -96,6 +98,7 @@ begin
SkipEmptyNodes:=ReadBool(SecPrefs,KeySkipEmptyNodes,SkipEmptyNodes); SkipEmptyNodes:=ReadBool(SecPrefs,KeySkipEmptyNodes,SkipEmptyNodes);
ConfirmDelete:=ReadBool(SecPrefs,KeyConfirmDelete,ConfirmDelete); ConfirmDelete:=ReadBool(SecPrefs,KeyConfirmDelete,ConfirmDelete);
CreateBackup:=ReadBool(SecPrefs,KeyCreateBackup,CreateBackup); CreateBackup:=ReadBool(SecPrefs,KeyCreateBackup,CreateBackup);
ShowHelpHints:=ReadBool(SecPrefs,KeyShowHints,ShowHelpHints);
BackupExtension:=ReadString(SecPrefs,KeyBackupExtension,BackupExtension); BackupExtension:=ReadString(SecPrefs,KeyBackupExtension,BackupExtension);
DefaultExtension:=ReadString(SecPrefs,KeyDefaultExtension,DefaultExtension); DefaultExtension:=ReadString(SecPrefs,KeyDefaultExtension,DefaultExtension);
CmdMakeSkel:=ReadString(SecPrefs,KeyCmdMakeSkel,cmdMakeSkel); CmdMakeSkel:=ReadString(SecPrefs,KeyCmdMakeSkel,cmdMakeSkel);
@ -113,6 +116,7 @@ begin
WriteBool(SecPrefs,KeySkipEmptyNodes,SkipEmptyNodes); WriteBool(SecPrefs,KeySkipEmptyNodes,SkipEmptyNodes);
WriteBool(SecPrefs,KeyConfirmDelete,ConfirmDelete); WriteBool(SecPrefs,KeyConfirmDelete,ConfirmDelete);
WriteBool(SecPrefs,KeyCreateBackup,CreateBackup); WriteBool(SecPrefs,KeyCreateBackup,CreateBackup);
WriteBool(SecPrefs,KeyShowHints,ShowHelpHints);
WriteString(SecPrefs,KeyBackupExtension,BackupExtension); WriteString(SecPrefs,KeyBackupExtension,BackupExtension);
WriteString(SecPrefs,KeyDefaultExtension,DefaultExtension); WriteString(SecPrefs,KeyDefaultExtension,DefaultExtension);
WriteString(SecPrefs,KeyCmdMakeSkel,cmdMakeSkel); WriteString(SecPrefs,KeyCmdMakeSkel,cmdMakeSkel);
@ -132,4 +136,5 @@ Initialization
MaxRecentUSed := 10; MaxRecentUSed := 10;
CmdMakeSkel := 'makeskel'; CmdMakeSkel := 'makeskel';
cmdfpdoc := 'fpdoc'; cmdfpdoc := 'fpdoc';
ShowHelpHints := true;
end. end.