Komponentenentwicklung LED über TShape ?

**himitsu**

Alle Kommentare sind willkommen.

'Standard' = SDefault aus Vcl.Consts
Und die TBrush solltest du besser selber wieder freigeben, denn ARC funktioniert nicht überall.
Free prüft selber auf Assigned, aber egal, da es immer Assigned sein wird, denn wenn es beim Erstellen von TPathData geknallt hätte, kommt das Programm dort eh nie vorbei (was auch richtig so ist).
Corners, CornerType und LEDStatus würde ein default bestimmt gefallen
Aber vorallem solltest du dich auf Einwas einigen, also entweder mit Prefix oder Ohne, also ohne Namespace oder mit (TStatusLEDShape und TStatusLEDStatus > {$SCOPEDEUNMS} )