FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour button con 2 renglones
Posts: 41
Joined: Wed Sep 23, 2009 11:50 AM
button con 2 renglones
Posted: Fri May 14, 2010 01:04 AM
Buenas noches,

Estoy usando un button así:

Code (fw): Select all Collapse
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.
Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM
Re: button con 2 renglones
Posted: Fri May 14, 2010 01:40 AM

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.

Posts: 41
Joined: Wed Sep 23, 2009 11:50 AM
Re: button con 2 renglones
Posted: Fri May 14, 2010 02:45 AM

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.

Posts: 366
Joined: Wed Aug 30, 2006 05:25 PM
Re: button con 2 renglones
Posted: Fri May 14, 2010 02:56 AM

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

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82
Posts: 128
Joined: Wed Oct 26, 2005 12:18 PM
Re: button con 2 renglones
Posted: Fri May 14, 2010 02:02 PM

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().

Continue the discussion