Via Compiler Bedingung FireMonkey erkennen

[Rollo62]

Naja, ich mach das halt mit einem global Define:
USE_FMX oder USE_VCL

Ist nicht super elegant, funktioniert aber als Übergangslösung bis es etwas Besseres gibt.
Muss man halt bei jedem Projekt einmal setzen.

Rollf

[Uwe Raabe]

Wenn du eine Datei namens UserTools.proj im AppData-Verzeichnis (bei Tokyo ist das %APPDATA%\Embarcadero\BDS\19.0) anlegst und mit dem unten stehenden Inhalt füllst, dann kannst du das aktuelle Framework über {$IFDEF FrameWork_VCL} oder {$IFDEF FrameWork_FMX} abfragen. Sollte wider Erwarten eine gleichnamige Datei schon vorhanden sein, musst du halt den Eintrag darin sinnvoll ergänzen.

XML-Code:

<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
       <DCC_Define>FrameWork_$(FrameworkType);$(DCC_Define)</DCC_Define>
    </PropertyGroup>
</Project>

[bra]

Kann man eventuell die Konstante FireMonkeyVersion prüfen? Oder ist die auch bei VCL definiert?

http://docwiki.embarcadero.com/RADSt...rte_Konstanten

[Uwe Raabe]

Zitat von bra:

Kann man eventuell die Konstante FireMonkeyVersion prüfen? Oder ist die auch bei VCL definiert?

Dazu müsste man die Unit FMX.Types usen, was man aber eben nicht tun würde, wenn es kein FMX-Projekt ist. Insofern würde das in diesem Fall nicht helfen.

Zitat von Uwe Raabe:

Wenn du eine Datei namens UserTools.proj im AppData-Verzeichnis (bei Tokyo ist das %APPDATA%\Embarcadero\BDS\19.0) anlegst und mit dem unten stehenden Inhalt füllst, dann kannst du das aktuelle Framework über {$IFDEF FrameWork_VCL} oder {$IFDEF FrameWork_FMX} abfragen.

Dieser Ansatz ist leider benutzerspezifisch und müsste für jeden Benutzer separat erfolgen. Gerade in Team- und Buildserver-Umgebungen könnte das ein nicht zu vernachlässigender Aufwand sein. Allerdings ist mir kein anderes Verfahren bekannt, was diese Defines projektunabhängig bereitstellt.

Übrigens gibt es noch ein drittes Define, wenn ein Projekt weder FMX noch VCL ist: FrameWork_None

[Memnarch]

{$If declared(TGraphic)}
Unter FMX gibt es die Klasse TGraphic in der Graphics unit nicht. Isn hack den ich auch in meinem AsciiImage verwendet hab
Und abhängig davon kannst du dir defines bezüglich FMX/VCL machen.

Grüße
Memnarch

[Uwe Raabe]

Zitat von Memnarch:

{$If declared(TGraphic)}
Unter FMX gibt es die Klasse TGraphic in der Graphics unit nicht.

Das zwingt dich aber wiederum mit Unit Scope Names zu arbeiten, wobei du dann projektbezogen VCL bzw. FMX dort einsetzen musst. Dann kann man auch gleich projektbezogen die Defines richtig setzen.