Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Плещёв ВУМИП 2012-07-06.doc
Скачиваний:
66
Добавлен:
13.05.2015
Размер:
9.35 Mб
Скачать

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;