Ein Hallöle von
http://www.FrankNStein.de/Smiley-Wolke.gif.
Erstmal, doppelt hält nicht bessere.
Zitat:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
...
// Bild des Objektes auf der Form ausgeben
PaintBox1.Canvas.Draw(1,1,Objekt.GetPicture);
PaintBox1.Canvas.Draw(1,1,Objekt.GetPicture);
end;
Ausserdem bringt "PaintBox1.Canvas.Draw" im OnCreate-Ereignis nicht viel, da OnCreate aufgerufen wird, wenn das Formular erzeut wird, also noch nicht angezeigt wird. Demnach ist "PaintBox1.Canvas.Draw" im dort sinnlos und kann entfernt werden.
Besser ist es im OnPaint-Ereignis der PaintBox aufgehoben, weil dort ja zum neuzeichnen der PaintBox aufgefordert wird.
Delphi-Quellcode:
Procedure TForm1.FormCreate(Sender: TObject);
Begin
// Objekt erzeugen
Objekt := TEinObjekt.Create(Owner);
// Bild in Objekt laden
If FileExists('C:\tmp2delt.bmp') Then
Objekt.LadeBild('C:\tmp2delt.bmp')
Else
Showmessage('Datei existiert nicht');
End;
Procedure TForm1.PaintBox1Paint(Sender: TObject);
Begin
// Bild des Objektes auf der Form ausgeben
PaintBox1.Canvas.Draw(1,1,Objekt.GetPicture);
End;
Alternativ könnte es aber auch noch im OnPaint-Ereignis des Formulars stehen.
Delphi-Quellcode:
Procedure TForm1.FormCreate(Sender: TObject);
Begin
// Objekt erzeugen
Objekt := TEinObjekt.Create(Owner);
// Bild in Objekt laden
If FileExists('C:\tmp2delt.bmp') Then
Objekt.LadeBild('C:\tmp2delt.bmp')
Else
Showmessage('Datei existiert nicht');
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
// Bild des Objektes auf der Form ausgeben
PaintBox1.Canvas.Draw(1,1,Objekt.GetPicture);
End;
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif