Компонент 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;

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

Компонента tImage

1. TImage

Если графическое изображение уже создано, например, с помощью графического редактора (Paint), то его можно показать с помощью компоненты TImage. В Delphi с помощью этого компонента можно отобразить следующие графические изображения:

1. растровое (*.bmp),

2. пиктограммы (*.ico),

3. типа метафайла (*.wmf),

4. курсора (*.cur).

Вместе с тем известны и другие способы хранения изображений (*.pcx, *.gif, *.tiff, *.jpeg, *.dwg). Для того, чтобы включить изображения других форматов их нужно перевести в формат *.bmp.

Картинку в компонент TImage можно загрузить во время проектирования интерфейса в инспекторе объектов. Для этого используется свойство Picture компонента TImage. В этом случае изображение, помещенное на форму, включится в файл проекта и затем прокомпилируется в exe‑файл. Поэтому такой файл может иметь большие размеры.

Как альтернативу можно загрузить картинку во время выполнения программы. Чтобы организовать загрузку в этом случае следует воспользоваться специальным методом LoadFormFile, который принадлежит к свойству Picture компонента TImage.

Пример. По нажатию кнопки необходимо загружать в компоненту TImage изображение.

Обработчик нажатия кнопки Button1Click выглядит следующим образом:

Image1.Picture.LoadFromFile(‘.bmp’);

Важными свойствами компонента TImage являются также Center и Stretch, которые имеют тип boolean (являются булевскими) и предназначены соответственно для центрирования и сжатия/растяжения изображения таким образом, чтобы заполнить весь объект TImage.

Если изображение, находящееся в TImage, нужно сохранить в файле, можно применить метод SaveToFile, который также принадлежит свойству Picture.

Компонента tShape

TShape

Для создания различных геометрических фигур (прямоугольника, круга и т.д.) используется компонент TShape:

Shape : TShapeType;

Могут быть выбраны следующие свойства компонента TShape:

stRectangle -

setsquare-

stRoundRect-

stRoundSquare-

stEllipse-

stCircle-

Выбранная фигура рисуется на весь экран компонента TShape. Изменение свойства Shape приводит к немедленной перерисовке изображения.

Свойства компонента TShape:

Brush : TBrush;

Pen : TPen;

- используются для изменения заливки и рамки.

Пример.

Procedure TForm1.FormCreate( );

begin

with Shape1 do

begin

Shape := stRectangle;

Brush.Color := clRed;

Pen.Color := Blue;

Brush.Style := bsBold;

Pen.Style := psSolid;

Pen.Width := 2;

end;

end;

Свойство

Bitmap : TBitmap;

- позволяет в качестве закраски или заливки использовать растровое изображение. Например:

Shape1.Brush.Bitmap := Image1.Picture.Bitmap;