Практическая работа

C помощью компонента PaintBox и использования класса Canvas нарисуем следующее:

Поставим на форму компонент PaintBox. Опишем процедуру на событие OnPaint этого компонента.

procedure TForm1.PaintBox1Paint(Sender: TObject);

var x,y:integer;

Begin

with PaintBox1.Canvas do

Begin

brush.Color:=clRed;

ellipse(0,0, PaintBox1.width, PaintBox1.height);

font.Name:='arial';

font.Size:=height div 5;

font.Style:=[fsBold,fsItalic];

font.Color:=clwhite;

x:=( PaintBox1.width-textwidth('Delphi')) div 2;

y:=( PaintBox1.height-textheight('D'))div 2;

textout(x,y,'Delphi');

end;

end;