TMsgBar and Gripper

[AntoninoP]

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

Code: Select all  Expand view  RUN

  if ::lPaint3L .and. nCol> ::nWidth-::nHeight
      SetCursor( LoadCursor( 0, 32642/*IDC_SIZENWSE*/ ) )
      return nil
   endif

And at end of METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TMsgBar

Code: Select all  Expand view  RUN

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

In this way if you click on gripper and move the window resizes.
Regards,
Antonino

[Antonio Linares]

Antonino,

Very good!

Included for next FWH version, thanks!

[carlos vargas]

Antonio, ahora los dialogos, cuando tiene una msgbar ( esto no quiere decir que yo quiero que este dialogo se permita cambia su tamaño), son propensos a cambiar de tamaño,
y creo que no deberia ser asi, si nosotros explicitamente lo permitimos, creo que es mejor mantener la retrocompatibilidad
y agregar una data para permitir evaluar esta accion.


salu2
carlos vargas

[Antonio Linares]

Carlos,

Tienes toda la razón.

Estamos bastante ocupados con la implementación de unicode en FWH, lo revisaremos cuanto antes.

Te pido disculpas si no he podido atender tus cuestiones recientes, pero hemos tenido que hacer muchos cambios
para implementar el unicode y estamos enfocados en hacerlo con calma y hacerlo bien

[carlos vargas]

No hay problema antonio,
vere si puedo implementarlo yo mismo, en caso positivo te informare para que evalues si es posible implementarlo en fwh.

salu2
carlos vargas

[AntoninoP]

In this case don't add the gripper, it is a control for resizing.