Function SetPaysToForm (id As Integer) As Integer
Dim i%
Dim Ret%

picfilename = ""
maj = 0
Ret = XasXMLDom("PROD" + CStr(id),"",0)
Ret = SetStyleToForm(id)


Ret = XasUserSetProperties(GridList, PROP_ALIGNEMENT, 2)

For i = 0 To 1
    Ret = XasUserSetProperties(LabMsg(i), PROP_ALIGNEMENT, 2)
    
Next i

Ret = XasUserSetProperties(Celframe(1), 130, 2)

Ret = LoadPix(UploadBtn, "fbupload")
Ret = XasUserSetProperties(UploadBtn, PROP_SUBMIT, 1)
Ret = XasUserSetProperties(PicBtn(7), PROP_URL, 10)


For i = 0 To 6
    
    Ret = XasUserSetProperties(PicBtn(i), PROP_URL, 1)
Next i


Ret = XasUserSetProperties(PicValid, PROP_SUBMIT, 1)
Ret = XasUserSetProperties(BtnOk, PROP_SUBMIT, 1)
For i = 0 To 8
    Ret = XasUserSetProperties(Celfond(i), PROP_BORDERWIDTH, 1)
    Ret = XasUserSetProperties(Celfond(i), 26, 1)
    Ret = XasUserSetProperties(Celfond(i), PROP_ALIGNEMENT, 2)
    Ret = XasUserSetProperties(Celfond(i), 130, 0)
Next i

Ret = XasUserSetProperties(Celfond(3), 211, "multipart/form-data")

Ret = XasUserSetProperties(txtFile, 205, "FILE")
  
For i = 0 To 8
    Ret = XasUserSetProperties(Cb(i), PROP_MAXLENGHT, 38)
    Cb(i).FontBold = False
Next i
For i = 0 To 33
    Lb(i).FontBold = False
Next i

 

Ret = XasUserSetProperties(FromDelete, PROP_URL, 1)
Ret = XasUserSetProperties(FromSubmit, PROP_URL, 1)

PicSite.Visible = False
For i = 0 To 3
    Ret = XasUserSetProperties(List1(i), PROP_BORDERWIDTH, 1)
    Ret = XasUserSetProperties(List1(i), PROP_MAXLENGHT, 38)
Next i
End Function