IDE: added windows version info for projects from Jouke Rensma

git-svn-id: trunk@9835 -
This commit is contained in:
mattias 2006-09-08 10:03:16 +00:00
parent e3fd9d64e6
commit de9ddde7ee
11 changed files with 753 additions and 247 deletions

View File

@ -38,6 +38,7 @@ Jeroen van Idekinge
Jesus Reyes
Joerg Braun - german translation
Joost van der Sluis
Jouke Rensma
Karl Brandt
Keith Bowes
Ladislav Michl

View File

@ -573,7 +573,7 @@ begin
FoundStartPos.Y,FoundStartPos.X);
OriginalFile.AbsoluteToLineCol(NewMatchEndPos,
FoundEndPos.Y,FoundEndPos.X);
DebugLn(['SearchInText NewMatchStartPos=',NewMatchStartPos,' NewMatchEndPos=',NewMatchEndPos,' FoundStartPos=',dbgs(FoundStartPos),' FoundEndPos=',dbgs(FoundEndPos),' Found="',dbgstr(copy(Src,NewMatchStartPos,NewMatchEndPos-NewMatchStartPos)),'" Replace=',sesoReplace in Flags]);
//DebugLn(['SearchInText NewMatchStartPos=',NewMatchStartPos,' NewMatchEndPos=',NewMatchEndPos,' FoundStartPos=',dbgs(FoundStartPos),' FoundEndPos=',dbgs(FoundEndPos),' Found="',dbgstr(copy(Src,NewMatchStartPos,NewMatchEndPos-NewMatchStartPos)),'" Replace=',sesoReplace in Flags]);
if sesoReplace in Flags then begin
DoReplaceLine
end else begin

View File

@ -3141,5 +3141,7 @@ resourcestring
lisIFDOK = 'OK';
lisPVUEditVirtualUnit = 'Edit virtual unit';
// version info tab
VersionInfoTitle = 'Version Info';
implementation
end.

View File

@ -9,6 +9,25 @@
<IconPath Value="./"/>
<TargetFileExt Value=""/>
</General>
<VersionInfo>
<UseVersionInfo Value="False"/>
<AutoIncrementBuild Value="False"/>
<CurrentVersionNr Value="0"/>
<CurrentMajorRevNr Value="0"/>
<CurrentMinorRevNr Value="0"/>
<CurrentBuildNr Value="0"/>
<ProjectVersion Value="1,0,0,0"/>
<Language Value="0409"/>
<CharSet Value="04E4"/>
<Comments Value=""/>
<CompanyName Value=""/>
<FileDescription Value=""/>
<InternalName Value=""/>
<LegalCopyright Value=""/>
<LegalTrademarks Value=""/>
<OriginalFilename Value=""/>
<ProductName Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

View File

@ -7438,6 +7438,7 @@ var
CompilerFilename: String;
WorkingDir: String;
CompilerParams: String;
Count: integer;
begin
if Project1.MainUnitInfo=nil then begin
// this project has not source to compile
@ -7448,13 +7449,23 @@ begin
Result:=PrepareForCompile;
if Result<>mrOk then exit;
Result:=DoSaveForBuild;
if Result<>mrOk then exit;
// show messages
MessagesView.Clear;
MessagesView.BeginBlock;
try
// handle versioninfo
Project1.VersionInfo.VersionInfoCodeBuf := Project1.MainUnitInfo.Source;
// ShowMessage(IntToStr(Project1.VersionInfo.VersionNr));
Result := Project1.VersionInfo.CompileRCFile(Project1.MainFilename);
for Count := 1 to Project1.VersionInfo.VersionInfoMessages.Count do
MessagesView.AddMsg(Format(Project1.VersionInfo.VersionInfoMessages[Count - 1],
['"', Project1.ShortDescription, '"']), '' ,-1);
if Result <> MrOk then exit;
Result:=DoSaveForBuild;
if Result<>mrOk then exit;
// compile required packages
if not (pbfDoNotCompileDependencies in Flags) then begin
PkgFlags:=[pcfDoNotSaveEditorFiles];

View File

@ -51,7 +51,9 @@ uses
Dialogs, Laz_XMLCfg, LazConf, FileUtil,
LazarusIDEStrConsts, CompilerOptions, CodeToolManager, CodeCache,
EditorOptions, IDEProcs, RunParamsOpts, ProjectIntf, ProjectDefs,
FileReferenceList, EditDefineTree, DefineTemplates, PackageDefs, LazIDEIntf;
FileReferenceList, EditDefineTree, DefineTemplates, PackageDefs, LazIDEIntf,
// for versioninfo
W32VersionInfo;
type
TUnitInfo = class;
@ -520,6 +522,8 @@ type
procedure AddToOrRemoveFromLoadedList(AnUnitInfo: TUnitInfo);
procedure AddToOrRemoveFromPartOfProjectList(AnUnitInfo: TUnitInfo);
public
VersionInfo: TVersionInfo;
constructor Create(ProjectDescription: TProjectDescriptor); override;
destructor Destroy; override;
procedure Clear;
@ -1456,6 +1460,8 @@ begin
FTargetFileExt := GetExecutableExt;
Title := '';
FUnitList := TFPList.Create; // list of TUnitInfo
VersionInfo := TVersionInfo.Create;
end;
{------------------------------------------------------------------------------
@ -1635,6 +1641,25 @@ begin
//lazdoc
xmlconfig.SetDeleteValue(Path+'LazDoc/Paths', LazDocPaths, '');
// VersionInfo
xmlconfig.SetValue(Path+'VersionInfo/UseVersionInfo/Value', VersionInfo.UseVersionInfo);
xmlconfig.SetValue(Path+'VersionInfo/AutoIncrementBuild/Value', VersionInfo.AutoIncrementBuild);
xmlconfig.SetValue(Path+'VersionInfo/CurrentVersionNr/Value', VersionInfo.VersionNr);
xmlconfig.SetValue(Path+'VersionInfo/CurrentMajorRevNr/Value', VersionInfo.MajorRevNr);
xmlconfig.SetValue(Path+'VersionInfo/CurrentMinorRevNr/Value', VersionInfo.MinorRevNr);
xmlconfig.SetValue(Path+'VersionInfo/CurrentBuildNr/Value', VersionInfo.BuildNr);
xmlconfig.SetValue(Path+'VersionInfo/ProjectVersion/Value', VersionInfo.ProductVersionString);
xmlconfig.SetValue(Path+'VersionInfo/Language/Value', VersionInfo.HexLang);
xmlconfig.SetValue(Path+'VersionInfo/CharSet/Value', VersionInfo.HexCharSet);
xmlconfig.SetValue(Path+'VersionInfo/Comments/Value', VersionInfo.CommentsString);
xmlconfig.SetValue(Path+'VersionInfo/CompanyName/Value', VersionInfo.CompanyString);
xmlconfig.SetValue(Path+'VersionInfo/FileDescription/Value', VersionInfo.DescriptionString);
xmlconfig.SetValue(Path+'VersionInfo/InternalName/Value', VersionInfo.InternalNameString);
xmlconfig.SetValue(Path+'VersionInfo/LegalCopyright/Value', VersionInfo.CopyrightString);
xmlconfig.SetValue(Path+'VersionInfo/LegalTrademarks/Value', VersionInfo.TrademarksString);
xmlconfig.SetValue(Path+'VersionInfo/OriginalFilename/Value', VersionInfo.OriginalFilenameString);
xmlconfig.SetValue(Path+'VersionInfo/ProductName/Value', VersionInfo.ProdNameString);
// Save the compiler options
CompilerOptions.SaveToXMLConfig(XMLConfig,'CompilerOptions/');
@ -1980,6 +2005,27 @@ begin
// Lazdoc
LazDocPaths := xmlconfig.GetValue(Path+'LazDoc/Paths', '');
// VersionInfo
VersionInfo.UseVersionInfo := xmlconfig.GetValue(Path+'VersionInfo/UseVersionInfo/Value', False);
VersionInfo.AutoIncrementBuild := xmlconfig.GetValue(Path+'VersionInfo/AutoIncrementBuild/Value', False);
VersionInfo.VersionNr := xmlconfig.GetValue(Path+'VersionInfo/CurrentVersionNr/Value', 0);
VersionInfo.MajorRevNr := xmlconfig.GetValue(Path+'VersionInfo/CurrentMajorRevNr/Value', 0);
VersionInfo.MinorRevNr := xmlconfig.GetValue(Path+'VersionInfo/CurrentMinorRevNr/Value', 0);
VersionInfo.BuildNr := xmlconfig.GetValue(Path+'VersionInfo/CurrentBuildNr/Value', 0);
VersionInfo.ProductVersionString := xmlconfig.GetValue(Path+'VersionInfo/ProjectVersion/Value', '1,0,0,0');
VersionInfo.HexLang := xmlconfig.GetValue(Path+'VersionInfo/Language/Value', '0409');
VersionInfo.HexCharSet := xmlconfig.GetValue(Path+'VersionInfo/CharSet/Value', '04E4');
VersionInfo.CommentsString := xmlconfig.GetValue(Path+'VersionInfo/Comments/Value', '');
VersionInfo.CompanyString := xmlconfig.GetValue(Path+'VersionInfo/CompanyName/Value', '');
VersionInfo.DescriptionString := xmlconfig.GetValue(Path+'VersionInfo/FileDescription/Value', '');
VersionInfo.InternalNameString := xmlconfig.GetValue(Path+'VersionInfo/InternalName/Value', '');
VersionInfo.CopyrightString := xmlconfig.GetValue(Path+'VersionInfo/LegalCopyright/Value', '');
VersionInfo.TrademarksString := xmlconfig.GetValue(Path+'VersionInfo/LegalTrademarks/Value', '');
VersionInfo.OriginalFilenameString := xmlconfig.GetValue(Path+'VersionInfo/OriginalFilename/Value', '');
VersionInfo.ProdNameString := xmlconfig.GetValue(Path+'VersionInfo/ProductName/Value', '');
VersionInfo.TargetOS := VersionInfo.SetTargetOS(CompilerOptions.TargetOS);
VersionInfo.SetFileNames(ProjectInfoFile);
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject E reading comp sets');{$ENDIF}
// Load the compiler options
@ -2303,6 +2349,10 @@ begin
inherited SetSessionModified(AValue);
end;
//function TProject.GetVersionInfo: TVersionInfo;
//begin
//end;
function TProject.UnitCount:integer;
begin
Result:=FUnitList.Count;

View File

@ -1,43 +1,40 @@
object ProjectOptionsDialog: TProjectOptionsDialog
ActiveControl = TitleEdit
Caption = 'ProjectOptionsDialog'
ClientHeight = 375
ClientWidth = 443
OnClose = ProjectOptionsClose
OnResize = ProjectOptionsResize
PixelsPerInch = 112
PixelsPerInch = 96
Position = poScreenCenter
HorzScrollBar.Page = 442
VertScrollBar.Page = 374
Left = 738
Left = 111
Height = 375
Top = 236
Top = 289
Width = 443
object Notebook: TNotebook
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 1
PageIndex = 5
Height = 338
Width = 443
object ApplicationPage: TPage
Caption = 'ApplicationPage'
ClientWidth = 439
ClientHeight = 308
Left = 2
Height = 308
Top = 28
Width = 439
ClientWidth = 435
ClientHeight = 312
Height = 312
Width = 435
object AppSettingsGroupBox: TGroupBox
Align = alTop
BorderSpacing.Around = 6
Caption = 'AppSettingsGroupBox'
ClientHeight = 56
ClientWidth = 423
ClientHeight = 55
ClientWidth = 419
TabOrder = 0
Left = 6
Height = 73
Top = 6
Width = 427
Width = 423
object TitleLabel: TLabel
Align = alTop
BorderSpacing.Left = 6
@ -47,9 +44,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Color = clNone
ParentColor = False
Left = 6
Height = 13
Height = 14
Top = 6
Width = 411
Width = 407
end
object TitleEdit: TEdit
Align = alTop
@ -59,21 +56,21 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Text = 'TitleEdit'
Left = 6
Height = 23
Top = 19
Width = 411
Top = 20
Width = 407
end
end
object OutputSettingsGroupBox: TGroupBox
Align = alTop
BorderSpacing.Around = 6
Caption = 'OutputSettingsGroupBox'
ClientHeight = 56
ClientWidth = 423
ClientHeight = 55
ClientWidth = 419
TabOrder = 1
Left = 6
Height = 73
Top = 85
Width = 427
Width = 423
object TargetFileLabel: TLabel
Align = alTop
BorderSpacing.Left = 6
@ -83,9 +80,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Color = clNone
ParentColor = False
Left = 6
Height = 13
Height = 14
Top = 6
Width = 411
Width = 407
end
object TargetFileEdit: TEdit
Align = alTop
@ -95,28 +92,26 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Text = 'TargetFileEdit'
Left = 6
Height = 23
Top = 19
Width = 411
Top = 20
Width = 407
end
end
end
object FormsPage: TPage
Caption = 'FormsPage'
ClientWidth = 439
ClientHeight = 308
ClientWidth = 435
ClientHeight = 312
OnResize = FormsPageResize
Left = 2
Height = 308
Top = 28
Width = 439
Height = 312
Width = 435
object FormsAutoCreatedLabel: TLabel
Caption = 'FormsAutoCreatedLabel'
Color = clNone
ParentColor = False
Left = 36
Height = 13
Height = 14
Top = 10
Width = 136
Width = 117
end
object FormsAvailFormsLabel: TLabel
Caption = 'FormsAvailFormsLabel'
@ -124,21 +119,20 @@ object ProjectOptionsDialog: TProjectOptionsDialog
ParentColor = False
AnchorSideLeft.Control = FormsAvailFormsListBox
Left = 240
Height = 13
Height = 14
Top = 10
Width = 129
Width = 107
end
object FormsAutoCreatedListBox: TListBox
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
MultiSelect = True
TabOrder = 0
TopIndex = -1
AnchorSideLeft.Control = FormsMoveAutoCreatedFormUpBtn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox
Left = 36
Height = 240
Height = 255
Top = 32
Width = 168
end
@ -147,14 +141,13 @@ object ProjectOptionsDialog: TProjectOptionsDialog
BorderSpacing.Around = 6
MultiSelect = True
TabOrder = 1
TopIndex = -1
AnchorSideLeft.Control = FormsAddToAutoCreatedFormsBtn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox
Left = 240
Height = 240
Height = 255
Top = 32
Width = 185
Width = 181
end
object FormsMoveAutoCreatedFormUpBtn: TArrow
ArrowType = atUp
@ -197,19 +190,17 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Caption = 'FormsAutoCreateNewFormsCheckBox'
TabOrder = 2
Left = 6
Height = 24
Top = 278
Width = 427
Height = 13
Top = 293
Width = 423
end
end
object MiscPage: TPage
Caption = 'MiscPage'
ClientWidth = 439
ClientHeight = 308
Left = 2
Height = 308
Top = 28
Width = 439
ClientWidth = 435
ClientHeight = 312
Height = 312
Width = 435
object MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox
Align = alTop
BorderSpacing.Left = 6
@ -220,9 +211,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitIsPascalSourceCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 36
Width = 427
Height = 13
Top = 25
Width = 423
end
object MainUnitHasCreateFormStatementsCheckBox: TCheckBox
Align = alTop
@ -234,9 +225,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitHasUsesSectionForAllUnitsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 62
Width = 427
Height = 13
Top = 40
Width = 423
end
object MainUnitIsPascalSourceCheckBox: TCheckBox
Align = alTop
@ -246,9 +237,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Caption = 'MainUnitIsPascalSourceCheckBox'
TabOrder = 2
Left = 6
Height = 24
Height = 13
Top = 10
Width = 427
Width = 423
end
object MainUnitHasTitleStatementCheckBox: TCheckBox
Align = alTop
@ -260,9 +251,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitHasCreateFormStatementsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 88
Width = 427
Height = 13
Top = 55
Width = 423
end
object RunnableCheckBox: TCheckBox
Align = alTop
@ -274,9 +265,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitHasTitleStatementCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 122
Width = 427
Height = 13
Top = 78
Width = 423
end
object AlwaysBuildCheckBox: TCheckBox
Anchors = [akTop, akLeft, akRight]
@ -288,51 +279,48 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = RunnableCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 148
Width = 427
Height = 13
Top = 93
Width = 423
end
end
object LazDocPage: TPage
Caption = 'LazDocPage'
ClientWidth = 439
ClientHeight = 308
Left = 2
Height = 308
Top = 28
Width = 439
ClientWidth = 435
ClientHeight = 312
Height = 312
Width = 435
object Label2: TLabel
Align = alTop
Caption = 'NOTE: only absolute paths are supported now'
Color = clNone
ParentColor = False
Height = 13
Height = 14
Top = 222
Width = 439
Width = 435
end
object LazDocPathsGroupBox: TGroupBox
Align = alTop
BorderSpacing.Around = 6
Caption = 'LazDocPathsGroupBox'
ClientHeight = 210
ClientWidth = 427
ClientWidth = 423
TabOrder = 0
Left = 6
Height = 210
Top = 6
Width = 427
Width = 423
object LazDocListBox: TListBox
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
TopIndex = -1
Left = 6
Height = 108
Top = 6
Width = 415
Width = 407
end
object LazDocAddPathButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'LazDocAddPathButton'
OnClick = LazDocAddPathButtonClick
TabOrder = 1
@ -342,7 +330,7 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Width = 75
end
object LazDocDeletePathButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'LazDocDeletePathButton'
OnClick = LazDocDeletePathButtonClick
TabOrder = 2
@ -358,15 +346,15 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Left = 6
Height = 23
Top = 154
Width = 371
Width = 363
end
object LazDocBrowseButton: TButton
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
Caption = '...'
OnClick = LazDocBrowseButtonClick
TabOrder = 4
Left = 382
Left = 374
Height = 23
Top = 154
Width = 23
@ -375,12 +363,10 @@ object ProjectOptionsDialog: TProjectOptionsDialog
end
object SavePage: TPage
Caption = 'SavePage'
ClientWidth = 439
ClientHeight = 308
Left = 2
Height = 308
Top = 28
Width = 439
ClientWidth = 435
ClientHeight = 312
Height = 312
Width = 435
object SaveClosedUnitInfoCheckBox: TCheckBox
Align = alTop
BorderSpacing.Left = 6
@ -389,9 +375,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Caption = 'SaveClosedUnitInfoCheckBox'
TabOrder = 0
Left = 6
Height = 24
Height = 13
Top = 6
Width = 427
Width = 423
end
object SaveOnlyProjectUnitInfoCheckBox: TCheckBox
Align = alTop
@ -403,9 +389,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = SaveClosedUnitInfoCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 32
Width = 427
Height = 13
Top = 21
Width = 423
end
object SaveSessionLocationRadioGroup: TRadioGroup
AutoFill = True
@ -425,14 +411,233 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Side = asrBottom
Left = 7
Height = 117
Top = 67
Top = 45
Width = 413
end
end
object VersionInfoPage: TPage
Caption = 'VersionInfoPage'
ClientWidth = 435
ClientHeight = 312
Height = 312
Width = 435
object VersionInfoGroupBox: TGroupBox
Caption = 'Version Numbering'
ClientHeight = 48
ClientWidth = 406
Enabled = False
TabOrder = 0
Left = 6
Height = 66
Top = 24
Width = 410
object VersionLabel: TLabel
Caption = 'Version:'
Color = clNone
Enabled = False
ParentColor = False
Left = 12
Height = 14
Top = 6
Width = 40
end
object MajorRevisionLabel: TLabel
Caption = 'Major Revision:'
Color = clNone
Enabled = False
ParentColor = False
Left = 92
Height = 14
Top = 6
Width = 75
end
object MinorRevisionLabel: TLabel
Caption = 'Minor Revision:'
Color = clNone
Enabled = False
ParentColor = False
Left = 212
Height = 14
Top = 6
Width = 74
end
object BuildLabel: TLabel
Caption = 'Build:'
Color = clNone
Enabled = False
ParentColor = False
Left = 332
Height = 14
Top = 6
Width = 27
end
object BuildEdit: TEdit
Enabled = False
TabOrder = 0
Text = '0'
Left = 364
Height = 20
Top = 3
Width = 32
end
object VersionSpinEdit: TSpinEdit
Enabled = False
TabOrder = 1
Left = 55
Height = 20
Top = 3
Width = 32
end
object MajorRevisionSpinEdit: TSpinEdit
Enabled = False
TabOrder = 2
Left = 172
Height = 20
Top = 2
Width = 32
end
object MinorRevisionSpinEdit: TSpinEdit
Enabled = False
TabOrder = 3
Left = 288
Height = 20
Top = 3
Width = 32
end
object AutomaticallyIncreaseBuildCheckBox: TCheckBox
Caption = 'Automatically increase Build'
Enabled = False
TabOrder = 4
Left = 12
Height = 13
Top = 30
Width = 151
end
end
object UseVersionInfoCheckBox: TCheckBox
Caption = 'Include Version Info in executable'
Enabled = False
OnChange = UseVersionInfoCheckBoxChange
TabOrder = 1
Left = 12
Height = 13
Top = 6
Width = 180
end
object LanguageSettingsGroupBox: TGroupBox
Caption = 'Language Options'
ClientHeight = 48
ClientWidth = 406
Enabled = False
TabOrder = 2
Left = 6
Height = 66
Top = 98
Width = 410
object LanguageSelectionLabel: TLabel
Caption = 'Language Selection:'
Color = clNone
Enabled = False
ParentColor = False
Left = 12
Height = 14
Top = 6
Width = 98
end
object CharacterSetLabel: TLabel
Caption = 'Character Set:'
Color = clNone
Enabled = False
ParentColor = False
Left = 268
Height = 14
Top = 6
Width = 72
end
object LanguageSelectionComboBox: TComboBox
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Enabled = False
MaxLength = 0
TabOrder = 0
Text = 'Enlish (US)'
Left = 12
Height = 21
Top = 21
Width = 248
end
object CharacterSetComboBox: TComboBox
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Enabled = False
MaxLength = 0
TabOrder = 1
Text = 'MultiLingual'
Left = 268
Height = 21
Top = 21
Width = 128
end
end
object OtherInfoGroupBox: TGroupBox
Caption = 'Other Info'
ClientHeight = 87
ClientWidth = 406
Enabled = False
TabOrder = 3
Left = 6
Height = 105
Top = 178
Width = 410
object DescriptionLabel: TLabel
Caption = 'Description:'
Color = clNone
Enabled = False
ParentColor = False
Left = 12
Height = 14
Top = 4
Width = 58
end
object CopyrightLabel: TLabel
Caption = 'Copyright:'
Color = clNone
Enabled = False
ParentColor = False
Left = 12
Height = 14
Top = 28
Width = 52
end
object DescriptionEdit: TEdit
Enabled = False
TabOrder = 0
Left = 76
Height = 21
Width = 320
end
object CopyrightEdit: TEdit
Enabled = False
TabOrder = 1
Left = 76
Height = 21
Top = 24
Width = 320
end
object AdditionalInfoButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Additional Info'
OnClick = AdditionalInfoButtonClick
TabOrder = 2
Left = 313
Height = 25
Top = 56
Width = 83
end
end
end
end
object CancelButton: TButton
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
Cancel = True
Caption = 'Cancel'
ModalResult = 2
@ -444,7 +649,7 @@ object ProjectOptionsDialog: TProjectOptionsDialog
end
object OKButton: TButton
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
Caption = 'OK'
Default = True
ModalResult = 1

View File

@ -1,144 +1,198 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TProjectOptionsDialog','FORMDATA',[
'TPF0'#21'TProjectOptionsDialog'#20'ProjectOptionsDialog'#13'ActiveControl'#7
+#9'TitleEdit'#7'Caption'#6#20'ProjectOptionsDialog'#12'ClientHeight'#3'w'#1
+#11'ClientWidth'#3#187#1#7'OnClose'#7#19'ProjectOptionsClose'#8'OnResize'#7
+#20'ProjectOptionsResize'#13'PixelsPerInch'#2'p'#8'Position'#7#14'poScreenCe'
+'nter'#18'HorzScrollBar.Page'#3#186#1#18'VertScrollBar.Page'#3'v'#1#4'Left'#3
+#226#2#6'Height'#3'w'#1#3'Top'#3#236#0#5'Width'#3#187#1#0#9'TNotebook'#8'Not'
+'ebook'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
+'Bottom'#0#9'PageIndex'#2#1#6'Height'#3'R'#1#5'Width'#3#187#1#0#5'TPage'#15
+'ApplicationPage'#7'Caption'#6#15'ApplicationPage'#11'ClientWidth'#3#183#1#12
+'ClientHeight'#3'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5'Width'#3#183
+#1#0#9'TGroupBox'#19'AppSettingsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#19'AppSettingsGroupBox'#12'ClientHeight'#2'8'#11
+'ClientWidth'#3#167#1#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'I'#3'Top'#2#6#5
+'Width'#3#171#1#0#6'TLabel'#10'TitleLabel'#5'Align'#7#5'alTop'#18'BorderSpac'
+'ing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Capti'
+'on'#6#10'TitleLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'H'
+'eight'#2#13#3'Top'#2#6#5'Width'#3#155#1#0#0#5'TEdit'#9'TitleEdit'#5'Align'#7
+#5'alTop'#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#8'TabOrder'
+#2#0#4'Text'#6#9'TitleEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#19#5'Width'#3
+#155#1#0#0#0#9'TGroupBox'#22'OutputSettingsGroupBox'#5'Align'#7#5'alTop'#20
+'BorderSpacing.Around'#2#6#7'Caption'#6#22'OutputSettingsGroupBox'#12'Client'
+'Height'#2'8'#11'ClientWidth'#3#167#1#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2
+'I'#3'Top'#2'U'#5'Width'#3#171#1#0#6'TLabel'#15'TargetFileLabel'#5'Align'#7#5
+'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacin'
+'g.Right'#2#6#7'Caption'#6#15'TargetFileLabel'#5'Color'#7#6'clNone'#11'Paren'
+'tColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#155#1#0#0#5'TEdi'
+'t'#14'TargetFileEdit'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#19'Bor'
+'derSpacing.Right'#2#6#8'TabOrder'#2#0#4'Text'#6#14'TargetFileEdit'#4'Left'#2
+#6#6'Height'#2#23#3'Top'#2#19#5'Width'#3#155#1#0#0#0#0#5'TPage'#9'FormsPage'
+#7'Caption'#6#9'FormsPage'#11'ClientWidth'#3#183#1#12'ClientHeight'#3'4'#1#8
+'OnResize'#7#15'FormsPageResize'#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5
+'Width'#3#183#1#0#6'TLabel'#21'FormsAutoCreatedLabel'#7'Caption'#6#21'FormsA'
'TPF0'#21'TProjectOptionsDialog'#20'ProjectOptionsDialog'#7'Caption'#6#20'Pro'
+'jectOptionsDialog'#12'ClientHeight'#3'w'#1#11'ClientWidth'#3#187#1#7'OnClos'
+'e'#7#19'ProjectOptionsClose'#8'OnResize'#7#20'ProjectOptionsResize'#13'Pixe'
+'lsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3
+#186#1#18'VertScrollBar.Page'#3'v'#1#4'Left'#2'o'#6'Height'#3'w'#1#3'Top'#3
+'!'#1#5'Width'#3#187#1#0#9'TNotebook'#8'Notebook'#5'Align'#7#5'alTop'#7'Anch'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#9'PageIndex'#2#5#6'Heig'
+'ht'#3'R'#1#5'Width'#3#187#1#0#5'TPage'#15'ApplicationPage'#7'Caption'#6#15
+'ApplicationPage'#11'ClientWidth'#3#179#1#12'ClientHeight'#3'8'#1#6'Height'#3
+'8'#1#5'Width'#3#179#1#0#9'TGroupBox'#19'AppSettingsGroupBox'#5'Align'#7#5'a'
+'lTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'AppSettingsGroupBox'#12
+'ClientHeight'#2'7'#11'ClientWidth'#3#163#1#8'TabOrder'#2#0#4'Left'#2#6#6'He'
+'ight'#2'I'#3'Top'#2#6#5'Width'#3#167#1#0#6'TLabel'#10'TitleLabel'#5'Align'#7
+#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpac'
+'ing.Right'#2#6#7'Caption'#6#10'TitleLabel'#5'Color'#7#6'clNone'#11'ParentCo'
+'lor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#3#151#1#0#0#5'TEdit'#9
+'TitleEdit'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#19'BorderSpacing.'
+'Right'#2#6#8'TabOrder'#2#0#4'Text'#6#9'TitleEdit'#4'Left'#2#6#6'Height'#2#23
+#3'Top'#2#20#5'Width'#3#151#1#0#0#0#9'TGroupBox'#22'OutputSettingsGroupBox'#5
+'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'OutputSettin'
+'gsGroupBox'#12'ClientHeight'#2'7'#11'ClientWidth'#3#163#1#8'TabOrder'#2#1#4
+'Left'#2#6#6'Height'#2'I'#3'Top'#2'U'#5'Width'#3#167#1#0#6'TLabel'#15'Target'
+'FileLabel'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.'
+'Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#15'TargetFileLabel'#5'Col'
+'or'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'W'
+'idth'#3#151#1#0#0#5'TEdit'#14'TargetFileEdit'#5'Align'#7#5'alTop'#18'Border'
+'Spacing.Left'#2#6#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#0#4'Text'#6#14
+'TargetFileEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#20#5'Width'#3#151#1#0#0
+#0#0#5'TPage'#9'FormsPage'#7'Caption'#6#9'FormsPage'#11'ClientWidth'#3#179#1
+#12'ClientHeight'#3'8'#1#8'OnResize'#7#15'FormsPageResize'#6'Height'#3'8'#1#5
+'Width'#3#179#1#0#6'TLabel'#21'FormsAutoCreatedLabel'#7'Caption'#6#21'FormsA'
+'utoCreatedLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'$'#6'Heig'
+'ht'#2#13#3'Top'#2#10#5'Width'#3#136#0#0#0#6'TLabel'#20'FormsAvailFormsLabel'
+#7'Caption'#6#20'FormsAvailFormsLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8
+'ht'#2#14#3'Top'#2#10#5'Width'#2'u'#0#0#6'TLabel'#20'FormsAvailFormsLabel'#7
+'Caption'#6#20'FormsAvailFormsLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#22'AnchorSideLeft.Control'#7#22'FormsAvailFormsListBox'#4'Left'#3#240#0#6'H'
+'eight'#2#13#3'Top'#2#10#5'Width'#3#129#0#0#0#8'TListBox'#23'FormsAutoCreate'
+'dListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#20'BorderSpacing.A'
+'round'#2#6#11'MultiSelect'#9#8'TabOrder'#2#0#8'TopIndex'#2#255#22'AnchorSid'
+'eLeft.Control'#7#29'FormsMoveAutoCreatedFormUpBtn'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#24'AnchorSideBottom.Control'#7#31'FormsAutoCreateNewFormsCheck'
+'Box'#4'Left'#2'$'#6'Height'#3#240#0#3'Top'#2' '#5'Width'#3#168#0#0#0#8'TLis'
+'tBox'#22'FormsAvailFormsListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#8'akBottom'#0#20'BorderSpacing.Around'#2#6#11'MultiSelect'#9#8'TabOrder'#2#1
+#8'TopIndex'#2#255#22'AnchorSideLeft.Control'#7#29'FormsAddToAutoCreatedForm'
+'sBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
+#31'FormsAutoCreateNewFormsCheckBox'#4'Left'#3#240#0#6'Height'#3#240#0#3'Top'
+#2' '#5'Width'#3#185#0#0#0#6'TArrow'#29'FormsMoveAutoCreatedFormUpBtn'#9'Arr'
+'owType'#7#4'atUp'#7'OnClick'#7'"FormsMoveAutoCreatedFormUpBtnClick'#4'Left'
+#2#6#6'Height'#2#24#3'Top'#2' '#5'Width'#2#24#0#0#6'TArrow FormsMoveAutoCrea'
+'tedFormsDownBtn'#9'ArrowType'#7#6'atDown'#7'OnClick'#7'$FormsMoveAutoCreate'
+'dFormDownBtnClick'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'<'#5'Width'#2#24#0#0
+#6'TArrow"FormsRemoveFromAutoCreatedFormsBtn'#9'ArrowType'#7#7'atRight'#20'B'
+'orderSpacing.Around'#2#6#7'OnClick'#7'''FormsRemoveFromAutoCreatedFormsBtnC'
+'lick'#22'AnchorSideLeft.Control'#7#23'FormsAutoCreatedListBox'#19'AnchorSid'
+'eLeft.Side'#7#9'asrBottom'#4'Left'#3#210#0#6'Height'#2#24#3'Top'#2' '#5'Wid'
+'th'#2#24#0#0#6'TArrow'#29'FormsAddToAutoCreatedFormsBtn'#7'OnClick'#7'"Form'
+'sAddToAutoCreatedFormsBtnClick'#22'AnchorSideLeft.Control'#7'"FormsRemoveFr'
+'omAutoCreatedFormsBtn'#4'Left'#3#210#0#6'Height'#2#24#3'Top'#2'<'#5'Width'#2
+#24#0#0#9'TCheckBox'#31'FormsAutoCreateNewFormsCheckBox'#5'Align'#7#8'alBott'
+'om'#20'BorderSpacing.Around'#2#6#7'Caption'#6#31'FormsAutoCreateNewFormsChe'
+'ckBox'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#24#3'Top'#3#22#1#5'Width'#3
+#171#1#0#0#0#5'TPage'#8'MiscPage'#7'Caption'#6#8'MiscPage'#11'ClientWidth'#3
+#183#1#12'ClientHeight'#3'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5'Wi'
,'dth'#3#183#1#0#9'TCheckBox)MainUnitHasUsesSectionForAllUnitsCheckBox'#5'Ali'
+'gn'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'Bord'
+'erSpacing.Right'#2#6#7'Caption'#6')MainUnitHasUsesSectionForAllUnitsCheckBo'
+'x'#8'TabOrder'#2#0#21'AnchorSideTop.Control'#7#30'MainUnitIsPascalSourceChe'
+'ckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3'T'
+'op'#2'$'#5'Width'#3#171#1#0#0#9'TCheckBox''MainUnitHasCreateFormStatementsC'
+'heckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.To'
+'p'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6'''MainUnitHasCreateFormStat'
+'ementsCheckBox'#8'TabOrder'#2#1#21'AnchorSideTop.Control'#7')MainUnitHasUse'
+'sSectionForAllUnitsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+#6#6'Height'#2#24#3'Top'#2'>'#5'Width'#3#171#1#0#0#9'TCheckBox'#30'MainUnitI'
+'sPascalSourceCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'Bo'
+'rderSpacing.Top'#2#10#19'BorderSpacing.Right'#2#6#7'Caption'#6#30'MainUnitI'
+'sPascalSourceCheckBox'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#24#3'Top'#2
+#10#5'Width'#3#171#1#0#0#9'TCheckBox!MainUnitHasTitleStatementCheckBox'#5'Al'
+'ign'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'Bor'
+'derSpacing.Right'#2#6#7'Caption'#6'!MainUnitHasTitleStatementCheckBox'#8'Ta'
+'bOrder'#2#5#21'AnchorSideTop.Control'#7'''MainUnitHasCreateFormStatementsCh'
+'eckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3
+'Top'#2'X'#5'Width'#3#171#1#0#0#9'TCheckBox'#16'RunnableCheckBox'#5'Align'#7
+#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#10#19'BorderSpa'
+'cing.Right'#2#6#7'Caption'#6#16'RunnableCheckBox'#8'TabOrder'#2#3#21'Anchor'
+'SideTop.Control'#7'!MainUnitHasTitleStatementCheckBox'#18'AnchorSideTop.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'z'#5'Width'#3#171#1#0
+#0#9'TCheckBox'#19'AlwaysBuildCheckBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpa'
+'cing.Right'#2#6#7'Caption'#6#19'AlwaysBuildCheckBox'#8'TabOrder'#2#4#21'Anc'
+'horSideTop.Control'#7#16'RunnableCheckBox'#18'AnchorSideTop.Side'#7#9'asrBo'
+'ttom'#4'Left'#2#6#6'Height'#2#24#3'Top'#3#148#0#5'Width'#3#171#1#0#0#0#5'TP'
+'age'#10'LazDocPage'#7'Caption'#6#10'LazDocPage'#11'ClientWidth'#3#183#1#12
+'ClientHeight'#3'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3'Top'#2#28#5'Width'#3#183
+#1#0#6'TLabel'#6'Label2'#5'Align'#7#5'alTop'#7'Caption'#6'+NOTE: only absolu'
+'te paths are supported now'#5'Color'#7#6'clNone'#11'ParentColor'#8#6'Height'
+#2#13#3'Top'#3#222#0#5'Width'#3#183#1#0#0#9'TGroupBox'#19'LazDocPathsGroupBo'
+'x'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'LazDocP'
+'athsGroupBox'#12'ClientHeight'#3#210#0#11'ClientWidth'#3#171#1#8'TabOrder'#2
+#0#4'Left'#2#6#6'Height'#3#210#0#3'Top'#2#6#5'Width'#3#171#1#0#8'TListBox'#13
+'LazDocListBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'
+#2#0#8'TopIndex'#2#255#4'Left'#2#6#6'Height'#2'l'#3'Top'#2#6#5'Width'#3#159#1
+#0#0#7'TButton'#19'LazDocAddPathButton'#7'Caption'#6#19'LazDocAddPathButton'
+#7'OnClick'#7#24'LazDocAddPathButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6'Hei'
+'ght'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#7'TButton'#22'LazDocDeletePathButto'
+'n'#7'Caption'#6#22'LazDocDeletePathButton'#7'OnClick'#7#27'LazDocDeletePath'
+'ButtonClick'#8'TabOrder'#2#2#4'Left'#2'Z'#6'Height'#2#25#3'Top'#2'z'#5'Widt'
+'h'#2'K'#0#0#5'TEdit'#14'LazDocPathEdit'#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#8'TabOrder'#2#3#4'Text'#6#14'LazDocPathEdit'#4'Left'#2#6#6'Heigh'
+'t'#2#23#3'Top'#3#154#0#5'Width'#3's'#1#0#0#7'TButton'#18'LazDocBrowseButton'
+#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#3'...'#7'OnClick'#7#23'Laz'
+'DocBrowseButtonClick'#8'TabOrder'#2#4#4'Left'#3'~'#1#6'Height'#2#23#3'Top'#3
+#154#0#5'Width'#2#23#0#0#0#0#5'TPage'#8'SavePage'#7'Caption'#6#8'SavePage'#11
+'ClientWidth'#3#183#1#12'ClientHeight'#3'4'#1#4'Left'#2#2#6'Height'#3'4'#1#3
+'Top'#2#28#5'Width'#3#183#1#0#9'TCheckBox'#26'SaveClosedUnitInfoCheckBox'#5
+'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'B'
+'orderSpacing.Right'#2#6#7'Caption'#6#26'SaveClosedUnitInfoCheckBox'#8'TabOr'
+'der'#2#0#4'Left'#2#6#6'Height'#2#24#3'Top'#2#6#5'Width'#3#171#1#0#0#9'TChec'
+'kBox'#31'SaveOnlyProjectUnitInfoCheckBox'#5'Align'#7#5'alTop'#18'BorderSpac'
+'ing.Left'#2#6#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Capti'
+'on'#6#31'SaveOnlyProjectUnitInfoCheckBox'#8'TabOrder'#2#1#21'AnchorSideTop.'
+'Control'#7#26'SaveClosedUnitInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#4'Left'#2#6#6'Height'#2#24#3'Top'#2' '#5'Width'#3#171#1#0#0#11'TRadioG'
+'roup'#29'SaveSessionLocationRadioGroup'#8'AutoFill'#9#17'BorderSpacing.Top'
+#2#5#20'BorderSpacing.Around'#2#6#7'Caption'#6#29'SaveSessionLocationRadioGr'
+'oup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2
+#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Child'
,'Sizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shrin'
+'kHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsSc'
+'aleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Ch'
+'ildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#2#21'AnchorSideTop.Control'#7
+#31'SaveOnlyProjectUnitInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2#7#6'Height'#2'u'#3'Top'#2'C'#5'Width'#3#157#1#0#0#0#0#7'TButton'#12
+'CancelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'
+#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3'e'#1#6'Height'#2
+#25#3'Top'#3'X'#1#5'Width'#2'K'#0#0#7'TButton'#8'OKButton'#7'Anchors'#11#7'a'
+'kRight'#8'akBottom'#0#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8
+'TabOrder'#2#2#4'Left'#3#13#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#0#0
+#22'TSelectDirectoryDialog'#21'SelectDirectoryDialog'#5'Title'#6#16'Select D'
+'irectory'#11'FilterIndex'#2#0#5'Title'#6#16'Select Directory'#4'left'#3'X'#1
+#3'top'#2#8#0#0#0
+'eight'#2#14#3'Top'#2#10#5'Width'#2'k'#0#0#8'TListBox'#23'FormsAutoCreatedLi'
+'stBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Arou'
+'nd'#2#6#11'MultiSelect'#9#8'TabOrder'#2#0#22'AnchorSideLeft.Control'#7#29'F'
+'ormsMoveAutoCreatedFormUpBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'Anc'
+'horSideBottom.Control'#7#31'FormsAutoCreateNewFormsCheckBox'#4'Left'#2'$'#6
+'Height'#3#255#0#3'Top'#2' '#5'Width'#3#168#0#0#0#8'TListBox'#22'FormsAvailF'
+'ormsListBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'B'
+'orderSpacing.Around'#2#6#11'MultiSelect'#9#8'TabOrder'#2#1#22'AnchorSideLef'
+'t.Control'#7#29'FormsAddToAutoCreatedFormsBtn'#19'AnchorSideLeft.Side'#7#9
+'asrBottom'#24'AnchorSideBottom.Control'#7#31'FormsAutoCreateNewFormsCheckBo'
+'x'#4'Left'#3#240#0#6'Height'#3#255#0#3'Top'#2' '#5'Width'#3#181#0#0#0#6'TAr'
+'row'#29'FormsMoveAutoCreatedFormUpBtn'#9'ArrowType'#7#4'atUp'#7'OnClick'#7
+'"FormsMoveAutoCreatedFormUpBtnClick'#4'Left'#2#6#6'Height'#2#24#3'Top'#2' '
+#5'Width'#2#24#0#0#6'TArrow FormsMoveAutoCreatedFormsDownBtn'#9'ArrowType'#7
+#6'atDown'#7'OnClick'#7'$FormsMoveAutoCreatedFormDownBtnClick'#4'Left'#2#6#6
+'Height'#2#24#3'Top'#2'<'#5'Width'#2#24#0#0#6'TArrow"FormsRemoveFromAutoCrea'
+'tedFormsBtn'#9'ArrowType'#7#7'atRight'#20'BorderSpacing.Around'#2#6#7'OnCli'
+'ck'#7'''FormsRemoveFromAutoCreatedFormsBtnClick'#22'AnchorSideLeft.Control'
+#7#23'FormsAutoCreatedListBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'
+#3#210#0#6'Height'#2#24#3'Top'#2' '#5'Width'#2#24#0#0#6'TArrow'#29'FormsAddT'
+'oAutoCreatedFormsBtn'#7'OnClick'#7'"FormsAddToAutoCreatedFormsBtnClick'#22
+'AnchorSideLeft.Control'#7'"FormsRemoveFromAutoCreatedFormsBtn'#4'Left'#3#210
+#0#6'Height'#2#24#3'Top'#2'<'#5'Width'#2#24#0#0#9'TCheckBox'#31'FormsAutoCre'
+'ateNewFormsCheckBox'#5'Align'#7#8'alBottom'#20'BorderSpacing.Around'#2#6#7
+'Caption'#6#31'FormsAutoCreateNewFormsCheckBox'#8'TabOrder'#2#2#4'Left'#2#6#6
+'Height'#2#13#3'Top'#3'%'#1#5'Width'#3#167#1#0#0#0#5'TPage'#8'MiscPage'#7'Ca'
+'ption'#6#8'MiscPage'#11'ClientWidth'#3#179#1#12'ClientHeight'#3'8'#1#6'Heig'
+'ht'#3'8'#1#5'Width'#3#179#1#0#9'TCheckBox)MainUnitHasUsesSectionForAllUnits'
+'CheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.T'
,'op'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6')MainUnitHasUsesSectionFor'
+'AllUnitsCheckBox'#8'TabOrder'#2#0#21'AnchorSideTop.Control'#7#30'MainUnitIs'
+'PascalSourceCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'H'
+'eight'#2#13#3'Top'#2#25#5'Width'#3#167#1#0#0#9'TCheckBox''MainUnitHasCreate'
+'FormStatementsCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'B'
+'orderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6'''MainUnitHa'
+'sCreateFormStatementsCheckBox'#8'TabOrder'#2#1#21'AnchorSideTop.Control'#7
+')MainUnitHasUsesSectionForAllUnitsCheckBox'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'('#5'Width'#3#167#1#0#0#9'TCheck'
+'Box'#30'MainUnitIsPascalSourceCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacin'
+'g.Left'#2#6#17'BorderSpacing.Top'#2#10#19'BorderSpacing.Right'#2#6#7'Captio'
+'n'#6#30'MainUnitIsPascalSourceCheckBox'#8'TabOrder'#2#2#4'Left'#2#6#6'Heigh'
+'t'#2#13#3'Top'#2#10#5'Width'#3#167#1#0#0#9'TCheckBox!MainUnitHasTitleStatem'
+'entCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacin'
+'g.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6'!MainUnitHasTitleStatem'
+'entCheckBox'#8'TabOrder'#2#5#21'AnchorSideTop.Control'#7'''MainUnitHasCreat'
+'eFormStatementsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6
+'Height'#2#13#3'Top'#2'7'#5'Width'#3#167#1#0#0#9'TCheckBox'#16'RunnableCheck'
+'Box'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2
+#10#19'BorderSpacing.Right'#2#6#7'Caption'#6#16'RunnableCheckBox'#8'TabOrder'
+#2#3#21'AnchorSideTop.Control'#7'!MainUnitHasTitleStatementCheckBox'#18'Anch'
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2'N'#5'Wid'
+'th'#3#167#1#0#0#9'TCheckBox'#19'AlwaysBuildCheckBox'#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#2
+#19'BorderSpacing.Right'#2#6#7'Caption'#6#19'AlwaysBuildCheckBox'#8'TabOrder'
+#2#4#21'AnchorSideTop.Control'#7#16'RunnableCheckBox'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#2']'#5'Width'#3#167#1#0#0#0
+#5'TPage'#10'LazDocPage'#7'Caption'#6#10'LazDocPage'#11'ClientWidth'#3#179#1
+#12'ClientHeight'#3'8'#1#6'Height'#3'8'#1#5'Width'#3#179#1#0#6'TLabel'#6'Lab'
+'el2'#5'Align'#7#5'alTop'#7'Caption'#6'+NOTE: only absolute paths are suppor'
+'ted now'#5'Color'#7#6'clNone'#11'ParentColor'#8#6'Height'#2#14#3'Top'#3#222
+#0#5'Width'#3#179#1#0#0#9'TGroupBox'#19'LazDocPathsGroupBox'#5'Align'#7#5'al'
+'Top'#20'BorderSpacing.Around'#2#6#7'Caption'#6#19'LazDocPathsGroupBox'#12'C'
+'lientHeight'#3#210#0#11'ClientWidth'#3#167#1#8'TabOrder'#2#0#4'Left'#2#6#6
+'Height'#3#210#0#3'Top'#2#6#5'Width'#3#167#1#0#8'TListBox'#13'LazDocListBox'
+#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Left'#2#6
+#6'Height'#2'l'#3'Top'#2#6#5'Width'#3#151#1#0#0#7'TButton'#19'LazDocAddPathB'
+'utton'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#19'LazDocAddPathButto'
+'n'#7'OnClick'#7#24'LazDocAddPathButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6
+'Height'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#7'TButton'#22'LazDocDeletePathBu'
+'tton'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#22'LazDocDeletePathBut'
+'ton'#7'OnClick'#7#27'LazDocDeletePathButtonClick'#8'TabOrder'#2#2#4'Left'#2
+'Z'#6'Height'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#5'TEdit'#14'LazDocPathEdit'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#4'Text'#6#14
+'LazDocPathEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#154#0#5'Width'#3'k'#1#0
+#0#7'TButton'#18'LazDocBrowseButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#23'LazDocBr'
+'owseButtonClick'#8'TabOrder'#2#4#4'Left'#3'v'#1#6'Height'#2#23#3'Top'#3#154
+#0#5'Width'#2#23#0#0#0#0#5'TPage'#8'SavePage'#7'Caption'#6#8'SavePage'#11'Cl'
+'ientWidth'#3#179#1#12'ClientHeight'#3'8'#1#6'Height'#3'8'#1#5'Width'#3#179#1
+#0#9'TCheckBox'#26'SaveClosedUnitInfoCheckBox'#5'Align'#7#5'alTop'#18'Border'
+'Spacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'C'
+'aption'#6#26'SaveClosedUnitInfoCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Heig'
+'ht'#2#13#3'Top'#2#6#5'Width'#3#167#1#0#0#9'TCheckBox'#31'SaveOnlyProjectUni'
+'tInfoCheckBox'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpac'
+'ing.Top'#2#2#19'BorderSpacing.Right'#2#6#7'Caption'#6#31'SaveOnlyProjectUni'
+'tInfoCheckBox'#8'TabOrder'#2#1#21'AnchorSideTop.Control'#7#26'SaveClosedUni'
+'tInfoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#13#3'Top'#2#21#5'Width'#3#167#1#0#0#11'TRadioGroup'#29'SaveSessionLocationR'
+'adioGroup'#8'AutoFill'#9#17'BorderSpacing.Top'#2#5#20'BorderSpacing.Around'
+#2#6#7'Caption'#6#29'SaveSessionLocationRadioGroup'#28'ChildSizing.LeftRight'
+'Spacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHor'
+'izontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24
+'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi'
,'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay'
+'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1
+#8'TabOrder'#2#2#21'AnchorSideTop.Control'#7#31'SaveOnlyProjectUnitInfoCheck'
+'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#7#6'Height'#2'u'#3'Top'
+#2'-'#5'Width'#3#157#1#0#0#0#5'TPage'#15'VersionInfoPage'#7'Caption'#6#15'Ve'
+'rsionInfoPage'#11'ClientWidth'#3#179#1#12'ClientHeight'#3'8'#1#6'Height'#3
+'8'#1#5'Width'#3#179#1#0#9'TGroupBox'#19'VersionInfoGroupBox'#7'Caption'#6#17
+'Version Numbering'#12'ClientHeight'#2'0'#11'ClientWidth'#3#150#1#7'Enabled'
+#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'B'#3'Top'#2#24#5'Width'#3#154#1#0
+#6'TLabel'#12'VersionLabel'#7'Caption'#6#8'Version:'#5'Color'#7#6'clNone'#7
+'Enabled'#8#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2#6#5'Width'
+#2'('#0#0#6'TLabel'#18'MajorRevisionLabel'#7'Caption'#6#15'Major Revision:'#5
+'Color'#7#6'clNone'#7'Enabled'#8#11'ParentColor'#8#4'Left'#2'\'#6'Height'#2
+#14#3'Top'#2#6#5'Width'#2'K'#0#0#6'TLabel'#18'MinorRevisionLabel'#7'Caption'
+#6#15'Minor Revision:'#5'Color'#7#6'clNone'#7'Enabled'#8#11'ParentColor'#8#4
+'Left'#3#212#0#6'Height'#2#14#3'Top'#2#6#5'Width'#2'J'#0#0#6'TLabel'#10'Buil'
+'dLabel'#7'Caption'#6#6'Build:'#5'Color'#7#6'clNone'#7'Enabled'#8#11'ParentC'
+'olor'#8#4'Left'#3'L'#1#6'Height'#2#14#3'Top'#2#6#5'Width'#2#27#0#0#5'TEdit'
+#9'BuildEdit'#7'Enabled'#8#8'TabOrder'#2#0#4'Text'#6#1'0'#4'Left'#3'l'#1#6'H'
+'eight'#2#20#3'Top'#2#3#5'Width'#2' '#0#0#9'TSpinEdit'#15'VersionSpinEdit'#7
+'Enabled'#8#8'TabOrder'#2#1#4'Left'#2'7'#6'Height'#2#20#3'Top'#2#3#5'Width'#2
+' '#0#0#9'TSpinEdit'#21'MajorRevisionSpinEdit'#7'Enabled'#8#8'TabOrder'#2#2#4
+'Left'#3#172#0#6'Height'#2#20#3'Top'#2#2#5'Width'#2' '#0#0#9'TSpinEdit'#21'M'
+'inorRevisionSpinEdit'#7'Enabled'#8#8'TabOrder'#2#3#4'Left'#3' '#1#6'Height'
+#2#20#3'Top'#2#3#5'Width'#2' '#0#0#9'TCheckBox"AutomaticallyIncreaseBuildChe'
+'ckBox'#7'Caption'#6#28'Automatically increase Build'#7'Enabled'#8#8'TabOrde'
+'r'#2#4#4'Left'#2#12#6'Height'#2#13#3'Top'#2#30#5'Width'#3#151#0#0#0#0#9'TCh'
+'eckBox'#22'UseVersionInfoCheckBox'#7'Caption'#6'"Include Version Info in ex'
+'ecutable'#7'Enabled'#8#8'OnChange'#7#28'UseVersionInfoCheckBoxChange'#8'Tab'
+'Order'#2#1#4'Left'#2#12#6'Height'#2#13#3'Top'#2#6#5'Width'#3#180#0#0#0#9'TG'
+'roupBox'#24'LanguageSettingsGroupBox'#7'Caption'#6#16'Language Options'#12
+'ClientHeight'#2'0'#11'ClientWidth'#3#150#1#7'Enabled'#8#8'TabOrder'#2#2#4'L'
+'eft'#2#6#6'Height'#2'B'#3'Top'#2'b'#5'Width'#3#154#1#0#6'TLabel'#22'Languag'
+'eSelectionLabel'#7'Caption'#6#19'Language Selection:'#5'Color'#7#6'clNone'#7
+'Enabled'#8#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2#6#5'Width'
+#2'b'#0#0#6'TLabel'#17'CharacterSetLabel'#7'Caption'#6#14'Character Set:'#5
+'Color'#7#6'clNone'#7'Enabled'#8#11'ParentColor'#8#4'Left'#3#12#1#6'Height'#2
+#14#3'Top'#2#6#5'Width'#2'H'#0#0#9'TComboBox'#25'LanguageSelectionComboBox'
+#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+#0#7'Enabled'#8#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Text'#6#11'Enlish (US)'#4
+'Left'#2#12#6'Height'#2#21#3'Top'#2#21#5'Width'#3#248#0#0#0#9'TComboBox'#20
+'CharacterSetComboBox'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20
+'cbactSearchAscending'#0#7'Enabled'#8#9'MaxLength'#2#0#8'TabOrder'#2#1#4'Tex'
+'t'#6#12'MultiLingual'#4'Left'#3#12#1#6'Height'#2#21#3'Top'#2#21#5'Width'#3
+#128#0#0#0#0#9'TGroupBox'#17'OtherInfoGroupBox'#7'Caption'#6#10'Other Info'
+#12'ClientHeight'#2'W'#11'ClientWidth'#3#150#1#7'Enabled'#8#8'TabOrder'#2#3#4
+'Left'#2#6#6'Height'#2'i'#3'Top'#3#178#0#5'Width'#3#154#1#0#6'TLabel'#16'Des'
+'criptionLabel'#7'Caption'#6#12'Description:'#5'Color'#7#6'clNone'#7'Enabled'
+#8#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2#4#5'Width'#2':'#0#0
+#6'TLabel'#14'CopyrightLabel'#7'Caption'#6#10'Copyright:'#5'Color'#7#6'clNon'
+'e'#7'Enabled'#8#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2#28#5
+'Width'#2'4'#0#0#5'TEdit'#15'DescriptionEdit'#7'Enabled'#8#8'TabOrder'#2#0#4
+'Left'#2'L'#6'Height'#2#21#5'Width'#3'@'#1#0#0#5'TEdit'#13'CopyrightEdit'#7
+'Enabled'#8#8'TabOrder'#2#1#4'Left'#2'L'#6'Height'#2#21#3'Top'#2#24#5'Width'
+#3'@'#1#0#0#7'TButton'#20'AdditionalInfoButton'#25'BorderSpacing.InnerBorder'
+#2#4#7'Caption'#6#15'Additional Info'#7'OnClick'#7#25'AdditionalInfoButtonCl'
+'ick'#8'TabOrder'#2#2#4'Left'#3'9'#1#6'Height'#2#25#3'Top'#2'8'#5'Width'#2'S'
+#0#0#0#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0
+#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'Mod'
+'alResult'#2#2#8'TabOrder'#2#1#4'Left'#3'e'#1#6'Height'#2#25#3'Top'#3'X'#1#5
+'Width'#2'K'#0#0#7'TButton'#8'OKButton'#7'Anchors'#11#7'akRight'#8'akBottom'
+#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'OK'#7'Default'#9#11'Moda'
+'lResult'#2#1#8'TabOrder'#2#2#4'Left'#3#13#1#6'Height'#2#25#3'Top'#3'X'#1#5
+'Width'#2'K'#0#0#22'TSelectDirectoryDialog'#21'SelectDirectoryDialog'#5'Titl'
,'e'#6#16'Select Directory'#11'FilterIndex'#2#0#5'Title'#6#16'Select Director'
+'y'#4'left'#3'X'#1#3'top'#2#8#0#0#0
]);

View File

@ -38,7 +38,8 @@ interface
uses
Arrow, Buttons, LCLProc, Classes, CodeToolManager, Controls, Dialogs,
ExtCtrls, Forms, Graphics, IDEOptionDefs, IDEWindowIntf, LazarusIDEStrConsts,
LCLIntf, LResources, Project, ProjectIntf, StdCtrls, SysUtils, IDEProcs;
LCLIntf, LResources, Project, ProjectIntf, StdCtrls, SysUtils, IDEProcs, Spin,
VersionInfoAdditionalInfo;
type
@ -53,6 +54,7 @@ type
MiscPage: TPage;
LazDocPage: TPage;
SavePage: TPage;
VersionInfoPage: TPage;
// Application
AppSettingsGroupBox: TGroupBox;
@ -96,10 +98,36 @@ type
SaveOnlyProjectUnitInfoCheckBox: TCheckBox;
SaveSessionLocationRadioGroup: TRadioGroup;
// VersionInfo
UseVersionInfoCheckBox: TCheckBox;
VersionInfoGroupBox: TGroupBox;
VersionLabel: TLabel;
MajorRevisionLabel: TLabel;
MinorRevisionLabel: TLabel;
BuildLabel: TLabel;
VersionSpinEdit: TSpinEdit;
MajorRevisionSpinEdit: TSpinEdit;
MinorRevisionSpinEdit: TSpinEdit;
BuildEdit: TEdit;
AutomaticallyIncreaseBuildCheckBox: TCheckBox;
LanguageSettingsGroupBox: TGroupBox;
LanguageSelectionLabel: TLabel;
CharacterSetLabel: TLabel;
LanguageSelectionComboBox: TComboBox;
CharacterSetComboBox: TComboBox;
OtherInfoGroupBox: TGroupBox;
AdditionalInfoButton: TButton;
DescriptionEdit: TEdit;
CopyrightEdit: TEdit;
DescriptionLabel: TLabel;
CopyrightLabel: TLabel;
AdditionalInfoForm: TVersionInfoAdditinalInfoForm;
// buttons at bottom
OKButton: TButton;
CancelButton: TButton;
procedure AdditionalInfoButtonClick(Sender: TObject);
procedure FormsPageResize(Sender: TObject);
procedure LazDocAddPathButtonClick(Sender: TObject);
procedure LazDocBrowseButtonClick(Sender: TObject);
@ -111,6 +139,7 @@ type
procedure FormsRemoveFromAutoCreatedFormsBtnClick(Sender: TObject);
procedure FormsMoveAutoCreatedFormUpBtnClick(Sender: TObject);
procedure FormsMoveAutoCreatedFormDownBtnClick(Sender: TObject);
procedure UseVersionInfoCheckBoxChange(Sender: TObject);
private
FProject: TProject;
procedure SetProject(AProject: TProject);
@ -119,6 +148,7 @@ type
procedure SetupMiscPage(PageIndex: Integer);
procedure SetupLazDocPage(PageIndex: Integer);
procedure SetupSavePage(PageIndex: Integer);
procedure SetupVersionInfoPage(PageIndex: Integer);
procedure FillAutoCreateFormsListbox;
procedure FillAvailFormsListBox;
function IndexOfAutoCreateForm(FormName: String): Integer;
@ -196,6 +226,7 @@ begin
SetupMiscPage(2);
SetupLazDocPage(3);
SetupSavePage(4);
SetupVersionInfoPage(5);
ProjectOptionsResize(TheOwner);
@ -260,7 +291,13 @@ begin
AlwaysBuildCheckBox.Caption := lisProjOptsAlwaysBuildEvenIfNothingChanged;
end;
procedure TProjectOptionsDialog.SetupVersionInfoPage(PageIndex: Integer);
begin
NoteBook.Page[PageIndex].Caption := VersionInfoTitle;
end;
procedure TProjectOptionsDialog.SetProject(AProject: TProject);
var Count: integer;
begin
FProject := AProject;
if AProject = Nil then
@ -294,6 +331,54 @@ begin
//lazdoc
SplitString(Project.LazDocPaths,';',LazDocListBox.Items,true);
// VersionInfo
// Project.VersionInfo.SetFileNames(Project.MainFilename);
UseVersionInfoCheckBox.Enabled := (Project.VersionInfo.TargetOS = 'win32');
// UseVersionInfoCheckBox.Enabled := Project.VersionInfo.UseVersionInfo;
VersionSpinEdit.Value := Project.VersionInfo.VersionNr;
MajorRevisionSpinEdit.Value := Project.VersionInfo.MajorRevNr;
MinorRevisionSpinEdit.Value := Project.VersionInfo.MinorRevNr;
BuildEdit.Text := IntToStr(Project.VersionInfo.BuildNr);
if Project.VersionInfo.UseVersionInfo then
begin
UseVersionInfoCheckBox.Checked := true;
VersionInfoGroupBox.Enabled := true;
VersionLabel.Enabled := true;
MajorRevisionLabel.Enabled := true;
MinorRevisionLabel.Enabled := true;
BuildLabel.Enabled := true;
VersionSpinEdit.Enabled := true;
MajorRevisionSpinEdit.Enabled := true;
MinorRevisionSpinEdit.Enabled := true;
BuildEdit.Enabled := true;
AutomaticallyIncreaseBuildCheckBox.Enabled := true;
LanguageSettingsGroupBox.Enabled := true;
LanguageSelectionLabel.Enabled := true;
CharacterSetLabel.Enabled := true;
LanguageSelectionComboBox.Enabled := true;
CharacterSetComboBox.Enabled := true;
OtherInfoGroupBox.Enabled := true;
DescriptionLabel.Enabled := true;
CopyrightLabel.Enabled := true;
DescriptionEdit.Enabled := true;
CopyrightEdit.Enabled := true;
AdditionalInfoButton.Enabled := true;
end;
if Project.VersionInfo.AutoIncrementBuild then AutomaticallyIncreaseBuildCheckBox.Checked := true;
for Count := 0 to (Project.VersionInfo.Languages.Count - 1) do
LanguageSelectionComboBox.Items.Add(Project.VersionInfo.Languages[Count]);
for Count := 0 to (Project.VersionInfo.CharSets.Count - 1) do
CharacterSetComboBox.Items.Add(Project.VersionInfo.CharSets[Count]);
LanguageSelectionComboBox.ItemIndex := Project.VersionInfo.HexLanguages.IndexOf(
Project.VersionInfo.HexLang);
CharacterSetComboBox.ItemIndex := Project.VersionInfo.HexCharSets.IndexOf(
Project.VersionInfo.HexCharSet);
DescriptionEdit.Text := Project.VersionInfo.DescriptionString;
CopyrightEdit.Text := Project.VersionInfo.CopyrightString;
end;
procedure TProjectOptionsDialog.ProjectOptionsClose(Sender: TObject;
@ -347,8 +432,21 @@ begin
SetProjectTitle;
//lazdoc
Project.LazDocPaths:=StringListToText(LazDocListBox.Items,';',true);
// VersionInfo
Project.VersionInfo.SetUseVersionInfo(UseVersionInfoCheckBox.Checked, Project.Modified);
Project.VersionInfo.SetAutoIncrementBuild(AutomaticallyIncreaseBuildCheckBox.Checked, Project.Modified);
Project.VersionInfo.SetVersionNr(VersionSpinEdit.Value, Project.Modified);
Project.VersionInfo.SetMajorRevNr(MajorRevisionSpinEdit.Value, Project.Modified);
Project.VersionInfo.SetMinorRevNr(MinorRevisionSpinEdit.Value, Project.Modified);
Project.VersionInfo.SetBuildNr(StrToInt(BuildEdit.Text), Project.Modified);
Project.VersionInfo.SetDescriptionString(DescriptionEdit.Text, Project.Modified);
Project.VersionInfo.SetCopyrightString(CopyrightEdit.Text, Project.Modified);
Project.VersionInfo.SetHexLang(LanguageSelectionComboBox.Items[LanguageSelectionComboBox.ItemIndex], Project.Modified);
Project.VersionInfo.SetHexCharSet(CharacterSetComboBox.Items[CharacterSetComboBox.ItemIndex], Project.Modified);
// Project.VersionInfo.HexLang := Project.VersionInfo.HexLanguages[Project.VersionInfo.Languages.IndexOf(LanguageSelectionComboBox.Items[LanguageSelectionComboBox.ItemIndex])];
// Project.VersionInfo.HexCharSet := Project.VersionInfo.HexCharSets[Project.VersionInfo.CharSets.IndexOf(CharacterSetComboBox.Items[CharacterSetComboBox.ItemIndex])];
end;
IDEDialogLayoutList.SaveLayout(Self);
@ -371,6 +469,11 @@ begin
Left := FormsAvailFormsListBox.Left;
end;
procedure TProjectOptionsDialog.AdditionalInfoButtonClick(Sender: TObject);
begin
ShowVersionInfoAdditionailInfoForm(Project.VersionInfo,Project.Modified);
end;
procedure TProjectOptionsDialog.LazDocBrowseButtonClick(Sender: TObject);
begin
if SelectDirectoryDialog.Execute then
@ -596,6 +699,68 @@ begin
SelectOnlyThisAutoCreateForm(i + 1);
end;
procedure TProjectOptionsDialog.UseVersionInfoCheckBoxChange(Sender: TObject);
begin
if UseVersionInfoCheckBox.Checked then
begin
{ checkbox is checked }
UseVersionInfoCheckBox.Checked := true;
VersionInfoGroupBox.Enabled := true;
VersionLabel.Enabled := true;
MajorRevisionLabel.Enabled := true;
MinorRevisionLabel.Enabled := true;
BuildLabel.Enabled := true;
VersionSpinEdit.Enabled := true;
MajorRevisionSpinEdit.Enabled := true;
MinorRevisionSpinEdit.Enabled := true;
BuildEdit.Enabled := true;
AutomaticallyIncreaseBuildCheckBox.Enabled := true;
LanguageSettingsGroupBox.Enabled := true;
LanguageSelectionLabel.Enabled := true;
CharacterSetLabel.Enabled := true;
LanguageSelectionComboBox.Enabled := true;
CharacterSetComboBox.Enabled := true;
OtherInfoGroupBox.Enabled := true;
DescriptionLabel.Enabled := true;
CopyrightLabel.Enabled := true;
DescriptionEdit.Enabled := true;
CopyrightEdit.Enabled := true;
AdditionalInfoButton.Enabled := true;
end
else
begin
{ checkbox in unchecked }
UseVersionInfoCheckBox.Checked := false;
VersionInfoGroupBox.Enabled := false;
VersionLabel.Enabled := false;
MajorRevisionLabel.Enabled := false;
MinorRevisionLabel.Enabled := false;
BuildLabel.Enabled := false;
VersionSpinEdit.Enabled := false;
MajorRevisionSpinEdit.Enabled := false;
MinorRevisionSpinEdit.Enabled := false;
BuildEdit.Enabled := false;
AutomaticallyIncreaseBuildCheckBox.Enabled := false;
LanguageSettingsGroupBox.Enabled := false;
LanguageSelectionLabel.Enabled := false;
CharacterSetLabel.Enabled := false;
LanguageSelectionComboBox.Enabled := false;
CharacterSetComboBox.Enabled := false;
OtherInfoGroupBox.Enabled := false;
DescriptionLabel.Enabled := false;
CopyrightLabel.Enabled := false;
DescriptionEdit.Enabled := false;
CopyrightEdit.Enabled := false;
AdditionalInfoButton.Enabled := false;
end;
end;
procedure TProjectOptionsDialog.ProjectOptionsResize(Sender: TObject);
begin
end;

View File

@ -1,2 +1,2 @@
// Created by Svn2RevisionInc
const RevisionStr = '9728M';
const RevisionStr = '9827';

View File

@ -24,7 +24,7 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, Controls, Forms, NewItemIntf,
ObjInspStrConsts;
const
FileDescGroupName = 'File';
FileDescNamePascalUnit = 'Unit';
@ -495,7 +495,6 @@ type
property Descriptor: TProjectDescriptor read FDescriptor write FDescriptor;
end;
{ TLazProject - interface class to a Lazarus project }
TProjectFileSearchFlag = (