Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

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

С уважением,




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.024 c
1-69898           Sergey Saf            2002-04-06 21:24  2002.04.22  
Долгий таймер


1-69831           oomneeq               2002-04-10 18:39  2002.04.22  
MRU List открывавшихся проектов в IDE


3-69664           ruslan_as             2002-04-02 18:08  2002.04.22  
ClienDataSet в InterBase


1-69855           gray1                 2002-04-09 09:41  2002.04.22  
pageUP pageDOWN


14-69997          MBo                   2002-03-14 17:16  2002.04.22  
книга Лишнера