| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вопрос по TPopupMenu. Прямоугольная область.
DevilDevil © (2007-10-24 14:20:00)перерисовываю пункты меню через OnAdvancedDrawItem и OwnerDraw. Сам текст рисую на 20 пикселей правее обычного, поэтому длинный текст немного не умещается в прямоугольную область меню.
Вопрос: можно ли такую прямоугольную область как то сделать шире на 20 пикселей?
ToЮрий Зотов
имхо подобный вопрос не является совсем стандартным, ответить на него могут наверное только специалисты в области компонентов. С Уважением.
DevilDevil (2007-10-24 16:04:00) [1]прошу прощения, понял в чём дело
DevilDevil (2007-10-24 16:01:00) [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:00) [3]ой, в данном случае
Width := Width + 100;
Palladin (2007-10-24 14:29:00) [4]Да уж... действительно, только специалисты в областы компонентов. :))
OnMeasureItem
| |
