HELP for a test with DSAY

[Silvio]

I must show on a control dsay the records from a archive

Code: Select all  Expand view

#include "fivewin.ch"
#include "Dsay.ch"


Function Test()
Local oWnd
Local oAnimation
lOCAL aItems

DEFINE FONT oFontanimation NAME "MS Sans Serif" SIZE 0,-36 BOLD
DEFINE WINDOW oWnd

          @ 10, 2 DYNAMIC SAY  oAnimation ;
                         FONT oFontanimation  ;
                         SIZE 700,100 PIXEL CENTERED COLOR CLR_GRAY, CLR_WHITE ;
                         VERTICAL SCROLL SPEED 50 WRAP OF oWnd


USE MESSAGGI ALIAS MESSAGGI

     MESSAGGI->(dbgotop())
     DO WHILE !Messaggi->(eof())
      //  aadd(aItems,("New message from "+STR(Messaggi->FROM)+" TO "+STR(Messaggi->TO)))
        oAnimation:SetText("New message from "+STR(Messaggi->FROM)+" TO "+STR(Messaggi->TO) )
        MESSAGGI->(dbskip())
     ENDDO



ACTIVATE WINDOW oWnd
RETURN NIL

But when I compile and execute this let me say settext error method why ?

[StefanHaupt]

Silvio,

you didn´t define a variable for the text of dsay

Try this

Code: Select all  Expand view

@ 10, 2 DYNAMIC SAY  oAnimation VAR cSay;
                         FONT oFontanimation  ;
                         SIZE 700,100 PIXEL CENTERED COLOR CLR_GRAY, CLR_WHITE ;
                         VERTICAL SCROLL SPEED 50 WRAP OF oWnd

[Silvio]

thanks I saw
but this is not the problem
I can show onlt the last record
But I want show all record or all record have the field "READ" = .F.

[Silvio]

FOUND THE SOLUTION!!!

Code: Select all  Expand view

#include "fivewin.ch"
#include "Dsay.ch"


Function Test()
Local oWnd
Local oAnimation
lOCAL aItems
Local  cSay:=""

DEFINE FONT oFontanimation NAME "MS Sans Serif" SIZE 0,-36 BOLD
DEFINE WINDOW oWnd

         @ 10, 2 DYNAMIC SAY  oAnimation VAR cSay;
                         FONT oFontanimation  ;
                         SIZE 700,100 PIXEL CENTERED COLOR CLR_GRAY, CLR_WHITE ;
                         VERTICAL SCROLL SPEED 50 WRAP OF oWnd

USE MESSAGGI ALIAS MESSAGGI

     MESSAGGI->(dbgotop())
     DO WHILE !Messaggi->(eof())
      //  aadd(aItems,("New message from "+STR(Messaggi->FROM)+" TO "+STR(Messaggi->TO)))

        csay += "New message from "+STR(Messaggi->FROM)+" TO "+STR(Messaggi->TO) +CRLF  +CRLF +CRLF

        MESSAGGI->(dbskip())

     ENDDO

       oAnimation:SetText(csay )


ACTIVATE WINDOW oWnd
RETURN NIL