Lineas de texto BtnBmp

[servicomver]

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

[cnavarro]

Intenta poniendo la clausula OF <ownd> pero sobre todo cambia las dimensiones

Code: Select all

@ 10,10 BTNBMP oBMP PROMPT "Linea1"+CRLF+"Linea2" SIZE 180,80 OF oPanel PIXEL ACTION Msginfo("Aviso")
 

[karinha]

Se usa Resource:

Code: Select all

   REDEFINE BTNBMP oBtn PROMPT "Test" + CRLF + "BtnBmp" ID 102 OF oDlg CENTER
 

[servicomver]

Gracias 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

[cnavarro]

Prueba, aunque es muy muy raro que sea eso en lugar de CRLF pon + Chr( 13 ) + Chr( 10 ) +

[servicomver]

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 ?

[servicomver]

Pueden enviarme la clase más reciente de btnbmp ? No se por donde más buscarle, gracias

[cnavarro]

Qué version de Fw estás utilizando?

[carlos vargas]

intenta con esto y comentas.

Code: Select all

@ 10,400 BTNBMP oBMP PROMPT "Linea1\nLinea2" SIZE 180,80 OF oWnd PIXEL ACTION Msginfo("Aviso")
 

[karinha]

Mira en C:\FWH..\SAMPLES\BARFRMRC.PRG

Se no, actualizar su FiveWin.

Code: Select all

#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 nil
 

Saludos.

[servicomver]

Gracias 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

[nageswaragunupudi]

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

The prompt will be displayed in two lines, if you provide adequate height.
Increase the height of the button.
eg: SIZE 100,50

[nageswaragunupudi]

See this.
All the three buttons has the same prompt
"FIRST" + CRLF + "SECOND"

Code: Select all

#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