Produced by Araxis Merge on 5/15/2018 2:43:28 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src\XE8\508\Source | oleacc2.pas | Thu Mar 29 21:16:14 2018 UTC |
| 2 | CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src\XE8\508\Source | oleacc2.pas | Thu May 10 20:26:54 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 538 |
| Changed | 1 | 2 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | unit oleac c2; | |
| 2 | (********* ********** ********** ********** ********** ********** ********** ********* | |
| 3 | * WARNIN G * | |
| 4 | * ------ - * | |
| 5 | * The ty pes declar ed in this file were generated from data read from a * | |
| 6 | * Type L ibrary. Th en the fil e was manu ally clean ed up. Do not regene rate * | |
| 7 | * this f ile! * | |
| 8 | * * | |
| 9 | ********* ********** ********** ********** ********** ********** ********** *********) | |
| 10 | {$TYPEDADD RESS OFF} // Unit mu st be comp iled witho ut type-ch ecked poin ters. | |
| 11 | {$WARN SYM BOL_PLATFO RM OFF} | |
| 12 | {$WRITEABL ECONST ON} | |
| 13 | {$ DNS OPSETTER O N} | |
| 14 | ||
| 15 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 16 | // PASTLWT R : 1.2 | |
| 17 | // File ge nerated on 05/31/200 6 09:18:28 AM from T ype Librar y describe d below. | |
| 18 | ||
| 19 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 20 | // Type Li b: C:\WIND OWS\system 32\oleacc. dll (1) | |
| 21 | // LIBID: {1EA4DBF0- 3C3B-11CF- 810C-00AA0 0389B71} | |
| 22 | // LCID: 0 | |
| 23 | // Helpfil e: | |
| 24 | // HelpStr ing: | |
| 25 | // DepndLs t: | |
| 26 | // (1) v 2.0 stdole , (C:\WIND OWS\system 32\stdole2 .tlb) | |
| 27 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 28 | interface | |
| 29 | ||
| 30 | uses | |
| 31 | Windows, ActiveX, Classes, G raphics, O leServer, StdVCL, Va riants; | |
| 32 | ||
| 33 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 34 | // GUIDS d eclared in the TypeL ibrary. Fo llowing pr efixes are used: | |
| 35 | // Type Libraries : LIBI D_xxxx | |
| 36 | // CoCla sses : CLAS S_xxxx | |
| 37 | // DISPI nterfaces : DIID _xxxx | |
| 38 | // Non-D ISP interf aces: IID_ xxxx | |
| 39 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 40 | const | |
| 41 | // TypeL ibrary Maj or and min or version s | |
| 42 | Accessib ilityMajor Version = 1; | |
| 43 | Accessib ilityMinor Version = 1; | |
| 44 | ||
| 45 | LIBID_Ac cessibilit y: TGUID = '{1EA4 DBF0-3C3B- 11CF-810C- 00AA00389B 71}'; | |
| 46 | ||
| 47 | IID_IAcc essible: T GUID = '{6187 36E0-3C3D- 11CF-810C- 00AA00389B 71}'; | |
| 48 | IID_IAcc essibleHan dler: TGUI D = '{0302 2430-ABC4- 11D0-BDE2- 00AA001A19 53}'; | |
| 49 | IID_IAcc Identity: TGUID = '{7852 B78D-1CFD- 41C1-A615- 9C0C85960B 5F}'; | |
| 50 | IID_IAcc PropServer : TGUID = '{76C0 DBBB-15E0- 4E7B-B61B- 20EEEA2001 E0}'; | |
| 51 | IID_IAcc PropServic es: TGUID = '{6E26 E776-04F0- 495D-80E4- 3330352E31 69}'; | |
| 52 | CLASS_CA ccPropServ ices: TGUI D = '{B5F8 350B-0548- 48B1-A6EE- 88BD00B4A5 E7}'; | |
| 53 | ||
| 54 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 55 | // Declara tion of En umerations defined i n Type Lib rary | |
| 56 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 57 | // Constan ts for enu m AnnoScop e | |
| 58 | type | |
| 59 | AnnoScop e = TOleE num; | |
| 60 | MSAAPROP ID = TGUID ; | |
| 61 | PMSAAPRO PID = ^TGU ID; | |
| 62 | ||
| 63 | const | |
| 64 | ANNO_THI S = $00000 000; | |
| 65 | ANNO_CON TAINER = $ 00000001; | |
| 66 | ||
| 67 | type | |
| 68 | ||
| 69 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 70 | // Forward declarati on of type s defined in TypeLib rary | |
| 71 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 72 | IAccessi ble = interfa ce; | |
| 73 | IAccessi bleDisp = dispint erface; | |
| 74 | IAccessi bleHandler = interfa ce; | |
| 75 | IAccIden tity = interfa ce; | |
| 76 | IAccProp Server = interfa ce; | |
| 77 | IAccProp Services = interfa ce; | |
| 78 | ||
| 79 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 80 | // Declara tion of Co Classes de fined in T ype Librar y | |
| 81 | // (NOTE: Here we ma p each CoC lass to it s Default Interface) | |
| 82 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 83 | CAccProp Services = IAccPropS ervices; | |
| 84 | ||
| 85 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 86 | // Interfa ce: IAcces sible | |
| 87 | // Flags: (4432) Hidden Du al OleAuto mation Dis patchable | |
| 88 | // GUID: {61873 6E0-3C3D-1 1CF-810C-0 0AA00389B7 1} | |
| 89 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 90 | IAccessi ble = inte rface(IDis patch) | |
| 91 | ['{618 736E0-3C3D -11CF-810C -00AA00389 B71}'] | |
| 92 | functi on Get_acc Parent: ID ispatch; s afecall; | |
| 93 | functi on Get_acc ChildCount : Integer; safecall; | |
| 94 | functi on Get_acc Child(varC hild: OleV ariant): I Dispatch; safecall; | |
| 95 | functi on Get_acc Name(varCh ild: OleVa riant): Wi deString; safecall; | |
| 96 | functi on Get_acc Value(varC hild: OleV ariant): W ideString; safecall; | |
| 97 | functi on Get_acc Descriptio n(varChild : OleVaria nt): WideS tring; saf ecall; | |
| 98 | functi on Get_acc Role(varCh ild: OleVa riant): Ol eVariant; safecall; | |
| 99 | functi on Get_acc State(varC hild: OleV ariant): O leVariant; safecall; | |
| 100 | functi on Get_acc Help(varCh ild: OleVa riant): Wi deString; safecall; | |
| 101 | functi on Get_acc HelpTopic( out pszHel pFile: Wid eString; v arChild: O leVariant) : Integer; safecall; | |
| 102 | functi on Get_acc KeyboardSh ortcut(var Child: Ole Variant): WideString ; safecall ; | |
| 103 | functi on Get_acc Focus: Ole Variant; s afecall; | |
| 104 | functi on Get_acc Selection: OleVarian t; safecal l; | |
| 105 | functi on Get_acc DefaultAct ion(varChi ld: OleVar iant): Wid eString; s afecall; | |
| 106 | proced ure accSel ect(flagsS elect: Int eger; varC hild: OleV ariant); s afecall; | |
| 107 | proced ure accLoc ation(out pxLeft: In teger; out pyTop: In teger; out pcxWidth: Integer; | |
| 108 | out pcyHeight: Integer; varChild: OleVariant ); safecal l; | |
| 109 | functi on accNavi gate(navDi r: Integer ; varStart : OleVaria nt): OleVa riant; saf ecall; | |
| 110 | functi on accHitT est(xLeft: Integer; yTop: Inte ger): OleV ariant; sa fecall; | |
| 111 | proced ure accDoD efaultActi on(varChil d: OleVari ant); safe call; | |
| 112 | proced ure Set_ac cName(varC hild: OleV ariant; co nst pszNam e: WideStr ing); safe call; | |
| 113 | proced ure Set_ac cValue(var Child: Ole Variant; c onst pszVa lue: WideS tring); sa fecall; | |
| 114 | proper ty accPare nt: IDispa tch read G et_accPare nt; | |
| 115 | proper ty accChil dCount: In teger read Get_accCh ildCount; | |
| 116 | proper ty accChil d[varChild : OleVaria nt]: IDisp atch read Get_accChi ld; | |
| 117 | proper ty accName [varChild: OleVarian t]: WideSt ring read Get_accNam e write Se t_accName; | |
| 118 | proper ty accValu e[varChild : OleVaria nt]: WideS tring read Get_accVa lue write Set_accVal ue; | |
| 119 | proper ty accDesc ription[va rChild: Ol eVariant]: WideStrin g read Get _accDescri ption; | |
| 120 | proper ty accRole [varChild: OleVarian t]: OleVar iant read Get_accRol e; | |
| 121 | proper ty accStat e[varChild : OleVaria nt]: OleVa riant read Get_accSt ate; | |
| 122 | proper ty accHelp [varChild: OleVarian t]: WideSt ring read Get_accHel p; | |
| 123 | proper ty accHelp Topic[out pszHelpFil e: WideStr ing; varCh ild: OleVa riant]: In teger read Get_accHe lpTopic; | |
| 124 | proper ty accKeyb oardShortc ut[varChil d: OleVari ant]: Wide String rea d Get_accK eyboardSho rtcut; | |
| 125 | proper ty accFocu s: OleVari ant read G et_accFocu s; | |
| 126 | proper ty accSele ction: Ole Variant re ad Get_acc Selection; | |
| 127 | proper ty accDefa ultAction[ varChild: OleVariant ]: WideStr ing read G et_accDefa ultAction; | |
| 128 | end; | |
| 129 | ||
| 130 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 131 | // DispInt f: IAcces sibleDisp | |
| 132 | // Flags: (4432) Hidden Du al OleAuto mation Dis patchable | |
| 133 | // GUID: {61873 6E0-3C3D-1 1CF-810C-0 0AA00389B7 1} | |
| 134 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 135 | IAccessi bleDisp = dispinterf ace | |
| 136 | ['{618 736E0-3C3D -11CF-810C -00AA00389 B71}'] | |
| 137 | proper ty accPare nt: IDispa tch readon ly dispid -5000; | |
| 138 | proper ty accChil dCount: In teger read only dispi d -5001; | |
| 139 | proper ty accChil d[varChild : OleVaria nt]: IDisp atch reado nly dispid -5002; | |
| 140 | proper ty accName [varChild: OleVarian t]: WideSt ring dispi d -5003; | |
| 141 | proper ty accValu e[varChild : OleVaria nt]: WideS tring disp id -5004; | |
| 142 | proper ty accDesc ription[va rChild: Ol eVariant]: WideStrin g readonly dispid -5 005; | |
| 143 | proper ty accRole [varChild: OleVarian t]: OleVar iant reado nly dispid -5006; | |
| 144 | proper ty accStat e[varChild : OleVaria nt]: OleVa riant read only dispi d -5007; | |
| 145 | proper ty accHelp [varChild: OleVarian t]: WideSt ring reado nly dispid -5008; | |
| 146 | proper ty accHelp Topic[out pszHelpFil e: WideStr ing; varCh ild: OleVa riant]: In teger read only dispi d -5009; | |
| 147 | proper ty accKeyb oardShortc ut[varChil d: OleVari ant]: Wide String rea donly disp id -5010; | |
| 148 | proper ty accFocu s: OleVari ant readon ly dispid -5011; | |
| 149 | proper ty accSele ction: Ole Variant re adonly dis pid -5012; | |
| 150 | proper ty accDefa ultAction[ varChild: OleVariant ]: WideStr ing readon ly dispid -5013; | |
| 151 | proced ure accSel ect(flagsS elect: Int eger; varC hild: OleV ariant); d ispid -501 4; | |
| 152 | proced ure accLoc ation(out pxLeft: In teger; out pyTop: In teger; out pcxWidth: Integer; | |
| 153 | out pcyHeight: Integer; varChild: OleVariant ); dispid -5015; | |
| 154 | functi on accNavi gate(navDi r: Integer ; varStart : OleVaria nt): OleVa riant; dis pid -5016; | |
| 155 | functi on accHitT est(xLeft: Integer; yTop: Inte ger): OleV ariant; di spid -5017 ; | |
| 156 | proced ure accDoD efaultActi on(varChil d: OleVari ant); disp id -5018; | |
| 157 | end; | |
| 158 | ||
| 159 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 160 | // Interfa ce: IAcces sibleHandl er | |
| 161 | // Flags: (272) Hidden Ole Automation | |
| 162 | // GUID: {03022 430-ABC4-1 1D0-BDE2-0 0AA001A195 3} | |
| 163 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 164 | IAccessi bleHandler = interfa ce(IUnknow n) | |
| 165 | ['{030 22430-ABC4 -11D0-BDE2 -00AA001A1 953}'] | |
| 166 | functi on Accessi bleObjectF romID(hwnd : Integer; lObjectID : Integer; | |
| 167 | out pIAccessib le: IAcces sible): HR esult; std call; | |
| 168 | end; | |
| 169 | ||
| 170 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 171 | // Interfa ce: IAccId entity | |
| 172 | // Flags: (0) | |
| 173 | // GUID: {7852B 78D-1CFD-4 1C1-A615-9 C0C85960B5 F} | |
| 174 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 175 | IAccIden tity = int erface(IUn known) | |
| 176 | ['{785 2B78D-1CFD -41C1-A615 -9C0C85960 B5F}'] | |
| 177 | functi on GetIden tityString (dwIDChild : LongWord ; out ppID String: PB yte; | |
| 178 | out pdwIDStrin gLen: Long Word): HRe sult; stdc all; | |
| 179 | end; | |
| 180 | ||
| 181 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 182 | // Interfa ce: IAccPr opServer | |
| 183 | // Flags: (0) | |
| 184 | // GUID: {76C0D BBB-15E0-4 E7B-B61B-2 0EEEA2001E 0} | |
| 185 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 186 | IAccProp Server = i nterface(I Unknown) | |
| 187 | ['{76C 0DBBB-15E0 -4E7B-B61B -20EEEA200 1E0}'] | |
| 188 | functi on GetProp Value(cons t pIDStrin g: PByte; dwIDString Len: LongW ord; idPro p: MSAAPRO PID; | |
| 189 | out pvarValue: OleVarian t; out pfH asProp: In teger): HR esult; std call; | |
| 190 | end; | |
| 191 | ||
| 192 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 193 | // Interfa ce: IAccPr opServices | |
| 194 | // Flags: (0) | |
| 195 | // GUID: {6E26E 776-04F0-4 95D-80E4-3 330352E316 9} | |
| 196 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 197 | IAccProp Services = interface (IUnknown) | |
| 198 | ['{6E2 6E776-04F0 -495D-80E4 -3330352E3 169}'] | |
| 199 | functi on SetProp Value(cons t pIDStrin g: PByte; dwIDString Len: LongW ord; idPro p: MSAAPRO PID; | |
| 200 | varV alue: OleV ariant): H Result; st dcall; | |
| 201 | functi on SetProp Server(con st pIDStri ng: PByte; dwIDStrin gLen: Long Word; paPr ops: PMSAA PROPID; | |
| 202 | cPro ps: SYSINT ; const pS erver: IAc cPropServe r; AnnoSco pe: AnnoSc ope): HRes ult; stdca ll; | |
| 203 | functi on ClearPr ops(const pIDString: PByte; dw IDStringLe n: LongWor d; paProps : PMSAAPRO PID; | |
| 204 | cPro ps: SYSINT ): HResult ; stdcall; | |
| 205 | functi on SetHwnd Prop(hwnd: HWND; idO bject: Lon gWord; idC hild: Long Word; | |
| 206 | idPr op: MSAAPR OPID; varV alue: OleV ariant): H Result; st dcall; | |
| 207 | functi on SetHwnd PropStr(hw nd: HWND; idObject: LongWord; idChild: L ongWord; | |
| 208 | idPr op: MSAAPR OPID; str: PWideChar ): HResult ; stdcall; | |
| 209 | functi on SetHwnd PropServer (hwnd: HWN D; idObjec t: LongWor d; idChild : LongWord ; | |
| 210 | paPr ops: PMSAA PROPID; cP rops: SYSI NT; const pServer: I AccPropSer ver; | |
| 211 | Anno Scope: Ann oScope): H Result; st dcall; | |
| 212 | functi on ClearHw ndProps(hw nd: HWND; idObject: LongWord; idChild: L ongWord; | |
| 213 | paPr ops: PMSAA PROPID; cP rops: SYSI NT): HResu lt; stdcal l; | |
| 214 | functi on Compose HwndIdenti tyString(h wnd: HWND; idObject: LongWord; idChild: LongWord; | |
| 215 | out ppIDString : PByte; o ut pdwIDSt ringLen: L ongWord): HResult; s tdcall; | |
| 216 | functi on Decompo seHwndIden tityString (const pID String: PB yte; dwIDS tringLen: LongWord; | |
| 217 | out phwnd: HWN D; out pid Object: Lo ngWord; ou t pidChild : LongWord ): HResult ; stdcall; | |
| 218 | functi on SetHmen uProp(hmen u: HMENU; idChild: L ongWord; i dProp: MSA APROPID; | |
| 219 | varV alue: OleV ariant): H Result; st dcall; | |
| 220 | functi on SetHmen uPropStr(h menu: HMEN U; idChild : LongWord ; idProp: MSAAPROPID ; | |
| 221 | str: PWideChar ): HResult ; stdcall; | |
| 222 | functi on SetHmen uPropServe r(hmenu: H MENU; idCh ild: LongW ord; paPro ps: PMSAAP ROPID; | |
| 223 | cPro ps: SYSINT ; const pS erver: IAc cPropServe r; AnnoSco pe: AnnoSc ope): HRes ult; stdca ll; | |
| 224 | functi on ClearHm enuProps(h menu: HMEN U; idChild : LongWord ; paProps: PMSAAPROP ID; | |
| 225 | cPro ps: SYSINT ): HResult ; stdcall; | |
| 226 | functi on Compose HmenuIdent ityString( hmenu: HME NU; idChil d: LongWor d; | |
| 227 | out ppIDString : PByte; o ut pdwIDSt ringLen: L ongWord): HResult; s tdcall; | |
| 228 | functi on Decompo seHmenuIde ntityStrin g(const pI DString: P Byte; dwID StringLen: LongWord; | |
| 229 | out phmenu: HM ENU; out p idChild: L ongWord): HResult; s tdcall; | |
| 230 | end; | |
| 231 | ||
| 232 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 233 | // The Cla ss CoCAccP ropService s provides a Create and Create Remote met hod to | |
| 234 | // create instances of the def ault inter face IAccP ropService s exposed by | |
| 235 | // the CoC lass CAccP ropService s. The fun ctions are intended to be used by | |
| 236 | // clients wishing t o automate the CoCla ss objects exposed b y the | |
| 237 | // server of this ty pelibrary. | |
| 238 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 239 | CoCAccPr opServices = class | |
| 240 | class function C reate: IAc cPropServi ces; | |
| 241 | class function C reateRemot e(const Ma chineName: string): IAccPropSe rvices; | |
| 242 | end; | |
| 243 | ||
| 244 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 245 | // Functio n definiti ons | |
| 246 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 247 | ||
| 248 | function A ccessibleO bjectFromW indow(hwnd : HWND; dw ObjectID: DWORD; | |
| 249 | const ri id: TGUID; out ppvOb ject: IAcc essible): HResult; s tdcall; | |
| 250 | external 'OLEACC.D LL' name ' Accessible ObjectFrom Window'; | |
| 251 | ||
| 252 | function A ccessibleO bjectFromP oint(pt: t agPOINT; o ut ppvObje ct: IAcces sible; | |
| 253 | out v1: Variant): HResult; s tdcall; | |
| 254 | external 'OLEACC.D LL' name ' Accessible ObjectFrom Point'; | |
| 255 | ||
| 256 | implementa tion | |
| 257 | ||
| 258 | uses ComOb j; | |
| 259 | ||
| 260 | class func tion CoCAc cPropServi ces.Create : IAccProp Services; | |
| 261 | begin | |
| 262 | Result : = CreateCo mObject(CL ASS_CAccPr opServices ) as IAccP ropService s; | |
| 263 | end; | |
| 264 | ||
| 265 | class func tion CoCAc cPropServi ces.Create Remote(con st Machine Name: stri ng): IAccP ropService s; | |
| 266 | begin | |
| 267 | Result : = CreateRe moteComObj ect(Machin eName, CLA SS_CAccPro pServices) as IAccPr opServices ; | |
| 268 | end; | |
| 269 | ||
| 270 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.