paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 10:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented two step compiling of IDE, needed for designtime packages

Browse Source 
git-svn-id: trunk@4291 -
This commit is contained in:
mattias 2003-06-19 23:10:57 +00:00
parent 793a75ec15
commit a1157665d0
2 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/componenteditors.pas
View File

@ -37,7 +37,8 @@ type
protected
function GetPropertyEditorHook: TPropertyEditorHook; virtual; abstract;
public
function CreateUniqueComponentName(const AClassName: string): string; virtual; abstract;
function CreateUniqueComponentName(const AClassName: string
): string; virtual; abstract;
property PropertyEditorHook: TPropertyEditorHook read GetPropertyEditorHook;
end;

37
ide/buildlazdialog.pas
View File

@ -58,7 +58,7 @@ type
TLCLPlatforms = set of TLCLPlatform;
TBuildLazarusFlag = (
blfWithoutIDE,
blfWithoutLinkingIDE,
blfOnlyIDE,
blfQuick,
blfWithStaticPackages,
@ -321,8 +321,6 @@ begin
CurMakeMode:=mmCleanBuild
else
CurMakeMode:=mmNone;
if (blfWithoutIDE in Flags) and (CurItem=Options.ItemIDE) then
CurMakeMode:=mmNone;
if (blfQuick in Flags) and (CurMakeMode=mmCleanBuild) then
CurMakeMode:=mmBuild;
if CurMakeMode=mmNone then continue;
@ -371,6 +369,13 @@ function CreateBuildLazarusOptions(Options: TBuildLazarusOptions;
System.Delete(Result,StartPos,p-StartPos+3);
end;
end;
procedure AppendExtraOption(const AddOption: string);
begin
if AddOption='' then exit;
if ExtraOptions<>'' then ExtraOptions:=ExtraOptions+' ';
ExtraOptions:=ExtraOptions+AddOption;
end;
var
CurItem: TBuildLazarusItem;
@ -378,15 +383,6 @@ var
begin
Result:=mrOk;
CurItem:=Options.Items[ItemIndex];
// check for special IDE config file
if CurItem=Options.ItemIDE then begin
MakeIDECfgFilename:=GetMakeIDEConfigFilename;
if (blfUseMakeIDECfg in Flags) and (CurItem=Options.ItemIDE)
and (FileExists(MakeIDECfgFilename)) then begin
ExtraOptions:='@'+MakeIDECfgFilename;
exit;
end;
end;
// create extra options
ExtraOptions:=Options.ExtraOptions;
@ -395,11 +391,20 @@ begin
// remove profiler option for JIT form
ExtraOptions:=RemoveProfilerOption(ExtraOptions);
end else if CurItem=Options.ItemIDE then begin
// add package options for IDE
if PackageOptions<>'' then begin
if ExtraOptions<>'' then ExtraOptions:=ExtraOptions+' ';
ExtraOptions:=ExtraOptions+PackageOptions;
// check for special IDE config file
if (blfUseMakeIDECfg in Flags) then begin
MakeIDECfgFilename:=GetMakeIDEConfigFilename;
if (FileExists(MakeIDECfgFilename)) then begin
ExtraOptions:='@'+MakeIDECfgFilename;
exit;
end;
end;
// check if linking should be skipped
if blfWithoutLinkingIDE in Flags then begin
AppendExtraOption('-Cn');
end;
// add package options for IDE
AppendExtraOption(PackageOptions);
end;
end;