..
-
-
2006
1. .
. , (, , ..). - ( , , ), , Show, MoveTo. , , , , .. , .
( Delphi):
1. .
2. -. , .
3. Image .
4. OnCreate Image:
Image1.Canvas.Pen.Mode:= pmNotXOR;
.
5. , : File / New / Unit . , , ( interface) ( implementation).
6. ( !) ( ). , . . , . , .
7. , . :
procedure TCircle.MoveTo(dx, dy: integer);
Begin
Show; //
x:= x + dx; y:= y + dy; //
Show; //
|
|
End;
MoveTo , , .
8. Windows. , :
Form1.Image1.Canvas.Ellipse(x-r, y-r, x+r, y+r);
Image , , interface
uses ;
9. .
10. - , -.
11. , :
- ( nil), Show Free;
;
Show.
12. , [-50, 50].
13. ( , , ..).
14. .
15. .
2. 2-3 .
1.
:
. - -.
;
1. .
2. -, :
;
- ( );
Set/Get- .
3. :
- -;
, , , :
- , ;
-;
;
|
|
.
4. , .
5. , -, , .
6. .
7. .
8. 1-2 , , , , ; .
2. .
:
, (, , , ..). TFigure, -: , , , Show MoveTo. . , , , , , ..
, .
:
1. .
2. - TFigure, abstract .
3. Figure ( -).
4. TCircle TFigure , , Show, MoveTo .
5. , :
inherited Create ();
6.
7. () -, .
8. .
9. TCircle -. . 90 .
10. .
11. , , .
1. .
:
. .
:
1. .
2. :
;
, .
3. :
|
|
, ;
, .
4. .
2. .
:
. -. ( ) . :
;
;
;
;
(, ) ;
.
:
1. .
2. : (, TFigure TCircle TEllipse) 5-6 .
3. 20-30 , .. TFigure.
4. , , , .
5. , 20-30 , :
mas[ i ]:= TCircle.Create();
,
6. Show.
7. , .
8. ; Show Free.
9. , --- . 10 . :
KeyPreview=true ;
OnKeyDown;
Case-Of Key, vk_Left, vk_Right, vk_Up, vk_Down;
MoveTo .
10. .
11. - . , is.
|
|
12. .
13. , ( ). , , TCircle; as, (, TCircle).
14. .
3. .
:
- . . . .
:
1. , .
2. :
;
-, -.
3. . -, - . , - . Case . : , / , .
4. , - - - ( TFigure).
5. , , , .
6. , .
7. , , Show.
8. , .
9. , -, Free .
10. .
1. .. - . .: . , 2004.
2. ., . - . . .: , 2005.
3. . - : Java,.NET, C++. .:-, 2005
4. . - . .: , 1997.
5. . - . .: , 1992.
6. . - . . .: , 2004.
7. . - . .: , 2002.
8. . Delphi 2006. .: , 2006.
9. . Delphi for.NET. . .: , 2005
10. .. ++. - . - .: , 2004.
11. .., .. ++. - : . .: , 2004.
12. ., . ++. .: , 2000.
13. . Java. .: , 2001.
14. ., . Java 2. .: -, 2001.
15. ...NET Framework 2.0. Windows-. .: -, 2006
16. ., ..NET Framework: . .: -, 2003.
17. ., ., ., . - . . .: , 2001.
18. ., ., . UML. . .: , 2000.
|
|