FMX Komponente erstellen

[Harry Stahl]

Auf jeden Fall musst Du noch ergänzen mit

Canvas.Stroke.Kind := TBrushKind.Solid;

da Canvas.Stroke.Kind = "None" per Default ist (wurde irgendwann nach XE7 mal geändert, warum weiß ich nicht)

Davon abgesehen zeichnet Drawrect tatsächlich nur die Ränder.

Willst Du auch die Fläche mit Farbe füllen, musst Du (zusätzlich)

canvas.Fillrect (...); verwenden.

Ich habe leider von Komponenten-Entwicklung keine Ahnung und kenne hier die konkrete Aufgabenstellung nicht, daher weiß ich nicht, warum es hier unbedingt eine eigene Komponente sein muss. Prinzipiell könntest Du hier eine schon vorhandene Komponente, z.B. die TPaintbox verwenden und im Onpainting-Event Deine Grafik zeichnen.