home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / FlexCel / UWaitCursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-10-11  |  610 b   |  41 lines
  1. unit UWaitCursor;
  2.  
  3. interface
  4. {$IFDEF WIN32}
  5.   uses Controls, Forms;
  6. {$ENDIF}
  7. {$IFDEF LINUX}
  8.   uses QControls, QForms;
  9. {$ENDIF}
  10. type
  11.   IWaitCursor = interface
  12.   end;
  13.  
  14.   TWaitCursor = class(TInterfacedObject, IWaitCursor)
  15.   private
  16.     OldCursor: TCursor;
  17.   public
  18.     constructor Create;
  19.     destructor Destroy;override;
  20.   end;
  21.  
  22. implementation
  23.  
  24. { TWaitCursor }
  25.  
  26. constructor TWaitCursor.Create;
  27. begin
  28.   inherited;
  29.   OldCursor:= Screen.Cursor;
  30.   Screen.Cursor:= crHourGlass;
  31. end;
  32.  
  33. destructor TWaitCursor.Destroy;
  34. begin
  35.   Screen.Cursor:= OldCursor;
  36.   inherited;
  37.  
  38. end;
  39.  
  40. end.
  41.