![]() |
|
#1
|
|||
|
|||
![]() После того как я загружаю рисунок в 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 |
#2
|
|||
|
|||
![]() "Прицепи" к меню TImageList, что бы "форматирование" сразу рассчитывало на картинки, и загружай иконки в него, назначая итемам соотв. индексы.
|
#3
|
|||
|
|||
![]() Факт самого присоединения timagelist к popupmenu меняет форматирование текста (между словами - tab (#9)). Может есть другие способы привести текст к нормальному виду?
Последний раз редактировалось kudesnik, 24.06.2017 в 10:15. |
#4
|
|||
|
|||
![]() Ну, в этом и был смысл - сделать форматирование с учетем картикок сразу. Ну а по поводу Tab - ну тогда только ручная отрисовка. Когда хочется чего-ниь странного - то сразу думай о том, что все придется делать самому.
|