Jetzt hab ich gleich noch ein Problem mit OnResize!
Delphi-Quellcode:
procedure TfrmNET.OnCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Image.ClientWidth;
Bitmap.Height := Image.ClientHeight;
Bitmap.Canvas.Brush.Color := clBlack;
Bitmap.Canvas.FillRect(Rect(0,0,Bitmap.Width,Bitmap.Height));
Image.Picture.Graphic := Bitmap;
end;
procedure TfrmNET.OnResize(Sender: TObject);
begin
Image.Picture.Bitmap.Width := Image.ClientWidth;
Image.Picture.Bitmap.Height := Image.ClientHeight;
DrawConnection(@myNET, Point(Image.Width div 2, 0));
end;
Wenn ich die Form nun veränder wandert die Zeichnung mit, aber die alten Linien bleiben bestehen.
Wie kann man die Löschen?
Beim OnResize zuerst ein FillRect mit Schwarz aufzurufen hat nicht geholfen.