enumeration of items

[Gintaras]

Macro Macro1782

Code:

Copy      Help

int w=win("Calculator")
Acc a.Find(w "WINDOW" "Calculator" "class=SciCalc" 0x1005)
;Acc a.Find(w "WINDOW" "Calculator" "class=CalcFrame" 0x1005) ;;Win7

ARRAY(Acc) b
int i
str data
str saveTo="$desktop$\Compare.txt"
str name; int role x y cx cy

a.GetChildObjects(b -1 "" "" "" 16|32)
for i 0 b.len
,role=b[i].Role
,name=b[i].Name
,b[i].Location(x y cx cy)
,
,data.formata(" %i : %i : %s : %i %i %i %i[]" i role name x y cx cy)
;out data

str savedData.getfile(saveTo); err
if data=savedData
,out "Same data"
else
,data.setfile(saveTo)
,out "Different data"

if need array for object properties
Macro Macro1781

Code:

Copy      Help

int w=win("Calculator")
Acc a.Find(w "WINDOW" "Calculator" "class=SciCalc" 0x1005)
;Acc a.Find(w "WINDOW" "Calculator" "class=CalcFrame" 0x1005) ;;Win7

ARRAY(Acc) b
type ACCPROPERTIES int'role str'name int'x int'y int'cx int'cy
ARRAY(ACCPROPERTIES) ap
int i
str data
str saveTo="$desktop$\Compare.txt"

a.GetChildObjects(b -1 "" "" "" 16|32)
for i 0 b.len
,ACCPROPERTIES& r=ap[]
,r.role=b[i].Role
,r.name=b[i].Name
,b[i].Location(r.x r.y r.cx r.cy)
,
,data.formata(" %i : %i : %s : %i %i %i %i[]" i r.role r.name r.x r.y r.cx r.cy)
;out data

str savedData.getfile(saveTo); err
if data=savedData
,out "Same data"
else
,data.setfile(saveTo)
,out "Different data"