14

In Delphi XE2, we have use 

{$ifdef Win32}
{$ifdef Win64}

to identify which platform we are in.

Is there any predefined conditional that may identify VCL and FMX?

Chau Chee Yang
  • 18,422
  • 16
  • 68
  • 132

6 Answers6

13

Although not documented you can have VCL and Firemonkey in the same application.

There is no compiler define.

If you're building something that needs to be both VCL and Firemonkey I would recommend separation of the units.

A possible way:

  • MyLibrary.X.pas - Common Code that both VCL, and Firemonkey would uses.
  • MyLibrary.Vcl.X.Pas - Vcl Specific Code
  • MyLibrary.Fmx.X.Pas - Fmx Specific Code

Mixing UI code from two different frameworks in the same unit is not a good idea. It will link in the other library when it's not needed.

Larry Lustig
  • 49,320
  • 14
  • 110
  • 160
Robert Love
  • 12,447
  • 2
  • 48
  • 80
12

As others says, there is not a conditional directive to determine if your application is VCL or FireMonkey. I think the most reliable way to determine if your app is FireMonkey or VCL is using a function instead of a conditional directive.

Something like 

Uses
 Rtti;

function IsVCLApp:Boolean;
begin
 Result:= CompareText(TRttiContext.Create.GetType(TApplication.ClassInfo).QualifiedName,'Vcl.Forms.TApplication')=0;
end;

function IsFireMonkeyApp:Boolean;
begin
 Result:= CompareText(TRttiContext.Create.GetType(TApplication.ClassInfo).QualifiedName,'FMX.Forms.TApplication')=0;
end;
RRUZ
  • 134,889
  • 20
  • 356
  • 483
  • 1
    @Craig, obviously this code requires which the forms unit must be added, about the scope you don't need add the "VCL." or "FMX." this is resolved internally by delphi. So if you uses `Forms`or `Vcl.Forms` the code will work ok. And finally about your last comment that's depend of the kind of application, this answer suggests use a function as alternative to the use of a `conditional directive`. – RRUZ Oct 11 '11 at 15:32
  • 2
    This code *requires* you to use `Forms` and not `Vcl.Forms`. If you explicitly use `Vcl.Forms` or `Fmx.Forms` then you've already decided on the platform in the uses clause for the unit, and thus already have a conditional way to check the target widgetset. – Zoë Peterson Oct 11 '11 at 18:33
  • 7
    Also, since the TApplication you're referring to can't change at runtime, using TRttiContext is **completely** unnecessary. You could simplify `IsFireMonkeyApp` to `Result := {$IF DECLARED(TFmxObject)}True{$ELSE}False{$IFEND};` and it would have the exact same behavior. – Zoë Peterson Oct 11 '11 at 18:35
  • 1
    Better to change the above to `Result := GetClass('TFmxObject') <> nil;`, as this does not require to have FMX.Types is scope. – da-soft May 06 '12 at 10:03
4

There is no compiler directive because technically there is no such thing as a firemonkey application or a vcl application. Only applications which make use of these technologies. An application can use fxm or vcl or both or neither (eg. a console app). This is a bit like asking if it is an SQL application. You can of course programatically check the ancestry of individual forms to see which framework they inherit from. Again, inside a unit that has no associated form, this has no meaning.

Peter
  • 1,065
  • 6
  • 18
3

There does not seem to be a compiler define specifically for VCL/FireMonkey. You would need to create your own.

A list of predefined conditionals can be found in the documentation.

Bruce McGee
  • 15,076
  • 6
  • 55
  • 70
  • 1
    Checking the platform defines is not reliable, because you can create for example a OSX App with `GUI without Firemonkey` as is shown here http://stackoverflow.com/questions/7442131/delphi-xe2-is-it-possible-to-create-mac-gui-applications-without-firemonkey – RRUZ Oct 11 '11 at 02:16
  • @RRuz: Fair enough. Edited my response. – Bruce McGee Oct 11 '11 at 03:00
2

Abbrevia supports both the VCL and CLX using this kind of split:

QAbUnit1.pas:

{$DEFINE UsingCLX}
unit QAbUnit1;
{$I AbUnit1.pas}

AbUnit1.pas:

{$IFNDEF UsingCLX}
{$DEFINE UsingVCL}
unit AbUnit1;
{$ENDIF}

type
  ...
  TMyWidget = class({$IFDEF UsingVCL}TWinControl{$ENDIF}
                    {$IFDEF UsingCLX}TWidgetControl{$ENDIF})
  ...
  end;

end.

To add FireMonkey support, I'd add a file like this:

FmxAbUnit1.pas:

{$DEFINE UsingFMX}
unit FmxAbUnit1;
{$I AbUnit1.pas}
{$ENDIF}

and then make whatever conditional changes I need to AbUnit1.pas.

It's not a nice clean split like Robert's suggestion, but the advantage is that all of your editing occurs in a single file, and the conditional define is handled automatically, so it doesn't need to appear in the project options. Who ever uses your library just includes the appropriate unit to decide which one they want to use. You could probably take advantage of unit scoping too, by naming the files Fmx.AbUnit1.pas and Vcl.AbUnit1.pas, but I think Embarcadero discourages that.

Zoë Peterson
  • 13,094
  • 2
  • 44
  • 64
  • Quite nice solution. But does Help insight handle this construction when FMX is defined? At least in XE2 it gets helpless when editing included files. – Fr0sT Sep 05 '14 at 07:16
  • @Fr0sT I don't use FMX, so I can't say. Under XE1, simple tests work, but it's only picking up some of the changes to the unit after I close and re-open the project. – Zoë Peterson Sep 05 '14 at 16:24
1

Try this snippet:

{$IF Declared(FMX)}
  // FMX code here. To test this approach you may use {$MESSAGE FATAL 'FMX'}
{$ELSEIF Declared(VCL)}
  // VCL code here. To test this approach you may use {$MESSAGE FATAL 'VCL'}
{$IFEND}

It tests if corresponding namespace was declared using IF compilation directive

As FMX isn't mutually exclusive with VCL, there may be a need to add following branches:

{$ELSEIF Declared(FMX) and Declared(VCL)}
  // FMX+VCL code here. To test: {$MESSAGE FATAL 'FMX+VCL'}
{$ELSE}
  // no GUI frameworks code here. To test: {$MESSAGE FATAL 'no GUI frameworks'}
Serhii Kheilyk
  • 933
  • 1
  • 8
  • 24