.


:




:

































 

 

 

 


( Hint)




:

- ()

:

. ( ) ( Image). , , Image PaintBox.

Canvas. , Canvas (, ) Tanvas. (, , , ..), (, ; ; ).

- Pixels, TColor. (x) (y) . ( x , y - ). (.1). , Height Width : ClientHeight ClientWidth.

: 8 32 .

- (Color). TColor. Color . Turbo Delphi Tolor. (, clGreen - ), , Windows (, clBtnFace - ).

(Image1.Width, Image1.Height)


PaintBox1
(Form1.ClientWidth, Form1.ClientHeight)
(PaintBox1.Width, PaintBox1.Height)
(0,0)
(0,0)
Image1

 

.1. ()

 

1 , Color:

1

clBlack clSilver
lMaroon clRed
clGreen clLime
clOlive clBlue
clNavy - clFuchsia -
lPurple clAqua
clTeal - clWhite
clGray    

 

 

, . , , .

Pen TPen. , . - Color - , . - Width ( ), 1 . Style . 2 , Style.

 

2

psSolid
psDash ,
psDot ,
psDashDot ,
psDashDotDot ,
psClear ( )

 

. 1 .

 

, Pen.Color.

 

PenPos Toint ( Toint , y ). . , .. PenPos, MoveTo (x, y). (x, y) LineTo (x, y) (x, y). PenPos , LineTo .

Brush TBrush. . Brush - , . Color , Style - (). 3 , Style:

3

bsSolid
bsClear
bsHorisontal
bsVertical
bsFDiagonal
bsBDiagonal
bsCross - ,
bsDiagCross ,

 

4 :

4

Arc (x1, y1, x2, y2, x3, y3, x4, y4: integer ) . (x1, y1) (x2, y2) , . , (x3, y3). , (x4, y4). .
Chord (x1, y1, x2, y2, x3, y3, x4, y4: integer) , . (x1, y1) (x2, y2) , . , (x3, y3). , (x4, y4). . (x3, y3) (x4, y4).
Ellipse (x1, y1, x2, y2: integer) . (x1, y1) (x2, y2) , .
Pie (x1, y1, x2, y2, x3, y3, x4, y4: integer) - . (x1, y1) (x2, y2) , . , (x3, y3). , (x4, y4). . , (x3, y3) (x4, y4).
Polygon (Points: array of TPoint) , Points. .
PolyLine (Points: array of TPoint) - , Points. PenPos .
Rectangle (x1, y1, x2, y2: integer) , (x1, y1), - (x2, y2).
RoundRect (x1, y1, x2, y2, x3, y3: integer) , (x1, y1), - (x2, y2). x3 y3.  

 

. (Chord, Ellipse, Pie, Polygon .) (Brush.Color Brush.Style).

FloodFill (x, y: integer; Color: TColor; FillStyle: TFillStyle). TFillStyle :

type TFillStyle = (fsSurface, fsBorder);

(x, y) . Color FillStyle. Color , , FillStyle , . FillStyle = fsSurface, , Color, . FillStyle = Border, , , , Color, Color .

 

TextOut (x, y: integer; text: string). Font TFont, .

5 Font.

5

Name () (Arial, Times New Roman, Courier, ..)
Size P (points). 1/72 .
Style : fsItalic (), fsBold (), fsUnderLine (), fsStrikeOut(). ,
Color
Height

 

(x, y) Font. Brush ( , Brush.Style bsClear Brush.Color , , , clBtnFace). PenPos Pen .

Delphi. , 80% , .

 





:


: 2016-10-06; !; : 211 |


:

:

, .
==> ...

1786 - | 1558 -


© 2015-2024 lektsii.org - -

: 0.019 .