FiveTech Software tech support forums

Posted: **Tue Feb 21, 2006 7:17 pm**

Antonio, como raro yo molestando.

Tengo una inquitud con respecto a los dialogos con fondo, mira el codigo es el siguiente:

Code: Select all

*************************************************************
*cuadro de dialogo para verificación conexion con el servidor
*************************************************************
PROC Inicio()

DEFINE BRUSH oBrush RESOURCE "INICIO"
DEFINE DIALOG oDlg RESOURCE "Plano10" TRANSPARENT BRUSH oBrush OF oWinp
 oProgress = TProgress():Redefine( 4001, oDlg )
 REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE
 oProgress:SetRange( 0, 2 )
 oProgress:SetPos( 0 )
ACTIVATE DIALOG oDlg CENTERED ON PAINT verifica() VALID(oLamcla:vPPexit)

PROC verifica()
oProgress:SetRange( 0, 2 )
oProgress:SetPos( 0 )
oLamcla:vPPexit:=.F.

oLamcla:oServer := TMySQLServer():New( oLamcla:cHost,oLamcla:cUsuario,oLamcla:cPassword)
IF oLamcla:oServer:NetErr()
  oT1os1:Settext("No se Puede Extablecer Comunicación Con el Servidor")
  MSGINFO("No se PuedO Extablecer Comunicación Con el Servidor")
  QUIT
ELSE
  oT1os1:Settext("Verificando Conexion con servidor")
  oProgress:nPosition += 1
  IF !(oLamcla:oServer:DBExist(oLamcla:nDBdat))
    oT1os1:Settext("La base de Datos no existe")
    MSGINFO("La base de datos no existe,"+CRLF+"por favor informe al administrador: 6136913 Ext 114 "+CRLF+"Bogotá - Colombia")
    QUIT
  ELSE
    oProgress:nPosition += 1
    oT1os1:Settext("Fin del Proceso")
    oLamcla:vPPexit:=.T.
    INKEY(4)
    oDlg:update()
    oDlg:End()
  ENDIF
  oLamcla:oServer:SelectDB( oLamcla:nDBdat )
ENDIF

*CUANDO APLICO ESTA CLAUSULA LA PRIMERA VEZ SE CAMBIA Y QUEDA SUPER BIEN

oT1os1:Settext("No se Puede Extablecer Comunicación Con el Servidor")

*PERO CUANDO HAGO POR SEGUNDA VEZ

oT1os1:Settext("Fin del Proceso")

El primer texto no se borra si no que las letras quenda montadas unas sobre las otras.

Que me sugieres?

FWH 2.7 Diciembre + Xharbour
[/img]

Posted: **Tue Feb 21, 2006 9:03 pm**

Intente:

oDlg:Refresh()

Posted: **Wed Feb 22, 2006 9:21 am**

Leandro,

Es un bug que ya está solucionado. Envíame un email, gracias.

Posted: **Mon Feb 27, 2006 2:22 pm**

Antio cuando monte las libs y compile y genero el siguiente error?

Error: Unresolved external '_hb_dynsymSymbol' referenced from C:\FWH\LIB\FIVEHC.LIB|HARBOURC

Eso no me sucede con las anteriores.

FWH dic/05 + xharbour.

Posted: **Mon Feb 27, 2006 6:31 pm**

Leandro,

Añade esta función a tu aplicación:

Code: Select all

#pragma BEGINDUMP 

#include "hbapi.h" 
#include "hbapiitm.h" 

PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) 
{ 
return pDynSym->pSymbol; 
} 

#pragma ENDDUMP

FiveTech Software tech support forums

Antonio tengo un problema con las libs que me enviaste.

Antonio tengo un problema con las libs que me enviaste.

No funcionan?