www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
DEFINE FONT oFontB NAME "3 of 9 barcode" SIZE 0, -30 OF oPrnCode: Select all
oPrn:CmSay( Fila, Columna, "número para el código de barras",oFontB )Code: Select all
#DEFINE HKEY_LOCAL_MACHINE (0x80000002)
/*------------------------------------------------------------------------------*/
Function CheckBarCode( lInstall )
/*------------------------------------------------------------------------------*/
/* Funcion principal para instalar el FONT 3of9Barcode en el sistema */
/*------------------------------------------------------------------------------*/
local cWinFontsFolder, cFontFile, oFontBarCode
local cKey, oReg
if lInstall == nil
lInstall := .t.
endif
cKey := "Software\Microsoft\Windows NT\CurrentVersion\Fonts"
oReg := TReg32():New( HKEY_LOCAL_MACHINE, cKey )
// need name of font to install here
cFontFile := oReg:Get( '3 of 9 Barcode (TrueType)' )
oReg:Close()
lIsBarcode := !empty( cFontFile )
if .not. lIsBarCode .and. lInstall
InstallBarCode()
cFontFile := oReg:Get( '3 of 9 Barcode (TrueType)' )
oReg:Close()
lIsBarcode := !empty( cFontFile )
endif
return( lIsBarcode)
/*------------------------------------------------------------------------------*/
STATIC Function InstallBarCode()
/*------------------------------------------------------------------------------*/
/* Funcion para instalar el FONT 3of9Barcode en el sistema */
/*------------------------------------------------------------------------------*/
local cWindowsDir
local oShellApplication
local oShell
local oShellFSO
local cFontFile
local cFontDir
local cWinFontsFolder
cWindowsDir := gete( "systemroot" )
oShell = CreateObject("Shell.Application")
oShellApplication := CreateObject( "Shell.Application" )
oShell := TOleAuto():New( "WScript.Shell" )
oShellFSO := TOleAuto():New( "Scripting.FileSystemObject" )
/* cFontDir := 'c:\jll1109\psitaconta\fonts' */
/* La carpeta origen del FONT en donde se ejecuta el programa + la */
/* carpeta "FONTS" */
cFontDir := cFilePath( GetModuleFileName( GetInstance() ) ) + "Fonts"
cFontFile := '3of9.ttf'
oNameSpace := oShellApplication:Namespace( cFontDir )
oFont := oNameSpace:ParseName( cFontFile )
oFont:InvokeVerb("Install")
Return NIL
Code: Select all
#include "Fivewin.ch"
Function Main()
local oWnd
local oBar
local oBtt1
local oBtt2
local oSay1
local oSay2
local oSay3
local oFontText1
local oFontBar
local oFontBar1
local cCode := "12345678"
DEFINE FONT oFontText1 NAME "Arial" SIZE 00, -36
DEFINE FONT oFontBar NAME "EAN-13" SIZE 00, -36
DEFINE FONT oFontBar1 NAME "EAN-13" SIZE 20, -36
DEFINE WINDOW oWnd FROM 0, 0 TO 660, 660 TITLE "Test" PIXEL
oWnd:SetFont( oFontText1 )
DEFINE BUTTONBAR oBar SIZE 48, 48 OF oWnd //2007
DEFINE BUTTON oBtt1 PROMPT "Salir" OF oBar ACTION oWnd:End() TOOLTIP "Salir" CENTER
oBtt1:nWidth := 96
//oBar:aControls[ 1 ]:nWidth := 96
@ 080, 100 SAY oSay1 PROMPT cCode PIXEL FONT oFontText1 SIZE 100, 40
@ 160, 100 SAY oSay2 PROMPT cCode PIXEL FONT oFontBar SIZE 200, 60
@ 240, 100 SAY oSay2 PROMPT cCode PIXEL FONT oFontBar1 SIZE 200, 60
ACTIVATE WINDOW oWnd
oFontText1:End()
oFontBar:End()
oFontBar1:End()
Return NIL
