Размеры TMenuItem? [D5]
ghost_by © (2002-04-09 13:38:00)
Обрабатываю событие OnDrawItem. Но вот в чем проблема -
размеры меню - помойму устанавливаются в соответствии с текстом
содержащимся в меню. При рисовании MenuItem, мне этих размеров
маловато будет. Возникает вопрос - как увеличить размеры (Width)
меню? По идее, можно в Caption MenuItem"a можно загнать текст
нужной длинны, но - неужели нет метода попроще?
Игорь Шевченко (2002-04-09 14:00:00) [1]
День добрый,
AMenuItem.OnMeasureItem := MyExpandItemWidth;
procedure TForm1.MyExpandItemWidth(Sender: TObject; ACanvas:
TCanvas;
var Width, Height: Integer);
begin
Inc(Width, MenuIncreaseWidth);
....
end;
С уважением,
Наверх 
ЧАТ |
Орешник |
|
