Lineas de texto BtnBmp

Lineas de texto BtnBmp

Postby servicomver » Thu Feb 13, 2020 5:24 pm

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
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Lineas de texto BtnBmp

Postby cnavarro » Thu Feb 13, 2020 6:50 pm

Intenta poniendo la clausula OF <ownd> pero sobre todo cambia las dimensiones
Code: Select all  Expand view  RUN

@ 10,10 BTNBMP oBMP PROMPT "Linea1"+CRLF+"Linea2" SIZE 180,80 OF oPanel PIXEL ACTION Msginfo("Aviso")
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Lineas de texto BtnBmp

Postby karinha » Thu Feb 13, 2020 7:37 pm

Se usa Resource:

Code: Select all  Expand view  RUN

   REDEFINE BTNBMP oBtn PROMPT "Test" + CRLF + "BtnBmp" ID 102 OF oDlg CENTER
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7846
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Lineas de texto BtnBmp

Postby servicomver » Thu Feb 13, 2020 9:40 pm

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
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Lineas de texto BtnBmp

Postby cnavarro » Thu Feb 13, 2020 9:51 pm

Prueba, aunque es muy muy raro que sea eso en lugar de CRLF pon + Chr( 13 ) + Chr( 10 ) +
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Lineas de texto BtnBmp

Postby servicomver » Thu Feb 13, 2020 10:04 pm

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
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Lineas de texto BtnBmp

Postby servicomver » Fri Feb 14, 2020 1:38 am

Pueden enviarme la clase más reciente de btnbmp ? No se por donde más buscarle, gracias
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Lineas de texto BtnBmp

Postby cnavarro » Fri Feb 14, 2020 8:09 am

Qué version de Fw estás utilizando?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Lineas de texto BtnBmp

Postby carlos vargas » Fri Feb 14, 2020 6:45 pm

intenta con esto y comentas.
Code: Select all  Expand view  RUN

@ 10,400 BTNBMP oBMP PROMPT "Linea1\nLinea2" SIZE 180,80 OF oWnd PIXEL ACTION Msginfo("Aviso")
 
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: Lineas de texto BtnBmp

Postby karinha » Fri Feb 14, 2020 7:22 pm

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

Se no, actualizar su FiveWin.

Code: Select all  Expand view  RUN

#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7846
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Lineas de texto BtnBmp

Postby servicomver » Fri Feb 21, 2020 2:05 pm

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
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Lineas de texto BtnBmp

Postby nageswaragunupudi » Wed Feb 26, 2020 4:30 pm

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
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10663
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Lineas de texto BtnBmp

Postby nageswaragunupudi » Thu Feb 27, 2020 5:20 am

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

Code: Select all  Expand view  RUN
#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
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10663
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 85 guests