TMain - Goethe Gymnasium Dortmund
TMain - Goethe Gymnasium Dortmund
TMain - Goethe Gymnasium Dortmund
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
TAmpel<br />
- AmpelGruen<br />
+ ! Create(),<br />
+ ! machRot,<br />
+ ! machGruen,<br />
+ ? istGruen,<br />
- ! FormPaint(),<br />
- ! FormResize()<br />
unit mAmpel;<br />
uses ….<br />
type<br />
TAmpel = class(TForm)<br />
private<br />
AmpelGruen: Boolean;<br />
procedure FormPaint(Sender: TObject);<br />
procedure FormResize(Sender: TObject);<br />
public<br />
constructor Create(AOwner: TComponent); override;<br />
procedure machRot;<br />
procedure machGruen;<br />
function IstGruen: Boolean;<br />
end;<br />
implementation….<br />
procedure TAmpel.machRot;<br />
begin<br />
with Canvas Do begin<br />
pen.Width := 3;<br />
Brush.Color := clRed;<br />
Ellipse(20,20,140,140);<br />
Brush.Color := clGray;<br />
Ellipse(20,160,140,280)<br />
end;<br />
AmpelGruen := False<br />
end;<br />
10