Adjust size and placement of a form in Base

edit

Hello,

There are multiple problems with form size and screen placement. For reference, and further explanation of the problems, see answer in this post -> Open a Base Form in a window

Have since modified the routine to make the positioning optional.

Here is the main routine:

Sub Resize(iWidth,iHeight,Optional iXPos,Optional iYPos) As Integer
REM      This cleans up the dead space
    Dim vRect as Object
    If IsNull(thisComponent.currentController.Frame) then exit sub
    vRect = thisComponent.currentController.Frame.ContainerWindow.PosSize
    Wait 200
    If IsMissing(iXPos) Then iXPos=vRect.X
    If IsMissing(iYPos) Then iYPos=vRect.Y
    thisComponent.currentController.Frame.ContainerWindow.setPosSize(iXPos, iYPos, iWidth, iHeight, 15)
    Wait 200
    thisComponent.currentController.Frame.ContainerWindow.setPosSize(iXPos, iYPos, iWidth, iHeight, 15)
End Sub

Now each form, with its own settings, can use a call to this routine with:

Sub SetYOURFORM
    Resize(850,1330,295,0)
End Sub

I used your settings (you should double check these) in the example. This second sub is then attached to the Open Document event of the form.