|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: DelphiX Level
21. Feb 2006, 17:52
Zitat:
einfach die Unit jpeg einbinden Wink Das stimmt nicht ganz, DelphiX hat ein Problem mit JPEG.
Du kannst das folgendermaßen umschiffen:
Delphi-Quellcode:
uses ...,jpeg;
.
.
.
procedure LoadJpeg(inputpath:string;Item:TPictureCollectionItem);
var bmp:TBitmap;
jpeg:TJpegImage;
begin
jpeg := TJpegImage.Create;
jpeg.loadfromfile(inputpath);
bmp := TBitmap.Create;
bmp.assign(jpeg);
item.picture.graphic.assign(bmp);
item.refresh;
bmp.free;
jpeg.free;
end;
Hoffe das geht so!
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|