cForm::Init()

* setup persistent properties for form size/position

this.AddObject( "moPersistTop",    "PersistentReg", "Top",    "", "thisform" )
this.AddObject( "moPersistLeft",   "PersistentReg", "Left",   "", "thisform" )
if ( this.BorderStyle = 3 )
   local lnHeight, lnWidth

   lnHeight = this.Height  && test to make sure saved size is not smaller than current design size
   lnWidth = this.Width

   this.AddObject( "moPersistHeight", "PersistentReg", "Height", "", "thisform" )
   this.AddObject( "moPersistWidth",  "PersistentReg", "Width",  "", "thisform" )

   this.Height = max( this.Height, lnHeight )
   this.Width = max( this.Width, lnWidth )
endif

* 12-Aug-96 make sure persistent form position is still on screen

if ( this.Top > min( sysmetric( 2 ), _screen.Height ) )
   this.top = 0
endif
if ( this.Left > min( sysmetric( 1 ), _screen.Width ) )
   this.Left = 0
endif

this.Resize()