Page 1 of 1
Using special characters
Posted: Fri Feb 07, 2020 4:47 pm
by driessen
Hello,
I want to use special characters to draw rectangles.
For instance :
Alt-186 results into ║
Alt-201 results into ╔
Alt-202 results into ╩
Alt-205 results into ═
...
You can use Alt-179 until Alt-209 to draw all kinds of rectangles.
If I use it in my application, I got some signs like "+" or "è", etc.
Anyone any idea how to use these characters?
Thanks a lot for any help.
Re: Using special characters
Posted: Fri Feb 07, 2020 5:12 pm
by karinha
Re: Using special characters
Posted: Fri Feb 07, 2020 5:33 pm
by driessen
Thanks, but unfortunately it is not working.
I use this code :
Code: Select all
SPOOLLINE("╔" + REPLICATE("═",75) + "╗",oMarge)
If I save my PRG-file, it results into
Code: Select all
SPOOLLINE("+" + REPLICATE("-",75) + "+",oMarge)
And I don't understand why.
Re: Using special characters
Posted: Fri Feb 07, 2020 5:44 pm
by karinha
Re: Using special characters
Posted: Fri Feb 07, 2020 5:56 pm
by driessen
Thanks a lot once again.
I already tried using the CHR()-function.
But the results is just the same.
Re: Using special characters
Posted: Fri Feb 07, 2020 7:24 pm
by karinha
Very strange.
Code: Select all
// \samples\DRIESSEN.PRG
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oPrn, oFont
LOCAL nRowStep, nColStep
LOCAL nRow := 0, nCol := 0, n, m
PRINT oPrn NAME "Testing the CHR in printer" PREVIEW
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, - 12 OF oPrn
nRowStep = oPrn:nVertRes() / 20
nColStep = oPrn:nHorzRes() / 15
PAGE
oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" )
FOR n = 1 TO 20 // rows
nCol = 0
oPrn:Say( nRow, nCol, Str( n, 2 ), oFont )
nCol += nColStep
FOR m = 1 TO 15
// oPrn:Say( nRow, nCol, CHR(174), oFont ) // yes
// oPrn:Say( nRow, nCol, CHR(184), oFont ) // yes
// oPrn:Say( nRow, nCol, CHR(190), oFont ) // yes
// oPrn:Say( nRow, nCol, CHR(191), oFont ) // yes
oPrn:Say( nRow, nCol, CHR(172), oFont ) // yes
// oPrn:Say( nRow, nCol, CHR(212), oFont ) // no
nCol += nColStep
NEXT
nRow += nRowStep
NEXT
oPrn:Line( 0, 0, nRow, nCol )
ENDPAGE
ENDPRINT
oFont:End()
RETURN nil
Regards.
Re: Using special characters
Posted: Fri Feb 07, 2020 8:39 pm
by Cgallegoa
I think you should use AnsiToOem(). This is because the editor you use is in ANSI or Unicode, and the characters you want to write are CP850.
Regards