Komponentenentwicklung LED über TShape ?

[Chris211183]

Ein Wunder !!!!

Ich habe es endlich hinbekommen, ich weiß jetzt auch nach dem Wochenende, wo mein Fehler war !!!

Suuuuper, es tut das, was es soll

jetzt kann es weiter gehen...

Also meine LED sieht schonmal ganz schick aus, wie setzte ich jetzt am besten um, dass diese Led dann später in meinem Objektinspektor als Runde Led einfach genutzt werden kann und dass ich noch andere Formen dort bestimmen kann ?

[DeddyH]

Was war denn jetzt der Fehler? Und wie Deine LED letztendlich aussieht, kannst Du ja im Paint selbst bestimmen. Das Prinzip Property mit Setter, der ggf. ein Neuzeichnen auslöst, dürfte ja jetzt hoffentlich klar sein.

[Chris211183]

Jap, das ist jetzt endlich klar !!!

Der Fehler lag einfach nur zwischen den Ohren , ich habe bei der Ausgabe auf der Form, einfach nur vergessen, das Objektfeld einzufügen, aber lernen durch leiden, das passiert mir wohl nie wieder !

[Photoner]

Ich habe das mal für Die FMX gemacht. Alle Kommentare sind willkommen.

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