paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: override build widgetset with BuildWidgetSetXXX

Browse Source 
git-svn-id: trunk@20337 -
This commit is contained in:
mattias 2009-06-01 20:41:21 +00:00
parent 338ebe97d4
commit bb13cb1a5c
3 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarus.pp
View File

@ -85,6 +85,8 @@ begin
// When quick rebuilding the IDE, FPC rebuilds only the lazarus.pp, so any
// flag that should work with quick build must be set here.
KeepInstalledPackages:={$IFDEF BigIDE}True{$ELSE}False{$ENDIF};
// end of build flags
LazarusRevisionStr:=RevisionStr;
Application.Title:='Lazarus';

13
ide/lazbuild.lpr
View File

@ -1178,6 +1178,19 @@ begin
end;
begin
// When quick rebuilding lazbuild, FPC rebuilds only the lazbuild.lpr, so any
// flag that should work with quick build must be set here.
{$IFDEF BuildWidgetSetWin32} Result:=lpWin32; {$ENDIF}
{$IFDEF BuildWidgetSetWinCE} Result:=lpWinCE; {$ENDIF}
{$IFDEF BuildWidgetSetGTK} Result:=lpGtk; {$ENDIF}
{$IFDEF BuildWidgetSetGTK2} Result:=lpGtk2; {$ENDIF}
{$IFDEF BuildWidgetSetQT} Result:=lpQT; {$ENDIF}
{$IFDEF BuildWidgetSetFPGui} Result:=lpfpGUI; {$ENDIF}
{$IFDEF BuildWidgetSetCarbon} Result:=lpCarbon; {$ENDIF}
{$IFDEF BuildWidgetSetCocoa} Result:=lpCocoa; {$ENDIF}
{$IFDEF BuildWidgetSetNoGui} Result:=lpNoGUI; {$ENDIF}
// free LCL application
FreeAndNil(Forms.Application);
// start our own application

28
ide/lazconf.pp
View File

@ -135,6 +135,19 @@ const
const
ExitCodeRestartLazarus = 99;
var
// set by lazbuild.lpr and used by GetDefaultLCLWidgetType
BuildLCLWidgetType: TLCLPlatform =
{$IFDEF MSWindows}{$DEFINE WidgetSetDefined}
lpWin32;
{$ENDIF}
{$IFDEF darwin}{$DEFINE WidgetSetDefined}
lpCarbon;
{$ENDIF}
{$IFNDEF WidgetSetDefined}
lpGtk2;
{$ENDIF}
implementation
{$I lazconf.inc}
@ -196,19 +209,10 @@ end;
function GetDefaultLCLWidgetType: TLCLPlatform;
begin
if WidgetSet<>nil then
if (WidgetSet<>nil) and (WidgetSet.LCLPlatform<>lpNoGUI) then
Result:=WidgetSet.LCLPlatform
else begin
{$IFDEF MSWindows}{$DEFINE WidgetSetDefined}
Result:= lpWin32;
{$ENDIF}
{$IFDEF darwin}{$DEFINE WidgetSetDefined}
Result:= lpCarbon;
{$ENDIF}
{$IFNDEF WidgetSetDefined}
Result:= lpGtk2;
{$ENDIF}
end;
else
Result:=BuildLCLWidgetType;
end;
function DirNameToLCLPlatform(const ADirName: string): TLCLPlatform;