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

View File

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

View File

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

View File

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

File diff suppressed because it is too large Load Diff

View File

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

View File

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

View File

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

View File

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