Page 1 of 1

Lineas de texto BtnBmp

Posted: Thu Feb 13, 2020 5:24 pm
by 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

Re: Lineas de texto BtnBmp

Posted: Thu Feb 13, 2020 6:50 pm
by 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")
 

Re: Lineas de texto BtnBmp

Posted: Thu Feb 13, 2020 7:37 pm
by karinha
Se usa Resource:

Code: Select all

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

Re: Lineas de texto BtnBmp

Posted: Thu Feb 13, 2020 9:40 pm
by 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

Re: Lineas de texto BtnBmp

Posted: Thu Feb 13, 2020 9:51 pm
by cnavarro
Prueba, aunque es muy muy raro que sea eso en lugar de CRLF pon + Chr( 13 ) + Chr( 10 ) +

Re: Lineas de texto BtnBmp

Posted: Thu Feb 13, 2020 10:04 pm
by 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 ?

Re: Lineas de texto BtnBmp

Posted: Fri Feb 14, 2020 1:38 am
by servicomver
Pueden enviarme la clase más reciente de btnbmp ? No se por donde más buscarle, gracias

Re: Lineas de texto BtnBmp

Posted: Fri Feb 14, 2020 8:09 am
by cnavarro
Qué version de Fw estás utilizando?

Re: Lineas de texto BtnBmp

Posted: Fri Feb 14, 2020 6:45 pm
by 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")
 

Re: Lineas de texto BtnBmp

Posted: Fri Feb 14, 2020 7:22 pm
by 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.

Re: Lineas de texto BtnBmp

Posted: Fri Feb 21, 2020 2:05 pm
by 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

Re: Lineas de texto BtnBmp

Posted: Wed Feb 26, 2020 4:30 pm
by nageswaragunupudi
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
The prompt will be displayed in two lines, if you provide adequate height.
Increase the height of the button.
eg: SIZE 100,50

Re: Lineas de texto BtnBmp

Posted: Thu Feb 27, 2020 5:20 am
by nageswaragunupudi
See this.
All the three buttons has the same prompt
"FIRST" + CRLF + "SECOND"
Image

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