После того как я загружаю рисунок в menuItem форматирование текста caption меняется. Как можно исправить этот баг?
загружаю так
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 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
end;
Icon.Free;
end;
|
1.jpg
2.jpg