TMain - Goethe Gymnasium Dortmund

TDiagramm
- Ymax,
- Rand
+ ! create(),
+ ! tragEin(n),
- ! zeichneAchsen,
+ ! loesche,
unit mDiagramm;
type
TDiagramm = class(TForm)
private
Nummer, ymax, Randunten, Randoben, Randlinks,
Randrechts: INTEGER;
procedure ZeichneAchsen;
public
constructor Create(AOwner: TComponent); override;
procedure TragEin(Zeit:INTEGER);
procedure loesche;
end;
……………..
procedure TDiagramm.ZeichneAchsen;
BEGIN
With Canvas DO BEGIN
MoveTo(Randlinks,Randoben);
LineTo(Randlinks,Height-Randunten);
LineTo(Width - Randrechts,Height - Randunten);
END
END;
procedure TDiagramm.loesche;
BEGIN
With Canvas DO BEGIN
Brush.Color := clwhite;
Rectangle(0,0, width, height)
END;
Nummer := 0;
ZeichneAchsen
END;
14