PC Toledo

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

O que significa "MODO TEXTO" ?

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

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

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

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

Gracias

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.

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

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

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

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.