Komponentenentwicklung LED über TShape ?

[Chris211183]

Hallo,

ich bin neu hier und grüße euch ersteinmal alle!

Ich bin ebenfalls neu mit Delphi involviert, habe bis jetzt nur C++ Erfahrung.
Ich möchte eine LED-Komponente entwickeln, wie stelle ich sowas am Besten an ?

Vielen Dank,

Chris

P.S. die Led soll nicht nur rund sein, sondern auch als Pfeil dargestellt werden können.:roll:

[Bummi]

Statt von TShape anzuleiten solltest Du von TGraphicControl ableiten. Ob Du aus einer Imagelist zeichnen oder selbst auf dem Canvas zeichnen willst bleibt Dir überlassen.

[Mavarik]

Willkommen in der DP...

Ich würde sagen... Kommt darauf an, ob Du Deine LED-Reihe beliebig skalieren können willst!

Mavarik

[Chris211183]

Danke für die schnellen Antworten;

bin ein bissl überfordert grad, also es soll am Ende eine Komponente werden, welche als LED fungiert,
es soll runde und Dreieckige LED´s geben, welche aktiv grün und inactiv rot leuchen:-)

[pHL]

Hallo,

Hier gibt es eine kurze Anleitung wie man generell eine Komponente erstellt: http://docwiki.embarcadero.com/RADSt...ente_erstellen

PS: Bei den Jedis gibt es eine LED (TJvLED) -> vielleicht willst du dir ja den Source von denen anschauen () http://wiki.delphi-jedi.org/wiki/JVC...:TJvLED.Status

LG

[Mavarik]

Zitat:

Zitat von Chris211183 (Beitrag 1229574)

Danke für die schnellen Antworten;

bin ein bissl überfordert grad, also es soll am Ende eine Komponente werden, welche als LED fungiert,
es soll runde und Dreieckige LED´s geben, welche aktiv grün und inactiv rot leuchen:-)

OK ich bin von einer LED-Reihe (Textzeile/Laufschrift) ausgegangen...

Was Du beschreibst ist ja nur ein "farbiger Punkt"... Dann kannste auch ein TShape nehmen... ;-)

Mavarik

[Chris211183]

:shock::oops:

[Chris211183]

wie kann ich dem jetzt aber spezielle Werte zuweisen, zum Bsp., dass er die Farbe wechselt, wenn er angesteuert wir...

wie macht man soetwas ?

[DeddyH]

Für solche Dinge empfiehlt sich eine Property samt Setter.

Delphi-Quellcode:

type
  TLed = class(TVorfahr)
  private
    FDings: TDatentyp;
    procedure SetDings(const Value: TDatentyp);
  ...
  published
    property Dings: TDatentyp read FDings write SetDings;
    ...
  end;

procedure TLed.SetDings(const Value: TDatentyp);
begin
  if Value <> FDings then
    begin
      FDings := Value;
      invalidate;
    end;
end;

Sobald der Property Dings ein Wert zugewiesen wird, wird der Setter durchlaufen. Dieser schaut nach, ob auch tatsächlich eine Änderung eingetreten ist, setzt dann ggf. den neuen Wert und löst ein Neuzeichnen aus. Das muss man nicht unbedingt so machen, aber als Beispiel sollte das allemal taugen.

[Mavarik]

Ich denke mit Ansteuern meinte er Mausover? Oder?