Cor no Harbour diferente do Clipper .

[Ale SB]

Bom dia galera,
Nao estou conseguindo o fundo de tela do Verde escuro q esta em clipper no harbour, ta esquisito D+ a tela... alguem tem alguma sugestao ?

@ Linha++,00 say Replicate('°',80)

Clipper...

Harbour

VerdeHB.png (11.56 KiB) Exibido 1053 vezes

[Itamar M. Lins Jr.]

Ola!
Show the code to us! please!
Cadê o código pra gente fazer o teste ?
Qual é sua página de código ?
Só tem essa linha ai ?
@ say ?

Saudações,
Itamar M. Lins Jr.

[asimoes]

Esse replicate é que tá esquisito, que caracter é esse no replicate ?

[JoséQuintas]

Acho que nem adianta se preocupar com isso, dá diferença entre Windows, Linux, DOS, etc.

Em todo caso, estão aí os códigos do verde.

[Itamar M. Lins Jr.]

Ola!
Mas é isso mesmo, o programador precisa saber de qual tabela estamos falando.
Porquê no clipper só tem ASCII, no Harbour tem muito mais ISO...,UNICODE(UTF8)...
O padrão do clipper não é o ASCII sem acentos ?
Para resolver isso basta usar replicate(" ",80) color gb/gb... deixar um espaço vazio mesmo, sem usar nada da tabela ASCII.
Porque se deseja usar o mesmo do clipper precisa setar a tabela do clipper no Harbour... Tabela ASCII...
O Harbour aceita milhares de símbolos usando Unicode(UTF-8) cada idioma o CHR() vai retornar de acordo.
E com o ASCII é a mesma coisa o CHR irá retornar conforme a TABELA ASCII SETADA. PT-ISO, US, IT, FR,...
A dificuldade da minha parte é entender tudo isso ai. E ainda estou tentando entender mais, pois usando CGI tem o URLENCONDER/URLDECODER
na internet a " " barra de espaço é "%20" e por ai vai...

https://pt.wikipedia.org/wiki/Unicode

Publicado no livro The Unicode Standard[1],[2] o padrão consiste de pouco mais de 107 mil caracteres[3

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Pode olhar que a cor é a mesma, só que na tabela ASCII do clipper, é aquele simbolo, um quadradinho luminoso sem nada, e no Harbour está pegando outro CHR, aqueles chanfrados... mas a cor é a mesma, os simbolo que é diferente por causa da TABELA ASCII setada erroneamente, isso também detona os acentos do DBF, ai vem o uso do ANSITOOEM(), para normalizar na tela, GRAVA no DBF de uma FORMA e quer exibir no monitor de OUTRA forma...

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Código: Selecionar todos

# include "inkey.ch"

PROCEDURE Main()

   LOCAL nCont

   SetMode( 25, 80 )
   FOR nCont = 0 TO 15
      SetColor( "7/" + Ltrim( Str( nCont ) ) )
      @ nCont, 0 CLEAR TO nCont, MaxCol()
   NEXT
   Inkey(0)

   RETURN

DOS/WVG/WVT

cores.png (10.01 KiB) Exibido 993 vezes