public function integer uf_save_grid_settings ();
int li_cnt,li_tot,li_rc
string ls_x,ls_width,ls_inifile,ls_value,ls_objects[],ls_rc
n_cst_string linv_string

// if grid style datawindow was not passed, then return
if this.object.datawindow.processing <>  "1 " then return - 1 
if ib_SaveLayout = false then return - 1 

ls_inifile = gnv_App.of_GetUserIniFile()
//создаем файл , если его не было
integer li_FileNum
li_FileNum = FileOpen(ls_inifile,LineMode!,Write!)
FileClose(li_FileNum)
//
// loop thru the objects on this datawindow.  For each column, text, and
// computed field, if it is visible, then save the x coordinate and width
// into the app ini file with the following settings:
//
//      section = dataobject
//      key = object name
//      value = x coordinate,width
//
ls_rc = this.Describe( "Datawindow.objects" )
li_tot = linv_string.of_parsetoarray(ls_rc, "~t" ,ls_objects)

FOR li_cnt =  1  to li_tot
  if this.Describe(ls_objects[li_cnt] +  ".visible" ) <>  "1 " then CONTINUE
  ls_rc = Lower(this.Describe(ls_objects[li_cnt] +  ".type" ))
  CHOOSE CASE ls_rc
    CASE  "column"  /*,"text"*/ , "compute" 
      ls_x = this.Describe(ls_objects[li_cnt] +  ".x" )
      ls_width = this.Describe(ls_objects[li_cnt] +  ".width" )
      ls_value = ls_x +  ","  + ls_width
		li_rc = &
SetProfileString(ls_inifile,this.dataobject,ls_objects[li_cnt],ls_value)
      if li_rc = - 1  then
        MessageBox( "SetProfileString" , "Could not save column"  + &
+  " information." ,Information!,Ok!)
      MessageBox( "dataobject" ,this.dataobject)
		MessageBox( "inifile" ,ls_inifile)
		MessageBox( "object" ,ls_objects[li_cnt])
		MessageBox( "inifile" ,ls_value)
        li_cnt = li_tot
      end if
   END CHOOSE
NEXT
return  1 

end function

public function integer uf_apply_grid_settings ();
int li_cnt,li_tot,li_pos,li_length
string ls_x,ls_width,ls_inifile,ls_value,ls_mod,ls_rc,ls_objects[]
string ls_obj,ls_invis
n_cst_inifile linv_ini
//для сортировки по x
datastore lds 
long ll_row , ll_rows , ll_cnt

ls_inifile = gnv_App.of_GetUserIniFile()

// if grid style datawindow was not passed, then return
if this.object.datawindow.processing <>  "1 " then return - 1 
if ib_SaveLayout = false then return - 1 

// get all the keys for the dataobject.  each key is the object name on the
// datawindow if the object is visible, then adjust the x coordinate and 
// width to the setting in the ini file
//
// the settings are stored in the app ini file with the following settings:
//
//      section = dataobject
//      key = column name
//      value = x coordinate,width
li_tot = linv_ini.of_GetKeys(ls_inifile,this.dataobject,ls_objects)
choose case li_tot
  case - 1 
    MessageBox( "GetKeys" , "File error. (-1 )",Information!,Ok!)
    return - 1 
  case - 2 
    //MessageBox( "GetKeys" , "INI file does not exist. (-2 )",Information!,Ok!)
    return - 1 
end choose

//создаем datastore: имя,x,w
lds = create datastore
lds.Create('release 5; datawindow() table(column=(type=' + & 
 'char(100) name=nm dbname="dummy1" ) column=(type=' + & 
  'number name=x dbname="dummy2" ) column=(type=' + & 
				'char(100) name=w dbname="dummy3" ))')

ls_mod =  ""
ls_invis = "  "
FOR li_cnt = 1  to li_tot
  ls_obj = ls_objects[li_cnt]
  if this.Describe(ls_obj + ".visible ") <> "  1  " then CONTINUE
  ls_value = ProfileString(ls_inifile,this.dataobject,ls_objects[li_cnt],"  ")
  
  // if no value found, do nothing
  if ls_value = "  " then CONTINUE
  li_pos = Pos(ls_value," , ")
  if li_pos <= 0  then CONTINUE
  ls_x = Left(ls_value,li_pos -  1 )
  li_length = Len(ls_value) - li_pos
  ls_width = Mid(ls_value,li_pos +  1 ,li_length)
  ls_invis = ls_invis + ls_obj + ".visible='0'  "
  ls_mod = ls_mod + ls_obj + " .x= " + ls_x + "   " + ls_obj &
+ " .width= " + ls_width + "   "

//запоминаем в datastore
ll_row = lds.InsertRow(0 )
lds.SetItem(ll_row,'nm',ls_obj)
lds.SetItem(ll_row,'x', Integer( ls_x ) )
lds.SetItem(ll_row,'w',ls_width)
NEXT

//скрываем все
ls_rc = this.Modify(ls_invis)

//сортируем lds по x
lds.SetSort("x A ")
lds.Sort()

//отображаем в нужном порядке и меняем ширину
ll_rows = lds.RowCount()
FOR ll_cnt = 1  to ll_rows
 ls_obj = lds.GetItemString(ll_cnt,'nm')
 ls_width = lds.GetItemString(ll_cnt,'w')
 ls_mod = ls_obj + ".visible='1'  "
 ls_mod = ls_mod + ls_obj + " .width= " + ls_width + "  "
 ls_rc = this.Modify(ls_mod)
 //SetPosition(ls_obj,'',True)
NEXT	

destroy lds

return  1 

end function