savewindowpos Method
Class: tstoolbar
Expand/Collapse source code of procedure savewindowpos Source Code
LOCAL lcValue

IF this.Docked
  lcValue = ALLT(STR(this.DockPosition))
ELSE
  lcValue = ALLT(STR(thisform.Top)) + ',' + ;
            ALLT(STR(thisform.Left))
ENDIF
=WritePrivStr("WindowPositions", this.Caption, ;
              lcValue, CURDIR() + INIFILE)