ojo no me vale :
ownd:bPainted := { || ponBarstatus(oWnd), ownd:Say( 584,80 ,"FACTURA",,, , .T., .T. ) }
ya que el say inicialmente se presenta hide() y luego al pulsar un boton se muestra osay1:show().
Pongo el código resumido que da el problema :
- Code: Select all Expand view
#include "FiveWin.ch"
Function Main()
LOCAL ofont1
local osay1
local oWnd
DEFINE FONT oFont1 NAME "Arial" SIZE 0, -16 BOLD
DEFINE DIALOG oWnd TITLE "Gestion de Caja" SIZE 855, 600 TRANSPARENT
@284,80 Say osay1 PROMPT " Factura : " OF oWnd SIZE 35, 12 FONT oFont1 PIXEL TRANSPARENT
ACTIVATE DIALOG oWnd CENTERED ON PAINT ponBarstatus(oWnd)
ofont1:END()
return
Function ponBarstatus(oDlg,nalto,ncorrec )
local nHeight:= oDlg:nHeight
local acolor:={ { 0.40, nRGB( 200, 200, 200 ), nRGB( 184, 184, 184 ) },;
{ 0.60, nRGB( 184, 184, 184 ), nRGB( 150, 150, 150 ) } }
DEFAULT nalto := 72
DEFAULT ncorrec:= 0
nHeight:= nHeight+ncorrec
GradienTfill(oDlg:hDC,nHeight-(nalto-2),0,nHeight-20,oDlg:nwidth, aColor ,.t.)
WndBoxIn( odlg:hDc,nHeight-(nalto-1),0,nHeight-(nalto),oDlg:nwidth )
Return Nil