|
#1
|
|||
|
|||
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; 2.jpg |