home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Examples / Apps / ColorDlg / MAINFORM.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  970 b   |  26 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 "mainform.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::ButtonClick(TObject *Sender)
  20. {
  21.     if (ColorDialog->Execute())
  22.     {
  23.         Form1->Color = ColorDialog->Color;
  24.     }
  25. }
  26. //---------------------------------------------------------------------