TMsgBar and Gripper
Posted: Mon Jun 29, 2015 2:04 pm
Hello,
I saw that TMsgBar draws the gripper, but does not manage it.
To do this add at end of METHOD MouseMove( nRow, nCol, nFlags ) CLASS TMsgBar
And at end of METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TMsgBar
In this way if you click on gripper and move the window resizes.
Regards,
Antonino
I saw that TMsgBar draws the gripper, but does not manage it.
To do this add at end of METHOD MouseMove( nRow, nCol, nFlags ) CLASS TMsgBar
Code: Select all
if ::lPaint3L .and. nCol> ::nWidth-::nHeight
SetCursor( LoadCursor( 0, 32642/*IDC_SIZENWSE*/ ) )
return nil
endif
Code: Select all
if ::lPaint3L .and. nCol> ::nWidth-::nHeight
aPoint := { nRow, nCol }
aPoint := ClientToScreen(::hWnd,aPoint)
//*aPoint := ScreenToClient(::oWnd:hWnd,aPoint)
SendMessage(::oWnd:hWnd, /*WM_SYSCOMMAND*/274, /*SC_SIZE|WMSZ_BOTTOMRIGHT*/0xF008, nMakeLong(aPoint[1],aPoint[2]))
endif
Regards,
Antonino