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.
<strong>TMain</strong><br />
TUhr<br />
unit mUhr;<br />
interface<br />
USES Forms, Graphics, ExtCtrls;<br />
Type<br />
TUhr = class(TObject)<br />
private<br />
Xul, Yul, Breite, XM, YM, Minute,<br />
Sekunde, Minutenzeigerlaenge,<br />
Sekundenzeigerlaenge: Integer;<br />
hatTimer: TTimer;<br />
kenntContainer: TForm;<br />
procedure zeichneUhr;<br />
procedure zeichneZeiger;<br />
procedure zeichneZeigerNeu(Sender:<br />
TObject);<br />
//Parameter erforderlich<br />
public<br />
constructor Create(X, Y, Width:Integer;<br />
Container: TForm); virtual;<br />
end;<br />
implementation<br />
constructor TUhr.Create(X, Y, Width:Integer;<br />
Container: TForm);<br />
begin<br />
inherited Create;<br />
kenntContainer := Container;<br />
Xul := X; // Koordinaten unten links<br />
Yul := Y;<br />
Breite := Width;<br />
XM := Xul + Breite DIV 2;<br />
49