Функции для форматирования текста

Форматирование текста можно осуществить и без объекта класса TMaskEdit, при помощи описанных в модуле MASK функций:

function FormatMaskText(const EditMask: string;

const Value: string): string;

— осуществляет форматирование строки Value по шаблону EditMask;

function MaskGetMaskSave(const EditMask: string): Boolean;

— возвращает значение True, если в обработанном тексте должны сохраняться литералы (соответствует значению второй части шаблона);

function MaskGetMaskBlank(const EditMask: string): Char;

— возвращает символ, который будет использоваться в шаблоне для запол­нения (третья часть шаблона);

function MaskGetFldSeparator(const EditMask: string): Integer;

— возвращает положение разделителя, отделяющего первую часть шаблона от последующих. Если он отсутствует, функция возвращает значение -1.

Оформление приложения

Основное предназначение собранных в этой группе компонентов — обес­печить придание форме нужного вида. При этом они могут так или иначе отобразить предназначенную для пользователя информацию — рисунок, битовую картинку, текст. Все они (кроме THeader) являются потомками класса TGraphicControl.

Компонент tPaintBox

TObject->TPersistent-”TCornponent-”TControl—”-TGraphicControl—”TPaintBox

Модуль EXTCTRLS

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

Самой простой надстройкой над канвой служит компонент TPaintBox, пред­назначенный для рисования. Можно даже рассматривать его как канву, снаб­женную атрибутами компонента. Она представлена свойством:

(Ro) property Canvas: TCanvas;

Помимо канвы, компонент имеет свой цвет (фона)

(Pb) property Color: TColor;

и шрифт:

(Pb) property Font: TFont;

Изобразить на канве компонента что-либо можно, предусмотрев обработчик события:

(Р1э) property OnPaint: TNotifyEvent;

Компонент TShape

TObject->TPersistent-”TComponent—>TControl->TGraphicControl—>TShape

Модуль EXTCTRLS

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

Этот компонент предназначен только для того, чтобы нарисовать и показать на своей поверхности простейшую геометрическую фигуру:

(Pb) property Shape: TShapeType;

Рисуемая фигура — одна из предопределенных в множестве:

TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle) ;

Размеры фигуры соответствуют размерам компонента. Если задан квадрат или круг, а ширина и высота компонента не равны между собой, то сторона или диаметр фигуры будут равны длине меньшей стороны компонента.

Кисть и перо, которыми рисуется и закрашивается фигура, представлены свой­ствами:

(Pk) property Brush: TBrush;

(Р1э) property Pen: TPen;

Метод, исполняемый при изменении фигуры, кисти или пера

procedure StyleChangedfSender: TObject);

выполняет перерисовку компонента.

Компонент tBevel

TObject-”TPersistent-”TComponent-”TControl-”TGraphicControl->TBevel

Модуль EXTCTRLS

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

Этот элемент управления предназначен для выделения и разграничения облас­тей на форме. Может иметь вид прямоугольника или линии. Геометрическая форма компонента

(Pb) property Shape: TBevelShape;

может быть одной из принадлежащих множеству:

TBevelShape = (bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine) ;

Стиль элемента — утопленный (bsLowered) или приподнятый (bsRaised) — определяется свойством:

(Pb) property Style: TBevelStyle;

TBevelStyle = (bsLowered, bsRaised)

Этот компонент предназначен только для оформления — с ним не связаны никакие события.