Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
14-1080502026
ИМХО
2004-03-28 23:27
2004.04.18
Мазуту, Алексу Коншину, Маслоффу и всем-всем-всем


1-1080728092
Patrick
2004-03-31 14:14
2004.04.18
Путь к INI- файлу.


3-1079622632
Новичек
2004-03-18 18:10
2004.04.18
Задание степени релевантности при поиске?


1-1080624061
Rio
2004-03-30 09:21
2004.04.18
Формы


1-1080543453
atruhin
2004-03-29 10:57
2004.04.18
Массивы Variant и сборка мусора