savewindowpos Method
Class: tsbaseform
Expand/Collapse source code of procedure savewindowpos Source Code
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)