Post by Walt Decker on Dec 27, 2022 17:03:41 GMT -5
MAPHANDLE
---------
SYNTAX: MAPHANDLE [FORMTAG] [DEVICETAG], NewTag$
PURPOSE: Rename a form or device. Once renamed the original is discarded.
WHY:
1) Reuse the same form and its controls without destroying other forms with the same form tag.
2) Use the multiple instances of the same device at the same time.
EXAMPLES:
FORMS:
'
With a little API magic you can make FormTitle$ the child of #1FORM or visa versa.
FILES:
'
---------
SYNTAX: MAPHANDLE [FORMTAG] [DEVICETAG], NewTag$
PURPOSE: Rename a form or device. Once renamed the original is discarded.
WHY:
1) Reuse the same form and its controls without destroying other forms with the same form tag.
2) Use the multiple instances of the same device at the same time.
EXAMPLES:
FORMS:
'
OPEN "MY FORM" FOR WINDOW AS #FORM
MAPHANDLE #FORM, "#1FORM"
OPEN "MY FORM2" FOR WINDOW AS #FORM
FormTitle$ = "#2FORM"
MAPHANDLE #FORM, FormTitle$
'With a little API magic you can make FormTitle$ the child of #1FORM or visa versa.
FILES:
'
SizeOf1 = 0
SizeOf2 = 0
T$ = "#OP1"
T2$ = "#OP2"
SizeOf1 = FN.OpenBin(DefaultDir$ + "My Data.TXT", T$)
SizeOf2 = FN.OpenBin(DefaultDir$ + "Copy Data.TXT", T2$
FUNCTION FN.OpenBin(FilePath$, Tag$)
NumBytes = 0
OPEN FilePath$ FOR BINARY AS #1
NumBytes = LOF(#1)
MAPHANDLE #1, Tag$
FN.OpenBin = NumBytes
END FUNCTION
'All or part of one file can be copied to the other; one can be compared with the other to determine if the are alike; and with a little imagination they can be parsed into arrays and sorted.
