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

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

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

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

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

2.3.2.3. Многостроковый текст (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;