FiveTech Software tech support forums

Damiano,

Try this:

#define BM_SETSTYLE 244

oDlg:bInit := { || oBtnBmp:SendMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 ) }

or

oDlg:bInit := { || oBtnBmp:PostMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 ) }

Saludos Karinha aqui la linea de programa : cPass:=space(10) REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@X" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() ) aqui el dialogo del recurso : CVINGPAS DIALOG FIXED IMPURE 101, 36, 298, 79 STYLE WS_...

... DIALOG 6, 19, 797, 426 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU CAPTION "Superteksten" FONT 8, "Arial" { DEFPUSHBUTTON "Einde", 900, 11, 402, 36, 14 DEFPUSHBUTTON "Edit", 350, 56, 402, 36, 14 PUSHBUTTON "Clear", 101, 440, 11, ...

Muy bien,

CONTROL "", 100, "Button", BS_BITMAP|BS_DEFPUSHBUTTON|WS_TABSTOP, 17, 20, 51, 41
CONTROL "", 101, "Button", BS_ICON|BS_DEFPUSHBUTTON|WS_TABSTOP, 77, 20, 51, 41

Solo deberias tener un botón BS_DEFPUSHBUTTON por caja de diálogo

El recurso es una DLL , uso Pelles C como editor, si lo paso a RC crea un RC que no se si es muy correcto, como ves he hecho varias pruebas como BITMAP como ICON como TEXT y no cambia el aspecto -------------------- OPCIONESG DIALOG FIXED IMPURE 127, -2, 200, 205 STYLE DS_MODALFRAME|DS_3DLOOK|WS_CAP...

... | WS_SYSMENU FONT 8, "MS Sans Serif" { EDITTEXT 110, 92, 18, 187, 12 EDITTEXT 120, 92, 35, 187, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP DEFPUSHBUTTON "&Aceptar", 998, 180, 61, 50, 15 PUSHBUTTON "&Cancelar", 999, 239, 61, 50, 15 GROUPBOX "&Acceso", ...

Amigo Euclides Junto o ficheiro RC necessário à compilação que ontem por erro não seguiu. /**************************************************************************** sdsa.rc produced by Borland Resource Workshop *****************************************************************************/ #define...

... 104, 97, 120, 9, BS_AUTOCHECKBOX | WS_TABSTOP CHECKBOX "&Palabras completas", 106, 104, 108, 120, 9, BS_AUTOCHECKBOX | WS_TABSTOP DEFPUSHBUTTON "Buscar &siguiente", 201, 355, 53, 62, 15 PUSHBUTTON "&Cancelar", 202, 355, 75, 62, 15 Best Regards Uwe :lol:

FWH 10.4 + XHARBOUR.COM + PELLES C Ayuda... de antemano gracias al grupo Tengo funcionando este archivo de recursos (ok), pero al agregarle un TXBROWSE, => CONTROL "Custom control", 4072, "txbrowse", 0x00000000, 12, 84, 660, 108 se genera el error listado al final // RESOURCE ...

Hi Bayron,

thank you for your tip.

I mean the "default pushbutton" (usually OK) in the dialog which is normally triggered by the RETURN-key.
In the Resource Builder (Resource Workshop) you can set BS_DEFPUSHBUTTON.
But how to, if the dialog is NOT defined from resource?

Hi,

how to set the default pushbutton (DEFPUSHBUTTON) triggered by VK_RETURN in a dialog NOT defined from resource?

... -1, 14, 4, 23, 8 EDITTEXT 110, 12, 14, 114, 12 LTEXT "&Address:", -1, 14, 30, 32, 8 EDITTEXT 120, 12, 41, 114, 12 DEFPUSHBUTTON "OK", IDOK, 14, 67, 50, 14 PUSHBUTTON "Cancel", IDCANCEL, 74, 67, 50, 14 } El cual muestra 2 opciones Continuar y ...

... -1, 14, 4, 23, 8 EDITTEXT 110, 12, 14, 114, 12 LTEXT "&Address:", -1, 14, 30, 32, 8 EDITTEXT 120, 12, 41, 114, 12 DEFPUSHBUTTON "OK", IDOK, 14, 67, 50, 14 PUSHBUTTON "Cancel", IDCANCEL, 74, 67, 50, 14 } El cual muestra 2 opciones Continuar y ...

Mario,

Comprueba si en el fichero RC has usado el tipo DEFPUSHBUTTON para ese botón.

En tal caso sería un botón de acción por defecto y su acción se ejecutaria al pulsar enter.

De ser asi tendrias que cambiarlo por PUSHBUTTON en el RC

...         CBS_LOWERCASE },;                     { "BS_PUSHBUTTON",           BS_PUSHBUTTON },;                       { "BS_DEFPUSHBUTTON",        BS_DEFPUSHBUTTON },;                       { "BS_CHECKBOX",             BS_CHECKBOX },;                       ...