Турбо Паскаль 6.0

         

Получение TRect.


TPoint редко напрямую используется в Turbo Vision. Поскольку каждый видимый элемент имеет и начало и размер, обычно они обрабатываются в объекте TRect совместно. TRect имеет 2 поля А и В каждое типа TPoint. Когда заданы границы видимого элемента, эти границы передаются в констрактор TRect. TRect и TView предоставляют полезные методы для манипуляции размером видимого элемента. Например, если Вы хотите создать видимый элемент, который заполняется только внутри окна, Вы можете получить размер окна, сократить его и назначить новому внутреннему видимому элементу.

procedure ThisWindow.MakeInside; var R: TRect; Inside: PInsideView; begin GetExtent(R); { установить R в размер ThisWindow} RR.Grow(-1, -1); { сократить прямоугольник на 1 } Inside := New(PInsideView, Init(R)); { создать внутренний видимый элемент} Insert(Inside); { вставить новый видимый элемент в окно } end;

GetExtent - это метод TView, который устанавливает аргумент TRect в координаты прямоугольника, покрывающего весь видимый элемент. Grow - это метод TRect, который увеличивает (а с отрицательными параметрами уменьшает) горизонтальный и вертикальный размеры прямоугольника.



Содержание раздела