Bild wird nicht angezeigt

[Christian_1980]

Hi Leute !

Ich verwende folgenden Code.. kann mir jemand von euch sagen, warum mein Bild nicht angezeigt wird? Eine Fehlermeldung gibt es nicht.

Delphi-Quellcode:

implementation

{$R *.DFM}

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');

  // Bild des Objektes auf der Form ausgeben
  PaintBox1.Canvas.Draw(1,1,Objekt.GetPicture);

  PaintBox1.Canvas.Draw(1,1,Objekt.GetPicture);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Objekt freigeben
  Objekt.Free;
end;

TEinObjekt ist folgendermaßen deklariert:

Delphi-Quellcode:

interface

uses  Classes, Graphics;

type

  TEinObjekt = class(TComponent)
     private
       Bild: TBitmap;
       PosX: Integer;
       PosY: Integer;
     public
       constructor Create(Owner: TComponent);override;
       destructor Destroy;override;
       procedure LadeBild(Pfad: String);
       function GetPicture: TBitmap;
     end;

implementation

constructor TEinObjekt.Create;
begin
  inherited Create(Owner);
  Bild := TBitmap.Create;
end;

destructor TEinObjekt.Destroy;
begin
  Bild.Free;
  inherited Destroy;
end;

procedure TEinObjekt.LadeBild;
begin
  Bild.LoadFromFile(Pfad);
end;

function TEinObjekt.GetPicture;
begin
  result := Bild;
end;

[himitsu]

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

[Christian_1980]

Ich danke Dir Himitsu !