GTWVG update

GTWVG com API Windows somente no Harbour.
No Harbouir 3.4 está sendo usado pointer, aonde no 3.2 é numérico.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20415
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

GTWVG update

Mensagem por JoséQuintas »

2019-01-14 12:18 UTC-0800 Pritpal Bedi (bedipritpal/at/hotmail.com)
* contrib/gtwvg/wnd.prg
! Fixed: x,y,w,h values if aPos and aSize parameters were
containing negatve values.

* contrib/gtwvg/paint.prg
! Fixed to return proper color index if a compound color string
is supplied to wvt_GetRGBColorByString().

; Above patch provided by Jose Quintas - many thanks.
Com a primeira alteração, fica igual no Harbour 3.2 e Harbour 3.4
Dá pra usar linha com decimal, 3.5 por exemplo.
Dá pra mixar coordenadas linha/coluna e x/y, por exemplo uma linha de 1 pixel que ocupe da coluna 0 até coluna 79.

A segunda alteração por enquanto só tem no Harbour 3.2
retornar também pra cores usando números. "1/1" não funcionava antes.
Também uma pequena falha "W/N,N/W", não estava considerando a vírgula nessa rotina.
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

GTWVG update

Mensagem por asimoes »

Quintas,

Fiz uma loucura aqui, copiei a pasta gtwvg para gtwvgold e copiei a pasta gtwvg da 3.2 desta atualização para a 3.4, compilou sem erros, agora vou testar.
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20415
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

GTWVG update

Mensagem por JoséQuintas »

Assim não, vai perder desse jeito.
Para o 3.4 ficar equivalente, basta aquela alteração em wvt_GetRGBColorByString()

A outra, tá praticamente igual.
A diferença é que ao invés de chamar FontSize() algumas vezes, joga em uma variável primeiro e usa a variável, então nem precisa alterar.
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20415
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

GTWVG update

Mensagem por JoséQuintas »

wvg1.png
Só a separação correta quando tem vírgula, e tratar quando está usando número.
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

GTWVG update

Mensagem por asimoes »

Funcionou essa atualização na 3.4
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Responder