Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Назначение палитры Bitmap

Если вы рисуете на TImage....

Во-первых, вам нужно использовать Image1.Picture.bitmap, а не Image.Canvas. Причина кроется в том, что Image1.Picture.Bitmap имеет палитру, в Timage нет. Затем палитру необходимо назначить. Вот пример:


 // Устанавливаем Width и Height перед использованием
 // Image1.Picture c Bitmap Canvasvar
 
 Bitmap: TBitmap;
 begin
   Bitmap:=TBitmap.Create;
   Bitmap.LoadfromFile({'Whatever.bmp'});
 
   With Image2.Picture.bitmap do
   Begin
     Width:=Bitmap.Width;
     height:=Bitmap.Height;
     Palette:=Bitmap.Palette;
     Canvas.draw(0,0,bitmap);
     Refresh;
   end;
 end;
 

Если вы рисуете на канве формы...


 Canvas.Draw(0,0,Bitmap);
 SelectPalette(Form1.Canvas.handle,Bitmap.Palette,True);
 RealizePalette(Form1.Canvas.Handle);
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS