Antonio tengo un problema con las libs que me enviaste.

[leandro]

Antonio, como raro yo molestando.

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

Code: Select all  Expand view  RUN

*************************************************************
*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]

[karinha]

Intente:

oDlg:Refresh()

[Antonio Linares]

Leandro,

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

[leandro]

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.

[Antonio Linares]

Leandro,

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

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

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

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

#pragma ENDDUMP