Скачать: CL | DM;

Размеры TMenuItem?   Найти похожие ветки 

← →
ghost_by ©   (2002-04-09 13:38) [0]

Обрабатываю событие OnDrawItem. Но вот в чем проблема - размеры меню - помойму устанавливаются в соответствии с текстом содержащимся в меню. При рисовании MenuItem, мне этих размеров маловато будет. Возникает вопрос - как увеличить размеры (Width) меню? По идее, можно в Caption MenuItem"a можно загнать текст нужной длинны, но - неужели нет метода попроще?

---

← →
Игорь Шевченко ©   (2002-04-09 14:00) [1]

День добрый,

AMenuItem.OnMeasureItem := MyExpandItemWidth;

procedure TForm1.MyExpandItemWidth(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
Inc(Width, MenuIncreaseWidth);
....
end;

С уважением,

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.01 c