Visor (numeros grandes)

Mensagem por **janio** » 02 Set 2017 15:46

Ola a todos,

Alguem teria uma função de VISOR, para mostrar NUMEROS GRANDES na tela, em modo texto?

Atualmente uso a função visor_22() que peguei no site toyanet, mas nao estou gostando muito dela.

Janio

Mensagem por **JoséQuintas** » 02 Set 2017 20:32

O que significa "MODO TEXTO" ?

Este é um modo texto da gtwvg, com algumas tranqueiras que inventei mas não uso.

Mensagem por **JoséQuintas** » 02 Set 2017 20:38

Faltou dizer:
Esse exemplo, tá aqui:

https://github.com/JoseQuintas/JoseQuin ... tgtwvg.prg

Não cheguei a fazer uso mais prático disso, mas faz parte do meu aplicativo, e da LIB JoseQuintas
Eu até poderia fazer uso disso diretamente no meu aplicativo, mas queria mais que isso primeiro.

tstgtwvg.prg
tst.rc
josequintas.hbc
-workdir=c:\temp
-w3
-es2
-strip
-compr

Mensagem por **JoséQuintas** » 02 Set 2017 20:44

Por exemplo retângulo nos gets, com o uso de SetPaintGetBox(), nem se compara a uma tela amadora que fiz em Visual Basic.

Ruben Dario · Mensagem por **Ruben Dario** » 03 Set 2017 11:01

Saludos
Descargue el JoseQuintas-master.zip, pero es posible descargar estos ejemplos, o falta

Gracias

Mensagem por **JoséQuintas** » 03 Set 2017 14:27

Conforme indicado em link anterior, está em samples\gtwvg

Convém alertar que o melhor resultado é com Harbour 3.4.

No 3.2 falta compatibilidade numérica, LoadImage() atualizado, por isso talvez nem tudo funcione com 3.2.

Ruben Dario · Mensagem por **Ruben Dario** » 03 Set 2017 17:35

Gracias.
tu tienes el link de donde descargar Harbour 3.4

ten actuamente Harbour 3.2 y bcc 73
y me da este error

C:\Temp\JoseQuintas-master\samples\gtwvg>hbmk2 tstwvg
hbmk2[tstwvg]: Advertencia: No se puede encontrar josequintas.hbc (referenciado
desde tstwvg.hbp)
Harbour 3.2.0dev (r1708250957)
Copyright (c) 1999-2016, http://harbour-project.org/
Compiling 'tstgtwvg.prg'...
tstgtwvg.prg(49) Warning W0001 Ambiguous reference 'WVG_IMAGE_ICONRESOURCE'
tstgtwvg.prg(57) Warning W0001 Ambiguous reference 'SBS_VERT'
tstgtwvg.prg(61) Warning W0001 Ambiguous reference 'SBS_HORZ'
tstgtwvg.prg(81) Warning W0001 Ambiguous reference 'BS_LEFTTEXT'
tstgtwvg.prg(120) Warning W0001 Ambiguous reference 'BS_LEFTTEXT'
tstgtwvg.prg(141) Warning W0001 Ambiguous reference 'ES_NUMBER'
tstgtwvg.prg(141) Warning W0001 Ambiguous reference 'ES_RIGHT'

No code generated.
hbmk2[tstwvg]: Error: Ejecutando compilador Harbour (interno): 1
(K:\HARBOUR_V\harbour_bcc73\BIN\harbour.exe) -n2 tstgtwvg.prg -w3 -es2 -oc:\temp\ -iK:\C_BCC\BCC73\Include -iK:\C_BCC\BCC73\Include\dinkumware -iK:\C_BCC\BCC73\Include\windows\crtl -iK:\C_BCC\BCC73\Include\windows\rtl -iK:\C_BCC\BCC73\Include\windows\sdk -iK:\HARBOUR_V\harbour_bcc73\include

Mensagem por **JoséQuintas** » 03 Set 2017 19:19

Não adicionou gtwvg.hbc

wvgparts.ch
#define WVG_IMAGE_ICONRESOURCE 2

wvtwin.ch
#define SBS_HORZ 0
#define SBS_VERT 1
#define BS_LEFTTEXT 0x00000020
#define ES_NUMBER 8192
#define ES_RIGHT 2

Em todo caso, vai precisar de mais 2 arquivos, caso não gere a LIB:

hbmk2 tstwvg.prg ..\source\ze_wvg*.prg gtwvg.hbc

Ruben Dario · Mensagem por **Ruben Dario** » 03 Set 2017 21:29

Te refieres a esta carpeta ..\JoseQuintas-master\samples\gtwvg a este archivo stgtwvg.prg No tstwvg.prg
hbmk2 tstgtwvg.prg ..\source\ze_wvg*.prg gtwvg.hbc

No me funciona

Le adiciono esto a stgtwvg.prg es lo que entiendo
wvgparts.ch
#define WVG_IMAGE_ICONRESOURCE 2

wvtwin.ch
#define SBS_HORZ 0
#define SBS_VERT 1
#define BS_LEFTTEXT 0x00000020
#define ES_NUMBER 8192
#define ES_RIGHT 2

Mensagem por **JoséQuintas** » 03 Set 2017 22:10

Não precisa.
Apenas mostrei aonde eles se encontram, GTWVG.HBC já adiciona tudo necessário referente à GTWVG.

Esse teste vai depender dos outros dois arquivos que contém *WVG*.PRG no nome, que estão dentro da pasta SOURCE
ze_wvgbutton.prg e ze_wvgtst.prg

Em samples está o programa teste, e em source estão esses fontes que criam os controles.

Eles usam API Windows, talvez algumas declarações no 3.2 tenham nome diferente do 3.4 no que se refere a #define

Existe o Harbour 3.4 pronto, mas não vém com o compilador C, não sei se é bem explicado na página aonde encontrar o compilador C.
É o mesmo endereço dos fontes do Harbour 3.4, só descer a página que vai encontrar o link do "snapshot", e como encontrar o compilador C.
https://github.com/vszakats/harbour-core

Nota:
O próprio GITHUB, com suas ferramentas adicionais, já gera a versão de download a cada alteração, então está sempre atualizado.
Em último caso, é gerar o Harbour a partir dos fontes, utilizando seu compilador C, mas não aceita Borland C.