|
Страница 14 из 59
Компонент 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); выполняет перерисовку компонента. |