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;