button con 2 renglones

[rolitocere]

Buenas noches,

Estoy usando un button así:

Code: Select all  Expand view

Redefine Button oHoy Id 4001 of oDlg action ( Hoy := .T., oDlg:End() ) ;
         prompt "HOY"+chr(13)+dtoc(date())

De esta forma consigo que se vean dos renglones en el Button quedando como se ve en la imagen siguiente:



El problema se da cuando quiero hacer lo mismo pero con SkinButtons(), no se el motivo pero el botón aparece como puede verse en la siguiente imagen:



¿Tiene solución?

Gracias. Rolis.

[César E. Lozada]

Agregarle al style BS_MULTILINE y no poner CRLF, pues parte las líneas automáticamente.

En el rc hay que escribir:
#define BS_MULTILINE 0x2000

Saludos cordiales.

[rolitocere]

Cesar,

Precisamente lo que quiero es que la línea se parta saliento el texto del botón en dos renglones como se ve en la primer figura. Sin usar SkinButtons() sale como quiero yo pero en la segunda imagen se puede ver como sale (mal) cuando uso el SkinButtons() y eso es lo que quiero solucionar.

No uso RC, uso una DLL con los recursos.

¿Alguna otra sugerencia?

Gracias. Rolis.

[Ruben Fernandez]

Hola:

Tambien estoy interesado en esta solucion, si declaro el boton "multilinea" en el recurso
la doble linea la da el tamaño del boton y no es lo que necesito. Necesito que las 2 lineas del
prompt las decida yo.

Muchas gracias y espero tenga solucion.

Saludos
Ruben Fernandez

[César E. Lozada]

Listo... Para separar las líneas usar chr(10) en vez de CRLF (el cual es chr(13)+chr(10))

Si no usas rc:

include "Fivewin.ch"
#define BS_MULTILINE 0x2000
#define GWL_STYLE -16
Function Test()
Local oDlg, oBtn
DEFINE DIALOG oDlg RESNAME "DIALOG_1"
REDEFINE BUTTON oBtn ID 10 OF oDlg PROMPT "Esto"+chr(10)+"es"+chr(10)+"todo"

ACTIVATE DIALOG oDLg;
ON INIT SetWindowLong(oBtn:hWnd, GWL_STYLE, nOr(GetWindowLong(oBtn:hWnd, GWL_STYLE),BS_MULTILINE))
return nil

Lamentablemente no se puede cambiar el style si se ha usado SkinButtons().