BUTTON... TOOLTIP SIN BTNBMP [SOLUCIONADO]

[Ramón J.]

Hola a todos

Estoy tratando de poner un tooltip en un button sin bmp/png, pero no lo consigo.

He probado así:

@190,102 BUTTON "Ver petición" OF oDlg SIZE 43,10 PIXEL ACTION VERPETICION(CRUTA,CCODIGO,CAPUNTE);
TOOLTIP "Ver petición de reserva de denominación"

y con variable :
@190,102 BUTTON oBtn "Ver petición" OF oDlg SIZE 43,10 PIXEL ACTION VERPETICION(CRUTA,CCODIGO,CAPUNTE);
TOOLTIP "Ver petición de reserva de denominación"

Sé que con imagen se puede poner, pero sin ella no lo sé.

Por cierto, ¿https://wiki.fivetechsoft.com/ ya no funciona?

Saludos

[Antonio Linares]

Ramón,

El wiki lo hemos migrado a:

https://github.com/FiveTechSoft/FiveTech_wiki

[Ramón J.]

Gracias, Antonio

Un saludo

[karinha]

Code: Select all  Expand view

   @190,102 BUTTON oBtn "Ver petición" OF oDlg SIZE 43,10 PIXEL ;
      ACTION( VERPETICION( CRUTA, CCODIGO, CAPUNTE ) )

   oBtn:cToolTip := "Ver petición de reserva de denominación"
 

Regards, saludos.

[Ramón J.]

Gracias, João, pero así tampoco funcionaba. Lo he solucionado poniendo PROMPT. Así ya funciona.

Mira:

Code: Select all  Expand view

#include 'fivewin.ch'
#include 'ord.ch'

REQUEST DBFCDX
 
//----------------------------------------------------------------------------//

function Main()

  local oDlg, oFont, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5
 
  SET DATE ITALIAN
  SET CENTURY ON

  RDDSETDEFAULT( "DBFCDX" )

   SetBalloon( .T. )
   SkinButtons()
   
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
   
   DEFINE DIALOG oDlg FROM 3, 3 TO 33, 100  FONT oFont ;
      TITLE "Test tooltip button"

   @ 11, 10 BUTTON oBtn1 PROMPT "&New   " OF oDlg  SIZE 40, 12 ACTION MsgInfo("New")
   @ 11, 20 BUTTON oBtn2 PROMPT "&Edit  " OF oDlg SIZE 40, 12 ACTION MsgInfo("Edit")
   @ 11, 30 BUTTON oBtn3 PROMPT "&Delete" OF oDlg  SIZE 40, 12 ACTION MsgInfo("Delete")
   @ 11, 40 BUTTON oBtn4 PROMPT "&Print" OF oDlg SIZE 40, 12 ACTION MsgInfo("Print")
   @ 11, 50 BUTTON oBtn5 PROMPT "&Bye" OF oDlg SIZE 40, 12 ACTION (MsgInfo("Exit"),oDlg:End())

oBtn1:cTooltip:="New"
oBtn2:cTooltip:="Edit"
oBtn3:cTooltip:="Delete"
oBtn4:cTooltip:="Print"
oBtn5:cTooltip:="Exit"
 
 
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont

RETURN nil