Fix stadia connection - dataflex

stadiafix.src

Use Windows.pkg

Object oTest is a ModalPanel
    Set Location to 10 5
    Set Size to 20 61
    Set Label to "On the top"
    Set Window_Style WS_SYSMENU to False

    Object oButton1 is a Button
        Set Location to 3 4
        Set Label to 'close'
    
        // fires when the button is clicked
        Procedure OnClick
            Send Close_Panel
        End_Procedure
    End_Object
    
    Procedure set_on_top
        local Handle hwnd#
        local Integer swp#

        Move (FindWindow("DFDialogClass",label(Self))) to hwnd#
        Move (SetWindowPos(hwnd#, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE ior SWP_NOSIZE)) to swp#

    End_Procedure
    
    Procedure activating 
        Forward Send Activating 
        Send set_on_top
    End_Procedure
    
End_Object
Start_UI oTest