Компонент TPaintBox

Компонент TPaintBox (на странице System Палитры компонент) служит в качестве места построения графиков. Никаких свойств, кроме Canvas, компонент TPaintBox не имеет. Собственно, этот объект является просто канвой для рисования. Важно, что координаты указателя мыши, передаваемые в обработчики соответствующих событий (OnMouseMove и др.), являются относительными, т.е. это смещение мыши рассматривается относительно левого верхнего угла объекта TPaintBox, а не относительно левого верхнего угла формы.

Пример.

procedure TForm1.Button1Click(Sender: TObject);

var

x, y: integer;

begin

with PaintBox1.Canvas do

begin

Brush.Color:= clBlue;

Ellipse(0, 0, PaintBox1.Width, PaintBox1.Height);

Font.Name:= 'Ariel';

Font.Size:= PaintBox1.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;

Далее повтор, надо что-то сделать (объединить с выше …)

Дата добавления: 2014-01-07; Просмотров: 318; Нарушение авторских прав?; Мы поможем в написании вашей работы!