FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Printing in Windows with FWH a la Clipper/MS-DOS style
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Fri May 02, 2008 03:15 AM

Hi All Friends:

One of the things most missed by me from Clipper was the printing syntax, so I decided some time ago to develop this class which now I share with you:

TClipPrt V.1.0 Class

Someting to remember the Clipper Printing Syntax. Fixed Spacing with Fixed spaced fonts or with proportional fonts when needed, and some xtras.

Your feedback will be welcome to make it better.

Here you are

http://www.box.net/shared/5ac0n9e88g

You can create the test program with BuildH.bat with Harbour or BuildX.bat with xHarbour.

Best regards.

Manuel Mercado

manuelmercado at prodigy dot net dot mx
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Fri May 02, 2008 08:18 AM

Manuel,

Thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Fri May 02, 2008 11:07 AM

thanks Manuel... :)

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Thu May 21, 2009 09:18 AM
Dear Mr.Manuel,

I am trying to use your class, but I am getting error when I compile the Sample TestClpr.Prg using the BuildX.Bat provide in the sample

The error is
Error: Unresolved external 'AlphaBlend' referenced from D:\FWH\LIB\FIVEHC.LIB|BRUSHES

I am using FWH 9.04 with xHarbour

Screen dumb of the Error

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Harbour 8.02 - Feb. 2008 Harbour development power │▄
│ (c) FiveTech, 1993-2008 for Microsoft Windows 95/98/NT/2000/ME/XP/Vista │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\Source\Classes\CliPrt.prg' and generating preprocessed output to '
..\Source\Classes\CliPrt.ppo'...
Lines 933, Functions/Procedures 18
Generating C source output to 'CliPrt.c'...
Done.
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TestClPr.prg' and generating preprocessed output to 'TestClPr.ppo'...

Lines 370, Functions/Procedures 13
Generating C source output to 'TestClPr.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
TestClPr.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CliPrt.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external 'AlphaBlend' referenced from D:\FWH\LIB\FIVEHC.LIB|BR
USHES
* There are errors

D:\TClipPrt\Samples>


This is the content of the Buildx.bat which came along with the CLASS. The only change which I have made is the FWH,xHarbour,BCC path. I have all these installed in my D: drive

Contents of BuildX.Bat
Code (fw): Select all Collapse
@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for Harbour 8.02 - Feb. 2008            Harbour development power  ³Ü
ECHO ³ (c) FiveTech, 1993-2008    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

ECHO Compiling...

set hdir=D:\xHarbour
set fwh=D:\FWH
set bcdir=D:\borland\bcc55

%hdir%\bin\harbour ..\Source\Classes\CliPrt /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > clip.log
%hdir%\bin\harbour TestClPr /n /i%fwh%\include;%hdir%\include /w /p %2 %3 >> clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -I%hdir%\include testclpr.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
echo -O2 -I%hdir%\include cliprt.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
:ENDCOMPILE

echo c0w32.obj + > b32.bc
echo testclpr.obj + >> b32.bc
echo cliprt.obj, + >> b32.bc
echo testclpr.exe, + >> b32.bc
echo testclpr.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib, >> b32.bc

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
testclpr
GOTO EXIT
ECHO

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG test does not exist

:EXIT


Am I doing anything wrong ? Do I have to include any other libraries ?

Regards
Anser
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Thu May 21, 2009 10:56 AM

Dear Mr.Manuel,

When I tried compiling the Samples with the FWH's BuildX.Bat the AlphaBlend Error is gone

Regards
Anser

Natter
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Thu May 21, 2009 11:02 AM

write to buildx.bat

set bcdir="C:\BCC55"

echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc

anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Thu May 21, 2009 11:26 AM
Thankyou Mr.Natter,

echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc

The Borland Lib msimg32.lib was missing in the BuildX.bat file and that was the reason for the error Unresolved Function AlphaBlend

Regards
Anser
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Thu May 21, 2009 03:58 PM
anserkk wrote:The Borland Lib msimg32.lib was missing in the BuildX.bat file and that was the reason for the error Unresolved Function AlphaBlend
Hi Anser:

Here you are Buildx.bat with the missing statement for msimg32.lib
Code (fw): Select all Collapse
@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for Harbour 8.02 - Feb. 2008            Harbour development power  ³Ü
ECHO ³ (c) FiveTech, 1993-2008    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

ECHO Compiling...

set hdir=c:\xHarbour
set fwh=c:\FWH
set bcdir=c:\bcc55

%hdir%\bin\harbour ..\Source\Classes\CliPrt /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > clip.log
%hdir%\bin\harbour TestClPr /n /i%fwh%\include;%hdir%\include /w /p %2 %3 >> clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -I%hdir%\include testclpr.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
echo -O2 -I%hdir%\include cliprt.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
:ENDCOMPILE

echo c0w32.obj + > b32.bc
echo testclpr.obj + >> b32.bc
echo cliprt.obj, + >> b32.bc
echo testclpr.exe, + >> b32.bc
echo testclpr.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib, >> b32.bc

%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
testclpr
GOTO EXIT
ECHO

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG test does not exist

:EXIT

Best regards.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Printing in Windows with FWH a la Clipper/MS-DOS style
Posted: Fri May 22, 2009 04:45 AM

Mr.Manuel,

Thank you. Your class is very good. Commands are similar to the old clipper print commands.

Regards
Anser

Continue the discussion

Static archive · New replies & topics via GitHub Discussions