More Resource file data mining
Here’s some more code to mine the data in your resource file. There are more settings at various offsets in the Data. Can you figure them out?
_screen.FontName="Courier New" && monospace
SELECT PADR(name,20) as name,data from SET("Resource",1) WHERE id = "WINDMODIFY" ORDER BY 1 INTO CURSOR foo
SCAN
?PADR(name,20)
nVer=CTOBIN(SUBSTR(Data,3,2),"2rs")
IF nVer=9
??" Left ="+TRANSFORM(CTOBIN(SUBSTR(Data,13,4),"4rs"),"9999")
??" Top ="+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*1,4),"4rs"),"9999")
??" Right ="+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*2,4),"4rs"),"9999")
??" Bottom="+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*3,4),"4rs"),"9999")
?? " CursorStart="+ TRANSFORM(CTOBIN(SUBSTR(Data,29,4),"4rs"),"999999")
?? " CursorEnd="+ TRANSFORM(CTOBIN(SUBSTR(Data,29+4,4),"4rs"),"999999")
cBuf=SUBSTR(Data,53,64)
??" "+PADR(LEFT(cBuf,AT(CHR(0),cBuf)-1),12)
??" "+TRANSFORM(CTOBIN(SUBSTR(Data,118,2),"2rs"),"9999")
??" "+TRANSFORM(CTOBIN(SUBSTR(Data,120,4),"4rs"),"9999")
ENDIF
ENDSCAN
