|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.04.2010, 18:42 | #1 |
Регистрация: 02.04.2010
Сообщений: 2
|
Создание окна в Turbo Vision
Здравствуйте.
Подскажите, пожалуйста, как создать и открыть новое окно в программе на Turbo Pascal с использованием Turbo Vision? Я делаю так: type PMyWindow = ^TMyWindow; TMyWindow = object (TWindow) constructor Init(Bounds: TRect; WinTitle: String; WindowNo: Integer); end; type TMyAppl = object (TApplication) FilmsList: PCollection; constructor Init; procedure InitStatusLine; virtual; procedure InitMenuBar; virtual; procedure NewWindow; virtual; procedure HandleEvent (var Event: TEvent); virtual; end; procedure TMyAppl.InitStatusLine; var R: TRect; begin GetExtent (R); R.A.Y:=R.B.Y - 1; StatusLine:=New(PStatusLine,Init(R, NewStatusDef(0,$FFFF, NewStatusKey('~Alt-X~ Exit',kbAltX,cmQuit, NewStatusKey('~F4~ New',kbF4,cmNewWin, nil)), nil) )); end; procedure TMyAppl.NewWindow; var Window: PMyWindow; R: TRect; begin Inc(WinCount); R.Assign(0,0,20,7); Window:=New(PMyWindow,Init(R,'Demo Window',WinCount)); DeskTop^.Insert(Window); end; procedure TMyAppl.HandleEvent(var Event: TEvent); begin Inherited HandleEvent(Event); if Event.What = evCommand then begin case Event.Command of cmNewWin: NewWindow; else Exit; end; ClearEvent(Event); end; end; Ни при нажатии на пункт New в строке состояния, ни при нажатии клавиши F4, ни при нажатии пункта меню New в строке меню открытие нового окна не происходит. Помогите, пожалуйста, разобраться, что не так в коде. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание окна средствами API!! | LovePower | Общие вопросы C/C++ | 2 | 07.03.2010 21:29 |
Turbo Vision | Maxxx 83 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 07.07.2009 19:58 |
Создание цветного окна на экране | Pecherni | Общие вопросы C/C++ | 0 | 11.04.2009 20:20 |
Что такое Turbo vision | Иллидан | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 20.01.2008 20:25 |