paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added windows version info for projects from Jouke Rensma

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

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

2
ide/frmsearch.pas
View File

@ -573,7 +573,7 @@ begin
FoundStartPos.Y,FoundStartPos.X); FoundStartPos.Y,FoundStartPos.X);
OriginalFile.AbsoluteToLineCol(NewMatchEndPos, OriginalFile.AbsoluteToLineCol(NewMatchEndPos,
FoundEndPos.Y,FoundEndPos.X); 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 if sesoReplace in Flags then begin
DoReplaceLine DoReplaceLine
end else begin end else begin

2
ide/lazarusidestrconsts.pas
View File

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

19
ide/lazbuild.lpi
View File

@ -9,6 +9,25 @@
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
</General> </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> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

17
ide/main.pp
View File

@ -7438,6 +7438,7 @@ var
CompilerFilename: String; CompilerFilename: String;
WorkingDir: String; WorkingDir: String;
CompilerParams: String; CompilerParams: String;
Count: integer;
begin begin
if Project1.MainUnitInfo=nil then begin if Project1.MainUnitInfo=nil then begin
// this project has not source to compile // this project has not source to compile
@ -7448,13 +7449,23 @@ begin
Result:=PrepareForCompile; Result:=PrepareForCompile;
if Result<>mrOk then exit; if Result<>mrOk then exit;
Result:=DoSaveForBuild;
if Result<>mrOk then exit;
// show messages // show messages
MessagesView.Clear; MessagesView.Clear;
MessagesView.BeginBlock; MessagesView.BeginBlock;
try 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 // compile required packages
if not (pbfDoNotCompileDependencies in Flags) then begin if not (pbfDoNotCompileDependencies in Flags) then begin
PkgFlags:=[pcfDoNotSaveEditorFiles]; PkgFlags:=[pcfDoNotSaveEditorFiles];

52
ide/project.pp
View File

@ -51,7 +51,9 @@ uses
Dialogs, Laz_XMLCfg, LazConf, FileUtil, Dialogs, Laz_XMLCfg, LazConf, FileUtil,
LazarusIDEStrConsts, CompilerOptions, CodeToolManager, CodeCache, LazarusIDEStrConsts, CompilerOptions, CodeToolManager, CodeCache,
EditorOptions, IDEProcs, RunParamsOpts, ProjectIntf, ProjectDefs, EditorOptions, IDEProcs, RunParamsOpts, ProjectIntf, ProjectDefs,
FileReferenceList, EditDefineTree, DefineTemplates, PackageDefs, LazIDEIntf; FileReferenceList, EditDefineTree, DefineTemplates, PackageDefs, LazIDEIntf,
// for versioninfo
W32VersionInfo;
type type
TUnitInfo = class; TUnitInfo = class;
@ -520,6 +522,8 @@ type
procedure AddToOrRemoveFromLoadedList(AnUnitInfo: TUnitInfo); procedure AddToOrRemoveFromLoadedList(AnUnitInfo: TUnitInfo);
procedure AddToOrRemoveFromPartOfProjectList(AnUnitInfo: TUnitInfo); procedure AddToOrRemoveFromPartOfProjectList(AnUnitInfo: TUnitInfo);
public public
VersionInfo: TVersionInfo;
constructor Create(ProjectDescription: TProjectDescriptor); override; constructor Create(ProjectDescription: TProjectDescriptor); override;
destructor Destroy; override; destructor Destroy; override;
procedure Clear; procedure Clear;
@ -1456,6 +1460,8 @@ begin
FTargetFileExt := GetExecutableExt; FTargetFileExt := GetExecutableExt;
Title := ''; Title := '';
FUnitList := TFPList.Create; // list of TUnitInfo FUnitList := TFPList.Create; // list of TUnitInfo
VersionInfo := TVersionInfo.Create;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -1636,6 +1642,25 @@ begin
//lazdoc //lazdoc
xmlconfig.SetDeleteValue(Path+'LazDoc/Paths', LazDocPaths, ''); 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 // Save the compiler options
CompilerOptions.SaveToXMLConfig(XMLConfig,'CompilerOptions/'); CompilerOptions.SaveToXMLConfig(XMLConfig,'CompilerOptions/');
@ -1981,6 +2006,27 @@ begin
// Lazdoc // Lazdoc
LazDocPaths := xmlconfig.GetValue(Path+'LazDoc/Paths', ''); 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} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject E reading comp sets');{$ENDIF}
// Load the compiler options // Load the compiler options
LoadCompilerOptions(XMLConfig,Path); LoadCompilerOptions(XMLConfig,Path);
@ -2303,6 +2349,10 @@ begin
inherited SetSessionModified(AValue); inherited SetSessionModified(AValue);
end; end;
//function TProject.GetVersionInfo: TVersionInfo;
//begin
//end;
function TProject.UnitCount:integer; function TProject.UnitCount:integer;
begin begin
Result:=FUnitList.Count; Result:=FUnitList.Count;

399
ide/projectopts.lfm
View File

@ -1,43 +1,40 @@
object ProjectOptionsDialog: TProjectOptionsDialog object ProjectOptionsDialog: TProjectOptionsDialog
ActiveControl = TitleEdit
Caption = 'ProjectOptionsDialog' Caption = 'ProjectOptionsDialog'
ClientHeight = 375 ClientHeight = 375
ClientWidth = 443 ClientWidth = 443
OnClose = ProjectOptionsClose OnClose = ProjectOptionsClose
OnResize = ProjectOptionsResize OnResize = ProjectOptionsResize
PixelsPerInch = 112 PixelsPerInch = 96
Position = poScreenCenter Position = poScreenCenter
HorzScrollBar.Page = 442 HorzScrollBar.Page = 442
VertScrollBar.Page = 374 VertScrollBar.Page = 374
Left = 738 Left = 111
Height = 375 Height = 375
Top = 236 Top = 289
Width = 443 Width = 443
object Notebook: TNotebook object Notebook: TNotebook
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 1 PageIndex = 5
Height = 338 Height = 338
Width = 443 Width = 443
object ApplicationPage: TPage object ApplicationPage: TPage
Caption = 'ApplicationPage' Caption = 'ApplicationPage'
ClientWidth = 439 ClientWidth = 435
ClientHeight = 308 ClientHeight = 312
Left = 2 Height = 312
Height = 308 Width = 435
Top = 28
Width = 439
object AppSettingsGroupBox: TGroupBox object AppSettingsGroupBox: TGroupBox
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'AppSettingsGroupBox' Caption = 'AppSettingsGroupBox'
ClientHeight = 56 ClientHeight = 55
ClientWidth = 423 ClientWidth = 419
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 73 Height = 73
Top = 6 Top = 6
Width = 427 Width = 423
object TitleLabel: TLabel object TitleLabel: TLabel
Align = alTop Align = alTop
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -47,9 +44,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
Left = 6 Left = 6
Height = 13 Height = 14
Top = 6 Top = 6
Width = 411 Width = 407
end end
object TitleEdit: TEdit object TitleEdit: TEdit
Align = alTop Align = alTop
@ -59,21 +56,21 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Text = 'TitleEdit' Text = 'TitleEdit'
Left = 6 Left = 6
Height = 23 Height = 23
Top = 19 Top = 20
Width = 411 Width = 407
end end
end end
object OutputSettingsGroupBox: TGroupBox object OutputSettingsGroupBox: TGroupBox
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'OutputSettingsGroupBox' Caption = 'OutputSettingsGroupBox'
ClientHeight = 56 ClientHeight = 55
ClientWidth = 423 ClientWidth = 419
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
Height = 73 Height = 73
Top = 85 Top = 85
Width = 427 Width = 423
object TargetFileLabel: TLabel object TargetFileLabel: TLabel
Align = alTop Align = alTop
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -83,9 +80,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
Left = 6 Left = 6
Height = 13 Height = 14
Top = 6 Top = 6
Width = 411 Width = 407
end end
object TargetFileEdit: TEdit object TargetFileEdit: TEdit
Align = alTop Align = alTop
@ -95,28 +92,26 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Text = 'TargetFileEdit' Text = 'TargetFileEdit'
Left = 6 Left = 6
Height = 23 Height = 23
Top = 19 Top = 20
Width = 411 Width = 407
end end
end end
end end
object FormsPage: TPage object FormsPage: TPage
Caption = 'FormsPage' Caption = 'FormsPage'
ClientWidth = 439 ClientWidth = 435
ClientHeight = 308 ClientHeight = 312
OnResize = FormsPageResize OnResize = FormsPageResize
Left = 2 Height = 312
Height = 308 Width = 435
Top = 28
Width = 439
object FormsAutoCreatedLabel: TLabel object FormsAutoCreatedLabel: TLabel
Caption = 'FormsAutoCreatedLabel' Caption = 'FormsAutoCreatedLabel'
Color = clNone Color = clNone
ParentColor = False ParentColor = False
Left = 36 Left = 36
Height = 13 Height = 14
Top = 10 Top = 10
Width = 136 Width = 117
end end
object FormsAvailFormsLabel: TLabel object FormsAvailFormsLabel: TLabel
Caption = 'FormsAvailFormsLabel' Caption = 'FormsAvailFormsLabel'
@ -124,21 +119,20 @@ object ProjectOptionsDialog: TProjectOptionsDialog
ParentColor = False ParentColor = False
AnchorSideLeft.Control = FormsAvailFormsListBox AnchorSideLeft.Control = FormsAvailFormsListBox
Left = 240 Left = 240
Height = 13 Height = 14
Top = 10 Top = 10
Width = 129 Width = 107
end end
object FormsAutoCreatedListBox: TListBox object FormsAutoCreatedListBox: TListBox
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MultiSelect = True MultiSelect = True
TabOrder = 0 TabOrder = 0
TopIndex = -1
AnchorSideLeft.Control = FormsMoveAutoCreatedFormUpBtn AnchorSideLeft.Control = FormsMoveAutoCreatedFormUpBtn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox
Left = 36 Left = 36
Height = 240 Height = 255
Top = 32 Top = 32
Width = 168 Width = 168
end end
@ -147,14 +141,13 @@ object ProjectOptionsDialog: TProjectOptionsDialog
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MultiSelect = True MultiSelect = True
TabOrder = 1 TabOrder = 1
TopIndex = -1
AnchorSideLeft.Control = FormsAddToAutoCreatedFormsBtn AnchorSideLeft.Control = FormsAddToAutoCreatedFormsBtn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox
Left = 240 Left = 240
Height = 240 Height = 255
Top = 32 Top = 32
Width = 185 Width = 181
end end
object FormsMoveAutoCreatedFormUpBtn: TArrow object FormsMoveAutoCreatedFormUpBtn: TArrow
ArrowType = atUp ArrowType = atUp
@ -197,19 +190,17 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Caption = 'FormsAutoCreateNewFormsCheckBox' Caption = 'FormsAutoCreateNewFormsCheckBox'
TabOrder = 2 TabOrder = 2
Left = 6 Left = 6
Height = 24 Height = 13
Top = 278 Top = 293
Width = 427 Width = 423
end end
end end
object MiscPage: TPage object MiscPage: TPage
Caption = 'MiscPage' Caption = 'MiscPage'
ClientWidth = 439 ClientWidth = 435
ClientHeight = 308 ClientHeight = 312
Left = 2 Height = 312
Height = 308 Width = 435
Top = 28
Width = 439
object MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox object MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox
Align = alTop Align = alTop
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -220,9 +211,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitIsPascalSourceCheckBox AnchorSideTop.Control = MainUnitIsPascalSourceCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 13
Top = 36 Top = 25
Width = 427 Width = 423
end end
object MainUnitHasCreateFormStatementsCheckBox: TCheckBox object MainUnitHasCreateFormStatementsCheckBox: TCheckBox
Align = alTop Align = alTop
@ -234,9 +225,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitHasUsesSectionForAllUnitsCheckBox AnchorSideTop.Control = MainUnitHasUsesSectionForAllUnitsCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 13
Top = 62 Top = 40
Width = 427 Width = 423
end end
object MainUnitIsPascalSourceCheckBox: TCheckBox object MainUnitIsPascalSourceCheckBox: TCheckBox
Align = alTop Align = alTop
@ -246,9 +237,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Caption = 'MainUnitIsPascalSourceCheckBox' Caption = 'MainUnitIsPascalSourceCheckBox'
TabOrder = 2 TabOrder = 2
Left = 6 Left = 6
Height = 24 Height = 13
Top = 10 Top = 10
Width = 427 Width = 423
end end
object MainUnitHasTitleStatementCheckBox: TCheckBox object MainUnitHasTitleStatementCheckBox: TCheckBox
Align = alTop Align = alTop
@ -260,9 +251,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitHasCreateFormStatementsCheckBox AnchorSideTop.Control = MainUnitHasCreateFormStatementsCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 13
Top = 88 Top = 55
Width = 427 Width = 423
end end
object RunnableCheckBox: TCheckBox object RunnableCheckBox: TCheckBox
Align = alTop Align = alTop
@ -274,9 +265,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = MainUnitHasTitleStatementCheckBox AnchorSideTop.Control = MainUnitHasTitleStatementCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 13
Top = 122 Top = 78
Width = 427 Width = 423
end end
object AlwaysBuildCheckBox: TCheckBox object AlwaysBuildCheckBox: TCheckBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -288,51 +279,48 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = RunnableCheckBox AnchorSideTop.Control = RunnableCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 13
Top = 148 Top = 93
Width = 427 Width = 423
end end
end end
object LazDocPage: TPage object LazDocPage: TPage
Caption = 'LazDocPage' Caption = 'LazDocPage'
ClientWidth = 439 ClientWidth = 435
ClientHeight = 308 ClientHeight = 312
Left = 2 Height = 312
Height = 308 Width = 435
Top = 28
Width = 439
object Label2: TLabel object Label2: TLabel
Align = alTop Align = alTop
Caption = 'NOTE: only absolute paths are supported now' Caption = 'NOTE: only absolute paths are supported now'
Color = clNone Color = clNone
ParentColor = False ParentColor = False
Height = 13 Height = 14
Top = 222 Top = 222
Width = 439 Width = 435
end end
object LazDocPathsGroupBox: TGroupBox object LazDocPathsGroupBox: TGroupBox
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LazDocPathsGroupBox' Caption = 'LazDocPathsGroupBox'
ClientHeight = 210 ClientHeight = 210
ClientWidth = 427 ClientWidth = 423
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 210 Height = 210
Top = 6 Top = 6
Width = 427 Width = 423
object LazDocListBox: TListBox object LazDocListBox: TListBox
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
TopIndex = -1
Left = 6 Left = 6
Height = 108 Height = 108
Top = 6 Top = 6
Width = 415 Width = 407
end end
object LazDocAddPathButton: TButton object LazDocAddPathButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'LazDocAddPathButton' Caption = 'LazDocAddPathButton'
OnClick = LazDocAddPathButtonClick OnClick = LazDocAddPathButtonClick
TabOrder = 1 TabOrder = 1
@ -342,7 +330,7 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Width = 75 Width = 75
end end
object LazDocDeletePathButton: TButton object LazDocDeletePathButton: TButton
BorderSpacing.InnerBorder = 4
Caption = 'LazDocDeletePathButton' Caption = 'LazDocDeletePathButton'
OnClick = LazDocDeletePathButtonClick OnClick = LazDocDeletePathButtonClick
TabOrder = 2 TabOrder = 2
@ -358,15 +346,15 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Left = 6 Left = 6
Height = 23 Height = 23
Top = 154 Top = 154
Width = 371 Width = 363
end end
object LazDocBrowseButton: TButton object LazDocBrowseButton: TButton
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
Caption = '...' Caption = '...'
OnClick = LazDocBrowseButtonClick OnClick = LazDocBrowseButtonClick
TabOrder = 4 TabOrder = 4
Left = 382 Left = 374
Height = 23 Height = 23
Top = 154 Top = 154
Width = 23 Width = 23
@ -375,12 +363,10 @@ object ProjectOptionsDialog: TProjectOptionsDialog
end end
object SavePage: TPage object SavePage: TPage
Caption = 'SavePage' Caption = 'SavePage'
ClientWidth = 439 ClientWidth = 435
ClientHeight = 308 ClientHeight = 312
Left = 2 Height = 312
Height = 308 Width = 435
Top = 28
Width = 439
object SaveClosedUnitInfoCheckBox: TCheckBox object SaveClosedUnitInfoCheckBox: TCheckBox
Align = alTop Align = alTop
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -389,9 +375,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
Caption = 'SaveClosedUnitInfoCheckBox' Caption = 'SaveClosedUnitInfoCheckBox'
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 24 Height = 13
Top = 6 Top = 6
Width = 427 Width = 423
end end
object SaveOnlyProjectUnitInfoCheckBox: TCheckBox object SaveOnlyProjectUnitInfoCheckBox: TCheckBox
Align = alTop Align = alTop
@ -403,9 +389,9 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Control = SaveClosedUnitInfoCheckBox AnchorSideTop.Control = SaveClosedUnitInfoCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 13
Top = 32 Top = 21
Width = 427 Width = 423
end end
object SaveSessionLocationRadioGroup: TRadioGroup object SaveSessionLocationRadioGroup: TRadioGroup
AutoFill = True AutoFill = True
@ -425,14 +411,233 @@ object ProjectOptionsDialog: TProjectOptionsDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 7 Left = 7
Height = 117 Height = 117
Top = 67 Top = 45
Width = 413 Width = 413
end end
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 end
object CancelButton: TButton object CancelButton: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
@ -444,7 +649,7 @@ object ProjectOptionsDialog: TProjectOptionsDialog
end end
object OKButton: TButton object OKButton: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1

334
ide/projectopts.lrs
View File

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

169
ide/projectopts.pp
View File

@ -38,7 +38,8 @@ interface
uses uses
Arrow, Buttons, LCLProc, Classes, CodeToolManager, Controls, Dialogs, Arrow, Buttons, LCLProc, Classes, CodeToolManager, Controls, Dialogs,
ExtCtrls, Forms, Graphics, IDEOptionDefs, IDEWindowIntf, LazarusIDEStrConsts, ExtCtrls, Forms, Graphics, IDEOptionDefs, IDEWindowIntf, LazarusIDEStrConsts,
LCLIntf, LResources, Project, ProjectIntf, StdCtrls, SysUtils, IDEProcs; LCLIntf, LResources, Project, ProjectIntf, StdCtrls, SysUtils, IDEProcs, Spin,
VersionInfoAdditionalInfo;
type type
@ -53,6 +54,7 @@ type
MiscPage: TPage; MiscPage: TPage;
LazDocPage: TPage; LazDocPage: TPage;
SavePage: TPage; SavePage: TPage;
VersionInfoPage: TPage;
// Application // Application
AppSettingsGroupBox: TGroupBox; AppSettingsGroupBox: TGroupBox;
@ -96,10 +98,36 @@ type
SaveOnlyProjectUnitInfoCheckBox: TCheckBox; SaveOnlyProjectUnitInfoCheckBox: TCheckBox;
SaveSessionLocationRadioGroup: TRadioGroup; 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 // buttons at bottom
OKButton: TButton; OKButton: TButton;
CancelButton: TButton; CancelButton: TButton;
procedure AdditionalInfoButtonClick(Sender: TObject);
procedure FormsPageResize(Sender: TObject); procedure FormsPageResize(Sender: TObject);
procedure LazDocAddPathButtonClick(Sender: TObject); procedure LazDocAddPathButtonClick(Sender: TObject);
procedure LazDocBrowseButtonClick(Sender: TObject); procedure LazDocBrowseButtonClick(Sender: TObject);
@ -111,6 +139,7 @@ type
procedure FormsRemoveFromAutoCreatedFormsBtnClick(Sender: TObject); procedure FormsRemoveFromAutoCreatedFormsBtnClick(Sender: TObject);
procedure FormsMoveAutoCreatedFormUpBtnClick(Sender: TObject); procedure FormsMoveAutoCreatedFormUpBtnClick(Sender: TObject);
procedure FormsMoveAutoCreatedFormDownBtnClick(Sender: TObject); procedure FormsMoveAutoCreatedFormDownBtnClick(Sender: TObject);
procedure UseVersionInfoCheckBoxChange(Sender: TObject);
private private
FProject: TProject; FProject: TProject;
procedure SetProject(AProject: TProject); procedure SetProject(AProject: TProject);
@ -119,6 +148,7 @@ type
procedure SetupMiscPage(PageIndex: Integer); procedure SetupMiscPage(PageIndex: Integer);
procedure SetupLazDocPage(PageIndex: Integer); procedure SetupLazDocPage(PageIndex: Integer);
procedure SetupSavePage(PageIndex: Integer); procedure SetupSavePage(PageIndex: Integer);
procedure SetupVersionInfoPage(PageIndex: Integer);
procedure FillAutoCreateFormsListbox; procedure FillAutoCreateFormsListbox;
procedure FillAvailFormsListBox; procedure FillAvailFormsListBox;
function IndexOfAutoCreateForm(FormName: String): Integer; function IndexOfAutoCreateForm(FormName: String): Integer;
@ -196,6 +226,7 @@ begin
SetupMiscPage(2); SetupMiscPage(2);
SetupLazDocPage(3); SetupLazDocPage(3);
SetupSavePage(4); SetupSavePage(4);
SetupVersionInfoPage(5);
ProjectOptionsResize(TheOwner); ProjectOptionsResize(TheOwner);
@ -260,7 +291,13 @@ begin
AlwaysBuildCheckBox.Caption := lisProjOptsAlwaysBuildEvenIfNothingChanged; AlwaysBuildCheckBox.Caption := lisProjOptsAlwaysBuildEvenIfNothingChanged;
end; end;
procedure TProjectOptionsDialog.SetupVersionInfoPage(PageIndex: Integer);
begin
NoteBook.Page[PageIndex].Caption := VersionInfoTitle;
end;
procedure TProjectOptionsDialog.SetProject(AProject: TProject); procedure TProjectOptionsDialog.SetProject(AProject: TProject);
var Count: integer;
begin begin
FProject := AProject; FProject := AProject;
if AProject = Nil then if AProject = Nil then
@ -294,6 +331,54 @@ begin
//lazdoc //lazdoc
SplitString(Project.LazDocPaths,';',LazDocListBox.Items,true); 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; end;
procedure TProjectOptionsDialog.ProjectOptionsClose(Sender: TObject; procedure TProjectOptionsDialog.ProjectOptionsClose(Sender: TObject;
@ -347,8 +432,21 @@ begin
SetProjectTitle; SetProjectTitle;
//lazdoc //lazdoc
Project.LazDocPaths:=StringListToText(LazDocListBox.Items,';',true); 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; end;
IDEDialogLayoutList.SaveLayout(Self); IDEDialogLayoutList.SaveLayout(Self);
@ -371,6 +469,11 @@ begin
Left := FormsAvailFormsListBox.Left; Left := FormsAvailFormsListBox.Left;
end; end;
procedure TProjectOptionsDialog.AdditionalInfoButtonClick(Sender: TObject);
begin
ShowVersionInfoAdditionailInfoForm(Project.VersionInfo,Project.Modified);
end;
procedure TProjectOptionsDialog.LazDocBrowseButtonClick(Sender: TObject); procedure TProjectOptionsDialog.LazDocBrowseButtonClick(Sender: TObject);
begin begin
if SelectDirectoryDialog.Execute then if SelectDirectoryDialog.Execute then
@ -596,6 +699,68 @@ begin
SelectOnlyThisAutoCreateForm(i + 1); SelectOnlyThisAutoCreateForm(i + 1);
end; 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); procedure TProjectOptionsDialog.ProjectOptionsResize(Sender: TObject);
begin begin
end; end;

2
ide/revision.inc
View File

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

1
ideintf/projectintf.pas
View File

@ -495,7 +495,6 @@ type
property Descriptor: TProjectDescriptor read FDescriptor write FDescriptor; property Descriptor: TProjectDescriptor read FDescriptor write FDescriptor;
end; end;
{ TLazProject - interface class to a Lazarus project } { TLazProject - interface class to a Lazarus project }
TProjectFileSearchFlag = ( TProjectFileSearchFlag = (