БОЛЬШОЙ FAQ ПО DELPHI



Изменение палитры при выводе изображения

Сообщение MS IE: "Узел найден. Что с ним делать дальше?"

Да, это не тривиальная задача! Палитра дочернего MDI-окна попортила нервов не одному мне.

В обработчике сообщения WM_PaletteChanged вы можете убедиться, что видимая TImage.Picture.Bitmap.Palette всегда "реализована". Так..


 private
 
 procedure WMPaletteChanged(var Msg: TWMPaletteChanged);
   message WM_PaletteChanged;
 
 ...
 
 procedure Form1.WMPaletteChanged(var Msg: TWMPaletteChanged);
 begin
   if Msg.PalChg <> Form1.Handle then
   begin
     PaletteChanged(true);
     Msg.Result := 0;
   end;
 end;
 

Теперь вы можете масштабировать неотображенное изображение как вы хотите и не иметь проблем. Единственное, о чем вам необходимо помнить, если вы хотите вывести неотображенное изображение на видимый TImage, вам необходимо вызвать PaletteChanged снова после того, как изображение выведено. С кодом, который мы использовали...


 Image1.Picture.Bitmap := obitmap;
 PaletteChanged(true);
 

Если вы не делаете этот вызов, изображение отобразится с неправильной палитрой.




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



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



Видеокурс ВЗЛОМ