Class: | tsbaseform |
LPARAMETERS tcEntry LOCAL lcValue, ; lcEntry IF PCOUNT() = 0 lcEntry = thisform.Caption ELSE lcEntry = tcEntry ENDIF lcValue = ALLT(STR(MAX(thisform.Top, 0))) + ',' + ; ALLT(STR(MAX(thisform.Left, 0))) *-- Write the entry to the INI file =WritePrivStr("WindowPositions", lcEntry, ; lcValue, CURDIR() + INIFILE)