FMX bunte Linien zeichnen .... Random Farbwert

[himitsu]

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.