После того как я загружаю рисунок в 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