FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Some has to go...
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Some has to go...
Posted: Sat May 25, 2013 07:38 PM
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 !!! :-)
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Some has to go...
Posted: Sat May 25, 2013 08:03 PM

Very nice :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Some has to go...
Posted: Sat May 25, 2013 08:21 PM

thanks but the blink not run also...

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Some has to go...
Posted: Sat May 25, 2013 08:31 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Some has to go...
Posted: Sat May 25, 2013 09:11 PM
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 ...:-)

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 6
Joined: Tue Oct 09, 2012 09:59 AM
Re: Some has to go...
Posted: Sun May 26, 2013 06:25 AM

Very usefull Threat

Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Some has to go...
Posted: Mon May 27, 2013 06:48 AM

Maybe..

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: Some has to go...
Posted: Mon May 27, 2013 08:51 AM
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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 5
Joined: Tue Apr 09, 2013 07:37 PM
Re: Some has to go... TTF - DIGITAL-font
Posted: Mon May 27, 2013 01:55 PM
#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

//----------------------------------------------------------------------------//
Posts: 883
Joined: Tue Oct 11, 2005 11:57 AM
Re: Some has to go...
Posted: Mon May 27, 2013 02:03 PM

:lol::lol::lol::lol::lol:

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Some has to go...
Posted: Mon May 27, 2013 02:12 PM

Very Good

:D:D:D

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Some has to go...
Posted: Mon May 27, 2013 02:48 PM

The simpler the better ;-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Some has to go...
Posted: Mon May 27, 2013 03:14 PM
Uwe,
because...... I not use F O N T BUT I draw the letter by letter



as on the oldest ca-clipper
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Some has to go...
Posted: Mon May 27, 2013 03:27 PM

using fonts provides more possibilities and the code is much simpler

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Some has to go...
Posted: Mon May 27, 2013 04:04 PM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com