Kurze Frage zur PaintBox

[Darkchild]

Habe das jetzt etwas anders:

Delphi-Quellcode:

procedure Tfrmpaintmaster.ffnen1Click(Sender: TObject);
begin
if OpenPictureDialog.execute then
  begin
  Bild := TBitmap.Create;
  Bild.LoadFromFile (OpenPictureDialog.FileName);
  with PaintBox do
      begin
      PaintBox.Width := Bild.Width;
      PaintBox.Height := Bild.Height;
      end;
  end;
end;

procedure Tfrmpaintmaster.PaintBoxPaint(Sender: TObject);
begin
Canvas.Draw(0,0,Bild);
end;

Damit scheint es jetzt zu funktionieren.

Danke nochmals.

Gruss
Darkchild