I have tried use Multithread to show a possible solution

   PROCEDURE Main
      LOCAL oThread := Thread():new()
      LOCAL AA
      CLS
      aa="Hello"
      oThread:start( "MYOperation" )        // thread executes code
      ? "Thread started"
      @ 2,1 SAY "THIS IS TEST" GET AA
      READ
      CLS
      ? "Performing some other tasks"
      WAIT "PRESS ANY KEY"
      oThread:QUIT( )        // thread

   RETURN

   PROCEDURE MYOperation
      LOCAL Tclock
      Tclock=TIME()   // I WANT SAVE LAST TO DISPLAY ONLY IF MODIFIED
      DO WHILE .T.
        IF Tclock<>TIME()
           Tclock=TIME()
           @ 0,72 SAY TIME()
        ENDIF
      ENDDO
   RETURN



2010/1/30 smu johnson <[email protected]>

> Hi...
>
> We used the FUNCKy CLOCK12 function back in the day, as it made putting a
> little clock that ticks up quite easily.  I think the Clipper Tools did
> something similar with SHOWTIME(), but it doesn't seem to be implemented in
> Harbour.  There is no HB_FUNC to it when grepping the sourcecode.
>
> >From Przemek's help with HB_IdleAdd, it seems you can manually build a
> clock
> using hb_dispoutat( 0, 72, time() ).  But maybe there is an easier little
> HB_CLOCK type thing hanging around that would take all the work out for me.
>
> Any hints greatly appreciated.
>
> --
> smu johnson <[email protected]>
> _______________________________________________
> Harbour-users mailing list (attachment size limit: 40KB)
> [email protected]
> http://lists.harbour-project.org/mailman/listinfo/harbour-users
>



-- 
Massimo Belgrano

Iscritto all'albo dei CTU presso il Tribunale di Novara per materia
Informatica
Delta Informatica S.r.l. (http://www.deltain.it/) (+39 0321 455962)
Analisi e sviluppo software per Lan e Web -  Consulenza informatica -
Formazione
_______________________________________________
Harbour-users mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour-users

Reply via email to