home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Examples / WinTools / ABOUT.CPP next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  1.2 KB  |  37 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 "about.h"
  10. //--------------------------------------------------------------------- 
  11. #pragma resource "*.dfm"
  12. TAboutBox *AboutBox;
  13. //--------------------------------------------------------------------- 
  14. __fastcall TAboutBox::TAboutBox(TComponent* AOwner)
  15.     : TForm(AOwner)
  16. {
  17.     option = false;
  18. }
  19. //---------------------------------------------------------------------
  20. void __fastcall TAboutBox::OKButtonClick(TObject *Sender)
  21. {
  22.     Close();    
  23. }
  24. //---------------------------------------------------------------------------
  25. void __fastcall TAboutBox::ProgramIconDblClick(TObject *Sender)
  26. {
  27.     option = true;
  28. }
  29. //---------------------------------------------------------------------------
  30.  
  31. void __fastcall TAboutBox::Label1DblClick(TObject *Sender)
  32. {
  33.     if (option) Label1->Hide();    
  34. }
  35. //---------------------------------------------------------------------------
  36.  
  37.