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
if ::lPaint3L .and. nCol> ::nWidth-::nHeight
SetCursor( LoadCursor( 0, 32642/*IDC_SIZENWSE*/ ) )
return nil
endifAnd at end of METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TMsgBar
if ::lPaint3L .and. nCol> ::nWidth-::nHeight
aPoint := { nRow, nCol }
aPoint := ClientToScreen(::hWnd,aPoint)
//*aPoint := ScreenToClient(::hWnd,aPoint)
SendMessage(::oWnd:hWnd, /*WM_SYSCOMMAND*/274, /*SC_SIZE|WMSZ_BOTTOMRIGHT*/0xF008, nMakeLong(aPoint[1],aPoint[2]))
endifIn this way if you click on gripper and move the window resizes.
Regards,
Antonino
