I'm trying to get this picture to move accross the screen. It keeps raising class exceptions and I don't know why. It only happens when i click the button2. in button1 it works. Can anyone help me please?
Code:
void move_ship(Ship_1 *User_Ship, TImage *Ship_sprite)
{
int x1;
int y1;
User_Ship->x1 = User_Ship->x1 + 5;
User_Ship->y1 = User_Ship->y1+ 5;
x1 = (User_Ship->x1) + 5;
y1 = (User_Ship->y1) + 5;
Form1->Canvas->Draw(x1,y1,Ship_sprite->Picture->Graphic ) ;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x;
int y;
//Creats new ship
Ship_1 *User_Ship = new Ship_1;
TImage *Ship_sprite = new TImage(Owner);
//loads pic
Ship_sprite->Picture->LoadFromFile("ship-1.ico") ;
//sets ship coords
User_Ship->x1 = 100;
User_Ship->y1 = 200;
/*x = User_Ship->x1;
y = User_Ship->y1; */
move_ship(User_Ship, Ship_sprite);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int k;
int l;
k=User_Ship->x1;
l= User_Ship->y1;
k=k+5;
l=l+5;
move_ship(User_Ship, Ship_sprite);
}
//---------------------------------------------------------------------------
here is the Ship class if it helps...
Code:
class Ship_1
{
public:
TImage *Ship_sprite(Owner);
TRect *recSprite;
int *health;
int x1;
int y1;
};