TMenuBox Menus
+------------+ | TObject | +------+-----+ +------+-----+ | TView | +------+-----+ +------+-----+ | TMenuView | +----+---+---+ +--------+ +------+ +----+-----+ +====+=====+ | TMenuBar | | TMenuBox | +----------+ +==========+ Объекты MenuBox представляют вертикальные прямоугольники меню. Они могут содержать произвольный список выбираемых действий, включая элементы подменю. Как и в полосе меню, для указания запрещенных элементов используется цвет. Прямоугольники меню могут создаваться как подменю полосы меню или других прямоугольников меню или могут использоваться как отдельные выпадающие меню. Методы Init constructor Init(var Bounds: TRect; Amenu: PMenu; AParentMenu: PMenuView); Init настраивает параметр Bounds в соответствии с шириной и длиной элементов в AMenu, затем создает прямоугольник меню, вызывая TMenuView.Init. Бит ofPreProcess в поле Options установлен так, чтобы могли использоваться горячие клавиши. Установка State включает sfShadow. Поле меню установлено в AMenu, которое задает элементы меню. Поле ParentMenu установлено в AParentMenu. См. так же: TMenuView.Init, sfXXXX флаги состояний, ofXXXX флаги опций, TMenuView.Menu, TMenuView.ParentMenu Draw procedure Draw; virtual; Перекрывается: Редко Рисует рамку прямоугольника меню и элементы меню цветом по умолчанию. GetItemRect procedure GetItemRect(Item: PMenuItem; var R: TRect; virtual; Перекрывается: Редко Перекрывает абстрактный метод в TMenuView. Возвращает прямоугольник, занятый элементом меню. Используется для определения, находится ли отметка мышкой на данном элементе меню. См. так же: TMenuView.GetItemRect Палитра Прямоугольники меню, как и все видимые элементы меню, используют палитру по умолчанию CMenuView для отображения элементов со 2 по 7 в палитру стандартной программы. 1 2 3 4 5 6 +====+====+====+====+====+====+ CMenuView | 2 | 3 | 4 | 5 | 6 | 7 | +==+=+==+=+==+=+==+=+==+=+==+=+ Нормальный текст -+ | | | | +-- Короткий выбранный Запрещенный текст -----+ | | +------ Запрещенный выбранный Короткий текст -------------+ +------------ Нормальный выбранныйTMenuView Menus
+------------+ | TObject | +------+-----+ +------+-----+ | TView | +------+-----+ +======+=====+ | TMenuView | +====+===+===+ +--------+ +------+ +----+-----+ +----+-----+ | TMenuBar | | TMenuBox | +----------+ +----------+ TMenuView предоставляет тип абстрактного меню, из которого порождаются полосы и прямоугольники меню. Вы вероятно никогда не будете создавать экземпляров TMenuView. Поля ParentMenu ParenMenu: PMenuView; Только чтение Указатель на объект TMenuView (или порожденный от него), который владеет этим меню. Заметим, что TMenuView - не группа. Здесь принадлежность намного проще, чем для TGroup, позволяя вложенность меню: выбор подменю и обратный возврат в "родительское" меню. Выборы из полос меню, например, обычно приводят к "выпаданию" подменю. В этом случае полоса меню - предок прямоугольника меню. См. так же: TMenuBox.Init Menu Menu: PMenu; Только чтение Указатель на запись TMenu для этого меню, которая содержит связанный список элементов меню. Указатель меню позволяет обращаться ко всем полям элементов меню в видимом элементе меню. См. так же: TMenuView.FindItem, TMenuView.GetItemRect, тип TMenu Current Current: PMenuItem; Только чтение Указатель на текущий выбранный элемент меню. Методы Init constructor Init(var Bounds: TRect); Вызывает TView.Init, чтобы создать объект TMenuView размера Bounds. По умолчанию EventMask установлено в evBroadcast. Этот метод не предназначен для использования с экземплярами объектов TMenuView. Он предназначен для вызова из порожденных типов TMenuBar и TMenuBox. См. так же: TView.Init, evBroadcast, TMenuBar.Init, TMenuBox.Init Load constructor TMenuView.Load(var S: TStream); Создает объект TMenuView и загружает его из потока S вызывая TView.Load, а затем загружая элементы в список меню. См. так же: TView.Load, TMenuView.Store Execute function Execute: Word; virtual; Перекрывается: Никогда Выполняет видимый элемент меню до тех пор, пока пользователь не выберет элемент меню или не отменит этот процесс. Возвращает команду, назначенную выбранному элементу меню, или 0, если меню было отменено. Этот метод должен вызываться только из ExecView. См. так же: TGroup.ExecView FindItem function FindItem(Ch: Char): PMenuItem); Возвращает указатель на элемент меню, который имеет Ch как горячую клавишу (подсвеченный символ). Возвращает nil, если такой элемент не найден или этот элемент запрещен. Заметим, что для Ch не различаются прописные и строчные буквы. GetItemRect procedure GetItemRect(Item: PMenuItem; var R: TRect); virtual; Перекрывается: Всегда Этот метод возвращает в R прямоугольник, занимаемый данным элементом меню. Используется для определения, не был ли отмечен данный элемент мышкой. Наследники TMenuView должны перекрывать этот метод для того, чтобы откликаться на события от мышки. См. так же: TMenuBar.GetItemRect, TMenuBox.GetItemRect GetHelpCtx function GetHelpCtx: Word; virtual; Перекрывается: Иногда По умолчанию этот метод возвращает контекст подсказки текущего элемента меню. Если это hcNoContext, выбирается текущий контекст родительского меню. Если родительского меню нет, GetHelpCtx возвращает hcNoContext. См. так же: hcXXXX константы контекста help GetPalette function GetPalette: PPalette; virtual; Перекрывается: Иногда Возвращает указатель на палитру по умолчанию CMenuView. HandleEvent procedure HandleEvent(var Event: TEvent); virtual; Перекрывается: Никогда Вызывается для обработки событий меню. Определяет, какой элемент меню был выбран мышкой или клавиатурой (включая горячие клавиши) и генерирует соответствующее командное событие через PutEvent. См. так же: TView.HandleEvent, TView.PutEvent HotKey function HotKey(KeyCode: Word): PMenuItem; Возвращает указатель на элемент меню, связанный с горячей клавишей, заданной через KeyCode. Возвращает nil, если не существует такого элемента меню или если элемент запрещен. Горячие клавиши - это обычно функциональные клавиши или комбинации Alt ключей и определяются аргументами в вызовах NewItem и NewSubMenu в InitMenuBar. Этот метод используется в TMenuView.HandleEvent для определения, будет ли событие от клавиатуры вибирать элемент меню. Store procedure Store(var S: TStream); Сохраняет объект TMenuView (и его подменю) в потоке S, вызывая TView.Store, а затем записывая каждый элемент меню в поток. См. так же: TMenuView.Load Палитра Все видимые элементы меню используют палитру по умолчанию CMenuView для отображения элементов со 2 по 7 в палитру стандартной программы. 1 2 3 4 5 6 +====+====+====+====+====+====+ CMenuView | 2 | 3 | 4 | 5 | 6 | 7 | +==+=+==+=+==+=+==+=+==+=+==+=+ Нормальный текст -+ | | | | +-- Короткий выбранный Запрещенный текст -----+ | | +------ Запрещенный выбранный Короткий текст -------------+ +------------ Нормальный выбранныйTObject Objects
+===========+ | TObject | ++=+=+=+=+=++ +---------+ | | | | +---------+ +-------+-------+ | | | | +-------+-------+ | TCollection | | | | | | TResourceFile | +---------------+ | | | | +---------------+ +-----------+ | | +----------+ +-------+-------+ | | +-------+-------+ | TStream | | | | TStringList | +---------------+ | | +---------------+ +-------------+ +-------------+ +-------+-------+ +-------+-------+ | TStrListMaster| | TView | +---------------+ +---------------+ TObjеct - это начальная точка иерархии объектов Turbo Vision. Как базовый объект он не имеет предков, но имеет множество потомков. Кроме TPoint и ТRect все стандартные объекты Turbo Vision порождены в конечном счете от TObject. Любой объект, использующий потоки Turbo Vision, должен происходить от TObject. Методы Init constructor Init; Распределяет память в куче для объекта и заполняет его нулями. Вызывается из констракторов всех порожденных объектов. Заметим, что TObject.Init будет заполнять все поля в потомках так, что Вы должны вызвать TObject.Init до инициализации любых полей в констракторах порожденных объектов. Free procedure Free; Освобождает объект и вызывает дестрактор Done. Done destructor Done; virtual; Выполняет необходимую очистку и освобождение динамических объектов.TParamText Dialogs
TParamText порожден от TStaticText, который использует параметризованные строки текста для форматного вывода, используя процедуру FormatStr. Поля ParamCount ParamCount: Integer; ParamCount указывает число параметров, содержащихся в ParamList. См. так же: TParamText.ParamList ParamList ParamList: Pointer; ParamList - это нетипированный указатель на массив или запись указателей или значений типа LongInt, используемый как параметр форматирования для текстовой строки. Методы Init constructor Init(var Bounds: TRect; AText: String; AParamCount: Integer); Инициализирует объект статического текста, вызывая TStaticText.Init с заданным Bounds и текстовой строкой AText, которая может содержать спецификаторы формата в форме %[-][nnn]X, который будет замещаться параметрами, переданными во время выполнения. Число параметров, переданных в ParamCount, присваивается полю ParamCount. Спецификаторы формата детально описаны в процедуре FormatStr. См. так же: TStaticText.Init, FormatStr процедуры Load constructor Load(var S: TStream); Распределяет объект TParamText в куче и загружает его занчение из потока S, вызывая TStaticText.Load, затем читая поле ParamCount из потока. См. так же: TStaticText.Load DataSize function DataSize: Word; virtual; Возвращает размер данных, требуемый параметрами объекта, т.е. ParamCount*SizeOf(LongInt). GetText procedure GetText(var S: String); virtual; Создает форматированную строку текста в S, выполняя объединение параметров, заданных в ParamList в текстовую строку Text с помощью вызова FormatStr(S, Text^, ParamList^). См. так же: FormatStr процедуры SetData procedure SetData(var Rec); virtual; Этот видимый элемент читает DataSize байт в ParamList из Rec. См. так же: TView.SetData Store procedure Store(var S: TStream); Сохраняет объект в потоке S, вызывая TStaticText.Store, затем записывая поле ParamCount в поток. См. так же: TStaticText.Store Палитра Объекты TParamText используют палитру по умолчанию CStaticText для отображения 6-го элемента в палитру стандартного диалога. 1 +===+ CStaticText | 6 | +=+=+ Текст -----+TPoint Objects
TPoint - это простой объект, представляющий точку на экране. Поля X X: Integer; Х - это колонка точки на экране. Y Y: Integer; Y - это строка точки на экране.TProgram App
+---------+ | TObject | +----+----+ +----+----+ | TView | +----+----+ +----+----+ | TGroup | +-+--+--+-+ +----------+ | +------------+ +----+----+ +----+-----+ +======+=======+ | TWindow | | TDeskTop | | TProgram | +----+----+ +----------+ +======+=======+ +----+----+ +------+-------+ | TDialog | | TApplication | +---------+ +--------------+ TProgram обеспечивает базовую заготовку для всех стандартных программ на Turbo Vision. Все такие программы должны порождаться от TProgram или его потомка TApplication. TApplication отличается от TProgram только констрактором и дестрактором. 2 типа объекта предоставляются для большей гибкости при создании нестандартных программ. В большинстве случает Ваша программа будет порождаться от TApplication. TProgram порождается от TGroup, поскольку она должна содержать объекты TDeskTop, TStatusLine и TMenuBar. Методы Init constructor Init; Перекрывается: Иногда Устанавливает глобальную переменную Application в @Self; вызывает TProgram.InitScreen для инициализации переменных, определяющих режим экрана; вызывает TGroup.Init передавая прямоугольник Bounds равный полному экрану; устанавливает поле State в sfVisible + sfSelected + sfFocused + sfModal + sfExposed; устанавливает поле Options в 0; устанавливает поле Buffer в адрес экранного буфера, заданного в ScreenBuffer; наконец вызывает InitDeskTop, InitStatusLine и InitMenuBar и вставляет эти видимые элементы в группу TProgram. См. так же: TGroup.Init, TProgram.InitDeskTop, TProgram.InitStatusLine, TProgram.InitMenuBar Done destructor Done; virtual; Перекрывается: Иногда Освобождает объекты DeskTop, MenuBar и StatusLine и устанавливает глобальную переменную Application в nil. См. так же: TGroup.Done GetEvent procedure GetEvent(var Event: TEvent); virtual; Перекрывается: Редко По умолчанию TView.GetEvent просто вызывает GetEvent своего владельца и поскольку TProgram (или TApplication) в конечном итоге являются владельцем любого видимого элемента, любой вызов GetEvent будет приводить к TProgram. GetEvent (если только видимый элемент не перекроет GetEvent) TРrogram.GetEvent вначале проверяет, не сгенерировал ли TProgram.PutEvent событие. Если да, то GetEvent возвращает это событие. Если нет пришедшего события, GetEvent вызывает GetMouseEvent; если тот возвращает evNothing, вызывается GetKeyEvent, если оба возвращают evNothing: указывая, что нет ввода от пользователя, GetEvent вызывает TProgram.Idle, чтобы запустить "фоновые" задачи, выполняемые во время ожидания ввода от пользователя. До возврата GetEvent передает все события evKeyDown и evMouseDown в StatusLine для отображения в ассоциированные события от горячих клавиш evCommand. См. так же: TProgram.PutEvent, GetMouseEvent, GetKeyEvent GetPalette function GetPalette: PPalette; virtual; Перекрывается: Иногда Возвращает указатель на палитру, заданную индексом палитры в глобальной переменной AppPalette. TProgram поддерживает 3 палитры: apColor, apBlackWhite и apMonochrome. Переменная AppPalette инициализируется в TProgram.InitScreen. См. так же: TProgram.InitScreen, AppPalette, apXXXX константы HandleEvent procedure HandleEvent(var Event: TEvent); virtual; Перекрывается: Всегда Обрабатывает событие от клавиатуры от Alt-1 до Alt-9 генерируя событие evBroadcast с значением Command равным cmSelectWindowNum и значением InfoInt 19. TWindow.HandleEvent реагирует на такие сообщения, выбирая окно с данным номером. Обрабатывает событие evCommand со значением Command равным cmQuit вызывая EndModal(cmQuit) которое приводит к завершению программы. TProgram.Handle почти всегда перекрывается для введения обработки команд, специфичных для Вашей программы. См. так же: TGroup.HandleEvent Idle procedure Idle; virtual; Перекрывается: Иногда Idle вызывается из TProgram.GetEvent когда очередь событий пуста, позволяя программе выполнять фоновые задачи при ожидании ввода от пользователя. По умолчанию TProgram.Idle вызывает StatusLine^.Update, чтобы разрешить строке статуса обновлять себя в соответствии с текущим констекстом подсказки. Затем, если набор команд изменился после последнего вызова TProgram.Idle, генерируется evBroadcast со значением Command равным cmCommandSetChanged, чтобы разрешить видимому элементу, который зависит от этого набора команд, разрешить или запретить себя. Если Вы перекрываете Idle, всегда вызывайте наследуемый Idle. Так же убедитесь, что любые задачи, выполняемые в Вашем Idle, не занимают слишком большого времени в программе, поскольку это будет блокировать ввод пользователя. InitDeskTop procedure InitDeskTop; virtual; Перекрывается: Редко Создает объект TDeskTop для программы и сохраняет указатель на него в глобальной переменной DeskTop. InitDeskTop вызывается в TProgram.Init и никогда не должен вызываться прямо. InitDeskTop может быть перекрыт созданием потомка от TDeskTop. См. так же: TProgram.Init, TDeskTop, TWindow.Init InitMenuBar procedure InitMenuBar; virtual; Перекрывается: Всегда Создает объект TMenuBar для программы и сохраняет указатель на него в глобальной переменной в MenuBar. InitMenuBar вызывается в TProgram.Init и никогда не должен вызываться прямо. InitMenuBar почти всегда перекрывается потомком от TMenuBar, определенным пользователем. См. так же: TProgram.Init, TMenuBar, TWindow.Init InitScreen procedure InitScreen; virtual; Перекрывается: Иногда Вызывается из TProgram.Init и TProgram.SetScreenMode каждый раз, когда режим экрана инициализируется или изменяется. Это метод, который действительно выполняет обновление и настройку переменных, определяющих режим экрана для размера тени, маркеров и палитры программы. См. так же: TProgram.Init, TProgram.SetScreenMode InitStatusLine procedure InitStatusLine; virtual; Перекрывается: Всегда Создает объект TStatusLine для программы и сохраняет указатель на него в глобальной переменной в StatusLine. InitStatusLine вызывается в TProgram.Init и никогда не должен вызываться прямо. InitStatusLine почти всегда перекрывается потомком от TStatusLine, определенным пользователем. См. так же: TProgram.Init, TStatusLine OutOfMemory procedure OutOfMemory; virtual; Перекрывается: Часто OutOfMemory вызывается из TProgram.ValidView для определения, что LowMemory - True. OutOfMemory должна сообщать пользователю, что недостаточно памяти для выполнения операции. Например с использованием программы MessageBox из модуля StdDlg: procedure TMyApp.OutOfMemory; begin MessageBox('Not enough memory to complete operation.', nil, mfError + mfOKButton); end; См. так же: TProgram.ValidView, LowMemory PutEvent procedure PutEvent(var Event: TEvent); virtual; Перекрывается: Редко По умолчанию TView.PutEvent просто вызывает PutEvent своего владельца и поскольку объект TProgram (или TApplication) в конечном счете является владельцем любого видимого элемента, каждый вызов PutEvent будет приводить к TProgram.PutEvent (если только видимый элемент не перекрыл PutEvent). Program.PutEvent сохраняет копию записи PutEvent в буфере и следующий вызов в TPreogram.GetEvent будет возвращать эту копию. См. так же: TProgram.GetEvent, TView.PutEvent Run procedure Run; virtual; Перекрывается: Редко Выполняет TProgram, вызывая метод Execute (который TProgram наследует от TGroup). См. так же: TGroup.Execute SetScreenMode procedure SetScreenMode(Mode: Word); Устанавливает режим экрана. Mode - одна из констант smCO80, smBW80 или smMono с дополнительным smFont8x8 для выбора 43- или 50-строчного режима на EGA или VGA. SetScreenMode скрывает мышку, вызывает SetVideoMode для изменения режима экрана, вызывает InitScreen для инициализации переменных режима экрана, назначает ScreenBuffer в TProgram.Buffer, вызывает ChangeBounds с новым прямоугольником экрана и, наконец, показывает мышку. См. так же: TProgram.InitScreen, SetVideoMode, smXXXX константа ValidView function TProgram.ValidView(P: PView): PView; Проверяет правильность вновь созданных видимых элементов, возвращая Р, если видимый элемент правильный и nil - если нет. Во-первых, если Р - nil, возвращается значение nil. Во-вторых, если LowMemory - True, при вызове ValidView видимый элемент, заданный в Р, освобождается, вызывается метод OutOfMemory и возвращается значение nil. В-третьих, если вызов P^.Valid(cmValid) возвращает False, видимый элемент освобождается и возвращается значение nil. Иначе видимый элемент считается правильным и возвращается указатель на этот видимый элемент Р. ValidView часто используется для проверки правильности нового видимого элемента до вставки его во владельца. Например, следующий оператор показывает типичную последовательность создания, проверки и вставки нового окна в панель экрана (TProgram.ValidView и TGroup.Insert знают как игнорировать возможные указатели nil, возникающие в результате ошибок). DeskTop^.Insert(ValidView(New(TMyWindow, Init(.)))); См. так же: LowMemory, TProgram.OutOfMemory, Valid методы Палитра Палитра для объекта-программа управляет конечным отображением цвета всех видимых элементов программы. Все отображения других палитр приводят к выбору элемента в палитре программы, которая задает атрибуты текста. Первый элемент используется в TBackground для цветов фона. Элементы со 2 по 7 используются меню и строкой статуса. 1 2 3 4 5 6 7 +===+===+===+===+===+===+===+ CColor |$71|$70|$78|$74|$20|$28|$24| +===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+ CBlackWhite |$70|$70|$78|$7F|$07|$07|$0F| +===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+ CMonochrome |$70|$07|$07|$0F|$70|$70|$70| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Фон ----+ | | | | | +-- Короткий выбор Нормальный текст --+ | | | +------ Запрещенный выбор Запрещенный текст -----+ | +---------- Нормальный выбор Короткий текст ------------+ Элементы в 8 по 15 используются голубыми окнами. 8 9 10 11 12 13 14 15 +===+===+===+===+===+===+===+===+ CColor |$17|$1F|$1A|$31|$31|$1E|$71|$00| +===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+ CBlackWhite |$07|$0F|$07|$70|$70|$07|$70|$00| +===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+ CMonochrome |$07|$0F|$07|$70|$70|$07|$70|$00| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Рамка пассивна + | | | | | | +-- Зарезервировано Рамка активна -----+ | | | | +- Выбранный текст скроллера Кнопка рамки ----------+ | | +---- Нормальный текст скроллера Страница скроллинга -------+ +-------- Зарезервировано Элементы с 16 по 23 используются бирюзовыми окнами. 16 17 18 19 20 21 22 23 +===+===+===+===+===+===+===+===+ CColor |$37|$3F|$3A|$13|$13|$3E|$21|$00| +===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+ CBlackWhite |$07|$0F|$07|$70|$70|$07|$70|$00| +===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+ CMonochrome |$07|$0F|$07|$70|$70|$07|$70|$00| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Рамка пассивна + | | | | | | +-- Зарезервировано Рамка активна -----+ | | | | +- Выбранный текст скроллера Кнопка рамки ----------+ | | +---- Нормальный текст скроллера Страница скроллинга -------+ +-------- Зарезервировано Элементы с 24 по 31 используются серыми окнами. 24 25 26 27 28 29 30 31 +===+===+===+===+===+===+===+===+ CColor |$70|$7F|$7A|$13|$13|$70|$7F|$00| +===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+ CBlackWhite |$70|$7F|$7F|$70|$07|$70|$07|$00| +===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+ CMonochrome |$70|$70|$70|$07|$07|$70|$07|$00| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Рамка пассивна + | | | | | | +-- Зарезервировано Рамка активна -----+ | | | | +- Выбранный текст скроллера Кнопка рамки ----------+ | | +---- Нормальный текст скроллера Страница скроллинга -------+ +-------- Зарезервировано Элементы с 32 по 63 используются диалоговыми окнами. См. TDialog для отдельных элементов. 32 33 34 35 36 37 38 39 40 +===+===+===+===+===+===+===+===+===+ CColor |$17|$1F|$1A|$31|$31|$31|$1E|$71|$00| +===+===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+===+ CBlackWhite |$07|$0F|$07|$70|$70|$70|$07|$70|$00| +===+===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+===+ CMonochrome |$07|$0F|$07|$70|$70|$70|$07|$70|$00| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Рамка пассивна + | | | | | | | +-- Короткая метка Рамка активна -----+ | | | | | +- Подсвеченная метка Кнопка рамки ----------+ | | | +----- Нормальная метка Страница скроллинга -------+ | +--------- Статический текст Элементы управления -----------+ скроллинга 41 42 43 44 45 46 47 48 49 +===+===+===+===+===+===+===+===+===+ CColor |$17|$1F|$1A|$31|$31|$31|$1E|$71|$00| +===+===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+===+ CBlackWhite |$07|$0F|$07|$70|$70|$70|$07|$70|$00| +===+===+===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+===+===+ CMonochrome |$07|$0F|$07|$70|$70|$70|$07|$70|$00| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Нормальная кнопка | | | | | | | +-- Короткий кластер Кнопка по умолчанию+ | | | | | +----- Выбранный кластер Выбранная кнопка-------+ | | | +-------- Нормальный кластер Запрещенная кнопка---------+ | +------------ Тень кнопки Короткая кнопка ---------------+ 50 51 52 53 54 55 56 +===+===+===+===+===+===+===+ CColor |$1F|$2F|$1A|$20|$72|$31|$31| +===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+ CBlackWhite |$0F|$70|$0F|$07|$70|$70|$70| +===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+ CMonochrome |$07|$70|$07|$07|$70|$07|$07| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Нормальная строка----+ | | | | | +- Элементы управления ввода | | | | | скроллинга окна истории Выбранная строка ------+ | | | +----- Страница скроллинга ввода | | | окна истории Стрелки строки ввода --------+ | +---------- Стороны истории Стрелка истории -----------------+ 57 58 59 60 61 62 63 +===+===+===+===+===+===+===+ CColor |$30|$2F|$3E|$31|$13|$00|$00| +===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+ CBlackWhite |$07|$70|$0F|$07|$07|$00|$00| +===+===+===+===+===+===+===+ +===+===+===+===+===+===+===+ CMonochrome |$07|$70|$0F|$07|$07|$00|$00| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Нормальный просмотр--+ | | | | | +-- Зарезервировано списка | | | | | Активный просмотр ------+ | | | +------ Зарезервировано списка | | | Выбранный просмотр списка ---+ | +---------- Информационная Разделитель просмотра списка ----+ панельTRadioButtons Dialogs
+------------+ | TObject | +------+-----+ +------+-----+ | TView | +------+-----+ +------+-----+ | TCluster | +----+---+---+ +--------+ +------+ +======+========+ +------+------+ | TRadioButtons | | TCheckBoxes | +===============+ +-------------+ Объекты TRadioButtons - это кластеры, содержащие до 65,536 элементов управления, из которых в любой момент времени может быть выбрана только одна кнопка. Выбор невыбранной кнопки будет автоматически освобождать предварительно выбранную кнопку. Этот объект наследует от TCluster большую часть функций, включая Init, Load и Done. Зависимые кнопки часто ассоциированы с объектом TLabel. TRadioButtons интерпретирует наследуемое поле TCluster.Value как номер "нажатой" кнопки. С номером первой кнопки в кластере, равным 0. Методы Draw procedure Draw; virtual; Перекрывается: Редко Рисует кнопки как ' ( ) ' . Mark function Mark(Item: Integer): Boolean; virtual; Перекрывается: Никогда Возвращает True, если Item = Value, т.е. если кнопка с номером Item представлена текущим значением поля Value. См. так же: TCluster.Value, TCluster.Mark MovedTo procedure MovedTo(Item: Integer); virtual; Перекрывается: Никогда Присваивает Value значение Item. См. так же: TCluster.MovedTo, TRadioButtons.Mark Press procedure Press(Item: Integer); virtual; Перекрывается: Никогда Присваивает Value значение Item. Вызывается при нажатии кнопки с номером Item. SetData procedure SetData(var Rec); virtual; Перекрывается: Редко Вызывает TCluster.SetData для установки поля Value, затем устанавливает поле Sel равным Value, поскольку выбранный элемент - это "нажатая" кнопка. См. так же: TCluster.SetData Палитра Объекты TRadioButtons используют CCluster - палитру по умолчанию для всех объектов кластера для отображения элементов с 16 по 18 в палитру стандартного диалога. 1 2 3 4 +====+====+====+====+ CCluster | 16 | 17 | 18 | 18 | +==+=+==+=+==+=+==+=+ Нормальный текст | | +--- Короткая выбранная Выбранный текст ------+ +-------- Короткая нормальнаяTRect Objects
Поля A A: TPoint А - это точка, определяющая верхний левый угол прямоугольника на экране. B B: Point В - это точка, определяющая нижний правый угол прямоугольника на экране. Методы Assign procedure Assign(XA, YA, XB, YB: Integer); Этот метод назначает значения параметров полям прямоугольника. ХА становится А.Х, ХВ становится Х.В и т.д. Copy procedure Copy(R: TRect); Copy устанавливает все поля равными прямоугольнику R. Move procedure Move(ADX, ADY: Integer); Перемещает прямоугольник, добавляя ADX к A.X и B.X и добавляя ADY к A.Y и B.Y. Grow procedure Grow(ADX, ADY: Integer); Изменяет размер прямоугольника, вычитая ADX из A.X, добавляя ADX к B.X, вычитая ADY из A.Y и добавляя ADY к B. Y. Intersect procedure Intersect(R: TRect); Изменяет положение и размер прямоугольника до области, определенной пересечением текущего положения и R. Union procedure Union(R: TRect); Изменяет прямоугольник до его объединения с прямоугольником R; т.е. до наименьшего прямоугольника, содержащего этот объект и R. Contains function Contains(P: TPoint): Boolean; Возвращает True, если прямоугольник содержит точку P. Equals function Equals(R: TRect): Boolean; Возвращает True, если R равен данному прямоугольнику. Empty function Empty: Boolean; Возвращает True, если прямоугольник пустой, т.е. не содержит символьного пространства. Таким образом поля A и B равны.TResourceCollection Objects
+---------+ | TObject | +----+----+ +------+------+ | TCollection | +------+------+ +--------+----------+ | TSortedCollection | +--------+----------+ +--------+----------+ | TStringCollection | +--------+----------+ +=========+===========+ | TResourceCollection | +=====================+ TResourseCollection порожден от TStringCollection и используется с TSourseFile для реализации коллекции ресурсов. Файл ресурсов - это поток, который индексируется ключевыми строками. Следовательно, каждый элемент ресурса имеет целое поле Pos и строковое поле Key. Перекрытие методов TResourseCollection главным образом связано с обработкой дополнительных строк в его элементах. TResourseCollection используется внутри объектов TResourseFile для поддержки индекса файла ресурсов.TResourceFile Objects
+---------+ | TObject | +----+----+ +=======+=======+ | TResourceFile | +===============+ TResourseFile реализует поток, который может индексироваться ключевыми строками. Когда объекты сохраняются в файле ресурса, используя TResourseFile.Put, задается ключевая строка, которая идентифицирует этот объект. Объект может быть позже получен указанием этой ключевой строки в вызове TResourseFile.Get. Для обеспечения быстрого и эффективного доступа к объектам, хранящимся в файле ресурса, TResourseFile хранит ключевые строки в отсортированной коллекции строк (используя тип TResourseCollection) вместе с позицией и размером данных этого ресурса в файле ресурса. Как и в случае потоков, типы объектов, записываемые и читаемые из файла ресурсов, должны быть зарегистрированы с помощью RegisterType. Поля Stream Stream: PStream; Только чтение Указатель на поток, связанный с этим файлом ресурса. Modified Modified: Boolean; Чтение/Запись Установлен в True, если файл ресурса был модифицирован. Методы Init constructor Init(AStream: Pstream); Перекрывается: Никогда Инициализирует файл ресурса, используя поток, заданный через AStream, и устанавливает поле Modified в False. Например: ResFile.Init(New(TBufStream, Init("MYAPP.RES', stOpenRead, 1024))); Во время инициализации Init смотрит в заголовке файла ресурсов текущую позицию в потоке. Формат заголовка файла ресурсов: type TResFileHeader = record Signature: array[14] of Char; ResFileSize: Longint; IndexOffset: Longint; end; где Signature содержит 'FBPR', ResFileSize содержит размер всего файла ресурсов, за исключением полей Signature и ResFileSize (т.е. размер файла ресурса -8 байт) и IndexOffset содержит смещение коллекции индексов от начала заголовка. Если Init не находит заголовка файла ресурса в текущей позиции AStream, он считает, что создается новый файл ресурса и создает пустой индекс. Если Init видит метку .EXE файла в текущей позиции потока, он просматривает поток до конца файла .EXE и ищет заголовок файла ресурса здесь. Аналогично Init будет пропускать оверлейный файл, добавленный к .EXE файлу (так же как OvrInit пропускает файл ресурса). Это означает, что Вы можете добавить оверлейный файл и файл ресурса (в любом порядке) в конец .EXE файла Вашей программы. (Именно это сделано с выполнимым файлом IDE - TURBO.EXE). См. так же: TResourceFile.Done Done destructor Done; virtual; Перекрывается: Никогда Выталкивает файл ресурса, используя TResourseFile.Flush, затем освобождает индекс и поток, указанный полем Stream. См. так же: TResourceFile.Init, TResourceFile.Flush Count function Count: Integer; Возвращает число ресурсов, запомненных в файле ресурсов. См. так же: TResourceFile.KeyOf Delete procedure Delete(Key: String); Удаляет ресурс, индексируемый ключем Key из файла ресурсов. Пространство, ранее занятое удаленным ресурсом, не используется. Вы можете удалить эту память, используя SwitchTo для создания упакованной копии файла в новом потоке. См. так же: TResourceFile.SwitchTo Flush procedure Flush; Если файл ресурса был модифицирован (проверяется поле Modified) Flush сохраняет обновленный индекс в конце потока и обновляет заголовок ресурса в начале потока. Затем Modified устанавливается в False. См. так же: TResourceFile.Done, TResourceFile.Modified Get function Get(Key: String): PObject; Ищет Key в индексе файла ресурсов. Возвращает nil, если ключ не найден. Иначе, устанавливает поток на позицию, заданную индексом и вызывает Stream^.Get для создания и загрузки объекта по этому индексу. Например DeskTop^.Insert(ValidView(ResFile.Get('EditorWindow'))); См. так же: TResourceFile.KeyAt, TResourceFile.Put KeyAt function KeyAt(I: Integer): String; Возвращает ключевую строку для ресурса с номером i в файле ресурса. Индекс первого ресурса 0 и индекс последнего ресурса TResourseFile.Count-1. Используя Count и KeyAt Вы можете обработать все ресурсы в файле ресурса. См. так же: TResourceFile.Count Put procedure Put(Item: PObject; Key: String); Добавляет объект, заданный через Р в файл ресурса с ключевой строкой, заданной в Key. Если индекс содержит Key, новый объект замещает старый. Объект добавляется в конец существующих объектов файла ресурса с использованием Stream^.Put См. так же: TResourceFile.Get SwitchTo function SwitchTo(AStream: PStream; Pack: Boolean): PStream; Переключает файл ресурса из его потока в поток, переданный через AStream и возвращает указатель на новый поток. Если параметр Pack равен True, поток будет отбрасывать пустое и неиспользуемое пространство из файла ресурса до записи в новый поток. Это единственный способ сжать файл ресурса. Копирование с параметром Pack = False будет выполняться быстрее, но без сжатия.
Назад | Содержание | Вперед