home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / AUTO2.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-17  |  2.4 KB  |  77 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #undef RegisterClass
  5.  
  6. #include "Auto2.h"
  7. #include "Auto1.h"
  8. //---------------------------------------------------------------------
  9. int Initialization();
  10. static int Initializer = Initialization();
  11. //---------------------------------------------------------------------
  12. __fastcall ButtonServer::ButtonServer()
  13.   : TAutoObject()
  14. {
  15. }
  16. //---------------------------------------------------------------------
  17. String __fastcall ButtonServer::GetEditStr()
  18. {
  19.   return Form1->Edit1->Text;
  20. }
  21. //---------------------------------------------------------------------
  22. void __fastcall ButtonServer::SetEditStr(String NewVal)
  23. {
  24.   Form1->Edit1->Text = NewVal;
  25. }
  26. //---------------------------------------------------------------------
  27. int __fastcall ButtonServer::GetEditNum()
  28. {
  29.   int val;
  30.  
  31.   sscanf(Form1->Edit1->Text.c_str(), "%d", &val);
  32.   return val;
  33. }
  34. //---------------------------------------------------------------------
  35. void __fastcall ButtonServer::SetEditNum(int NewVal)
  36. {
  37.   Form1->Edit1->Text = NewVal;
  38. }
  39. //---------------------------------------------------------------------
  40. void __fastcall ButtonServer::Clear()
  41. {
  42.   Form1->Edit1->Text = "";
  43. }
  44. //---------------------------------------------------------------------
  45. void __fastcall ButtonServer::SetThreeStr(String s1, String s2, String s3)
  46. {
  47.   Form1->Edit1->Text = s1 + ", " + s2 + ", " + s3;
  48. }
  49. //---------------------------------------------------------------------
  50. void __fastcall ButtonServer::SetThreeNum(int n1, int n2, int n3)
  51. {
  52.   String s1(n1), s2(n2), s3(n3);
  53.  
  54.   Form1->Edit1->Text = s1 + ", " + s2 + ", " + s3;
  55. }
  56. //---------------------------------------------------------------------
  57. void __fastcall RegisterButtonServer()
  58. {
  59.   TAutoClassInfo AutoClassInfo;
  60.  
  61.   AutoClassInfo.AutoClass = __classid(ButtonServer);
  62.   AutoClassInfo.ProgID = "Pronto.EditServer";
  63.   AutoClassInfo.ClassID = "{61E124E1-C869-11CF-9EA7-00A02429B18A}";
  64.   AutoClassInfo.Description = "This is a Pronto Server Class";
  65.   AutoClassInfo.Instancing = acMultiInstance;
  66.   
  67.   Automation->RegisterClass(AutoClassInfo);
  68. }
  69. //---------------------------------------------------------------------
  70. int Initialization()
  71. {
  72.   RegisterButtonServer();
  73.   return 0;
  74. }
  75. //---------------------------------------------------------------------
  76.  
  77.