LineTo(x,y) 
, PenPos.X, PenPos.Y. 
MoveTo(x0,y0). LineTo(x,y) .
Arc(x1,y1,x2,y2,x3,y3,x4,y4) .
, 
. 
. 
, 
, 
. . .
Ellipse(x1,y1,x2,y2) .
, . .
Chord(x1,y1,x2,y2,x3,y3,x4,y4) .
(. Arc), 
. .
Pie(x1,y1,x2,y2,x3,y3,x4,y4) .
, 
. .
Rectangle(x1,y1,x2,y2) .
, . .
RoundRect(x1,y1,x2,y2,x3,y3) .
, 
. .
Polygon( TPoint) .
, ,
Polygon([Point(x1,y1), Point(x2, y2), , Point(xN,yN)]);
(x1,y1),(x2, y2), , (xN,yN) , , . .
PolyLine( TPoint) .
, , .
FrameRect(x1,y1,x2,y2) .
, Rectangle, 1 , .
25:
1) , . : TBitMap.
2) SaveToFile.
3)
, , . .
Ø Canvas.Draw(X, Y, b): Canvas , b TGraphic ( .jpg,.jpeg,.ico,.emf,.wmf b - .bmp). Canvas , X, Y. . , TransparentColor, ,
b.TransparentColor:=0
, b.
b.Transparent:=True
.
|
|
|
Ø Canvas.StretchDraw(,b): , . TRect , ,
Canvas.StretchDraw(Rect(40, 20, 100,50), b)
Ø Canvas.CopyRect(D, -, S): . - S - TRect, ,
Canvas.CopyRect(Rect(40, 20, 100,50), b.canvas, Rect(0, 0, 200,150))
Canvas D TRect. , .
Canvas.CopyMode, :
CopyMode:=cmSrcCopy - ;
CopyMode:=cmSrcAnd - AND;
CopyMode:=cmSrcPaint - OR;
CopyMode:=cmSrcInvert - XOR
Canvas.BrushCopy(D, -, S, ): , D, -, S . . , Canvas.Brush.
4) . (), Brush.SetStyle:= . 88 , Brush.Bitmap:=Nil; - .
26,27:
Delphi
ü , , .
ü .
ü dpr ( ) pas
,
File\New\Application
ü Delphi Windows.
1. Widows , (, , .)
2. (, ..)
3. , ( , .)
ü Delphi . , . . , , (), .
,
|
|
|
