FiveTech 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 !!!

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 ...

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

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



as on the oldest ca-clipper

@ 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 ?