Komponentenentwicklung LED über TShape ?

[DeddyH]

Was soll denn

Zitat:

MyLed := Show;

bedeuten?

[Chris211183]

dass es auf der Form auch gezeigt wird, nicht ? auch ohne show geht da nix, warum ?

[DeddyH]

Ich habe keine Ahnung. Anbei eine kleine Demo, vielleicht siehst Du ja irgendwelche Unterschiede.

[Chris211183]

Danke !!!!!

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