Скачать: CL | DM;

SetMenuItemBitmaps   Найти похожие ветки 

← →
LDV   (2008-12-30 18:39) [0]

Не добавляется иконка к пункту системного меню. Вот код:


B := TPicture.Create;
   try
     B.LoadFromFile("D:\Help.bmp");
     SetMenuItemBitmaps(GetSystemMenu(Handle, False), 5, MF_BYPOSITION, B.Bitmap.Handle, B.Bitmap.Handle);
     DrawMenuBar(Handle);
   finally
     B.Free;
   end;


---

← →
Johnmen ©   (2008-12-30 22:36) [1]

1. А что ещё ожидать, когда B.Free?
2. Из каких соображений здесь TPicture, а не TBitmap?
3. Пункт пятый - это разделитель :)))

---

← →
LDV   (2008-12-31 14:08) [2]

С добавление иконки как-никак разобрался. По ходу возникла еще одна проблема, как сделать чтобы при выборе моего пункта в системном меню не происходило обращение цвета значка;


   hSysMenu := GetSystemMenu(Handle, False);
   
   InsertMenu(hSysMenu, 0, MF_STRING, SC_HELP, PChar(default_name_help));
   
   FBtpHelp := TBitmap.Create;
   FBtpHelp.Width  := default_width_Help;
   FBtpHelp.Height := default_height_Help;
   _GetHelpImage.DrawSize(FBtpHelp.Canvas, -1, -1, FBtpHelp.Width, FBtpHelp.Height, default_index_Help);
   
  FillChar(miInfo, SizeOf(TMenuItemInfo), #0);
   miInfo.cbSize := SizeOf(TMenuItemInfo);
   miInfo.fMask := MIIM_BITMAP;
   miInfo.hbmpItem := FBtpHelp.Handle;
   SetMenuItemInfo(hSysMenu, SC_HELP, False, miInfo);


---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c