Du solltest deinen
Unit sinnvolle Namen geben; also nicht Unit1, Unit2, Unit3.
Und dann in
Unit ulinie:
Delphi-Quellcode:
procedure TLinie.Draw;
(* -------------------------------------------------------------------- *)
begin
form8.paintbox1.Canvas.pen.color:=clblack;
form8.paintbox1.Canvas.MoveTo(x1 , y1 );
form8.paintbox1.Canvas.lineTo(x2 , y2 );
end;
Das ist natürlich ganz schlecht! Wozu eine eigene Klasse, wenn diese doch nur mit form8.paintbox1.Canvas arbeiten kann ?
Man kann das natürlich verbessern:
Delphi-Quellcode:
procedure TLinie.Draw(canvas:TCanvas);
begin
Assert(Assigned(canvas));
canvas.pen.color:=clblack;
canvas.MoveTo(x1 , y1 );
canvas.lineTo(x2 , y2 );
end;
Bitte dann auch im Sourcecode Archiv alle *.~* und *.dcu löschen, da diese Dateien völlig überflüssig sind.