SendToBack

[Otto]

Hello,
is the a equivalent function to BringWindowToTop()
for SendToBack().
Thank you and best regards
Otto

[Antonio Linares]

Dear Otto,

You may use SetWindowPos() with the HWND_BOTTOM flag:

https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-setwindowpos

[Otto]

Dear Antonio
thank you.
I made following adds in the ItemPopupMenu of EasyReport.
Best regards
Otto

Code: Select all  Expand view

function SendToBack( hWnd )
    //HWND_BOTTOM
    SetWindowPos( hWnd,1,0,0,0,0,3)

RETURN nil

//----------------------------------------------------------------------------//


function ItemPopupMenu( oItem, nItem, nArea, nRow, nCol )

   local oMenu
   LOCAL cItemDef  := AllTrim( GetDataArea(  "Items",  AllTrim(STR(nItem,5)),, oER:aAreaIni[nArea] ))
   local oItemInfo := VRDItem():New( cItemDef )

   MENU oMenu POPUP
    MENUITEM "Send To Back" ACTION SendToBack( oItem:hWnd )
   
   MENUITEM GL("&BringWindowToTop") + chr(9) + GL("Ctrl+I") RESOURCE "B_EDIT" ;
      ACTION BringWindowToTop( oItem:hWnd )
   
   MENUITEM GL("&Item Properties") RESOURCE "PROPERTY" ;
      ACTION ItemProperties( nItem, nArea )

 

[Antonio Linares]

Dear Otto,

I may give you write access to the EasyReport repository so you can commit your changes directly to the repository

Please register on bitbucket (its free) and let me know your email there so I can give you developer rights.

many thanks