Linien zeichnen

[sqrt 9]

WOW!

Dankeschön!

Nur bei folgenden Befehlen blicke ich noch nicht durch:

1.

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(TmpBmp);
  FreeAndNil(OutputBmp);
end;

2.

Delphi-Quellcode:

procedure TForm1.ShowBmp(Img: TImage; TmpImg: Boolean);
begin
  if TmpImg then
    Img.Canvas.Draw(0, 0, TmpBmp)
  else
    Img.Canvas.Draw(0, 0, OutputBmp)
end;

Gruß Michael