Komponentenentwicklung LED über TShape ?

[himitsu]

Zitat von Photoner:

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} )

[Photoner]

Zitat von himitsu:

• 'Standard' = SDefault aus Vcl.Consts

Gibt es auch ein FMX.Consts o.ä ?

Zitat von himitsu:

• Aber vorallem solltest du dich auf Einwas einigen, also entweder mit Prefix oder Ohne, also ohne Namespace oder mit (TStatusLEDShape und TStatusLEDStatus > {$SCOPEDEUNMS} )

Ich hoffe ich habe das kapiert.

Delphi-Quellcode:

  {$SCOPEDENUMS ON}
  TLEDShape   = (ctRoundLED,ctRectLED,ctTriangleLED);
  TLEDStatus  = (UndefinedStatus,OnStatus,OffStatus);
  {$SCOPEDENUMS OFF}

Jetzt muss man konsequent den Namespace immer voranstellen.

 if StatusLED1.LEDStatus = TLEDStatus.UndefinedStatus then StatusLED1.LEDStatus := TLEDStatus.OnStatus;

[himitsu]

Zitat von Photoner:

Gibt es auch ein FMX.Consts o.ä ?

Müsste ich später mal schauen, aber im Grunde kann man das als Egal ansehn, WENN ...

Man RuntimeCode von DesignTimeCode trennt, denn in der IDE ist VCL immer drin, also kann man da auch problemlos die VCL-Units verwenden.

Und bei diesen CONSTS-Units stört es nicht, denn da sind nur Konstanten drin und es werden keine weiteren Units referenziert, also egal wie der Dateiname heißt, es funktioniert immer und überall.

[Photoner]

Danke!

[himitsu]

Nee, hab's nicht nochmal gefunden.

SNameDefault gibt es noch, auch in der VCL.Consts, wobei auch alle Farbnamen in dieser Datei liegen, SNameDefault ist z.B. clDefault.
ColorToPrettyName
Wäre ja auch bissl sinnlos das alles doppelt zu haben.