Dialogos con bordes redondeados

[JoseAlvarez]

Saludos Amigos integrantes del Foro. Gusto en Saludarlos de Nuevo. En esta oportunidad me gustaría saber si alguno tiene conocimiento de como hacer los dialogos con bordes redondeados en FW/XH para windows 8. Si alguien sabe hacerlo o si sabe donde puedo encontrar documentación al respecto estaría full agradecido. Un abrazo a todos.

[AngelSalom]

Hola, yo uso esta función :

Code: Select all  Expand view

// Redondear diálogo de entrada
static function RoundCorners( oDlg , nCuanto)

   local aRect, hRgn

   DEFAULT nCuanto:=25
   
   aRect       := GetClientRect( oDlg:hWnd )
   hRgn        := CreateRoundRectRgn( aRect, nCuanto, nCuanto)  // nCuanto es la 'profundidad' del redondeo
   SetWindowRgn( oDlg:hWnd, hRgn )
   DeleteObject( hRgn )

return nil

La llamas en el ON INIT del ACTIVATE DIALOG pasándole como parámetro el diálogo y la cantidad de "redondez" que quieres en los bordes, por defecto 25 y listos.

[Baxajaun]

Buenas noches,

yo uso lo siguiente, sacado, como no, de este foro

Code: Select all  Expand view

static function RoundCorners( oDlg )

   local aRect, hWnd, hRgn

   aRect       := GetClientRect( oDlg:hWnd )
   hRgn        := CreateRoundRectRgn( aRect, 40, 40 )
   SetWindowRgn( oDlg:hWnd, hRgn )
   DeleteObject( hRgn )

return nil


#pragma BEGINDUMP
#include "Windows.h"
#include <mapiwin.h>
#include "hbApi.h"

HB_FUNC( SETWINDOWRGN )
{
  hb_retnl( SetWindowRgn( ( HWND ) hb_parnl( 1 ), ( HRGN ) hb_parnl( 2 ), TRUE ) );
}

#pragma ENDDUMP

Desde esta líneas dar las gracias a su autor (no se quien es).

Saludos

 

[joseluisysturiz]

Probado y funciona perfecto...pero y si quisiera solo los bordes de abajo o solo los de arriba.? saludos...

[JoseAlvarez]

Excelente..!

Quiero agradecer a los usuarios AngelSalom y Baxajaun por la ayuda prestada.. funcionó de maravilla

Es un agrado el alto nivel de camaradería en el foro.

Un abrazo !!