Komponentenentwicklung LED über TShape ?

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1230127)

*Psst* ein Code-Beispiel steht bereits da oben ;)

[Flüster ON]stimmt ja[Flüster OFF]

[Chris211183]

Vielen Dank erstmal für eure Hilfe,

ich glaub ich fang nochmal von ganz vorn an, da wollt ich zu viel auf einmal:!:.

[Sir Rufo]

Ich kommentiere mal das Beispiel von DeddyH

Delphi-Quellcode:

type
  (* Mögliche Stati *)
  TLEDState = (lsOff, lsActive, lsInactive);
  
  TLED = class(TGraphicControl)
  private
    FState: TLEDState;
    procedure SetState(const Value: TLEDState); 
  protected
    // Überschreiben der Zeichen-Methode
    procedure Paint; override;
  published
    // Eigenschaft für den Status
    property State: TLEDState read FState write SetState;
  end;
  
procedure TLED.Paint;
var
  LEDColor: TColor;
begin
  inherited;

  // Abhängig vom Status die Zeichenfarbe festlegen
  case FState of 
    lsActive:
      LEDColor := clGreen;
    lsInactive:
      LEDColor := clRed;
    else
      LEDColor := clGray; 
  end;

  // Zeichnen

  // Hintergrundfarbe festlegen
  Canvas.Brush.Color := LEDColor;
  // Eine Ellipse zeichnen
  Canvas.Ellipse( 0, 0, ClientWidth, ClientHeight );
end;

procedure TLED.SetState(const Value: TLEDState);
begin
  // Ist der neue Wert ungleich dem aktuellen
  if FState <> Value then
    // dann
    begin
      // diesen neuen Wert speichern
      FState := Value;
      // und diese Komponente zum Neuzeichnen vormerken
      Invalidate;
    end;
end;

[DeddyH]

:thumb:

[Chris211183]

:coder: :cheer:

[Chris211183]

Oh mannnnnn, das wird ein Delphi Wochenende, bin froh, wenn zur Laufzeit überhaupt mal was in der Testform erscheint, bis jetzt ist mir da immernoch nichts gelungen.
Der Fehler liegt da speziell zwischen den Ohren :wall:

[stahli]

Nimm Dir Zeit - das wird schon ;-)

Ich schlage nochmal das TRedPanel vor. Da musst Du nix malen und hast erst mal klare Ergebnisse.

[DeddyH]

Width und Height sind > 0? Ich habe meinen eigenen Code mal ausprobiert, nach einer kleinen Erweiterung (Überschreiben des Konstruktors) tut das wie gedacht:

Delphi-Quellcode:

unit uLED;

interface

uses
  SysUtils, Classes, Controls, Graphics;

type
  (* Mögliche Stati *)
  TLEDState = (lsOff, lsActive, lsInactive);

  TLED = class(TGraphicControl)
  private
    { Private-Deklarationen }
    FState: TLEDState;
    procedure SetState(const Value: TLEDState);
  protected
    { Protected-Deklarationen }
    procedure Paint; override;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
    property State: TLEDState read FState write SetState;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TLED]);
end;

{ TLED }

constructor TLED.Create(AOwner: TComponent);
begin
  inherited;
  Width := 16;
  Height := 16;
end;

procedure TLED.Paint;
var
  LEDColor: TColor;
begin
  inherited;
  case FState of
    lsActive:
      LEDColor := clGreen;
    lsInactive:
      LEDColor := clRed;
    else
      LEDColor := clGray;
  end;
  Canvas.Brush.Color := LEDColor;
  Canvas.Ellipse( 0, 0, ClientWidth, ClientHeight );
end;

procedure TLED.SetState(const Value: TLEDState);
begin
  if FState <> Value then
    begin
      FState := Value;
      invalidate;
    end;
end;

end.

[edit] Einen Schönheitspreis gewinnt das natürlich nicht, aber man kann ja auch hübscher zeichen. Hier ging es ja nur um das Prinzip. [/edit]

[Chris211183]

Super, danke, werd das glei mal ausprobieren :thumb: Danke euch ! Echt super hier mit eurer Hilfe !!!

[Chris211183]

So hab das mal ausprobiert, egal was ich mache, auf meiner Testform wird nichts angezeigt :oops:

Delphi-Quellcode:

unit LedTestUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit1;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
     MyLed : TLED;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyLed := TLed.Create(Self);
   MyLed.Parent := Self;
   MyLed := Show;
end;

end.

Das ist der Code um die Komponente zur Laufzeit zu testen, steckt da ein Fehler drin ? bei nem anderen Project hat es so gefunzt