|
|
|
|
18.4.2. TPaintBox - окно для рисования
Назначение компонента TPaintBox - дать вам простое окно с канвой для рисования произвольных изображений. Канва содержится в свойстве Canvas компонента, графические инструменты - в свойствах Font, pen и Brush, а собственно рисование осуществляется в обработчике события OnPaint. Особенности использования этих инструментов см. в п. 16.4. Например, следующий обработчик создаст окно, показанное на рис. 18.35:
Рис. 18.35. Пример использования TPaintBox
procedure TFormI.PaintBoxIPaint(Sender: TObject);
var
X, Y: Integer;
begin
with PaintBoxl, Canvas do
begin
Brush.Color := cIRed;
Ellipse (0, 0, Width, Height);
Font.Name := 'Arial';
Font.Size := Height div 5;
Font.Style := [fsBold, fsltalic];
Font.Color := clWhite;
X := (Width - TextWidth('Delphi')) div 2;
Y := (Height - TextHeight('D')) div 2;
TextOut(X, Y, 'Delphi')
end
end;
При повторении примера положите на пустую форму компонент
TPaintBox И установите его размеры: Height = 100/ Width = 300.
|
|
|
|
