Komponentenentwicklung LED über TShape ?

[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;