1. Forum
  2. Usenet
  3. COMP.LANG.CLIPPER.VISUAL-

  • data dialog

    From aurora baccio@21:1/5 to All on Tue May 24 07:10:08 2022
    I have a requirement that a datadialog always be in the foreground. SetModal(true/false) doesn't work for me
    any advice ?
    thanks
    aurora kiss

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From D.J.W. van Kooten@21:1/5 to All on Tue May 24 20:36:51 2022
    Replying on message of Tue, 24 May 2022 07:10:08 -0700 (PDT) from
    aurora baccio:


    Hello aurora baccio,

    I have a requirement that a datadialog always be in the foreground. >SetModal(true/false) doesn't work for me

    You can try:

    SetForegroundWindow(SELF:Handle())

    We use this in a method called when someone clicks the trayicon we
    associated with that window so the window is opened to the foreground.
    For more permanent foreground positions you could use an Expose
    method.

    Dick

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Gerhard Bunzel@21:1/5 to All on Fri Jun 24 03:04:41 2022
    Hello aurora baccio,

    you can give your windows an order to show one of them always on top:
    SetWindowLong(MyWindow:Handle(), GWL_EXSTYLE, _OR(GetWindowLong(MyWindow:Handle(), GWL_EXSTYLE), WS_EX_TOPMOST))

    https://docs.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles


    or with SetWindowPos() https://docs.microsoft.com/de-DE/windows/win32/api/winuser/nf-winuser-setwindowpos


    HTH
    Gerhard

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From aurora baccio@21:1/5 to All on Tue Jul 12 07:06:03 2022
    Il giorno venerdì 24 giugno 2022 alle 12:04:44 UTC+2 Gerhard Bunzel ha scritto:
    Hello aurora baccio,

    you can give your windows an order to show one of them always on top: SetWindowLong(MyWindow:Handle(), GWL_EXSTYLE, _OR(GetWindowLong(MyWindow:Handle(), GWL_EXSTYLE), WS_EX_TOPMOST))

    https://docs.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles


    or with SetWindowPos() https://docs.microsoft.com/de-DE/windows/win32/api/winuser/nf-winuser-setwindowpos


    HTH
    Gerhard

    Good morning,
    sounds like the ideal command
    but if I type setwindowpos(HWND_TOP) I get an error like the parameters are wrong.
    Is it possible to have an example.
    It was placed in the postinit method
    thanks
    aurora baccio

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Jamal@21:1/5 to aurora baccio on Wed Jul 13 12:12:21 2022
    Did you read really the syntax for SetWindowPos() and what parameters
    are required?

    On 7/12/2022 10:06 AM, aurora baccio wrote:
    Il giorno venerdì 24 giugno 2022 alle 12:04:44 UTC+2 Gerhard Bunzel ha scritto:
    Hello aurora baccio,

    you can give your windows an order to show one of them always on top:
    SetWindowLong(MyWindow:Handle(), GWL_EXSTYLE, _OR(GetWindowLong(MyWindow:Handle(), GWL_EXSTYLE), WS_EX_TOPMOST))

    https://docs.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles >>

    or with SetWindowPos()
    https://docs.microsoft.com/de-DE/windows/win32/api/winuser/nf-winuser-setwindowpos


    HTH
    Gerhard

    Good morning,
    sounds like the ideal command
    but if I type setwindowpos(HWND_TOP) I get an error like the parameters are wrong.
    Is it possible to have an example.
    It was placed in the postinit method
    thanks
    aurora baccio

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Franz Rachbauer@21:1/5 to All on Thu Jul 14 14:47:53 2022
    SetWindowPos(SELF:Handle(),HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE)
    should do this
    Regards

    Am 12.07.2022 um 16:06 schrieb aurora baccio:
    Il giorno venerdì 24 giugno 2022 alle 12:04:44 UTC+2 Gerhard Bunzel ha scritto:
    Hello aurora baccio,

    you can give your windows an order to show one of them always on top:
    SetWindowLong(MyWindow:Handle(), GWL_EXSTYLE, _OR(GetWindowLong(MyWindow:Handle(), GWL_EXSTYLE), WS_EX_TOPMOST))

    https://docs.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles >>

    or with SetWindowPos()
    https://docs.microsoft.com/de-DE/windows/win32/api/winuser/nf-winuser-setwindowpos


    HTH
    Gerhard

    Good morning,
    sounds like the ideal command
    but if I type setwindowpos(HWND_TOP) I get an error like the parameters are wrong.
    Is it possible to have an example.
    It was placed in the postinit method
    thanks
    aurora baccio

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Alessandro Vacchiano@21:1/5 to All on Fri Jul 15 09:12:15 2022
    Ti rispondo in italiano così è più semplice. Crei una tua classe per esempio:

    CLASS MiaDialog INHERIT DataDialog


    METHOD Init(oOwner,oSource,nResourceID) CLASS MiaDialog

    IF SysObject():SettoModale // qualsiasi altra variabile o metodo per partire la finestra come dialog o window
    SELF:SymTipoClasse := #DATADIALOG
    ELSE
    SELF:SymTipoClasse := #DATAWINDOW
    ENDIF
    return self

    Poi crei il metodo activate:

    METHOD Activate(oE) CLASS MiaDialog

    IF SELF:SymTipoClasse == #DATADIALOG
    SUPER:Activate(oE)
    ELSE
    SendClass(SELF,#ACTIVATE,#DATAWINDOW,oE)
    ENDIF
    return nil

    In sostanza nelle init devi dirgli in qualche modo che la finestra si deve aprire modale.
    Puoi anche gestirti un campo personalizzato da passare come per es:

    METHOD Init(oOwner,oSource,nResourceID,Partomodale) CLASS MiaDialog





    Il giorno giovedì 14 luglio 2022 alle 14:48:03 UTC+2 Franz Rachbauer ha scritto:
    SetWindowPos(SELF:Handle(),HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE) should do this
    Regards
    Am 12.07.2022 um 16:06 schrieb aurora baccio:
    Il giorno venerdì 24 giugno 2022 alle 12:04:44 UTC+2 Gerhard Bunzel ha scritto:
    Hello aurora baccio,

    you can give your windows an order to show one of them always on top:
    SetWindowLong(MyWindow:Handle(), GWL_EXSTYLE, _OR(GetWindowLong(MyWindow:Handle(), GWL_EXSTYLE), WS_EX_TOPMOST))

    https://docs.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles


    or with SetWindowPos()
    https://docs.microsoft.com/de-DE/windows/win32/api/winuser/nf-winuser-setwindowpos


    HTH
    Gerhard

    Good morning,
    sounds like the ideal command
    but if I type setwindowpos(HWND_TOP) I get an error like the parameters are wrong.
    Is it possible to have an example.
    It was placed in the postinit method
    thanks
    aurora baccio

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From aurora baccio@21:1/5 to All on Sat Jul 23 06:47:50 2022
    Il giorno giovedì 14 luglio 2022 alle 14:48:03 UTC+2 Franz Rachbauer ha scritto:
    SetWindowPos(SELF:Handle(),HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE) should do this
    Regards
    Am 12.07.2022 um 16:06 schrieb aurora baccio:
    Il giorno venerdì 24 giugno 2022 alle 12:04:44 UTC+2 Gerhard Bunzel ha scritto:
    Hello aurora baccio,

    you can give your windows an order to show one of them always on top:
    SetWindowLong(MyWindow:Handle(), GWL_EXSTYLE, _OR(GetWindowLong(MyWindow:Handle(), GWL_EXSTYLE), WS_EX_TOPMOST))

    https://docs.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles


    or with SetWindowPos()
    https://docs.microsoft.com/de-DE/windows/win32/api/winuser/nf-winuser-setwindowpos


    HTH
    Gerhard

    Good morning,
    sounds like the ideal command
    but if I type setwindowpos(HWND_TOP) I get an error like the parameters are wrong.
    Is it possible to have an example.
    It was placed in the postinit method
    thanks
    aurora baccio

    Thank you,
    I would now like the possibility to disable setwindowpos because theq screen gets stuck and the application does not go on.
    aurora baccio

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)