Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.02.15;
Скачать: 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 вся ветка

Текущий архив: 2009.02.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
3-1214981326
Erick
2008-07-02 10:48
2009.02.15
Сортировка строкового поля как числового(D10/FoxPro/ADO)


6-1198936020
DmT
2007-12-29 16:47
2009.02.15
Отправка письма по SMTP


3-1214849398
arturich
2008-06-30 22:09
2009.02.15
Соединение с Oracle через Database Explorer


15-1229637458
Kostafey
2008-12-19 00:57
2009.02.15
Восстановление Windows


8-1189549248
adolis1
2007-09-12 02:20
2009.02.15
програма для начитки текста и его записи в файл