Тема: PopupMenu
Показать сообщение отдельно
  #1  
Старый 24.06.2017, 01:27
kudesnik kudesnik вне форума
Прохожий
 
Регистрация: 06.02.2012
Сообщения: 21
Репутация: 10
По умолчанию PopupMenu

После того как я загружаю рисунок в menuItem форматирование текста caption меняется. Как можно исправить этот баг?
загружаю так
Код:
function LoadIco(MyExe: string):TBitmap;
var
   Icon : TIcon;
   Pch: array[0..256] of Char;
   IconIndex: Word;
   bmp : TBitmap;
begin
   Icon := TIcon.Create;
   StrPCopy(Pch,MyExe);
   Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);
   bmp := TBitmap.Create;
      try
        bmp.PixelFormat := pf32bit;
        bmp.Width := icon.Width;
        bmp.Height := icon.Height;
        bmp.Canvas.Draw(0, 0, icon);
        result:=bmp;
      finally
       // bmp.Free;
      end;
   Icon.Free;
end;
1.jpg
2.jpg
Ответить с цитированием