//
// Borland C++ Builder Code illustrating using the "bomb" pattern to show 
//    wait status
//
// Source: BCB help notes
//

class WaitCursor {
public:
   WaitCursor();
  ~WaitCursor();
private:
   Controls::TCursor saved_cursor;
};

WaitCursor::WaitCursor() : saved_cursor(Screen->Cursor)
{
   Screen->Cursor = crHourGlass;
}

WaitCursor::~WaitCursor()
{
   Screen->Cursor = saved_cursor;
}