Using special characters

[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.

[karinha]

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=23861

[driessen]

Thanks, but unfortunately it is not working.

I use this code :

Code: Select all  Expand view  RUN

SPOOLLINE("╔" + REPLICATE("═",75) + "╗",oMarge)

If I save my PRG-file, it results into

Code: Select all  Expand view  RUN

SPOOLLINE("+" + REPLICATE("-",75) + "+",oMarge)

And I don't understand why.

[karinha]

Look:

https://vivaclipper.wordpress.com/2014/01/19/chr/

Regards.

[driessen]

Thanks a lot once again.

I already tried using the CHR()-function.
But the results is just the same.

[karinha]

Very strange.

Code: Select all  Expand view  RUN

// \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.

[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