home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / D / MATEM.ARJ / NUMIO.ZIP / exmpl-1 / cpp1 / frmnumin.cpp next >
Encoding:
C/C++ Source or Header  |  1998-10-31  |  1.9 KB  |  59 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "frmnumin.h"
  6. //---------------------------------------------------------------------------
  7. #pragma link "NumLab"
  8. #pragma link "NumIO"
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.     : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::NumIO1Change(TObject *Sender)
  18. {
  19. NumLab1->ColorLabBakG = clSilver;
  20. NumLab1->Value = NumIO1->Value;
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TForm1::CBFormatChange(TObject *Sender)
  24. {
  25. switch (CBFormat->ItemIndex)
  26.   {
  27.   case 0: NumIO1->InputFormat=itDynamic; break;
  28.   case 1: NumIO1->InputFormat=itInt; break;
  29.   case 2: NumIO1->InputFormat=itFloat; break;
  30.   case 3: NumIO1->InputFormat=itExp; break;
  31.   case 4: NumIO1->InputFormat=itBin; break;
  32.   case 5: NumIO1->InputFormat=itOct; break;
  33.   case 6: NumIO1->InputFormat=itHex; break;
  34.   }
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TForm1::NumIO2Change(TObject *Sender)
  38. {
  39. NumIO1->RangeHigh = NumIO2->Value;
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TForm1::NumIO3Change(TObject *Sender)
  43. {
  44. NumIO1->RangeLow = NumIO3->Value;
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::FormShow(TObject *Sender)
  48. {
  49. CBFormat->ItemIndex = 3;
  50. NumIO3->Value = NumIO1->RangeLow;
  51. NumIO2->Value = NumIO1->RangeHigh;
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::BButExitClick(TObject *Sender)
  55. {
  56. Close();
  57. }
  58. //---------------------------------------------------------------------------
  59.