FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour SendToBack
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
SendToBack
Posted: Wed Jan 09, 2019 07:39 AM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: SendToBack
Posted: Wed Jan 09, 2019 08:47 AM
Dear Otto,

You may use SetWindowPos() with the HWND_BOTTOM flag:

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

Antonio Linares
www.fivetechsoft.com
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: SendToBack
Posted: Wed Jan 09, 2019 09:30 AM
Dear Antonio
thank you.
I made following adds in the ItemPopupMenu of EasyReport.
Best regards
Otto

Code (fw): Select all Collapse
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 )


Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: SendToBack
Posted: Wed Jan 09, 2019 09:39 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion