Advertisement
Guest User

Untitled

a guest
Feb 20th, 2020
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C++ 1.08 KB | None | 0 0
  1.  
  2. #pragma hdrstop
  3.  
  4. #include "Unit1.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. void Palka::show(TCanvas *Canvas){
  8. Canvas->Pen->Color=clBlack;
  9. Canvas->Brush->Color=clBlack;
  10. Canvas->Rectangle(a,b,c,d);
  11. }
  12.  
  13. void Palka::move(TCanvas *Canvas){
  14. a=a+40;
  15. c=c+40;
  16.  
  17. }
  18.  
  19. void Palka::hide(TCanvas *Canvas){
  20. Canvas->Pen->Color=clWhite;
  21. Canvas->Brush->Color=clWhite;
  22. Canvas->Rectangle(a,b,c,d);
  23. }
  24.  
  25. void Rocket::show2(TCanvas *Canvas){
  26. Canvas->Pen->Color=clOlive;
  27. Canvas->Brush->Color=clOlive;
  28. Canvas->Rectangle(a,b,c,d);
  29.  
  30. }
  31. void Rocket::move2(TCanvas *Canvas){
  32. a=a+10;
  33. c=c+10;
  34.  
  35. }
  36. void Rocket::hide2(TCanvas *Canvas){
  37. Canvas->Pen->Color=clWhite;
  38. Canvas->Brush->Color=clWhite;
  39. Canvas->Rectangle(a,b,c,d);
  40. }
  41. void Rocket::show3(TCanvas *Canvas){
  42. Canvas->Pen->Color=clRed;
  43. Canvas->Brush->Color=clRed;
  44. Canvas->Rectangle(a,b,c,d);
  45.  
  46. }
  47. void Rocket::move3(TCanvas *Canvas){
  48. a=a+10;
  49. c=c+10;
  50.  
  51. }
  52. void Rocket::hide3(TCanvas *Canvas){
  53. Canvas->Pen->Color=clWhite;
  54. Canvas->Brush->Color=clWhite;
  55. Canvas->Rectangle(a,b,c,d);
  56. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement