topic-38454

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Using special characters
Posted: Fri Feb 07, 2020 04:47 PM

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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Using special characters
Posted: Fri Feb 07, 2020 05:12 PM

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Using special characters
Posted: Fri Feb 07, 2020 05:33 PM

Thanks, but unfortunately it is not working.

I use this code :

Code (fw): Select all Collapse

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

If I save my PRG-file, it results into

Code (fw): Select all Collapse

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

And I don't understand why.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Using special characters
Posted: Fri Feb 07, 2020 05:44 PM

Look:

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

Regards.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Using special characters
Posted: Fri Feb 07, 2020 05:56 PM

Thanks a lot once again.

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

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Using special characters
Posted: Fri Feb 07, 2020 07:24 PM

Very strange.

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: Using special characters
Posted: Fri Feb 07, 2020 08:39 PM

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

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

FiveTech Support Forums

Continue the discussion