[extpascal] r820 committed - Fix to ExtP_Proj package so it compiles with Lazarus 1.2.x; no longer ...

[extp...@googlecode.com]

Revision: 820
Author: macpgmr
Date: Mon Apr 28 20:23:05 2014 UTC
Log: Fix to ExtP_Proj package so it compiles with Lazarus 1.2.x; no
longer supports earlier versions of Lazarus.
http://code.google.com/p/extpascal/source/detail?r=820

Modified:
/trunk/ExtP_Toolkit/extp_proj/extp_proj_intf.pas

=======================================
--- /trunk/ExtP_Toolkit/extp_proj/extp_proj_intf.pas Sat Jul 28 17:21:49
2012 UTC
+++ /trunk/ExtP_Toolkit/extp_proj/extp_proj_intf.pas Mon Apr 28 20:23:05
2014 UTC
@@ -15,7 +15,7 @@

uses
Classes, SysUtils, Controls, Forms, Dialogs,
- LazIDEIntf, ProjectIntf, FormEditingIntf, Project,
+ LazIDEIntf, ProjectIntf, FormEditingIntf, Project, ModeMatrixOpts,
ExtP_Design_Ctrls;

type
@@ -112,6 +112,7 @@
var
NewSource: string;
MainFile: TLazProjectFile;
+ BMOptions: TBuildMatrixOption;
begin
inherited InitProject(AProject);

@@ -193,7 +194,12 @@
Note that Laz IDE might warn about a missing "nogui" folder
when close compiler options dialog if this widgetset has not
been built yet.}
-
TProject(AProject).CompilerOptions.BuildMode.MacroValues.Values['LCLWidgetType'] := 'nogui';
+//
TProject(AProject).CompilerOptions.BuildMode.MacroValues.Values['LCLWidgetType'] := 'nogui';
//Laz 1.0
+ //Laz 1.2:
+ BMOptions :=
TProject(AProject).BuildModes.SharedMatrixOptions.Add(bmotIDEMacro);
+ BMOptions.Modes := 'Default';
+ BMOptions.MacroName := 'LCLWidgetType';
+ BMOptions.Value := 'nogui';

{This config file will be created by converter and signals to FPC to
compile with ExtPascal runtime units, not Extp_Design_Ctrls unit.}