PC Toledo

Developer, qual o código vc usou ? Desenhou os quadros digitando ALT + Chr(xxx) ? Meu problema está justamente nisso, desenhar os quadros e acentuar as telas.

Softwhouse escreveu:Developer, qual o código vc usou ? Desenhou os quadros digitando ALT + Chr(xxx) ?

#include "Box.ch"

Function Main()

   // Desenhar um Box com bordas simples, preenchido com espaços 
   DispBox( 0, 0, MaxRow(), MaxCol, B_SINGLE + Space( 1 ) )

   Inkey(0)

RETURN NIL

Softwhouse escreveu:Se opc retorna sempre 1 como vai saber quando a opção for 2 ?

If nOpc == 1
   RETURN .T.
Else
   RETURN .F.
Endif

DispBox
Displays a box on the screen.

Syntax

DispBox( <nTop>, <nLeft>, <nBottom>, <nRight>, ;
[<cnBoxString>] , [<cColor>] ) --> NIL
Arguments

<nTop> and <nLeft> : screen coordinates for the upper left corner of the DispBox()output

<nBottom> and <nRight> : screen coordinates for the lower right corner of the DispBox()output

<cnBoxString> : The appearance of the box to display can either be specified as numeric 1 (single line box), numeric 2 (double line box), or as a character string holding up to nine characters. The first eight characters define the border of the box while the ninth character is used to fill the box. #define constants to be used for <cnBoxString> are available in the BOX.CH #include file.

Pre-defined box strings for DispBox()

Constant Description
--------------- ----------------------------------------
B_SINGLE Single-line box
B_DOUBLE Double-line box
B_SINGLE_DOUBLE Single-line top, double-line sides
B_DOUBLE_SINGLE Double-line top, single-line sides

If no <cnBoxString> is specified, a single-line box is drawn. <cColor> : SetColor() compliant color string; default is the standard color of SetColor().

Return

DispBox() returns always NIL.

Description

The function DispBox() displays a box on the screen as specified with <cnBoxString>, using the standard color of SetColor() or <cColor>, if specified.

If a character string is used for <cnBoxString>, the first eight characters define the border of the box in clockwise direction, beginning with the upper left corner. An optional ninth character fills the area inside the box. Alternatively, a single character can be passed which is used to draw the entire box border. When the box is completely drawn, the cursor is positioned at the coordinates <nTop>+1 and <nLeft>+1, so that a subsequent DispOut() call starts displaying in the upper left corner of the box area.

Example

// The example demonstrates how characters are used to draw a box.
// Alphabetic characters define <cnBoxString> instead of characters
// holding graphic signs.

#include "Box.ch"

PROCEDURE Main
CLS
DispBox( 10,10,20,50, "AbCdEfGhi", "W+/R" )

Inkey(0)

DispBox( 10,10,20,50, B_DOUBLE + Space(1) )
DispOut( "Using #define constant" )

Não uso ALT, sendo que isso só funciona se você usar um editor de código em CP437 (EN) que não é o meu caso (exceto quando tenho que editar algum código antigo que foi feito naquele editor), então acabo tendo que usar CHR()

hbmk2 -find codepage


gtwvg.hbc (installed):
wvt_SetCodepage()

gtwvw.hbc (not installed):
wvw_SetCodepage()

xhb.hbc (installed):
hb_SetCodepage()

Harbour core (installed):
...

Sim, mas qual código usou ? Aquí configurei o Notepad++ p/ 8859-1 e no fonte coloquei REQUEST HB_CODEPAGE_PTISO e HB_SETCODEPAGE('PT_ISO') e não funcionou, configurei o Notepad++ para ANSI e também não deu certo.

B_DOUBLE 
CHR(199)
CHR(182)
CHR(179) 
CHR(209) 
CHR(207) 
CHR(197)

O Editor está configurado como?

No código fonte colocou o o que ?

REQUEST HB_CODEPAGE_PTISO
HB_CDPSELECT('PTISO')

Pode colocar seu código fonte ?/