Hi,
ich will nen Kalender mit DElphi 3.0 programmieren, der je nach monat n anderes bild zeigt.
Hab dazu den code benutzt:
var year,month,day: word;
var present: TDate;
var bitmap: TBitmap;
var filename: string;
begin
present:=now;
DateExtract(present,year,month,day); // Hab vergessen wie der befehl heißt, sry, ich mach das hier vom schulinet aus.
filename:='\'+inttostr(year)+'\'+inttostr(month)+'.bmp';
Bitmap:=Tbitmap.create;
Bitmap.Openfromfile(filename);
Image1.Picture.Bitmap:=Bitmap;
Bitmap.Free;
Der heult dann immer, das er die datei nicht findet. macht er aber auch, wenn ich nen absoulten pfad eingabe. am bitmap (hat 16 Mio farben) kanns eigentlich nicht liegen (oder doch), denn vom openimage-dialog aus gehts problemlos.
bizzl Gast |