DELPHI
8
:
" DELPHI". .
. DELPHI
.
1. , Image1 ( Additional), Button1.
2. , OnClick Button1.
: .
:
 |
1.. Image1 .
2013 . , - ( ). .
 |
2. Image1 .
1994 . , - .
3. Image1 ( , ).
 |
4. Image1 .
Samsung Philips 2012 . , - .
 |
5. Image1 .
, .
 |
6. Image1 .
. , - .
 |
7. Image1 .
2013 . , - .
 |
8. Image1 .
.
9. Image1 ( , ).
 |
10. Image1 .
|
|
|
 |
11. Image1 .
N 4 6 2013 . 4 : (00:00), (06:00), (12:00) (18:00). , - . .
 |
12. Image1 .
.
1. Canvas? , .
2. Pen Brush ?
3. Canvas? .
4. Canvas? ?
5. ?
. DELPHI
Canvas - , .
- .
(X) (Y) .
(0, 0). .
, Height Width (Image) : ClientHeight ClientWidth.
( n) - .
:
Color - ( TColor).
: Image1.Canvas.Pen.Color:=clGreen; //
Width - ( ).
: Image1.Canvas.Pen.Width:=2;
Style - (; , ).
: Image1.Canvas.Pen.Style:=psSolid; //
: Pen.Width , .
Mode - : , , .
: Image1.Canvas.Pen.Mode:=pmNot;
, ( , ).
( Brush) - , .
:
Color - ( TColor).
: Image1.Canvas.Brush.Color:=clWhite; //
Style - () ( ).
: Image1.Canvas.Brush.Style:=bsHorizontal; //
" , .. , Pixels.
Pixels - TColor, .
: Form1.Canvas.Pixels[10,10]:=clRed; // (10,10)
Pixels .
|
|
|
Pixels[0,0] - .
Form:
Pixels[ClientWidth-1,ClientHeight-1] .
Image:
Pixels[Width - 1,Height - 1] .
MoveTo(x,) .
: Form1.Canvas.MoveTo(10,20);
Lin(x,y) , .
: Form1.Canvas.LinTo(100,130);
(, ) n , .
Polyline .
- TPoint, ( ).
:
Var gr: array[1..50] of TPoint; // -
..........
begin
..........
with Form1.Canvas do
begin
MoveTo(x0,y0); LineTo(x0,10); // Y
MoveTo(x0,y0); LineTo(200,y0); // X
Polyline(gr); //
end;
..........
end;
Rectangle(x1, y1,x2, y2) .
x1, y1 2, 2 - .
: Form1.Canvas.Rectangle(30,50,100,200);
RoundRec(x1,y1,2, 2, 3, 3) .
x1, y1, 2, 2 - , , ;
3 3 - , .
, , (Brush):
FillRect -
FrameRect - .
TRect, . Rect.
:
Var r1, r2: TRect; //
begin
//
r1:= Rect(20,20,60,40); r2:= Rect(10,10,40,50);
with Frm1.Canvas do
begin
Brush.Color:= clRed; FillRect(r1); //
Brush.Color:= clGreen; FrameRect(r2); //
end;
end;
Polygon .
- TPoint ( ,, )
:
Var pol: array[1..3] of TPoint; //
begin
pol[1].x:= 10; pol[1].y:= 50;
pol[2].x:= 40; pol[2].y:= 10;
pol[3].:= 70; pol[3].:= 50;
Form1.Canvas.Polygon(pol);
end;
Ellipse(x1,y1,2,2) , .
x1, y1, 2, 2 - , , , .
10.
Arc(x1,y1,2,2,3,3,4,4) .
x1, y1, 2, 2 - (), ;
3, 3 - , ;
4, 4 - , .
() - , 3 3 (4, 4).
.
Pie(x1,y1,x2,y2,3,3,4,4) .
x1, y1, 2, 2 - (), ;
|
|
|
3, 3, 4, 4 - , .
().
, (, 3), , (4, 4).
FloodFill (x, y, Color, FillStyle) (), (x,y) , .
