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 / cComCalendar.pkg next >
Encoding:
Text File  |  2007-03-10  |  18.5 KB  |  538 lines
  1. // Visual DataFlex COM proxy classes generated from C:\Program Files\Visual DataFlex 11.1\Bin\MSCal.ocx
  2. Use FlexCom20.pkg
  3.  
  4.  
  5. // CLSID: {8E27C92C-1264-101C-8A2F-040224009C02}
  6. // Calendar Control
  7. Class cComICalendar is a Mixin
  8.  
  9.     { MethodType=Property DesignTime=False }
  10.     Function ComBackColor Returns OLE_COLOR
  11.         Handle hDispatchDriver
  12.         OLE_COLOR retVal
  13.         Get phDispatchDriver to hDispatchDriver
  14.         Get InvokeComMethod of hDispatchDriver -501 OLE_VT_I4 to retVal
  15.         Function_Return retVal
  16.     End_Function
  17.  
  18.     { MethodType=Property DesignTime=False }
  19.     Procedure Set ComBackColor OLE_COLOR value
  20.         Handle hDispatchDriver
  21.         Get phDispatchDriver to hDispatchDriver
  22.         Send PrepareParams to hDispatchDriver 1
  23.         Set ComProperty of hDispatchDriver -501 OLE_VT_I4 to value
  24.     End_Procedure
  25.  
  26.     { MethodType=Property DesignTime=False }
  27.     Function ComDay Returns Short
  28.         Handle hDispatchDriver
  29.         Short retVal
  30.         Get phDispatchDriver to hDispatchDriver
  31.         Get InvokeComMethod of hDispatchDriver 17 OLE_VT_I2 to retVal
  32.         Function_Return retVal
  33.     End_Function
  34.  
  35.     { MethodType=Property DesignTime=False }
  36.     Procedure Set ComDay Short value
  37.         Handle hDispatchDriver
  38.         Get phDispatchDriver to hDispatchDriver
  39.         Send PrepareParams to hDispatchDriver 1
  40.         Set ComProperty of hDispatchDriver 17 OLE_VT_I2 to value
  41.     End_Procedure
  42.  
  43.     { MethodType=Property DesignTime=False }
  44.     Function ComDayFont Returns Variant
  45.         Handle hDispatchDriver
  46.         Variant retVal
  47.         Get phDispatchDriver to hDispatchDriver
  48.         Get InvokeComMethod of hDispatchDriver 1 OLE_VT_DISPATCH to retVal
  49.         Function_Return retVal
  50.     End_Function
  51.  
  52.     { MethodType=Property DesignTime=False }
  53.     Procedure Set ComDayFont Variant value
  54.         Handle hDispatchDriver
  55.         Get phDispatchDriver to hDispatchDriver
  56.         Send PrepareParams to hDispatchDriver 1
  57.         Set ComProperty of hDispatchDriver 1 OLE_VT_DISPATCH to value
  58.     End_Procedure
  59.  
  60.     { MethodType=Property DesignTime=False }
  61.     Function ComDayFontColor Returns OLE_COLOR
  62.         Handle hDispatchDriver
  63.         OLE_COLOR retVal
  64.         Get phDispatchDriver to hDispatchDriver
  65.         Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
  66.         Function_Return retVal
  67.     End_Function
  68.  
  69.     { MethodType=Property DesignTime=False }
  70.     Procedure Set ComDayFontColor OLE_COLOR value
  71.         Handle hDispatchDriver
  72.         Get phDispatchDriver to hDispatchDriver
  73.         Send PrepareParams to hDispatchDriver 1
  74.         Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
  75.     End_Procedure
  76.  
  77.     { MethodType=Property DesignTime=False }
  78.     Function ComDayLength Returns Short
  79.         Handle hDispatchDriver
  80.         Short retVal
  81.         Get phDispatchDriver to hDispatchDriver
  82.         Get InvokeComMethod of hDispatchDriver 18 OLE_VT_I2 to retVal
  83.         Function_Return retVal
  84.     End_Function
  85.  
  86.     { MethodType=Property DesignTime=False }
  87.     Procedure Set ComDayLength Short value
  88.         Handle hDispatchDriver
  89.         Get phDispatchDriver to hDispatchDriver
  90.         Send PrepareParams to hDispatchDriver 1
  91.         Set ComProperty of hDispatchDriver 18 OLE_VT_I2 to value
  92.     End_Procedure
  93.  
  94.     { MethodType=Property DesignTime=False }
  95.     Function ComFirstDay Returns Short
  96.         Handle hDispatchDriver
  97.         Short retVal
  98.         Get phDispatchDriver to hDispatchDriver
  99.         Get InvokeComMethod of hDispatchDriver 19 OLE_VT_I2 to retVal
  100.         Function_Return retVal
  101.     End_Function
  102.  
  103.     { MethodType=Property DesignTime=False }
  104.     Procedure Set ComFirstDay Short value
  105.         Handle hDispatchDriver
  106.         Get phDispatchDriver to hDispatchDriver
  107.         Send PrepareParams to hDispatchDriver 1
  108.         Set ComProperty of hDispatchDriver 19 OLE_VT_I2 to value
  109.     End_Procedure
  110.  
  111.     { MethodType=Property DesignTime=False }
  112.     Function ComGridCellEffect Returns Integer
  113.         Handle hDispatchDriver
  114.         Integer retVal
  115.         Get phDispatchDriver to hDispatchDriver
  116.         Get InvokeComMethod of hDispatchDriver 20 OLE_VT_I4 to retVal
  117.         Function_Return retVal
  118.     End_Function
  119.  
  120.     { MethodType=Property DesignTime=False }
  121.     Procedure Set ComGridCellEffect Integer value
  122.         Handle hDispatchDriver
  123.         Get phDispatchDriver to hDispatchDriver
  124.         Send PrepareParams to hDispatchDriver 1
  125.         Set ComProperty of hDispatchDriver 20 OLE_VT_I4 to value
  126.     End_Procedure
  127.  
  128.     { MethodType=Property DesignTime=False }
  129.     Function ComGridFont Returns Variant
  130.         Handle hDispatchDriver
  131.         Variant retVal
  132.         Get phDispatchDriver to hDispatchDriver
  133.         Get InvokeComMethod of hDispatchDriver 3 OLE_VT_DISPATCH to retVal
  134.         Function_Return retVal
  135.     End_Function
  136.  
  137.     { MethodType=Property DesignTime=False }
  138.     Procedure Set ComGridFont Variant value
  139.         Handle hDispatchDriver
  140.         Get phDispatchDriver to hDispatchDriver
  141.         Send PrepareParams to hDispatchDriver 1
  142.         Set ComProperty of hDispatchDriver 3 OLE_VT_DISPATCH to value
  143.     End_Procedure
  144.  
  145.     { MethodType=Property DesignTime=False }
  146.     Function ComGridFontColor Returns OLE_COLOR
  147.         Handle hDispatchDriver
  148.         OLE_COLOR retVal
  149.         Get phDispatchDriver to hDispatchDriver
  150.         Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
  151.         Function_Return retVal
  152.     End_Function
  153.  
  154.     { MethodType=Property DesignTime=False }
  155.     Procedure Set ComGridFontColor OLE_COLOR value
  156.         Handle hDispatchDriver
  157.         Get phDispatchDriver to hDispatchDriver
  158.         Send PrepareParams to hDispatchDriver 1
  159.         Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
  160.     End_Procedure
  161.  
  162.     { MethodType=Property DesignTime=False }
  163.     Function ComGridLinesColor Returns OLE_COLOR
  164.         Handle hDispatchDriver
  165.         OLE_COLOR retVal
  166.         Get phDispatchDriver to hDispatchDriver
  167.         Get InvokeComMethod of hDispatchDriver 13 OLE_VT_I4 to retVal
  168.         Function_Return retVal
  169.     End_Function
  170.  
  171.     { MethodType=Property DesignTime=False }
  172.     Procedure Set ComGridLinesColor OLE_COLOR value
  173.         Handle hDispatchDriver
  174.         Get phDispatchDriver to hDispatchDriver
  175.         Send PrepareParams to hDispatchDriver 1
  176.         Set ComProperty of hDispatchDriver 13 OLE_VT_I4 to value
  177.     End_Procedure
  178.  
  179.     { MethodType=Property DesignTime=False }
  180.     Function ComMonth Returns Short
  181.         Handle hDispatchDriver
  182.         Short retVal
  183.         Get phDispatchDriver to hDispatchDriver
  184.         Get InvokeComMethod of hDispatchDriver 16 OLE_VT_I2 to retVal
  185.         Function_Return retVal
  186.     End_Function
  187.  
  188.     { MethodType=Property DesignTime=False }
  189.     Procedure Set ComMonth Short value
  190.         Handle hDispatchDriver
  191.         Get phDispatchDriver to hDispatchDriver
  192.         Send PrepareParams to hDispatchDriver 1
  193.         Set ComProperty of hDispatchDriver 16 OLE_VT_I2 to value
  194.     End_Procedure
  195.  
  196.     { MethodType=Property DesignTime=False }
  197.     Function ComMonthLength Returns Short
  198.         Handle hDispatchDriver
  199.         Short retVal
  200.         Get phDispatchDriver to hDispatchDriver
  201.         Get InvokeComMethod of hDispatchDriver 21 OLE_VT_I2 to retVal
  202.         Function_Return retVal
  203.     End_Function
  204.  
  205.     { MethodType=Property DesignTime=False }
  206.     Procedure Set ComMonthLength Short value
  207.         Handle hDispatchDriver
  208.         Get phDispatchDriver to hDispatchDriver
  209.         Send PrepareParams to hDispatchDriver 1
  210.         Set ComProperty of hDispatchDriver 21 OLE_VT_I2 to value
  211.     End_Procedure
  212.  
  213.     { MethodType=Property DesignTime=False }
  214.     Function ComShowDateSelectors Returns Boolean
  215.         Handle hDispatchDriver
  216.         Boolean retVal
  217.         Get phDispatchDriver to hDispatchDriver
  218.         Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal
  219.         Function_Return retVal
  220.     End_Function
  221.  
  222.     { MethodType=Property DesignTime=False }
  223.     Procedure Set ComShowDateSelectors Boolean value
  224.         Handle hDispatchDriver
  225.         Get phDispatchDriver to hDispatchDriver
  226.         Send PrepareParams to hDispatchDriver 1
  227.         Set ComProperty of hDispatchDriver 5 OLE_VT_BOOL to value
  228.     End_Procedure
  229.  
  230.     { MethodType=Property DesignTime=False }
  231.     Function ComShowDays Returns Boolean
  232.         Handle hDispatchDriver
  233.         Boolean retVal
  234.         Get phDispatchDriver to hDispatchDriver
  235.         Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BOOL to retVal
  236.         Function_Return retVal
  237.     End_Function
  238.  
  239.     { MethodType=Property DesignTime=False }
  240.     Procedure Set ComShowDays Boolean value
  241.         Handle hDispatchDriver
  242.         Get phDispatchDriver to hDispatchDriver
  243.         Send PrepareParams to hDispatchDriver 1
  244.         Set ComProperty of hDispatchDriver 6 OLE_VT_BOOL to value
  245.     End_Procedure
  246.  
  247.     { MethodType=Property DesignTime=False }
  248.     Function ComShowHorizontalGrid Returns Boolean
  249.         Handle hDispatchDriver
  250.         Boolean retVal
  251.         Get phDispatchDriver to hDispatchDriver
  252.         Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal
  253.         Function_Return retVal
  254.     End_Function
  255.  
  256.     { MethodType=Property DesignTime=False }
  257.     Procedure Set ComShowHorizontalGrid Boolean value
  258.         Handle hDispatchDriver
  259.         Get phDispatchDriver to hDispatchDriver
  260.         Send PrepareParams to hDispatchDriver 1
  261.         Set ComProperty of hDispatchDriver 7 OLE_VT_BOOL to value
  262.     End_Procedure
  263.  
  264.     { MethodType=Property DesignTime=False }
  265.     Function ComShowTitle Returns Boolean
  266.         Handle hDispatchDriver
  267.         Boolean retVal
  268.         Get phDispatchDriver to hDispatchDriver
  269.         Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal
  270.         Function_Return retVal
  271.     End_Function
  272.  
  273.     { MethodType=Property DesignTime=False }
  274.     Procedure Set ComShowTitle Boolean value
  275.         Handle hDispatchDriver
  276.         Get phDispatchDriver to hDispatchDriver
  277.         Send PrepareParams to hDispatchDriver 1
  278.         Set ComProperty of hDispatchDriver 8 OLE_VT_BOOL to value
  279.     End_Procedure
  280.  
  281.     { MethodType=Property DesignTime=False }
  282.     Function ComShowVerticalGrid Returns Boolean
  283.         Handle hDispatchDriver
  284.         Boolean retVal
  285.         Get phDispatchDriver to hDispatchDriver
  286.         Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BOOL to retVal
  287.         Function_Return retVal
  288.     End_Function
  289.  
  290.     { MethodType=Property DesignTime=False }
  291.     Procedure Set ComShowVerticalGrid Boolean value
  292.         Handle hDispatchDriver
  293.         Get phDispatchDriver to hDispatchDriver
  294.         Send PrepareParams to hDispatchDriver 1
  295.         Set ComProperty of hDispatchDriver 9 OLE_VT_BOOL to value
  296.     End_Procedure
  297.  
  298.     { MethodType=Property DesignTime=False }
  299.     Function ComTitleFont Returns Variant
  300.         Handle hDispatchDriver
  301.         Variant retVal
  302.         Get phDispatchDriver to hDispatchDriver
  303.         Get InvokeComMethod of hDispatchDriver 10 OLE_VT_DISPATCH to retVal
  304.         Function_Return retVal
  305.     End_Function
  306.  
  307.     { MethodType=Property DesignTime=False }
  308.     Procedure Set ComTitleFont Variant value
  309.         Handle hDispatchDriver
  310.         Get phDispatchDriver to hDispatchDriver
  311.         Send PrepareParams to hDispatchDriver 1
  312.         Set ComProperty of hDispatchDriver 10 OLE_VT_DISPATCH to value
  313.     End_Procedure
  314.  
  315.     { MethodType=Property DesignTime=False }
  316.     Function ComTitleFontColor Returns OLE_COLOR
  317.         Handle hDispatchDriver
  318.         OLE_COLOR retVal
  319.         Get phDispatchDriver to hDispatchDriver
  320.         Get InvokeComMethod of hDispatchDriver 11 OLE_VT_I4 to retVal
  321.         Function_Return retVal
  322.     End_Function
  323.  
  324.     { MethodType=Property DesignTime=False }
  325.     Procedure Set ComTitleFontColor OLE_COLOR value
  326.         Handle hDispatchDriver
  327.         Get phDispatchDriver to hDispatchDriver
  328.         Send PrepareParams to hDispatchDriver 1
  329.         Set ComProperty of hDispatchDriver 11 OLE_VT_I4 to value
  330.     End_Procedure
  331.  
  332.     // (Member is Bindable)
  333.     // (Member is DefaultBind)
  334.     { MethodType=Property DesignTime=False }
  335.     Function ComValue Returns Variant
  336.         Handle hDispatchDriver
  337.         Variant retVal
  338.         Get phDispatchDriver to hDispatchDriver
  339.         Get InvokeComMethod of hDispatchDriver 12 OLE_VT_VARIANT to retVal
  340.         Function_Return retVal
  341.     End_Function
  342.  
  343.     // (Member is Bindable)
  344.     // (Member is DefaultBind)
  345.     { MethodType=Property DesignTime=False }
  346.     Procedure Set ComValue Variant value
  347.         Handle hDispatchDriver
  348.         Get phDispatchDriver to hDispatchDriver
  349.         Send PrepareParams to hDispatchDriver 1
  350.         Set ComProperty of hDispatchDriver 12 OLE_VT_VARIANT to value
  351.     End_Procedure
  352.  
  353.     { MethodType=Property DesignTime=False }
  354.     Function ComValueIsNull Returns Boolean
  355.         Handle hDispatchDriver
  356.         Boolean retVal
  357.         Get phDispatchDriver to hDispatchDriver
  358.         Get InvokeComMethod of hDispatchDriver 14 OLE_VT_BOOL to retVal
  359.         Function_Return retVal
  360.     End_Function
  361.  
  362.     { MethodType=Property DesignTime=False }
  363.     Procedure Set ComValueIsNull Boolean value
  364.         Handle hDispatchDriver
  365.         Get phDispatchDriver to hDispatchDriver
  366.         Send PrepareParams to hDispatchDriver 1
  367.         Set ComProperty of hDispatchDriver 14 OLE_VT_BOOL to value
  368.     End_Procedure
  369.  
  370.     { MethodType=Property DesignTime=False }
  371.     Function ComYear Returns Short
  372.         Handle hDispatchDriver
  373.         Short retVal
  374.         Get phDispatchDriver to hDispatchDriver
  375.         Get InvokeComMethod of hDispatchDriver 15 OLE_VT_I2 to retVal
  376.         Function_Return retVal
  377.     End_Function
  378.  
  379.     { MethodType=Property DesignTime=False }
  380.     Procedure Set ComYear Short value
  381.         Handle hDispatchDriver
  382.         Get phDispatchDriver to hDispatchDriver
  383.         Send PrepareParams to hDispatchDriver 1
  384.         Set ComProperty of hDispatchDriver 15 OLE_VT_I2 to value
  385.     End_Procedure
  386.  
  387.     Procedure ComNextDay
  388.         Handle hDispatchDriver
  389.         Get phDispatchDriver to hDispatchDriver
  390.         Send InvokeComMethod to hDispatchDriver 22 OLE_VT_VOID
  391.     End_Procedure
  392.  
  393.     Procedure ComNextMonth
  394.         Handle hDispatchDriver
  395.         Get phDispatchDriver to hDispatchDriver
  396.         Send InvokeComMethod to hDispatchDriver 23 OLE_VT_VOID
  397.     End_Procedure
  398.  
  399.     Procedure ComNextWeek
  400.         Handle hDispatchDriver
  401.         Get phDispatchDriver to hDispatchDriver
  402.         Send InvokeComMethod to hDispatchDriver 24 OLE_VT_VOID
  403.     End_Procedure
  404.  
  405.     Procedure ComNextYear
  406.         Handle hDispatchDriver
  407.         Get phDispatchDriver to hDispatchDriver
  408.         Send InvokeComMethod to hDispatchDriver 25 OLE_VT_VOID
  409.     End_Procedure
  410.  
  411.     Procedure ComPreviousDay
  412.         Handle hDispatchDriver
  413.         Get phDispatchDriver to hDispatchDriver
  414.         Send InvokeComMethod to hDispatchDriver 26 OLE_VT_VOID
  415.     End_Procedure
  416.  
  417.     Procedure ComPreviousMonth
  418.         Handle hDispatchDriver
  419.         Get phDispatchDriver to hDispatchDriver
  420.         Send InvokeComMethod to hDispatchDriver 27 OLE_VT_VOID
  421.     End_Procedure
  422.  
  423.     Procedure ComPreviousWeek
  424.         Handle hDispatchDriver
  425.         Get phDispatchDriver to hDispatchDriver
  426.         Send InvokeComMethod to hDispatchDriver 28 OLE_VT_VOID
  427.     End_Procedure
  428.  
  429.     Procedure ComPreviousYear
  430.         Handle hDispatchDriver
  431.         Get phDispatchDriver to hDispatchDriver
  432.         Send InvokeComMethod to hDispatchDriver 29 OLE_VT_VOID
  433.     End_Procedure
  434.  
  435.     Procedure ComRefresh
  436.         Handle hDispatchDriver
  437.         Get phDispatchDriver to hDispatchDriver
  438.         Send InvokeComMethod to hDispatchDriver -550 OLE_VT_VOID
  439.     End_Procedure
  440.  
  441.     Procedure ComToday
  442.         Handle hDispatchDriver
  443.         Get phDispatchDriver to hDispatchDriver
  444.         Send InvokeComMethod to hDispatchDriver 30 OLE_VT_VOID
  445.     End_Procedure
  446.  
  447.     Procedure ComAboutBox
  448.         Handle hDispatchDriver
  449.         Get phDispatchDriver to hDispatchDriver
  450.         Send InvokeComMethod to hDispatchDriver -552 OLE_VT_VOID
  451.     End_Procedure
  452. End_Class
  453.  
  454. // CLSID: {8E27C92D-1264-101C-8A2F-040224009C02}
  455. // Event interface for Calendar control
  456. Class cComDCalendarEvents is a Mixin
  457.  
  458.     { MethodType=Event }
  459.     Procedure OnComClick
  460.     End_Procedure
  461.  
  462.     { MethodType=Event }
  463.     Procedure OnComDblClick
  464.     End_Procedure
  465.  
  466.     { MethodType=Event }
  467.     Procedure OnComKeyDown Short ByRef llKeyCode Short llShift
  468.     End_Procedure
  469.  
  470.     { MethodType=Event }
  471.     Procedure OnComKeyPress Short ByRef llKeyAscii
  472.     End_Procedure
  473.  
  474.     { MethodType=Event }
  475.     Procedure OnComKeyUp Short ByRef llKeyCode Short llShift
  476.     End_Procedure
  477.  
  478.     { MethodType=Event }
  479.     Procedure OnComBeforeUpdate Short ByRef llCancel
  480.     End_Procedure
  481.  
  482.     { MethodType=Event }
  483.     Procedure OnComAfterUpdate
  484.     End_Procedure
  485.  
  486.     { MethodType=Event }
  487.     Procedure OnComNewMonth
  488.     End_Procedure
  489.  
  490.     { MethodType=Event }
  491.     Procedure OnComNewYear
  492.     End_Procedure
  493.  
  494.     { Visibility=Private }
  495.     Procedure RegisterComEvents
  496.         Send RegisterComEvent -600 msg_OnComClick
  497.         Send RegisterComEvent -601 msg_OnComDblClick
  498.         Send RegisterComEvent -602 msg_OnComKeyDown
  499.         Send RegisterComEvent -603 msg_OnComKeyPress
  500.         Send RegisterComEvent -604 msg_OnComKeyUp
  501.         Send RegisterComEvent 2 msg_OnComBeforeUpdate
  502.         Send RegisterComEvent 1 msg_OnComAfterUpdate
  503.         Send RegisterComEvent 3 msg_OnComNewMonth
  504.         Send RegisterComEvent 4 msg_OnComNewYear
  505.     End_Procedure
  506. End_Class
  507.  
  508. // CoClass
  509. // ProgID: MSCAL.Calendar.7
  510. // CLSID: {8E27C92B-1264-101C-8A2F-040224009C02}
  511. // Calendar control
  512. { CLSID="{8E27C92B-1264-101C-8A2F-040224009C02}" }
  513. Class cComCalendar is a cComActiveXControl
  514.     Import_Class_Protocol cComICalendar
  515.     Import_Class_Protocol cComDCalendarEvents
  516.  
  517.     Procedure Construct_Object
  518.         Forward Send Construct_Object
  519.         Set psProgID to "{8E27C92B-1264-101C-8A2F-040224009C02}"
  520.         Set psEventId to "{8E27C92D-1264-101C-8A2F-040224009C02}"
  521.         Set peAutoCreate to acDeferredAutoCreate
  522.         //Connect the default bindable property
  523.         Send RegisterPropertyChangeEvent 12 msg_OnControlValueChanged
  524.     End_Procedure
  525.  
  526.     Function ControlValue Returns String
  527.         //Associate the default bindable property with Get Value
  528.         String retVal
  529.         Get ComValue to retVal
  530.         Function_Return retVal
  531.     End_Function
  532.  
  533.     Procedure Set ControlValue String sVal
  534.         //Associate the default bindable property with Set Value
  535.         Set ComValue to sVal
  536.     End_Procedure
  537. End_Class
  538.