Hola, esta vez requiero poner dos o tres lineas de texto en un BtnBmp:
@ 1,1 BTNBMP oBMP PROMPT "Linea1"+CRLF+"Linea2" SIZE 80,30 PIXEL ACTION Msginfo("Aviso")
Todo el texto lo pone en una sola linea, ya revise en el foro y no encuentro a que se deba que no separe las lineas, alguna idea ?
Ya lo probe en oWnd y oDlg
Gracias y saludos
@ 10,10 BTNBMP oBMP PROMPT "Linea1"+CRLF+"Linea2" SIZE 180,80 OF oPanel PIXEL ACTION Msginfo("Aviso")
REDEFINE BTNBMP oBtn PROMPT "Test" + CRLF + "BtnBmp" ID 102 OF oDlg CENTERGracias por contestar.
Ya intenté con las dos opciones pero no pone las dos lineas, tengo que modificar algo mas ?, o hacer alguna definición antes ?
no sale ningún error solo pone:
Linea1Linea2
y necesito que sea:
Linea 1
Linea 2
Gracias
Prueba, aunque es muy muy raro que sea eso en lugar de CRLF pon + Chr( 13 ) + Chr( 10 ) +
tampoco resulto con
@ 10,400 BTNBMP oBMP PROMPT "Linea1"+CHR(13)+CHR(10)+"Linea2" SIZE 180,80 OF oWnd PIXEL ACTION Msginfo("Aviso")
Alguna clase que deba tener mas actualizada ?
Pueden enviarme la clase más reciente de btnbmp ? No se por donde más buscarle, gracias
Qué version de Fw estás utilizando?
@ 10,400 BTNBMP oBMP PROMPT "Linea1\nLinea2" SIZE 180,80 OF oWnd PIXEL ACTION Msginfo("Aviso")#include "fivewin.ch"
REQUEST DBFCDX
function main()
local oDlg, oBar, oFont, oBrw, oBtn
USE CUSTOMER NEW SHARED VIA "DBFCDX"
SET ORDER TO TAG FIRST
GO TOP
// DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg RESOURCE "timbar" TITLE FWVERSION + " BUTTONBAR FROM RESOURCE : " + hb_compiler() // FONT oFont
REDEFINE BUTTONBAR oBar ID 100 OF oDlg 2007
DEFINE BUTTON OF oBar PROMPT "Add" FILE "..\bitmaps\32x32\new.bmp"
DEFINE BUTTON OF oBar PROMPT "Edit" FILE "..\bitmaps\32x32\edit.bmp"
DEFINE BUTTON OF oBar PROMPT "Delete" FILE "..\bitmaps\delete.bmp"
DEFINE BUTTON OF oBar PROMPT "Print" FILE "..\bitmaps\print32.bmp" GROUP
DEFINE BUTTON OF oBar PROMPT "Quit" FILE "..\bitmaps\32x32\exit.bmp" GROUP ACTION oDlg:End()
REDEFINE BTNBMP oBtn PROMPT "Test" + CRLF + "BtnBmp" ID 102 OF oDlg CENTER
REDEFINE XBROWSE oBrw ID 101 OF oDlg DATASOURCE Alias() ;
COLUMNS "Primeiro", "Segundo", "Terceito" FOOTERS
oBrw:lSeekBar := .t.
oBrw:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
ACTIVATE DIALOG oDlg CENTERED ON INIT oBrw:SetFocus()
// RELEASE FONT oFont
return nilGracias por contestar, efectivamente creo que mi fivewin ws el problema, estamos ya en proceso de actualización.
Será posible que eso ocasione que no pueda usar esta rutina ?
For r:=1 to 50
cr:=Alltrim(Str(r))
oBtn&cr:Hide()
..
...
Next
necesito ocultar 50 botones, cambiar prompt, etc
Gracias
servicomver wrote:Hola, esta vez requiero poner dos o tres lineas de texto en un BtnBmp:
@ 1,1 BTNBMP oBMP PROMPT "Linea1"+CRLF+"Linea2" SIZE 80,30 PIXEL ACTION Msginfo("Aviso")
Todo el texto lo pone en una sola linea, ya revise en el foro y no encuentro a que se deba que no separe las lineas, alguna idea ?
Ya lo probe en oWnd y oDlg
Gracias y saludos
#include "fivewin.ch"
function Main()
local oDlg, oFont, oBold, aBtn[ 3 ]
local cPrompt := "FIRST" + CRLF + "SECOND"
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-20 BOLD
DEFINE DIALOG oDlg SIZE 440,340 PIXEL TRUEPIXEL FONT oFont ;
TITLE "BTNBMP multi-line prompts"
@ 40, 40 BTNBMP aBtn[ 1 ] PROMPT cPrompt SIZE 140,30 PIXEL OF oDlg CENTER 2007
@ 100, 40 BTNBMP aBtn[ 2 ] PROMPT cPrompt SIZE 140,50 PIXEL OF oDlg CENTER 2007
@ 160, 40 BTNBMP aBtn[ 3 ] PROMPT cPrompt SIZE 140,50 PIXEL OF oDlg CENTER 2007
aBtn[ 3 ]:oFontBold := oBold
@ 40,220 SAY "SIZE 140,30" SIZE 200,30 PIXEL OF oDlg VCENTER
@ 100,220 SAY "SIZE 140,50" SIZE 200,50 PIXEL OF oDlg VCENTER
@ 160,220 SAY "oBtn:oFontBold := oBold" SIZE 200,50 PIXEL OF oDlg VCENTER
@ 250, 40 SAY "In all cases PROMPT is" + CRLF + ["FIRST" + CRLF + "SECOND"] ;
SIZE 360,50 PIXEL OF oDlg CENTER
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont, oBold
return nil