home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 May / PCpro_2007_05.ISO / files / vollversionen / visualdataflex / VDF12.0.StudioDownload.exe / %MAINDIR% / Examples / Example Library / AppSrc / cComDbCalendar.pkg < prev    next >
Encoding:
Text File  |  2007-03-10  |  1.4 KB  |  38 lines
  1. // Visual DataFlex COM proxy classes generated from C:\Program Files\Visual DataFlex 11.1\Bin\MSCal.ocx
  2. Use FlexCom20.pkg
  3. Use cComDbActiveXControl.pkg
  4.  
  5. Use cComCalendar.pkg // Use mixins from calendar so both db and non-db can be used in one application
  6.                      // note we removed the mixins cComICalendar and cComDCalendarEvents from here.
  7.  
  8. // CoClass
  9. // ProgID: MSCAL.Calendar.7
  10. // CLSID: {8E27C92B-1264-101C-8A2F-040224009C02}
  11. // Calendar control
  12. { CLSID="{8E27C92B-1264-101C-8A2F-040224009C02}" }
  13. Class cComDbCalendar is a cComDbActiveXControl
  14.     Import_Class_Protocol cComICalendar
  15.     Import_Class_Protocol cComDCalendarEvents
  16.  
  17.     Procedure Construct_Object
  18.         Forward Send Construct_Object
  19.         Set psProgID to "{8E27C92B-1264-101C-8A2F-040224009C02}"
  20.         Set psEventId to "{8E27C92D-1264-101C-8A2F-040224009C02}"
  21.         Set peAutoCreate to acDeferredAutoCreate
  22.         //Connect the default bindable property
  23.         Send RegisterPropertyChangeEvent 12 msg_OnControlValueChanged
  24.     End_Procedure
  25.  
  26.     Function ControlValue Returns String
  27.         //Associate the default bindable property with Get Value
  28.         String retVal
  29.         Get ComValue to retVal
  30.         Function_Return retVal
  31.     End_Function
  32.  
  33.     Procedure Set ControlValue String sVal
  34.         //Associate the default bindable property with Set Value
  35.         Set ComValue to sVal
  36.     End_Procedure
  37. End_Class
  38.