Module SigCjC_Print.pkg
1//==============================================================================
2// Project : SigCj - VDF Classes for Codejock
3// File : SigCjC_Print.pkg
4// Description : VDF Class for Codejock control
5//
6// Created by : Ian Smith
7// Revision : $Rev: $
8// $Date: $
9// $Author: $
10//
11// Requirements : Visual DataFlex 14.1
12// Codejock SuitePro - Version 13.4.2
13//
14// Copyright : (c) 2009 VDF SIG UK
15// Visual DataFlex Special Interest Group UK.
16// http://www.vdfsig.co.uk/
17// dev@vdfsig.co.uk
18//
19// This file is part of SigCj.
20//
21// SigCj is free software: you can redistribute it and/or modify
22// it under the terms of the GNU Lesser General Public License
23// as published by the Free Software Foundation, either version
24// 2.1 of the License, or (at your option) any later version.
25//
26// SigCj is distributed in the hope that it will be useful, but
27// WITHOUT ANY WARRANTY; without even the implied warranty of
28// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29// GNU Lesser General Public License for more details.
30//
31// If you have the complete SigCj workspace then a copy of the
32// GNU Lesser General Public License is in the Docs folder. If
33// not, see <http://www.gnu.org/licenses/>.
34//
35//==============================================================================
36
37Use FlexCOM20.pkg
38
39Class cSigCjComXtremePrinterInfo is a cComAutomationObject
40
41 { MethodType=Property DesignTime=False }
42 Function ComDeviceName Returns String
43 Handle hDispatchDriver
44 String retVal
45 Get phDispatchDriver to hDispatchDriver
46 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
47 Function_Return retVal
48 End_Function
49
50 { MethodType=Property DesignTime=False }
51 Function ComDriverName Returns String
52 Handle hDispatchDriver
53 String retVal
54 Get phDispatchDriver to hDispatchDriver
55 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
56 Function_Return retVal
57 End_Function
58
59 { MethodType=Property DesignTime=False }
60 Function ComPortName Returns String
61 Handle hDispatchDriver
62 String retVal
63 Get phDispatchDriver to hDispatchDriver
64 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
65 Function_Return retVal
66 End_Function
67End_Class
68
69Class cSigCjComXtremePrintPreviewOptions is a cComAutomationObject
70
71 { MethodType=Property DesignTime=False }
72 Function ComTitle Returns String
73 String retVal
74 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to retVal
75 Function_Return retVal
76 End_Function
77
78 { MethodType=Property DesignTime=False }
79 Procedure Set ComTitle String value
80 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to value
81 End_Procedure
82End_Class
83
84Class cSigCjComPrintPageHeaderFooter is a cComAutomationObject
85
86 { MethodType=Property DesignTime=False }
87 Function ComFont Returns Variant
88 Variant retVal
89 Get ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to retVal
90 Function_Return retVal
91 End_Function
92
93 { MethodType=Property DesignTime=False }
94 Procedure Set ComFont Variant value
95 Set ComProperty of (phDispatchDriver(Self)) -512 OLE_VT_DISPATCH to value
96 End_Procedure
97
98 { MethodType=Property DesignTime=False }
99 Function ComFormatString Returns String
100 String retVal
101 Get ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to retVal
102 Function_Return retVal
103 End_Function
104
105 { MethodType=Property DesignTime=False }
106 Procedure Set ComFormatString String value
107 Set ComProperty of (phDispatchDriver(Self)) 1 OLE_VT_BSTR to value
108 End_Procedure
109
110 { MethodType=Property DesignTime=False }
111 Function ComTextLeft Returns String
112 String retVal
113 Get ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to retVal
114 Function_Return retVal
115 End_Function
116
117 { MethodType=Property DesignTime=False }
118 Procedure Set ComTextLeft String value
119 Set ComProperty of (phDispatchDriver(Self)) 2 OLE_VT_BSTR to value
120 End_Procedure
121
122 { MethodType=Property DesignTime=False }
123 Function ComTextCenter Returns String
124 String retVal
125 Get ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_BSTR to retVal
126 Function_Return retVal
127 End_Function
128
129 { MethodType=Property DesignTime=False }
130 Procedure Set ComTextCenter String value
131 Set ComProperty of (phDispatchDriver(Self)) 3 OLE_VT_BSTR to value
132 End_Procedure
133
134 { MethodType=Property DesignTime=False }
135 Function ComTextRight Returns String
136 String retVal
137 Get ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BSTR to retVal
138 Function_Return retVal
139 End_Function
140
141 { MethodType=Property DesignTime=False }
142 Procedure Set ComTextRight String value
143 Set ComProperty of (phDispatchDriver(Self)) 4 OLE_VT_BSTR to value
144 End_Procedure
145
146 Procedure ComClear
147 Handle hDispatchDriver
148 Get phDispatchDriver to hDispatchDriver
149 Send InvokeComMethod to hDispatchDriver 50 OLE_VT_VOID
150 End_Procedure
151End_Class
152
153//==============================================================================
154//End of package - SigCjC_Print.pkg
155//==============================================================================
156