home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Examples / Apps / MultiPag / MAIN.CPP next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  1.0 KB  |  28 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. #include <stdlib.h>
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TForm1 *Form1;
  14. //---------------------------------------------------------------------------
  15. __fastcall TForm1::TForm1(TComponent* Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TForm1::PageControl1Change(TObject *Sender)
  21. {
  22.     char buf[3];
  23.  
  24.     StatusBar1->SimpleText = "Page index: " +
  25.                AnsiString(itoa(PageControl1->ActivePage->PageIndex, buf, 10));
  26. }
  27. //---------------------------------------------------------------------------
  28.