Font code128.ttf in fivewin!? Nobody knows?

[JC]

I have dowloaded the code128.ttf font at http://rapidshare.com/files/103780544/code128.ttf.html

This font works fine in windows on notepad.

How I can use this font in my object get into my fivewin application?

I tried with this code below, but don't fun!

Code: Select all  Expand view

REDEFINE GET oGet ID 4001 OF oDlg FONT ( TFont():new( "Code 128", 0, 13 ) )


Thanks!

[JC]

Nobody knows?

It's possible to implement this font in fivewin? How I can do?

[fafi]

How to test ?

Where is the font ?

I have dowloaded the code128.ttf font at http://freebarcodefonts.dobsonsw.com/#Code128

not found, it's not free

Regards
Fafi

[JC]

How to test ?

Where is the font ?

I have dowloaded the code128.ttf font at http://freebarcodefonts.dobsonsw.com/#Code128

not found, it's not free

Regards
Fafi

Sorry Fafi! I have posted with a new link to download at http://rapidshare.com/files/103780544/code128.ttf.html

[fafi]

Code: Select all  Expand view


#include "fivewin.ch"

function main()

cBarcode := spac(20)

define font oFont name "Code128bWinLarge" size 0,20

define dialog oDlg from 1,1 to 300,300 pixel

@2,2 say "Wawan Dahlan" FONT oFont of oDlg pixel

@30,2 get cBarcode size 100,40 of oDlg pixel font oFont

activate dialog oDlg

return nil


compiled by clipper and fivewin 1.92

Your problem is name of barcode installed not code 128 but "Code128bWinLarge"

REDEFINE GET oGet ID 4001 OF oDlg FONT ( TFont():new( "Code 128", 0, 13 ) )

Regards
Fafi

[JC]

Code: Select all  Expand view


#include "fivewin.ch"

function main()

cBarcode := spac(20)

define font oFont name "Code128bWinLarge" size 0,20

define dialog oDlg from 1,1 to 300,300 pixel

@2,2 say "Wawan Dahlan" FONT oFont of oDlg pixel

@30,2 get cBarcode size 100,40 of oDlg pixel font oFont

activate dialog oDlg

return nil


compiled by clipper and fivewin 1.92

Your problem is name of barcode installed not code 128 but "Code128bWinLarge"

REDEFINE GET oGet ID 4001 OF oDlg FONT ( TFont():new( "Code 128", 0, 13 ) )

Regards
Fafi

Fafi, how I can get the true name of font? Where is describe?
Thanks for help!

[fafi]

here :

http://rapidshare.com/files/103785276/f ... t.zip.html

or barlib from Mr. Enrico
http://rapidshare.com/files/103786232/BarLib.rar.html

regards
fafi

[JC]

here :

http://rapidshare.com/files/103785276/f ... t.zip.html

or barlib from Mr. Enrico
http://rapidshare.com/files/103786232/BarLib.rar.html

regards
fafi

Thanks Fafi! It's works very fine!
Thanks very much!

[JC]

here :

http://rapidshare.com/files/103785276/f ... t.zip.html

or barlib from Mr. Enrico
http://rapidshare.com/files/103786232/BarLib.rar.html

regards
fafi

Fafi, with this lib Barlib, I can print the barcode... but, I want to show this same code into a dialog, for example.... How another way to do it?

[Kleyber]

JC,

There is the VRDBCode which does what you want. Example:

In your dialog you define this way:

Code: Select all  Expand view

oFld:aDialogs[ 1 ]:bPainted = { | hDC | DrawTestBarcode( hDC, cCodBar ) }


And in the function DrawTestBarcode:

Code: Select all  Expand view

//----------------------------------------------------------------------------//
Static FUNCTION DrawTestBarcode( hDC,  cCodBar )
// Mostrar o código de barras na dialog
//----------------------------------------------------------------------------//

   LOCAL oBC3

   @ 266, 413 BARCODE oBC3 DEVICE hDC PROMPT cCodbar TYPE EAN13 SIZE 300, 45

   SHOWBARCODE oBC3

RETURN (.T.)

Is this what you need?

Regards,

[JC]

JC,

There is the VRDBCode which does what you want. Example:

In your dialog you define this way:

Code: Select all  Expand view

oFld:aDialogs[ 1 ]:bPainted = { | hDC | DrawTestBarcode( hDC, cCodBar ) }


And in the function DrawTestBarcode:

Code: Select all  Expand view

//----------------------------------------------------------------------------//
Static FUNCTION DrawTestBarcode( hDC,  cCodBar )
// Mostrar o código de barras na dialog
//----------------------------------------------------------------------------//

   LOCAL oBC3

   @ 266, 413 BARCODE oBC3 DEVICE hDC PROMPT cCodbar TYPE EAN13 SIZE 300, 45

   SHOWBARCODE oBC3

RETURN (.T.)

Is this what you need?

Regards,

Kleyber... I don't know! Send me a prg example for I'm testing!
Thanks

[ukoenig]

Hello,

I can give you the code as a matrix,
with that, you don't need a font.

May this help ?

Regards
Uwe

[JC]

Hello,

I can give you the code as a matrix,
with that, you don't need a font.

May this help ?

Regards
Uwe

Oh Yes Uwe!! This help me very much! It's independent!!
Please, send me!

PS.: if you have a barcode 2of5 interleaved... I need too!

[ukoenig]

Hello,

here is a sample of a new project
I choosed 128 AUTO
there are no installed fonts at all.
But there are more 128 ( AUTO, A, B and C )
What do you need ?



Regards

Uwe[/img]

[JC]

Hello,

here is a sample of a new project
I choosed 128 AUTO
there are no installed fonts at all.
But there are more 128 ( AUTO, A, B and C )
What do you need ?



Regards

Uwe[/img]

Really, I need two things for they codes ( EAN13, CODE39, CODE128 and INTER 2of5 ):


First: I need to draw the barcode in dialog or image on fly on change a get ( like when I using a windows ttf font into a object get )
Second: The possibility to printing this same barcode


Uwe, it's possible with your tool?