Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.959 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: FMX bunte Linien zeichnen .... Random Farbwert

  Alt 18. Aug 2020, 14:06
Man kann sogar versuchen Compiler und ErrorInsight und Co. mal richtig zu ärgern.
Delphi-Quellcode:
const VerTokyo = 32.0;
{$IF CompilerVersion >= VerTokyo} {$DEFINE CanvasDot} {$ENDIF}


aBMP.Canvas.{$IF CompilerVersion >= VerTokyo}Stroke.Thickness{$ELSE}StrokeThickness{$ENDIF} := 1;

// bzw, aber ich glaub das geht nicht

aBMP.Canvas.Stroke{$IF CompilerVersion >= VerTokyo}.{$ENDIF}Thickness := 1;

aBMP.Canvas.Stroke{$IFDEF CanvasDot}.{$ENDIF}Thickness := 1;

Besser Schöner wäre hier aber bestimmt ein Class-Helper für TCanvas,
wo man das nur an einer Stelle nachrüstet.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (18. Aug 2020 um 14:08 Uhr)
  Mit Zitat antworten Zitat