Begin
Form1.Refresh; //
// ' Form1 ' Canvas
With Form1.Canvas do
begin //
...
'
...
end; //
End;
(Pen):
Color ;
Width ( );
Style :
ü psSolid ;
ü psDash ;
ü psDot ;
ü psDashDot - ;
: Pen.Style:=Psdot; Pen.Color:=clRed;
( Brush):
Color ;
Style :
ü bsSolid ;
ü bsCross ;
ü bsClear ( );
ü bsDiagCross ;
ü bsBDiagonal ();
ü bsHorizontal ;
ü bsFDiagonal ();
ü bsVerticaI ;
: Brush.Style:=bsCross;
':
rectangle (x1, y1, x2, y2); , x1, 1 , x2, y2 ;
ellipse (x1, y1, x2, y2); , x1, 1 , x2, y2 , ;
arc(x1,y1,x2,y2,x3,y3,x4,y4); . 1, 1, x2, y2 , , , , , x4, y4 ;
moveto (x1,y1); 1,1;
lineto (x1, y1); x1, 1;
FloodFill (x, , c, fsborder); c, x, , ,
fsborder , , c.
TextOut (x1, y1,' '), x1,y1 , .
' Font, :
Color ;
Size ( );
Style (fsBold, fsItalic, fsUnderline, fsStrikeOut);
Name (l, Courier...).
:
Font.Color:=clRed;
Font.Size:=15;
Font.Height:=10;
Font.Style:=[fsBold];
Font.Name:=arial';
TextOut(10,100,' 3- .......');
. ,
f(x) = 2sin x ex/5
[0; 25] (. 2).
. Pixels ' Canvas. Form1.Canvas.Pixels[10,10]:=clRed; (10,10) .
|
|
ClientWidth ClientHeight. ˳ Pixels [0, 0], Pixels[ClientWidth-l, ClientHeight-1].
.
, . . ij . , , , .
, f() 0 1000 250 , Oy :
m = 250/1000.
, f(x) = 1000 = 0,
= 250 f(x) m = 250 - 1000 (250/1000). f(x) = 70 y = 233, y = 250 - 70 (250/1000) ( , ).
. 2
1. D:\P92\P92XX\Delphi\Grafik.
2. .
3. implementation ( ) {$R *.dfm} GrOfFunc . (y2) (y1) [x1; x2], , , Ox (mx) Oy (my):