subroutine CenterDB ( string: DialogName_SV ) is

 

integer DX DY OX OY

 

    copy (window xsize of desktop) to DX

    copy (window ysize of desktop) to DY

    copy xsize of DialogName_SV to OX

    copy ysize of DialogName_SV to OY

 

    change DialogName_SV position to

            ((DX/2) - (OX/2))

            ((DY/2) - (OY/2))