[kudesnik]

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

[lmikle]

"Прицепи" к меню TImageList, что бы "форматирование" сразу рассчитывало на картинки, и загружай иконки в него, назначая итемам соотв. индексы.

[kudesnik]

Факт самого присоединения timagelist к popupmenu меняет форматирование текста (между словами - tab (#9)). Может есть другие способы привести текст к нормальному виду?

[lmikle]

Ну, в этом и был смысл - сделать форматирование с учетем картикок сразу. Ну а по поводу Tab - ну тогда только ручная отрисовка. Когда хочется чего-ниь странного - то сразу думай о том, что все придется делать самому.