Issue 30980  —   $paintedfieldproperties increases height field with linespace

Status:   Solved in 10.2.01

Solution available in patch(es):      X704    G101

Description:

 Summary:
 $paintedfieldproperties increases height field with linespace.
 As a result fields placed below each other are not separated by the
 defined linespace. This results in thick lines for fields
 placed below each other.

 Environment:
 * Uniface: Uniface Nine
 * Operating System: Windows
 * Database: DBMS independent

 Symptoms
 $paintedfieldproperties increases height field with linespace.
 As a result fields placed below each other are not separated by the
 defined linespace. This results in thick lines for fields
 placed below each other.

 Example:

 Fields FIELD1 and FIELD2 can be placed below each other:

   variables
     string fieldlist , vfname
     numeric i1 , vxpos , vypos , vxsize , vysize
   endvariables

   fieldlist="FIELD1;FIELD2"

   ;-- set fieldprop for all fields

   i1=1
   while (i1 <= 2)
      getitem vfname,fieldlist,i1
      vxpos = 10
      vypos  =  i1 + 3
      vxsize =  40
      vysize = 1
      show
      call setfieldproperties(vfname,1,vxpos,vypos,vxsize,vysize)
      i1=i1+1
   endwhile

   ;-- The following entry can be used to place a field:

   entry setfieldproperties
   params
     string pfname:IN
     numeric poccnr:IN
     numeric pxpos:IN
     numeric pypos:IN
     numeric pxsize:IN
     numeric pysize:IN
   endparams
     putitem/id $paintedfieldproperties(pfname,poccnr),"xpos",pxpos
     putitem/id $paintedfieldproperties(pfname,poccnr),"ypos",pypos
     putitem/id $paintedfieldproperties(pfname,poccnr),"xsize",pxsize
     putitem/id $paintedfieldproperties(pfname,poccnr),"ysize",pysize
   end

 Expected behavior:

   Fields FIELD1 and FIELD2 placed below each other and vertically
   separated by linespace.

 Actual behavior:

   * Fields FIELD1 and FIELD2 placed below each other and their
     height increases with a line space.
   * Fields FIELD1 and FIELD2 are NOT vertically separated
     by a line space; Linespace loses its function.

Workaround:

 There is no known workaround for this problem.

Notes: