>**Save pos >IF USED("prefs") > cAlias=ALIAS() > > cline="" > > **save dock position > > cline=IIF(this.docked,"1","0") > cline=cline+";"+alltrim(str(this.dockposition)) > > **save screen position > cline=cline+";"+alltrim(str(this.top)) > cline=cline+";"+alltrim(str(this.left)) > cline=cline+";"+alltrim(str(this.height)) > cline=cline+";"+alltrim(str(this.width)) > > select prefs > replace toolbar with cline > tableupdate() > > select (cAlias) > >ENDIF >>
>**getpos >**restore screen position >cline="" > >cline=prefs.toolbar > >cdocked=SUBSTR(cline,1,AT(';',cline)-1) >cline=SUBSTR(cline,AT(';',cline)+1) > >cdockpos=SUBSTR(cline,1,AT(';',cline)-1) >cline=SUBSTR(cline,AT(';',cline)+1) >this.dock(val(cdockpos)) > >ctoppos=SUBSTR(cline,1,AT(';',cline)-1) >this.top=val(ctoppos) >cline=SUBSTR(cline,AT(';',cline)+1) > >cleftpos=SUBSTR(cline,1,AT(';',cline)-1) >this.left=val(cleftpos) >cline=SUBSTR(cline,AT(';',cline)+1) > >cheightpos=SUBSTR(cline,1,AT(';',cline)-1) >this.height=val(cheightpos) >cline=SUBSTR(cline,AT(';',cline)+1) > >cwidthpos=SUBSTR(cline,1,AT(';',cline)-1) >this.width=val(cwidthpos) >cline=SUBSTR(cline,AT(';',cline)+1) >