printing "Strichlisten"

printing "Strichlisten"

Postby Otto » Sat Jan 06, 2018 2:31 pm

Hello,
Image
here we often use tallylists for recording. You make strokes lengthwise and then for 5 you draw a diagonal line on the four strokes.
This is how it works.
Here is a report I made with EasyReport.
Best regards,
Otto

Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6346
Joined: Fri Oct 07, 2005 7:07 pm

Re: printing "Strichlisten"

Postby Massimo Linossi » Sat Jan 06, 2018 3:58 pm

Really nice.
Many compliments.
User avatar
Massimo Linossi
 
Posts: 500
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: printing "Strichlisten"

Postby nageswaragunupudi » Sat Jan 06, 2018 4:17 pm

Very nice.
Please also explain how did you draw the lines.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10663
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: printing "Strichlisten"

Postby Silvio.Falconi » Sat Jan 06, 2018 4:45 pm

perhaps the beds ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm

Re: printing "Strichlisten"

Postby Otto » Sat Jan 06, 2018 6:10 pm

Hello,

there is not much code necessary.

For the strokes I use bitmaps.
This is the code:



Code: Select all  Expand view  RUN

PRINTAREA 4 OF oVRD ;
               ITEMIDS    {   30,40,50,60,70,10,20} ;
               ITEMVALUES {     ".\BMP8\Strokes\"+ALLTRIM( str(INT(nSumc30)))+".jpg",;
                                "
.\BMP8\Strokes\"+ALLTRIM( str(INT(nSumc40 )))+".jpg",;
                                "
.\BMP8\Strokes\"+ALLTRIM( str(INT(nSumc50 )))+".jpg",;
                                "
.\BMP8\Strokes\"+ALLTRIM( str(INT(nSumc60 )))+".jpg",;
                                "
.\BMP8\Strokes\"+ALLTRIM( str(INT(nSumc70 )))+".jpg",;
                                "
Summe","" }


Image


Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6346
Joined: Fri Oct 07, 2005 7:07 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 55 guests