procedure Load_Bitmap(bmp: TBitmap; aFileName: string);
var
p : TPicture;
begin
if lowercase(ExtractFileExt(aFileName)) <> '.bmp' then begin
P := TPicture.Create;
try
P.LoadFromFile(aFileName);
bmp.Assign(P.Graphic);
finally
P.Free;
end;
end
else
bmp.LoadFromFile(aFileName);
end;
Bei Verwendung von JPEG-Bildern muß
die Unit JPEG.PAS eingebunden werden.
|