PC-Planer

[shmia]

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.