FiveTech Software tech support forums

Someone has to go and take the train and go away?

Good, You must not forget to see the board timetable of trains departing made with Tled class





Good Week End to All !!!

Very nice

thanks but the blink not run also...

without its source code, there is little that I can do...

mhm....

While I'm thinking to where is the error... you can go to a Coffee Bar and take a hot cup of Coffee, don't forget to pay ....on cash register....

there is a ----Tled cash Register Tower ...

Very usefull Threat

Maybe..

Silvio,

why not using a TTF - DIGITAL-font ( just a style-sample ) ?
There a some different styles possible like :



Any style You like ( just a few )







Best Regards
Uwe

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

local oTmr, oSay, oFnt

DEFINE FONT oFnt NAME "Advanced Dot Digital-7" SIZE 0, -30

DEFINE WINDOW oWnd TITLE "Prueba"

@ 2, 2 SAY oSay PROMPT "Venezuela Caracas GM "+time() COLOR "GR+/W*" FONT oFnt SIZE 450, 150

DEFINE TIMER oTmr INTERVAL 700 ACTION ChangeColor( oSay ) OF oWnd

ACTIVATE TIMER oTmr

ACTIVATE WINDOW oWnd

oFnt:End()

return nil

//----------------------------------------------------------------------------//

function ChangeColor( oSay )

static lStatus := .F.
static lStatus1 := .F.

if lStatus
oSay:SetColor( "GR+/W*" )
else
oSay:SetColor( "b+/W*" )

endif

oSay:Refresh()
lStatus = ! lStatus
lStatus1 = ! lStatus

return nil

//----------------------------------------------------------------------------//

Very Good

The simpler the better

Uwe,
because...... I not use F O N T BUT I draw the letter by letter



as on the oldest ca-clipper

using fonts provides more possibilities and the code is much simpler

@ 10,10 LED oLed OF OWND ;
SIZE 400,80 ;
BORDER ;
BORDERCOLOR CLR_BLACK ;
BORDERLINE 2 ;
BACKCOLOR CLR_HRED ;
LEDON CLR_GREEN ;
LEDOFF CLR_WHITE ;
LEDSPACE 3 PIXEL

oLed:cTextLinea1:= "Antonio Linares"
oLed:cTextLinea2:= "from MARBELLA"

IT' ' NO EASY ?