GeMIS_WEB/GUI/incl/dlgenableobject.i

    DEF VAR wx          AS INT                      NO-UNDO.
    DEF VAR wy          AS INT                      NO-UNDO.
    DEF VAR MaxX        AS INT                      NO-UNDO.
    DEF VAR MaxY        AS INT                      NO-UNDO.
    DEF VAR xString     AS CHAR                     NO-UNDO.

    MaxX = {&WINDOW-NAME}:WIDTH-PIXELS.
    MaxY = {&WINDOW-NAME}:HEIGHT-PIXELS.

    RUN SUPER.

    wx   = (MaxX - FRAME {&FRAME-NAME}:WIDTH-PIXELS        ) / 2.
    wy   = (MaxY - (FRAME {&FRAME-NAME}:HEIGHT-PIXELS - 50)) / 2.

    IF wx < 0 THEN wx = 30.
    IF wy < 0 THEN wy = 30.
    
    FRAME {&FRAME-NAME}:X = wx.
    FRAME {&FRAME-NAME}:Y = wy.

    IF NOT sAktiv THEN RETURN.
    
    RUN FENSTER_TITEL ( INPUT FRAME {&FRAME-NAME}:HANDLE ) NO-ERROR.