FMX bunte Linien zeichnen .... Random Farbwert

[Sherlock]

Lustigerweise heisst in FMX so ziemlich alles anders als gewohnt...klingt aber ähnlich, so daß man sich nie sicher sein kann, ob es nun stimmt. Aber ich male auch Linien in FMX, mal sehen, wie das bei mir zur Zeit umgesetzt ist.

Delphi-Quellcode:

  aBMP.Canvas.Stroke.Color := TAlphaColors.Pink; // Definiert als Pink = Alpha or TAlphaColor($FFC0CB)

{$IF CompilerVersion >= 32.0} // >= Tokyo
  aBMP.Canvas.Stroke.Thickness := 1;
{$ELSE}
  aBMP.Canvas.StrokeThickness := 1;
{$ENDIF}
  aBMP.Canvas.Stroke.Dash := TStrokeDash.Solid;
  aBMP.Canvas.DrawLine(Pointf(0, 0), Pointf(aBMP.Width, aBMP.Height), 1);

Zu setzen ist also die Stroke Property des Canvas.

Sherlock