VCL Types in FMX Anwendung

[DelphiSüchtig]

Hallo zusammen, folgendes Anliegen:

ich habe eine neue FMX Anwendung geschrieben. In dieser Anwendung möchte ich über eine bestehende Unit verschiedene VCL Types einbinden und verwenden, zum Beispiel TPoint.
Nun lautet meine Frage, wie ich das am besten anstelle, da mein Compiler die besagten Types nicht findet, trotz eingebundener Unit. Gibt es dafür eine simple Lösung, zum Beispiel muss ich spezielle Einstellungen in den Projektoptionen vornehmen?

Danke für eure Antworten!

[mkinzler]

TPoint ist in Systen.Types deklariert.

Im Allgemeinen ist es keine gute Idee, VCL-Typen in FMX zu verwenden, da hier teilweise Typen anders implementiert sind.

[DelphiSüchtig]

Danke für die Antwort, aber ich habe mich wohl falsch ausgedrückt.

Was ich meinte war dass bis jetzt alles fehlerfrei mit VCL compiliert werden konnte. Nun möchte ich mit FMX arbeiten und jetzt wird mir angezeigt, dass zum Beispiel TPoint nicht gefunden werden kann bzw. nicht deklariert wurde.

Ich habe leider noch nicht verstanden, woran das liegt und wie ich es umgehen kann.

Viele Grüße!

[himitsu]

Es gibt für einige Typen Umleitungen/Aliase.
Also diese Typen sind mehrfach in verschiedenen Units weitergeleitet. (z.B. weil sie früher mal in VCL-Units lagen und dann da in Globale verschoben wurden, damit es nicht gleich überall knallt)

In deinem Fall mußt du einfach nur die Unit einbinden, wo der Typ "wirklich" implementiert ist (vermutlich Systen.Types), da es hier scheinbar im FMX keine Umleitung gibt.

[mkinzler]

Viele Typen wurden von der VCL bzw. FMX in die RTL verschoben (wie bei TPoint)

[Harry Stahl]

Genau. TPoint bindest Du über System.Types ein.

Ansonsten findest Du viel benötigtes in

Delphi-Quellcode:

FMX.Types

Hilfreich sind auch

Delphi-Quellcode:

System.UITypes,
System.UIConsts.

Wenn Du z.B. System.UiConsts einbindest, kannst Du Dir bei einigen Dingen Schreibarbeit sparen, also z.B. statt

Delphi-Quellcode:

color := TAlphaColorRec.Red;

//kannst Du schreiben:

color := claRed;

VCL.Types würde ich ganz raus lassen.

Falls Du eine Unit sowohl unter VCL als auch FMX verwenden solltest, musst Du die jeweiligen VCL / FMX Units eben über {$IFDEF ...} einbinden.

[KodeZwerg]

Zitat:

Zitat von Harry Stahl (Beitrag 1406622)

Falls Du eine Unit sowohl unter VCL als auch FMX verwenden solltest, musst Du die jeweiligen VCL / FMX Units eben über {$IFDEF ...} einbinden.

Kurze Frage, wie? IFDEF Windows Uses Vcl, IFDEF Windows Uses Fmx ? Ich habe da bestimmt einen Mega Denkfehler aber bin auf eine Antwort gespannt.
Wenn Antwort über ein eigenes DEFINE stattfindet hat es sich erledigt.

[Harry Stahl]

Zitat:

Zitat von KodeZwerg (Beitrag 1406623)

Zitat:

Zitat von Harry Stahl (Beitrag 1406622)

Falls Du eine Unit sowohl unter VCL als auch FMX verwenden solltest, musst Du die jeweiligen VCL / FMX Units eben über {$IFDEF ...} einbinden.

Kurze Frage, wie? IFDEF Windows Uses Vcl, IFDEF Windows Uses Fmx ? Ich habe da bestimmt einen Mega Denkfehler aber bin auf eine Antwort gespannt.
Wenn Antwort über ein eigenes DEFINE stattfindet hat es sich erledigt.

Ja, wie von Dir vermutet, über ein eigenes Define in den Projekteinstellungen (ich habe eigentlich nur einen einzigen Fall, wo ich das mal brauchte, da habe ich "FMXApp" verwendet, im Source kann man das dann mit

Delphi-Quellcode:

{$IFDEF FMXApp}
... FMX-Units
{$ELSE}
... VCL-Units
{$ENDIF}

lösen.

[KodeZwerg]

Dacht ich mir beinahe aber Fragen kostet ja nichts, Danke:wink:
Ich böser Mensch, da ich faul mit der IDE bin hät ich mir eine {$DEFINE FmxApp} irgendwo über den Uses Code geschrieben.

[Schokohase]

Zitat:

Zitat von KodeZwerg (Beitrag 1406626)

Ich böser Mensch, da ich faul mit der IDE bin hät ich mir eine {$DEFINE FmxApp} irgendwo über den Uses Code geschrieben.

Wenn man diese Units in mehreren Projekten verwendet (FMX, VCL, Console gemischt), dann viel Spaß, denn dann musst du jede Unit anfassen (DEFINE gilt ja nur innerhalb der Unit).

In den Projektoptionen festgelegt brauchst du nur kompilieren, fertig (egal in wievielen Units du das auch verwendest).