home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / OPTIONS.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-28  |  1.1 KB  |  32 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "options.h"
  6. #include "swatmain.h"
  7. //---------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9. TOptionsDlg *OptionsDlg;
  10. //--------------------------------------------------------------------- 
  11. __fastcall TOptionsDlg::TOptionsDlg(TComponent* AOwner)
  12.   : TForm(AOwner)
  13. {
  14. }
  15. //---------------------------------------------------------------------
  16. void __fastcall TOptionsDlg::FormShow(TObject *Sender)
  17. {
  18.     SpeedSet->Position = SpeedSet->Max + 1 - SwatForm->LiveTime;
  19.        PopulationSet->Position = SwatForm->Frequence;
  20. // bug in Pronto?
  21. //    GameTimeSet->Text = IntToStr(SwatForm->GameTime);
  22. }
  23. //---------------------------------------------------------------------
  24. void __fastcall TOptionsDlg::OKBtnClick(TObject *Sender)
  25. {
  26.     SwatForm->LiveTime = SpeedSet->Max + 1 - SpeedSet->Position;
  27.        SwatForm->Frequence = PopulationSet->Position;
  28. //    SwatForm->GameTime = StrToInt(GameTimeSet->Text);
  29. //  need to add validation
  30. }
  31. //---------------------------------------------------------------------
  32.