вопрос по TPopupMenu. Прямоугольная область.

← →
DevilDevil © (2007-10-24 14:20) [0]

перерисовываю пункты меню через OnAdvancedDrawItem и OwnerDraw. Сам текст рисую на 20 пикселей правее обычного, поэтому длинный текст немного не умещается в прямоугольную область меню.

Вопрос: можно ли такую прямоугольную область как то сделать шире на 20 пикселей?

To Юрий Зотов
имхо подобный вопрос не является совсем стандартным, ответить на него могут наверное только специалисты в области компонентов. С Уважением.

← →
Palladin © (2007-10-24 14:29) [1]

Да уж... действительно, только специалисты в областы компонентов. :))

OnMeasureItem

← →
DevilDevil © (2007-10-24 16:01) [2]

хмм... да, думал всё на порядок сложнее.

Тем не менее...
Изменяю и OnAdvancedDrawItem и OnMeasureItem, получается так:
http://devilhome.narod.ru/DrawAndMeasureEvents.PNG

procedure TForm1.dasdas1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); begin Width := Width + 20; end;

← →
DevilDevil © (2007-10-24 16:01) [3]

ой, в данном случае Width := Width + 100;

прошу прощения, понял в чём дело

вопрос по TPopupMenu. Прямоугольная область. Найти похожие ветки