Форум: "Основная";
Поиск по всему сайту: 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.029 c
1-69790           Lame1                 2002-04-10 12:24  2002.04.22  
Чтение записей из файла


3-69732           neos                  2002-03-29 12:36  2002.04.22  
Кнопка поля просмотра в TDBGrid


3-69751           mage                  2002-04-02 16:37  2002.04.22  
Помогите! не работает функция UPPER в SQL


1-69884           Alibaba               2002-04-09 12:11  2002.04.22  
TStringGrid


1-69926           DMA                   2002-04-09 20:06  2002.04.22  
Как определить какое окно сейчас активное?