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