borrado incompleto clase tdsay

[admsoporte]

A continuacion muestro una imagen donde se observa un efecto raro al utilizar la clase TDSAY y usar desplazamiento vertical



Aqui el codigo

Code: Select all  Expand view

static function facerca(oWnd)
// Funcion acerca de
  local oDLG, oFont
  local cVar := "Modulo de registro de asistencia"+CRLF+;
                "y Cumplimiento de horario de trabajo"+CRLF+;
                "de la Coordinacion de Reconstruccion"+CRLF+;
                "de Equipo Dinamico "+CRLF+;
                " "+CRLF+CRLF+CRLF+;
                "2018"+CRLF+CRLF+CRLF+CRLF+CRLF

  DEFINE FONT oFont NAME "Times new roman" SIZE 0, -17

  DEFINE DIALOG oDLG TITLE "Acerca de" WINDOW oWnd ;
         FROM 50, 50 TO 370, 370 PIXEL ;
         COLORS CLR_BLACK, CLR_YELLOW
     @ 5,5 DYNAMIC SAY cVar SIZE 150, 150 PIXEL OF oDLG;
                VERTICAL SCROLL SPEED 50 wrap ;
                CENTERED BOTTOM;
                FONT oFont
  ACTIVATE DIALOG oDLG center

  RELEASE FONT oFont

return nil

Alguien tendra idea de cual es el problema?

FWH1802,BCC7.3,Harbour 3.2.0dev