24-х битное изображение

← →
SaM[87] (2004-01-03 21:10) [0]

Для загрузки bmp, изменения ширины и высоты, сохранения в другой bmp файл использую следующий код:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBItmap;
bmp2: TBItmap;
begin
bmp:= Tbitmap.Create;
try
bmp.Loadfromfile( filelistbox1.FileName );
bmp2:= Tbitmap.Create;
try
bmp2.Width := 64;
bmp2.Height:= 64;
bmp2.Canvas.StretchDraw( bmp2.Canvas.Cliprect, bmp );
Self.Canvas.Draw( 100, 10, bmp2 );
bmp2.SaveToFile( filelistbox1.FileName+ "_mini.bmp" );
finally
bmp2.free;
end;
finally
bmp.free;
end;
end;

Но почему-то сохраняется не как оригинал в 24 бита, а в 15 бит! Подскажите что не так.

← →
Липуня (клоны суксь :)) (2004-01-04 12:14) [1]

> bmp2:= Tbitmap.Create;

bmp2.PixelFormat := bmp.PixelFormat;

← →
Липуня (клоны суксь :)) (2004-01-04 12:15) [2]

Нет. Лучше вставь это после:

> bmp2.Height:= 64;

← →
SaM[87] (2004-01-04 14:27) [3]

Спасибо, очень помог!

24-х битное изображение Найти похожие ветки