Noch ein Problem: Bilder aus Datei laden

[mayer]

Hallo,

Ich habe ein wunderbares kleines Programm geschrieben. Unter Windows funktioniert es wunderbar aber auf meinen Pocket PC....
(Screenshot liegt bei)

Er kann einfach die Bilder nicht laden.

Und hier der Code:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var
  Bitmap  : TBitmap;
  Bitmap1 : TBitmap;
  Camera  : TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Width := Screen.Width;
  Bitmap.Height := Screen.Height;
 
  Bitmap1  := TBitmap.Create;
  Bitmap1.LoadFromFile('GFX\Bitmap1.bmp');
  Bitmap1.TransparentColor := clBlack;
  Bitmap1.Transparent := True;
  Camera  := TBitmap.Create;
  Camera.LoadFromFile('GFX\Bitmap2.bmp');
 
  Bitmap.Canvas.Draw(0,0,Camera);
  Bitmap.Canvas.Draw(Screen.Width-184,Screen.Height-184,Bitmap1);
  Screen.Picture.Graphic := Bitmap;
end;

Also falls jemand ne Idee hat, bitte poste mir!

Danke!

//"Noch ein PROBLEM" ist nicht wirklich hilfreich. Gruß, monta

[Christian]

hast du schon mal probiert den vollen Pfad anzugeben ? unter Windows Mobile gibts keinen lokalen Pfad für jede Anwendung.

[mayer]

danke für die schnelle Antwort!

[Christian]

funktionierts ?

[bembulak]

Ja, danke. Es funktioniert.
Ich habe den Herrn Mayer heute getroffen, ist schließlich mein Schwipp-Cousin und ich wusste nix von seiner Anwesenheit in diesem Forum.