Einzelnen Beitrag anzeigen

Rob09

Registriert seit: 14. Aug 2007
58 Beiträge
 
Delphi 6 Personal
 
#4

AW: Richtiger Umgang mit mehreren gleichen TPictures

  Alt 4. Jun 2011, 18:17
Okay, vielen Dank schonmal für die Klarstellung und den Tip mit den TPaintboxes. Leider funktioniert das noch nicht so, wie ich mir das vorstelle. Ich mache es folgendermaßen:

Delphi-Quellcode:
{diese Prozedur wird vor Form1.Show aufgerufen}
var
  APicture: TPicture;
begin

  {FPaintbox ist private Variable vom Typ TPaintbox innerhalb TForm1}
  FPaintbox := TPaintbox.Create(Self);
  FPaintbox.Parent := Self;
  FPaintbox.Height := ...;
  FPaintbox.Width := ...;
  FPaintbox.Top := ...;
  FPaintbox.Left := ...;

  APicture := TPicture.Create;
  APicture.LoadFromFile(<Datei>.jpg);
  FPaintbox.Canvas.Draw(0, 0, APicture.Graphic);

  FreeAndNil(ATPicture);
end;
Das Problem ist, dass die Grafik trotzdem nirgends zu sehen ist... Die Delphi-Hilfe hilft mir leider auch nicht weiter. Was mache ich denn da falsch?
  Mit Zitat antworten Zitat