Einzelnen Beitrag anzeigen

Christian_1980

Registriert seit: 15. Aug 2003
50 Beiträge
 
Delphi 7 Professional
 
#1

Bild wird nicht angezeigt

  Alt 2. Dez 2003, 11:46
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;
-> If the mouse laughs at the cat, there is always a hole nearby <-
  Mit Zitat antworten Zitat