| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

24-х битное изображение [D6, WinME]

SaM[87] ©   (2004-01-03 21:10:00) 

Для загрузки 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 бит! Подскажите что не так.

---

SaM[87]   (2004-01-04 14:27:00) [1]

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

---

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

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


> bmp2.Height:= 64;

---

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

>        bmp2:= Tbitmap.Create;


bmp2.PixelFormat := bmp.PixelFormat;

---

Наверх