Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Добавление картинки на кнопку, если используются стили XP

Delphi , ОС и Железо , Windows

Добавление картинки на кнопку, если используются стили XP

Code:

function Button_SetImageEx(hwndCtl:HWND;
                          Img:HGDIOBJ;
                          ImgType:integer; // IMAGE_BITMAP или IMAGE_ICON
                          cx:integer = 16; cy:integer = 16):Integer;
const
BCM_FIRST                       = $1600;
BCM_SETIMAGELIST                = $0002;
 
BUTTON_IMAGELIST_ALIGN_LEFT     = 0;
BUTTON_IMAGELIST_ALIGN_RIGHT    = 1;
BUTTON_IMAGELIST_ALIGN_TOP      = 2;
BUTTON_IMAGELIST_ALIGN_BOTTOM   = 3;
BUTTON_IMAGELIST_ALIGN_CENTER   = 4;
 
type
TButtonImageList=record
  himl   : HIMAGELIST;    // normal, hot, pushed, disabled, focused
  margin : TRECT;         // отступы
  uAlign : DWORD;         // выравнивание
end;
 
var
  hIconBlend:HICON;
  bi:TButtonImageList;
begin
   Result:=0;
   if not (ImgType in [IMAGE_BITMAP,IMAGE_ICON]) then exit;
 
   ZeroMemory(@bi, sizeof(bi));
   bi.himl := ImageList_Create(cx,cy,ILC_COLOR16 or ILC_MASK,4,0);
   bi.margin.Left:=10;
   bi.uAlign := BUTTON_IMAGELIST_ALIGN_LEFT;
 
   if (ImgType=IMAGE_BITMAP) then
   begin
    ImageList_Add(bi.himl,Img,0);   // Normal
    ImageList_Add(bi.himl,Img,0);   // hot
    ImageList_Add(bi.himl,Img,0);   // pushed
   end else
   begin
    ImageList_AddIcon(bi.himl,Img);   // Normal
    ImageList_AddIcon(bi.himl,Img);   // hot
    ImageList_AddIcon(bi.himl,Img);   // pushed
   end;
 
   // disabled
   hIconBlend := ImageList_GetIcon(bi.himl,0,ILD_BLEND50 or ILD_TRANSPARENT);
   ImageList_AddIcon(bi.himl,hIconBlend);
   DestroyIcon(hIconBlend);
 
   // focused
   if (ImgType=IMAGE_BITMAP) then ImageList_Add(bi.himl,Img,0) else
   ImageList_AddIcon(bi.himl,Img);
 
 
   result:=SendMessage(hwndCtl,BCM_FIRST + BCM_SETIMAGELIST,0,LPARAM(@bi));
   if (result=0) then
   begin
    ImageList_Destroy(bi.himl);
    result := SendMessage(hwndCtl,BM_SETIMAGE,ImgType,Img)
   end;
end;

Пример использования:

Code:

       
Button_SetImageEx(hwndButton,LoadBitmap(hInstance,'IDB_BITMAP1'),IMAGE_BITMAP);
 
// иконка
SetWindowLong(hwndButton,GWL_STYLE,GetWindowLong(hwndButton,GWL_STYLE) or BS_ICON);
Button_SetImageEx(hwndButton,LoadIcon(hInstance,'IDI_ICON1'),IMAGE_ICON);

Автор: Krid
Взято из http://forum.sources.ru

Статья Добавление картинки на кнопку, если используются стили XP раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Windows ::


реклама

:: Описание корпоративные подарки строителям у нас.


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
16.06.2021 05:18:37/0.0031890869140625/2