home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Examples / Apps / Cursors / MAIN.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  1.2 KB  |  31 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "main.h"
  10. //---------------------------------------------------------------------------
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.   : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::ComboBox1Change(TObject *Sender)
  20. {
  21.         static int cursors[] = {
  22.          crDefault, crNone, crArrow, crCross, crIBeam,
  23.          crSize, crSizeNESW, crSizeNS, crSizeNWSE,
  24.          crSizeWE, crUpArrow, crHourGlass, crDrag,
  25.          crNoDrop, crHSplit, crVSplit, crMultiDrag,
  26.          crSQLWait, crNo, crAppStart, crHelp};
  27.  
  28.         Cursor = TCursor(cursors[ComboBox1->ItemIndex]);
  29. }
  30. //---------------------------------------------------------------------
  31.