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

added starter to build lazarus tool

Browse Source 
git-svn-id: trunk@5905 -
This commit is contained in:
vincents 2004-09-01 22:20:44 +00:00
parent b3edbd82ba
commit 962815f369
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/buildlazdialog.pas
View File

@ -111,6 +111,9 @@ type
FItemJITForm: TBuildLazarusItem; FItemJITForm: TBuildLazarusItem;
FItemLCL: TBuildLazarusItem; FItemLCL: TBuildLazarusItem;
FItemPkgReg: TBuildLazarusItem; FItemPkgReg: TBuildLazarusItem;
{$IFDEF UseStartLazarus}
FItemStarter: TBuildLazarusItem;
{$ENDIF}
FItemSynEdit: TBuildLazarusItem; FItemSynEdit: TBuildLazarusItem;
fExtraOptions: string; fExtraOptions: string;
FTargetDirectory: string; FTargetDirectory: string;
@ -146,6 +149,9 @@ type
property ItemIDEIntf: TBuildLazarusItem read FItemIDEIntf; property ItemIDEIntf: TBuildLazarusItem read FItemIDEIntf;
property ItemJITForm: TBuildLazarusItem read FItemJITForm; property ItemJITForm: TBuildLazarusItem read FItemJITForm;
property ItemIDE: TBuildLazarusItem read FItemIDE; property ItemIDE: TBuildLazarusItem read FItemIDE;
{$IFDEF UseStartLazarus}
property ItemStarter: TBuildLazarusItem read FItemStarter;
{$ENDIF}
property ItemExamples: TBuildLazarusItem read FItemExamples; property ItemExamples: TBuildLazarusItem read FItemExamples;
property CleanAll: boolean read fCleanAll write fCleanAll; property CleanAll: boolean read fCleanAll write fCleanAll;
//property MakeFilename: string read fMakeFilename write fMakeFilename; //property MakeFilename: string read fMakeFilename write fMakeFilename;
@ -999,6 +1005,9 @@ begin
FItemIDEIntf:=FindName('IDEIntf'); FItemIDEIntf:=FindName('IDEIntf');
FItemJITForm:=FindName('JITForm'); FItemJITForm:=FindName('JITForm');
FItemIDE:=FindName('IDE'); FItemIDE:=FindName('IDE');
{$IFDEF UseStartLazarus}
FItemStarter:=FindName('Starter');
{$ENDIF}
FItemExamples:=FindName('Examples'); FItemExamples:=FindName('Examples');
end; end;
@ -1132,6 +1141,9 @@ begin
FItemIDEIntf:=nil; FItemIDEIntf:=nil;
FItemJITForm:=nil; FItemJITForm:=nil;
FItemIDE:=nil; FItemIDE:=nil;
{$IFDEF UseStartLazarus}
FItemStarter:=nil;
{$ENDIF}
FItemExamples:=nil; FItemExamples:=nil;
end; end;
@ -1174,6 +1186,14 @@ begin
FItemIDE.Commands[mmCleanBuild]:='cleanide ide'; FItemIDE.Commands[mmCleanBuild]:='cleanide ide';
fItems.Add(FItemIDE); fItems.Add(FItemIDE);
{$IFDEF UseStartLazarus}
// Starter
FItemStarter:=TBuildLazarusItem.Create('Starter',lisBuildStarter,'',mmBuild);
FItemStarter.Commands[mmBuild]:='starter';
FItemStarter.Commands[mmCleanBuild]:='starter';
fItems.Add(FItemStarter);
{$ENDIF}
// Examples // Examples
FItemExamples:=TBuildLazarusItem.Create( FItemExamples:=TBuildLazarusItem.Create(
'Examples',lisBuildExamples,'examples',mmBuild); 'Examples',lisBuildExamples,'examples',mmBuild);

1
ide/lazarusidestrconsts.pas
View File

@ -1382,6 +1382,7 @@ resourcestring
lisBuildJITForm = 'Build JIT Form'; lisBuildJITForm = 'Build JIT Form';
lisBuildPkgReg = 'Build Package Registration'; lisBuildPkgReg = 'Build Package Registration';
lisBuildIDE = 'Build IDE'; lisBuildIDE = 'Build IDE';
lisBuildStarter = 'Build Starter';
lisBuildExamples = 'Build Examples'; lisBuildExamples = 'Build Examples';
lisConfigureBuildLazarus = 'Configure %sBuild Lazarus%s'; lisConfigureBuildLazarus = 'Configure %sBuild Lazarus%s';
lisLazBuildCleanAll = 'Clean all'; lisLazBuildCleanAll = 'Clean all';