Одностроковый текст с маской (MaskEdit)

Компонент (панель Additional) имеет дополнительное свойство EditMask для установки шаблона (маски). Шаблон используется для контроля вводимой информации и представляет собой строку из специальных символов, состоящую из трех частей, разделенных символом «;». Первая часть является собственно маской. Вторая часть ‑ признак (цифра) принадлежности литерных символов к вводимой информации («1») или нет («0»). Третья часть задает символ, представляющий в маске пробел (по умолчанию принимается символ подчеркивания).

В маске могут использоваться символы:! (подавляются ведущие пробелы), </ > (перевод в строчные/заглавные буквы), <> (отмена преоб­разо­вания букв), \ (следующий символ является литерным), L/l (долж­на/может буква), A / a (должна/может буква или цифра), C/c (должен/может лю­бой символ), 0/9 (должна/может цифра), # (может цифра, знаки плюс и минус),: (разделитель часов, минут и секунд), / (разделитель дней, месяцев и лет в датах).

Примеры масок:!99/99/00;1;_ (дата),!00‑00‑00 (номер телефона)

Щелкнув по кнопке с троеточием свойства EditMask, можно вызвать мастера масок.

Многостроковый текст (Memo)

Вводимый и редактируемый текст пред­став­ляет собой набор строк или длинную строку.

Специфичные свойства

Lines ‑ вводимый и редактируемый текст в виде массива строк.

ScrollBars ‑ наличие полос прокрутки: ssNone (нет), ssHorizontal (горизонтальная), ssVertical (вертикальная), ssBoth (обе).

WantReturns ‑ нажатие Enter вызывает переход на новую строку (True), иначе ‑ для перехода нужно нажимать клавиши ^Enter.

WantTabs ‑ нажатие клавиши Tab вызывает ее ввод в текст (True), иначе ‑ для ввода символа табуляции нужно нажать клавиши ^Tab.

Text ‑ содержимое компонента в виде одной строки с символами разде­лителями строк с кодами #13#10, вводимых клавишей Enter.

Остальные свойства и методы аналогичны свойствам и методам Edit.

Примеры:

Memo1.Lines[3]:=’Иванов’; //замена четвертой строки на текст ‘Иванов’

Memo1.Lines.Clear; //очистка всего содержимого

Memo2.Lines.Add(‘Сидоров’);//в конец добавляется строка «Сидоров».

Memo1.Lines.LoadFromFile(‘c:\prim1.txt’);//загрузка файла в Memo1(п.2.1.9)

Memo2.Lines.SaveToFile(‘c:\prim2.txt’); //вывод Memo2 в файл (п.2.1.9)

2.3.2.4. Таблица строк (StringGrid)

Компонент (панель Additional) позволяет рабо­тать с текстовой информацией, представ­лен­ной в виде двумерной таблицы.

Специфичные свойства

Cells ‑ двумерный массив со значениями ячеек таблицы.

Col, Row ‑ координаты ячейки в фокусе (отсчет с нуля).

ColCount, RowCount ‑ число колонок и строк таблицы.

ColWidths,RowHeights‑ массивы со значениями ширины и высоты каж­дого столбца и колонки в пикселях соответственно.

DefaultColWidth, DefaultRowHeight ‑ ширина столбца и высота строки.

DefaultDrawing ‑ автоматическая прорисовка каждой ячейки (True).

FixedCols, FixedRows ‑ число первых заголовочных колонок и строк.

FixedColor ‑ цвет в фиксированных колонках и строках.

Options ‑ режимы работы с таблицей, например: goEditing (редактирование ячеек), goRowSizing, goColSizing, goRowMoving, goColMoving (изменение размеров строк, колонок и их перемещение мышкой соответственно), goDrawFocusSelected (выделять текущую ячейку), goTab (выбор ячеек клавишей Tab), goRowSelect (выделять весь ряд), goAlwaysShowEdit (редактирование ячейки в фокусе при goEditing=True), goThumbTracking (раз­решено обновление при прокрутке).

ScrollBar ‑ наличие полос прокрутки.

Selection ‑ выделение цветом прямоугольной области ячеек.

TopRow, LeftCol ‑ установка верхней левой ячейки просматриваемой области на экране для автоматической прокрутки таблицы.

VisibleColCount ‑ число видимых столбцов, без учета заголовочных.

События OnSelectCell, OnSetEditText возникают при выборе и после корректировки ячейки соответственно.

Методы: CellRest (определение экранной координаты ячейки), MouseToCell (определение координаты ячейки по точке на экране).

Пример выделения цветом ячеек в 1‑й и 2‑й строках и колонках: Procedure TForm1.BitBtn1Click(Sender: TObject); Var ARest:TGridRect;

Begin ARest.Left:=1;ARest.top:=1 ARest.Right:=2;ARest.Bottom:=2;//область

StringGrid1.Selection:=Arest; End;

2.3.2.5. Рисуемая таблица (DrawGrid)

Компонент (панель Additional) используется для создания и использования двумерной таблицы с прорисованными самим пользователем ячейками, в которых хранятся произвольные объекты. Большинство свойств аналогичны одноименным свойствам таблицы строк, но есть и другие, и нет свойств Cells и Objects.

Специфичные события

OnDrawCell ‑ прорисовка очередной ячейки перед выводом ее на экран.

OnGetEditText, OnSetEditText‑ возникают перед и после редактирования содержимого ячейки соответственно.

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

Свойства таблицы: Align=alClient, ColCount=2, RowCount=1, FixedCols=0, FixedRow=0, Options.goEditing=True, ScrollBars=sbNone.

В разделе Var модуля формы Unit1 объявим переменную списка:

Spisokkartin:TstringList. Далее соcтавим процедуры вывода таблицы.