Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Вниз

вопрос по 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;

---

← →
DevilDevil ©   (2007-10-24 16:04) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c