Thema: Delphi Kurze Frage zur PaintBox

Einzelnen Beitrag anzeigen

Darkchild

Registriert seit: 13. Okt 2006
Ort: NRW
169 Beiträge
 
Delphi 2006 Enterprise
 
#1

Kurze Frage zur PaintBox

  Alt 8. Jan 2007, 20:20
Nabend zusammen,

kurze frage:

Ich versuche mich gerade mal an einem Zeichen-Programm, nur aus reiner neugier, da ich vorher noch nie was mit Grafik in Delphi gemacht habe, jetzt bin ich dabei gerade mal in den Anfängen nämlich beim Laden und öffnen eines Bildes in der PaintBox, klappt auch soweit, habe das wie folgt gemacht:

Delphi-Quellcode:
procedure Tfrmpaintmaster.ffnen1Click(Sender: TObject);
var
Bild:TBitmap;
begin
if OpenPictureDialog.execute then
  begin
  Bild := TBitmap.Create;
  Bild.LoadFromFile (OpenPictureDialog.FileName);
    with PaintBox do
      begin
      Canvas.Draw(0,0,Bild);
      PaintBox.Width := Bild.Width;
      PaintBox.Height := Bild.Height;
      end;
  end;
end;
Mein Problem ist jetzt das wenn ich sage Öffnen und ich das Bild aussuche dann sehe ich das Bild noch nicht, also es wird nicht angezeigt, sondern erst wenn ich es zum zweitenmal öffne, dann sehe ich es wie es sein soll.
Habe es schon mit Refresh probiert, aber das klappt auch nicht.

Maine Frage jetzt was mache ich falsch oder habe ich was vergessen ?

Gruss
Darkchild
Ich bin der Geist der stets verneint und das mit recht, denn alles was entsteht ist wert das es zugrunde geht, drum besser wär das nichts entstünde, so ist denn alles was ihr Sünde, Zerstörung, kurz das Böse nennt, mein eigendliches Element.
  Mit Zitat antworten Zitat