VPF::программка - Форум программистов

gh6

Дата 11.1.2007, 06:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 11.1.2007

Репутация: нет
Всего: нет

Привет!

Писал прогу и че то запутался со всем-Менюшек действительно должно быть больше все дело в закоментированой строке 174:

Можит кто нить посмотрит в чем тута дела?

Присоединённый файл ( Кол-во скачиваний: 14 )

rabota.pas 15,58 Kb

volvo877

Дата 12.1.2007, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(gh6 @ 11.1.2007, 05:04

)

Менюшек действительно должно быть больше

Строка 174 вообще ни при чем здесь... Возможно, имелась в виду 574? Так и она не имеет отношения к меню - менюшки инициализируются в TSpravochnik.InitMenuBar, а никак не в TSpravochnik.InitStatusLine...

Хочешь, чтобы была и статусная строка - делай так:

Код

         Procedure TSpravochnik.InitStatusLine;
         var
           R: TRect;
         begin
           GetExtent (R);
           R.A.Y :=pred(R.B.Y);

           StatusLine :=New(PStatusLine,
           Init(R,
             NewStatusDef (0, $FFFF,
             NewStatusKey( ' ~Alt-X~ Exit',kbAltX,cmQuit,
             NewStatusKey( '~F2~ Save',kbF2,cmSave,
             NewStatusKey('~F3~ Open', kbF3, cmOpen,
             NewStatusKey('F4~ Work', kbF4, cmWork,
             NewStatusKey('~F10~ Menu', kbF10, cmMenu,
             nil))))),
            nil)));


            DisableCommands(WinCom1)
           end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »