Neue Komponente entwickeln

[josef-b]

Also das mit der Ableitung von TGraphicControl und händisch zeichnen hat wirklich gut geklappt.

Jetzt habe ich eine kleine visuelle Komponente, oben und unten habe ich eine LED eingebaut,

Voll und Leermelder.

Wie kann ich jetzt zur Laufzeit die Rote Lampe ein und ausschalten und auch die gelbe?

Ich finde bei der neuen Komponente kein Canvas, wo ich das mit floodfill machen kann?

Delphi-Quellcode:

unit SiloZelle;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, graphics;

type
  TSiloZelle = class(TGraphicControl)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    procedure Paint; override;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published-Deklarationen }
    property Visible;
    property Anchors;
    property Align;
    property Cursor;
    property ShowHint;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
    property OnResize;
  end; // Die letzten hier nur um sie im Property-Editor sichtbar zu machen. In TGraphicControl sind diese Member alle nur public, nicht published.


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SPS', [TSiloZelle]);
end;

constructor TSiloZelle.Create(AOwner: TComponent);
begin
  inherited;
  // Ab hier Initialisierungen, aber bitte NICHT TShapes und so, und schon gar nicht als lokale Variablen!!
end;

destructor TSiloZelle.Destroy;
begin
  // Hier deine Freigaben
  inherited;
end;

procedure TSiloZelle.Paint;
begin
  inherited; // <--- Wichtig!!!
  // Hier nun deine Zeichenroutine. Beispiel: Ein Rotes Rechteck mit 5px Abstand zum Rand der Komponente.

  width := 70;
  height := 210;

  with canvas do
    begin

    //Silo-Körper
    pen.Color := clblack;
    Brush.Color := clmoneygreen;
    Brush.Style := bsSolid;
    rectangle(0,0,70,140);

    //Silo-Trichter
    moveto (0,140);
    lineto (35,200);
    lineto (70,140);
    lineto (0,140);
    floodfill(35,160,clblack,fsborder);

    //Vollmelder
     brush.Color := clred;
    ellipse(25,10,50,35);

    //Leermelder
    brush.Color := clyellow;
    ellipse(25,145,50,170)

    end;




end;