Forum: Neuen Beitrag zur Code-Library hinzufügen
by DeddyH,
30. Sep 2013
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.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by DeddyH,
28. Sep 2013
Ich habe keine Ahnung. Anbei eine kleine Demo, vielleicht siehst Du ja irgendwelche Unterschiede.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by DeddyH,
27. Sep 2013
*Psst* ein Code-Beispiel steht bereits da oben ;)
Forum: Neuen Beitrag zur Code-Library hinzufügen
by DeddyH,
27. Sep 2013
Du hast da begins und ends sowie Typdeklarationen wild im Code verteilt. Was gehört denn wozu? Und woher soll der Compiler das wissen? Und wozu ein GraphicControl und zusätzlich noch ein TShape?
Forum: Neuen Beitrag zur Code-Library hinzufügen
by DeddyH,
24. Sep 2013
Wieso leitest Du denn von TForm ab? Und weshalb ein Boolean für 3 mögliche Zustände? Ich würde das etwa so angehen (ungetestet, da im Editor getippt):
type
(* Mögliche Stati *)
TLEDState = (lsOff, lsActive, lsInactive);
TLED = class(TGraphicControl)
private
FState: TLEDState;
procedure SetState(const Value: TLEDState);
protected
Forum: Neuen Beitrag zur Code-Library hinzufügen
by DeddyH,
23. Sep 2013
Für solche Dinge empfiehlt sich eine Property samt Setter.
type
TLed = class(TVorfahr)
private
FDings: TDatentyp;
procedure SetDings(const Value: TDatentyp);
...
published
property Dings: TDatentyp read FDings write SetDings;
...