Hallo ich würde gerne eine ampel komponete erstellen. bis jetzt habe ich noch nie eigene komponenten erstellt, deshalb habe ich mir von allenmöglichen seiten tutorials angeschaut doch keins hatt mir so wirklich geholfen.
Delphi-Quellcode:
unit GraphicControl1;
interface
uses
SysUtils, Classes, Controls;
type
TAmpel =
class(TGraphicControl)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Additional', [TAmpel]);
end;
end.
Wo muß hier die paint routine rein
Kann ich in die paint routine diesen quelltext eingeben?
Delphi-Quellcode:
canvas.pen.color := clwindowframe;
canvas.brush.color := clwindowframe;
canvas.rectangle(0,0,TAmbel.hight,TAmpel.width);//Ampelkasten
canvas.pen.color := clblack;
canvas.brush.color := clblack;
canvas.circle(5,40,35,35); //Ampelleuchten im auszustand
canvas.circle(5,80,35,35);
canvas.circle(5,120,35,35);
Die ampel sollte im objekinspektor 2 eigenschaften haben
einmal wo man die ampelphasen auswählen kann und einmal bei dem man die ausschält und sie dann gelb blinkt. wie kann ich dass alles verwirklichen?