Alaska Software Inc. - Window with MaxSize in Windows 10 using Windows Key + Up/Down/Left/Right Arrow
Username: Password:
AuthorTopic: Window with MaxSize in Windows 10 using Windows Key + Up/Down/Left/Right Arrow
Joao GrenhasWindow with MaxSize in Windows 10 using Windows Key + Up/Down/Left/Right Arrow
on Tue, 30 May 2017 17:08:39 +0100
Hello all

I defined a window with maxSize (Code below compiled with version 2.00.779).
If i use the mouse and click on maximize button, the window goes to the left 
top of desktop. (normal behaviour)
If i use the mouse and click on normalize button, the window returns to the 
original position.

if i use the keyboard, and press [Windows Key] + [Up Arrow] to maximize and 
[Windows Key] + [Down Arrow] to restore,
in Windows 7 works fine, but in Windows 10 the [Windows Key] + [Up Arrow] 
works fine BUT [Windows Key] + [Down Arrow] doesn't.

Now, i can hide the maximize button, but if the user presses the [Windows 
Key] + [Left Arrow] gets the same result...

Does anyone knows about this and have a solution?

TIA and Best regards.


//================
#include "Appevent.ch"
//================
PROCEDURE AppSys()
RETURN
//==============
PROCEDURE Main()
  local nEvent, mp1, mp2, oXbp, oDlg

  oDlg := XbpDialog():new( AppDesktop(), , {417,305}, {600,400}, , .F.)
  oDlg:taskList := .T.
  oDlg:title := "Test"
  oDlg:maxSize := { 1024, 500 }
  oDlg:create()
  oDlg:show()
  SetAppFocus( oDlg )

  nEvent := xbe_None
  do while nEvent <> xbeP_Close
    nEvent := AppEvent( @mp1, @mp2, @oXbp )
    oXbp:handleEvent( nEvent, mp1, mp2 )
  enddo
RETURN