Размеры 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;

С уважением,

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