Й способ. Поддержка графических операций низкого уровня

Для создания графических изображений в области некоторых компонент (TForm, TImage, TPaintBox, TPrinter, TListBox, TComboBox, TDrawGrid), используется свойство Canvas. С каждым из перечисленных компонент связано событие OnPaint. Это событие возникает, когда ядру Windows необходимо перерисовать содержимое компонента (например, при активизации формы, когда один из перечисленных компонентов становится видимым). Чтобы отрисовать графическое изображение внутри рабочей области перечисленных компонент нужно обработать событие OnPaint, т.е. записать соответствующий обработчик.

Можно воспроизвести на соответствующих компонентах любые графические объекты без использования компонент TImage, TShape, TLabel.

Класс TCanvas

Класс TCanvas имеет свойства:

Pen: TPen - - устанавливает цвет, толщину, стиль линий и границ геометрических фигур, например:

with Canvas do

begin

Pen.Color:= clBlue;

Pen.Width:= 2;

Pen.Style:= psDash;

end;

Brush: TBrush – это свойство позволяет устанавливать цвет и шаблон кисти;

Font: TFont – это свойство позволяет устанавливать параметры текста;

PenPos: TPoint - выдает текущую позицию пера;

Pixels: TColor - двухмерный массив, содержащий цвета пикселей, например:

Procedure TForm1.Button1Click();

Var

i, j: LongInt;

begin

Button1.Visible:= false;

with Canvas do

begin

for i:=1 to Width do

for j:=1 to Height do

Pixels[i,j]:= i*j;

Button1.Visible:= true;

end;

end;