Справочник по компонентам Delphi. Часть 2 - Компонент TDrawGrid

Компонент TDrawGrid

TObject -> TPersistent -> TComponent -> TControl -> TWinControl -> TCustomControl -> TCustomGrid -> TDrawGrid

Модуль GRIDS

Страница Палитры компонентов Additional

Использование этого компонента дает универсальный способ организовать представление информации в виде таблицы. TDrawGrid берет на себя разбивку области на прямоугольные ячейки, добавление и удаление строк и столбцов, прокрутку, управление вводом данных и обработку всех поступающих сооб­щений. Единственное, что должен сделать программист — это нарисовать или написать то, что ему нужно, в каждой ячейке.

Таблица делится на две области — фиксированную и подвижную. Фиксирован­ную область обычно составляют часть строк и столбцов в верхней части таблицы. Такие ячейки необходимы, например, для вертикальных и горизон­тальных заголовков. Они выделяются другим цветом, всегда видимы и в прок-. рутке не участвуют, оставаясь на своих местах. Их нельзя сфокусировать и выделить. Кроме того, изменять ширину и высоту ячеек таблицы мышью во время исполнения можно только передвигая границы ячеек в фиксированной области. По умолчанию для этой области отведены один столбец и одна строка, но эти числа могут быть изменены. Все остальные ячейки перемещаются при прокрутке таблицы и составляют подвижную область.

Значение текста ячейки может редактироваться — для этого есть собственный встроенный редактор, являющийся потомком TMaskEdit.

Рассматриваемый компонент имеет множество вариантов настройки под кон­кретное применение. Изменить его функционирование вы можете, настроив соответствующим образом опции:

(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, то между столбцами таблицы можно передвигаться, нажимая <Таb> или <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 = recordcase Integer of 
0: (Left, 'I'op, Right, Bottom: Longint);
1: (TopLeft, BottomRight: TGridCoord);
end;TGridCoord = recordX: Longint;Y: Longint;end;

Стиль обрамления всей таблицы задается:

(Pb) property BorderStyle: TBorderStyle;

Перейдем к тому, как помещать и отображать информацию в ячейки 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(Sender: TObject; 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:

(Pb) property OnGetEditMask: TGetEdiCEvent;
TGetEditEvent = procedure (Sender: TObject; ACol, ARow: Longint; var Value: string) of object;

Далее редактор извлекает текст, связанный с ячейкой. При этом вызывается событие:

(Pb) property OnGetEditText: TGetEditEvent;

Загружаемый текст доступен в параметре Value, и его можно изменить до появления в редакторе.

При каждом изменении текста в редакторе инициируется событие:

(Pb) property OnSetEditText: TSetEditEvent; 
TSetEditEvent = procedure (Sender: TObject'; ACol, ARow: Longint; const Value: string) of object;

Иллюстрирует применение TDrawGrid пример LIFE. Это классическая игра "жизнь" (автор — X. Конвей), имитирующая законы выживания. Каждая ячей­ка таблицы здесь соответствует одному "существу". Его состояние изменяет­ся через некоторые интервалы времени (для этого используется компонент TTimer). Существо "живет" нормально, если у него двое или трое соседей. Если их меньше, оно умирает от одиночества, если больше — от перенаселения. Новая жизнь появляется в пустой ячейке, если у нее ровно трое соседей. Начальное состояние ячеек может быть случайным, а может быть задано вами:

щелчок по ячейке означает изменение ее состояния. Запустив игру, вы увидите, как постепенно положение на игровом поле стабилизируется, и на нем обра­зуется несколько разновидностей устойчивых конфигураций групп ячеек.