= 90; // правая.botton: = 90; // ніжняя.Convas.CopyRect (ClientRect, Bitmap2 . Canvas, r1);;
Існує ще один метод, що дозволяє копіювати цілий растр на канву форми із стисненням або розширенням зображення, так, що б воно поміщалося і повністю заповнювало простір всередині кордонів канви - StretchDraw. p align="justify"> Приклад:
: TRect;: TBitmap;: = TBitmap.Create;. LoadFromFile ( c: picture1.bmp ) ;. left: = 0;. top; = 0;. right: = Bitmap1.Width;. botton: = Bitmap1. Leight;. Canvas.StretchDrow (r1, Bitmap1);;
Використання властивостей класу TCanvas
1. TPen - перо (об'єкт відповідає за спосіб і колір малювання ліній на канві): Image1.Canvas.Pen.
Властивості об'єкта TPen:
Колір (color):
With Image1.Convas.Pen.Color do
В
Color: = clRed;
End;
Або вибір кольору випадковим чином
Color: = RGB (random (256), random (256), random (256));
Тип лінії (style):
. Style: = psSolid;
Види ліній: - суцільна; - пунктир; - крапка/пунктир; - пунктир/точка/точка - точки;
psClear - безбарвна.
Pen.Mode - режим роботи пера (задає спосіб зображення лінії на канві; спосіб змішування кольорів при накладання об'єктів).
Режим роботи пера задається логічними операціями (pnCopy - за замовчуванням).
2. TBrush - кисть (має трьома основними властивостями: color, style, bitmap):
Властивості об'єкта TBrush:
Колір (color):
With Image1.Convas.Brush.Color do
Color: = clRed;
End;
Або вибір кольору випадковим чином
Color: = RGB (random (256), random (256), random (256));
Тип лінії (style):
. Style: = psSolid;
Види ліній: - суцільна; - знизу вгору; - зверху вниз; - решітка по діагоналі; - решітка;
bsHorizontal - горизонтальні лінії;
bsVertical - вертикальні лінії;
bsClear - безбарвна.
bitmap (дозволяє зафарбовувати область, заданих з реєстру кольором):
Bitmap1.loadFromFile ( ... );. Convas.Brush.Bitmap: = Bitmap1;
Основні методи об'єкта Canvas:
Canvas.MoveTo (a: TPaint); - переміщує (але не малює) перо в указаннуюточку;
Canvas.LineTo (a: TPaint); - малює лінію від поточного покажчика пера до точки (a);
Canvas.Rectangle (a: TRect); - малює прямокутник;
Canvas.Rectangle (a1: TPaint; a2: TPaint); - малює прямокутник;
Canvas.Ellipse (e: TRect); - малює овал вписаний в прямокутник;
Canvas.Arc (e: TRect), - малює дугу;
Canvas.FillRect (a: TRect); - малює прямокутник поточним пером і зафарбовує його поточної пензлем;
Canvas.FloodFill (x, y: integer; c: TColor; f {fsSurfase, fsBorder}) - спосіб заливки;
fsSurfase - залити вся область, де колір дорівнює кольору зазначеному в третьому параметрі;
fsBorder - залити вся область, де колір не дорівнює кольору зазначеному в третьому параметрі.
Canvas.TextOut (x, y: integer; s: TString); - виводить у вказаному місці текст на канву; шрифт задається за допомогою Convas.Front.
Об'єкт Screen (екран).
Цей об'єкт існує завжди, незалежно від інших об'єктів. Об'єкт так само може використовуватися для графіки. br/>
