Printing in Windows with FWH a la Clipper/MS-DOS style

[mmercado]

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

[Antonio Linares]

Manuel,

Thanks!

[MGA]

thanks Manuel...

[anserkk]

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: Select all  Expand view

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

Dear Mr.Manuel,

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

Regards
Anser

[Natter]

write to buildx.bat

set bcdir="C:\BCC55"

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

[anserkk]

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]

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: Select all  Expand view

@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

[anserkk]

Mr.Manuel,

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

Regards
Anser