Версия для печати темы

Автор: СироП 23.05.2007 13:35

Делаю простенькую курсовую. В Паскале не силен, документация по окошкам вскольз, не могу найти подходящего примера. Суть курсовой опущу. Вопрос только по существу:

1. определяю координаты двух-трех окон

как мне указать окно с которым я работаю, например:

окно1 - очистить, окно2 - записать строчку

Спасибо за приведеный кусочек кода.


PS.
Перерыл всю документацию кроме самих функций CRT не нашел ни единого примеришичика, и меня это напрягает... В инете тоже самое. Проклятье какоето.

в нормальных языках никогда не сталкивался с Паскальными граблями, честно говоря язык носилует меня но сессия диктует правила...

Автор: Ozzя 23.05.2007 13:40

http://zeus.sai.msu.ru:7000/programming/bp70_lr/lr14.shtml#15

Автор: Lapp 23.05.2007 14:17

Боюсь, все гораздо проще, чем ты думаешь . Просто перед каждым действием (если оно производится с другим окном) нужно выполнить процедуру Window.
Например, окно 1 имеет координаты 10,10,20,20, а окно 2 - координаты 50,50,100,100. Тогда те действия, которые ты написал, нужно делать так:

Window(10,10,20,20);
ClrScr;
Window(50,50,100,100);
WriteLn(s);

Конечно, прямо так это делать неудобно, поэтому рекомендую тебе забацать процедурку, которая будет переключать окна по номерам, например. Типа такого:

type
  tWindow=record
    x1,y1,x2,y2:integer;
  end

var
  Windows : array[1..4]of tWindow;
  ......
  ......

procedure SetWindow(i:integer);
begin
  with Windows[i] do Window(x1,y1,x2,y2)
end;

begin
  {Тут заполняешь Windows нужными значениями ...}
  SetWindow(1);
  ClrScr;
  SetWindow(2);
  WriteLn(s);

Твоя процедура SetWindow будет переключать между твоими окнами. Для пущего удобства можешь добавить в нее и установку цвета текста..


ох..

Автор: volvo 23.05.2007 14:55

Скачай TP 6.0, насколько я помню в его дистрибутиве был полноценный пример работы с окнами: WINDEMO.pas

Или поищи по форуму, я его уже как-то выкладывал...

Автор: СироП 23.05.2007 16:16

Спасибо ребята