Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #pragma hdrstop
- #include "Unit1.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- void Palka::show(TCanvas *Canvas){
- Canvas->Pen->Color=clBlack;
- Canvas->Brush->Color=clBlack;
- Canvas->Rectangle(a,b,c,d);
- }
- void Palka::move(TCanvas *Canvas){
- a=a+40;
- c=c+40;
- }
- void Palka::hide(TCanvas *Canvas){
- Canvas->Pen->Color=clWhite;
- Canvas->Brush->Color=clWhite;
- Canvas->Rectangle(a,b,c,d);
- }
- void Rocket::show2(TCanvas *Canvas){
- Canvas->Pen->Color=clOlive;
- Canvas->Brush->Color=clOlive;
- Canvas->Rectangle(a,b,c,d);
- }
- void Rocket::move2(TCanvas *Canvas){
- a=a+10;
- c=c+10;
- }
- void Rocket::hide2(TCanvas *Canvas){
- Canvas->Pen->Color=clWhite;
- Canvas->Brush->Color=clWhite;
- Canvas->Rectangle(a,b,c,d);
- }
- void Rocket::show3(TCanvas *Canvas){
- Canvas->Pen->Color=clRed;
- Canvas->Brush->Color=clRed;
- Canvas->Rectangle(a,b,c,d);
- }
- void Rocket::move3(TCanvas *Canvas){
- a=a+10;
- c=c+10;
- }
- void Rocket::hide3(TCanvas *Canvas){
- Canvas->Pen->Color=clWhite;
- Canvas->Brush->Color=clWhite;
- Canvas->Rectangle(a,b,c,d);
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement