Автор: Пользователь скрыл имя, 06 Февраля 2013 в 01:52, аттестационная работа
Класс TList -- универсальный список. Он представляет собой массив нетипированных указателей и поэтому годится для хранения набора любых, в том числе разнотипных, данных и объектов. При добавлении/удалении в список данные не создаются и не уничтожаются -- эта обязанность лежит на программисте. Приведем доступные ему методы и свойства класса.
Событие
(Pb) property OnScroll: TScrollEvent;
TScrollEvent = procedure(Sender: TObject; ScrollCode:
TScrollCode; var ScrollPos: Integer) of object;
вызывается при каждом изменеюш положения бегунка. Обработчик же события OnChange вызывается внутри метода SetParams при изменении значений Мах, Min и Position. ScrollCode -- вид перемещения бегунка:
TScrollCode = (scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottorn, scEndScroll) ;
scLineUp, scLineDown -- на строку вверх/вниз;
scPageUp, scPageDown -- на страницу вверх/вниз;
scPosition, scTrack -- в заданную позицию;
scTop, scBottom -- в крайнее верхнее/нижнее положение;
scEndScroll -- извещает об окончании процесса прокрутки.
В параметре ScrollPos программисту передается новое положение бегунка. При необходимости, его можно изменить.
Компонент TSpinEdit
TObject-"TPersistent-->
->TSpinEdit
Модуль SPIN
Страница Палитры компонентов Samples
Этот компонент представляет собой комбинацию обычного редактирующего элемента и кнопки со стрелками вверх и вниз (TSpinButton). Такие элементы управления стали практически повсеместными для редактирования числовых величин. При большом изменении величины удобней набрать ее в редакторе заново, а в случае небольшого -- скорректировать несколькими нажатиями стрелок. Свойства компонента приведены в таблице:
-1 |
|
(Ro) property Button: TSpinButton; |
Содержит указатель на кнопку, через который можно обратиться к ее свойствам и методам. |
(Pb) property EditorEnabled: Boolean; |
В состоянии False запрещает изменение значений в редакторе. |
(Pb) property Readonly: Boolean; |
В состоянии False полностью запрещает изменение значений (при помощи кнопок и редактора). |
(Pb) property MinValue: Longint; |
Содержит минимальное допустимое значение. |
(pb) property MaxValue: Longint; |
Содержит максимальное допустимое значение. |
(Pb) property MaxLength: Integer; |
Содержит значение максимального количества символов (цифр, знаков '-' и '+')в редакторе. |
(fb) property Increment: Longint; |
Содержит величину, на которую изменяется значение в редакторе при каждом нажатии кнопки. |
(Pb) property Value: Longint; |
Содержит текущее значение. |
Щелчки мышью на компоненте интерпретируются следующим образом. Если щелчок или двойной щелчок произошли над областью редактора, то возникают соответственно события:
(Pb) property OnClick: TNotifyEvent;
(РЕ) property OnDblClick: TNotifyEvent;
Если щелчок произошел над областью кнопки, то возникают специфические для нее события OnUpClick или OnDownClick, а в самом компоненте только отражается произошедшее изменение:
(Pb) property OnChange: TNotifyEvent;
Событие OnChange возникает также при редактировании текста (если оно не запрещено). Если нажать и не отпускать одну из кнопок, то в это время соответствующие события происходят периодически (период 400 мс).
3.2.6. Создание таблиц и иерархических структур
В эту группу входят только три компонента -- TDrawGrid, TStringGrid и TOutline. Это, если можно так выразиться, элементы управления "второго поколения" -- они решают гораздо более сложные задачи, чем традиционный набор средств Windows, но при этом и устроены намного сложнее.
Компонент TDrawGrid
TObject-"TPersistent->
--"TCusto:mControl-->
Модуль GRIDS
Страница Палитры компонентов Additional
Использование этого компонента дает универсальный способ организовать представление информации в виде таблицы. TDrawGrid берет на себя разбивку области на прямоугольные ячейки, добавление и удаление строк и столбцов, прокрутку, управление вводом данных и обработку всех поступающих сообщений. Единственное, что должен сделать программист -- это нарисовать или написать то, что ему нужно, в каждой ячейке.
Таблица делится на две области -- фиксированную и подвижную. Фиксированную область обычно составляют часть строк и столбцов в верхней части таблицы. Такие ячейки необходимы, например, для вертикальных и горизонтальных заголовков. Они выделяются другим цветом, всегда видимы и в прок-. рутке не участвуют, оставаясь на своих местах. Их нельзя сфокусировать и выделить. Кроме того, изменять ширину и высоту ячеек таблицы мышью во время исполнения можно только передвигая границы ячеек в фиксированной области. По умолчанию для этой области отведены один столбец и одна строка, но эти числа могут быть изменены. Все остальные ячейки перемещаются при прокрутке таблицы и составляют подвижную область.
Значение текста ячейки может редактироваться -- для этого есть собственный встроенный редактор, являющийся потомком TMaskEdit.
Свойства TDrawGrid, определяющие его внешний вид, приведены в таблице:
(pb) property ColCount: Longint; (Pb) property RowCount: Longint; |
Содержат количество строк и столбцов в таблице. Обратите внимание, что координаты ячеек в таблице имеют тип Longint, т. е. в принципе число строк и(или) столбцов может превышать 65535. |
property Col:Longint; property Row *.Longint; |
Содержат номера столбца и строки, содержащих сфокусированную ячейку. |
property ColWidths[Index: Longint]: Integer; property RowHeights[Index: Longint]: Integer; |
Свойства-массивы, содержащие ширину каждого столбца и высоту каждой строки. (Ширина и высота ячеек могут быть индивидуальными, см. свойство Options.) |
§ property DefaultColWidth: Integer; property DefaultRowHeight: Integer; |
Содержат ширину столбца и высоту строки, принимаемые по умолчанию. Они применяются при начальной инициализации таблицы и при добавлении в нее ячеек. |
(Ro) property GridHeight: Integer; (Ro) property GridWidth: Integer; |
Содержат высоту и ширину всей таблицы. Эти свойства доступны только для чтения, так как являются производными от числа ячеек и их размеров. |
(Pb) property ScrollBars: TScrollStyle; TScrollStyle = (ssNone, ssHorizontal, ssVerticai, ssBoth) ; |
Задает полосу прокрутки. Если все ячейки не помещаются в область, отведенную компоненту, появляются полосы прокрутки в нужном направлении. По умолчанию предусмотрены обе полосы прокрутки. |
J property FixedCols: Integer; property FixedRows: Integer; |
Содержат соответственно число строк и столбцов в фиксированной области. |
(Pb) property FixedColor: TColor; |
Содержит цвет, которым происходит закрашивание ячеек фиксированной области. |
property TopRow: Longint; property LeftCol: Longint; |
Содержат номера верхней строки и левого столбца, видимых в подвижной области. Первоначально это первая ячейка за фиксированной областью (TopRow = FixedRows, LeftCol = FixedCols), однако при прокрутке и других перемещениях сфокусированной ячейки эти значения могут изменяться. Свойства доступны только во время исполнения. |
(Pb) property OnTopLeftChanged: TNotifyEvent; |
Событие вызывается, когда изменяются TopRow или LeftCol. |
property VisibleColCount: Integer; property VisibleRowCount: Integer; |
Содержат соответственно число полностью видимых столбцов и строк в подвижной области. Могут быть не полностью видны еще один столбец и одна строка. |
Рассматриваемый компонент имеет множество вариантов настройки под конкретное применение. Изменить его функционирование вы можете, настроив соответствующим образом опции:
(Pb) property Options: TGridOptions;
TGridOption = (goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goRowSelect, goAlwaysShowEditor, goThumbTracking) ;
TGridOptions = set of TGridOption;
В множестве допускаются сочетания следующих опций:
goFixedVertLine -- ячейки в фиксированной области разделяются вертикальными линиями;
goFixedHorzLine -- ячейки в фиксированной области разделяются горизонтальными линиями;
goVertLine -- ячейки разделяются вертикальными линиями;
goHorzLine -- ячейки разделяются горизонтальными линиями;
goRangeSelect -- может быть выделено множество ячеек;
goDrawFocusSelected -- при наличии опции ячейка, имеющая фокус, рисуется тем же цветом, что и выделенная. В противном случае -- имеет цвет обычных ячеек (но выделяется, как всегда, рамкой из отдельных точек);
goRowSizing -- высота строк может изменяться индивидуально;
goColSizing -- ширина столбцов может изменяться индивидуально;
goRowMoving -- строки могут быть перемещены мышью;
goColMoving -- столбцы могут быть перемещены мышью;
goEditing -- ячейки таблицы могут редактироваться;
goAlwaysShowEditor -- содержимое активной (сфокусированной) ячейки всегда загружается в редактор (в противном случае требуется нажатие <F2> или щелчок мышью);
goTabs -- переход между столбцами возможен при помощи табуляции (<ТаЬ> или <Shift>+<Tab);
goRowSelect -- если эта опция присутствует, в таблице нельзя выделить единственную ячейку (кроме левой нижней из видимых). Выделяется всегда текущий столбец или область ячеек от левой нижней до текущей;
goThumbTracking -- задает поведение ячейки при передвижении мышью бегунка полосы прокрутки. Если эта опция отсутствует, содержимое ячеек не обновляется, пока пользователь не отпустит кнопку мыши; иначе -- перерисовка происходит при каждом изменении.
Толщина линий, разделяющих ячейки таблицы, задается свойством:
(Pb) property GridLineWidth: Integer;
Линии в вертикальном и горизонтальном направлениях рисуются в случае наличия опций [goFixedVertLine, goVertLine] и [goFixedHorzLine, goHorzLine] соответственно.
Метод
function CellRect(ACol, ARow: Longint): TRect;
возвращает прямоугольник, соответствующий ячейке с индексами ACol, ARow в системе координат клиентской области таблицы. Метод MouseToCell превращает координаты точки нажатия кнопки мыши в индексы строки и столбца, где оно произошло:
procedure MouseToCell (X, Y: Integer; var ACol, ARow: Longint);
Вообще говоря, мышь ни при чем и преобразуются любые координаты, заданные относительно начала клиентской области.
В сфокусированной ячейке редактор ячеек таблицы можно вызвать вводом любого символа ASCII или <F2>. Указывает, активен ли редактор, свойство:
property EditorMode: boolean;
Оно не имеет смысла, если редактор активен постоянно (установлена опция goAlwaysShowEditor).
Если установлен режим goTabs, то между столбцами таблицы можно передвигаться, нажимая <ТаЬ> или <Shift>+<Tab>. По умолчанию фокус будет останавливаться на всех столбцах. Чтобы исключить остановку на некоторых столбцах, нужно присвоить значение False элементу массива TabStops с нужным индексом:
(Pb) property TabStops[Index: Longint]: Boolean;
He путайте это свойство с TabStop, которое касается всего компонента. Событие, возникающее при смене сфокусированной ячейки:
(Pb) property OnSelectCell: TSelectCellEvent;
TSelectCellEvent = procedure (Sender: TObject; Col, Row:
Longint; var CanSelect: Boolean) of object;
Фокус должен переместиться в ячейку (Col, Row). Изменяя значение параметра CanSelect, можно запретить перемещение фокуса в некоторые ячейки.
Прямоугольник, соответствующий диапазону выделенных ячеек, содержится в свойстве:
property Selection: TGridRect;
TGridRect = record
case Integer of
0: (Left, 'I'op, Right, Bottom: Longint);
1: (TopLeft, BottomRight: TGridCoord);
end;
TGridCoord = record
X: Longint;
Y: Longint;
end;
Стиль обрамления всей таблицы задается:
(Pb) property BorderStyle: TBorderStyle;
При bsSingle компонент окаймляется черной линией.
Перейдем к тому, как помещать и отображать информацию в ячейки TDrawGrid.
Если вы вводите текст, то он виден в редакторе, возникшем в текущей ячейке. Но как только ввод завершен, текст исчезает. Почему? TDrawGrid возлагает на программиста обязанность нарисовать содержимое каждой ячейки. Если свойство
(Pb) property DefaultDrawing: Boolean;
установлено 6 True, для всех состояний ячеек предусматривается отрисовка по умолчанию, а именно заливка ячейки определенным для данного состояния цветом. Только установив его в False, программист получает доступ к обра
ботке событий OnDrawCell и может изобразить каждую ячейку таблицы так, как ему требуется. Для этого таблица имеет свою канву:
property Canvas: TCanvas ;
Обработчик события OnDrawCell должен иметь тип:
(Pb) property OnDrawCell: TDrawCellEvent;
TDrawCellEvent = procedure (Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState) of object;
Параметры:
Col, Row -- координаты (номера столбца и строки) ячейки;
Rect -- отведенный ей прямоугольник;
State -- состояние ячейки. Описывается флагами из множества:
TGridDrawState = set of (gdSelected, gdFocused, gdFixed) ;
Флаги соответствуют выбранной, сфокусированной ячейкам и ячейке из фиксированной области. Приведенный ниже фрагмент кода закрашивает ячейки таблицы разным цветом в зависимости от значений во внешнем массиве Field:
procedure TFormI-DrawGridlDrawCell(
Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
begin
with DrawGridI.Canvas do begin if Field[Col,Row] then
Brush.Color := clAqua else
Brush.Color := clBackground;
FillRect(Rect) ,-end;
end ;
При установленных опциях goColMoving/goRowMoving можно захватить мьппью ячейку заголовка (в фиксированной области) и перенести всю строку или столбец на другое место. В этом случае после нажатия левой кнопки мыши появляется вертикальная или горизонтальная линия, показывающая, куда будет вставлена перемещаемая информация: при движении к началу таблицы -- за линией, к концу -- перед ней. При этом корректируются размеры выделенной области. Строки и столбцы заголовков, полностью лежащие в фиксированной области, переносить нельзя.
По окончании переноса происходят события, которые информируют о перемещении столбца или строки из положения Fromlndex в положение Tolndex:
(pb) property OnColumnMoved: TMovedEvent ;
(Pb) property OnRowMoved: TMovedEvent;
TMovedEvent = procedure (Sender: TObject; Fromlndex,
Tolndex: Longint) of object;
В редактируемой таблице (при установленном goEditing) есть возможность реагировать на связанные с изменением текста события. В начале (при вызове редактора) можно задать маску для редактирования ячейки, вернув ее в
параметре Value обработчика события OnGetEditMask. Напомним, что редактор ячейки таблицы является потомком TMaskEdit: