Clipper On Line • Ver Tópico - Poluição sobre lib gráfica

Poluição sobre lib gráfica

Aqui é o lugar para bater papo e trocar idéias sobre os mais variados assuntos

Moderador: Moderadores

 

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 14:57

Itamar M. Lins Jr. escreveu:Pq vc está IMITANDO o GT.


Itamar, entenda: eu uso GTWVG com GUI, GUI NÃO é meu problema.
Aquilo de linha/coluna é só pra facilitar, e pra fazer resize automático.

Então, quando eu fizer isso, aí eu coloco no aplicativo, por enquanto ainda não fiz.
Uma tela igual mostrou, não linha/coluna.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor Itamar M. Lins Jr. » 24 Set 2020 15:11

Olá!
Exatamente o que digo sempre: o BROWSE
A princípio é a única coisa que realmente causa mudança no visual.
O resto.... basicamente é texto, porque buttons eu já tenho.

Vai se enganando...
Sem título.png


Faça isso ao com qualquer GT!
Tem TAB!, TEM GRUPOS! etc, etc...
Isso com A Hwgui é simples, simples, simples... No WVG é um parto!

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 4609
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 161 vezes
Mens.Curtidas: 253 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:13

Itamar M. Lins Jr. escreveu:Vc quer colocar seu mundo (GT) dentro de uma LIB gráfica vai perder tempo.
Só em um "@ say" da Hwgui tem mais opções que todos os comandos para tela do Clipper...Além dos já conhecidos temos, fontes, imagens, clicks, focus, etc...


Preste atenção, te apresento a gtwvg que poucos conhecem.
É fonte da GTWVG, NÃO é fonte meu.
A diferença básica é que HWGUI usa array pra armazenar os eventos.

CREATE CLASS WvgWindow INHERIT WvgPartHandler

   /* Configuration */
   VAR    animate                               INIT .F.
   VAR    clipChildren                          INIT .F.
   VAR    clipParent                            INIT .F.
   VAR    clipSiblings                          INIT .T.
   VAR    group                                 INIT 0    /* XBP_NO_GROUP */
   VAR    sizeRedraw                            INIT .F.
   VAR    tabStop                               INIT .F.
   VAR    visible                               INIT .T.

   VAR    pointerFocus                          INIT .T.

   /* Runtime variables */
   VAR    dropZone                              INIT .F.
   VAR    helpLink
   VAR    s_tooltipText                         INIT ""
   METHOD tooltipText( cText )                  SETGET

   VAR    clr_FG
   VAR    clr_BG
   VAR    fnt_COMMPOUNDNAME
   VAR    fnt_hFont

   /* Callback slots */
   VAR    sl_enter
   VAR    sl_leave
   VAR    sl_lbClick
   VAR    sl_lbDblClick
   VAR    sl_lbDown
   VAR    sl_lbUp
   VAR    sl_mbClick
   VAR    sl_mbDblClick
   VAR    sl_mbDown
   VAR    sl_mbUp
   VAR    sl_motion
   VAR    sl_rbClick
   VAR    sl_rbDblClick
   VAR    sl_rbDown
   VAR    sl_rbUp
   VAR    sl_wheel

   VAR    sl_helpRequest
   VAR    sl_keyboard
   VAR    sl_killInputFocus
   VAR    sl_move
   VAR    sl_paint
   VAR    sl_quit
   VAR    sl_resize
   VAR    sl_setInputFocus
   VAR    sl_dragEnter
   VAR    sl_dragMotion
   VAR    sl_dragLeave
   VAR    sl_dragDrop

   VAR    sl_close
   VAR    sl_setDisplayFocus
   VAR    sl_killDisplayFocus

   VAR    hBrushBG
   VAR    is_hidden                             INIT .F.
   VAR    is_enabled                            INIT .T.
   VAR    title                                 INIT " "
   VAR    icon                                  INIT 0
   VAR    closable                              INIT .T.
   VAR    resizable                             INIT .T.
   VAR    resizeMode                            INIT 0
   VAR    style                                 INIT WIN_WS_OVERLAPPEDWINDOW
   VAR    exStyle                               INIT 0
   VAR    lModal                                INIT .F.
   VAR    pGTp
   VAR    pGT
   VAR    objType                               INIT objTypeNone
   VAR    className                             INIT ""

   VAR    hWnd
   VAR    pWnd
   VAR    aPos                                  INIT { 0, 0 }
   VAR    aSize                                 INIT { 0, 0 }
   VAR    aPresParams                           INIT {}
   VAR    lHasInputFocus                        INIT .F.
   VAR    nFrameState                           INIT 0       /* normal */

   VAR    maxCol                                INIT 79
   VAR    maxRow                                INIT 24
   VAR    mouseMode                             INIT 1

   VAR    nID                                   INIT 0
   VAR    nControlID                            INIT 5000
   VAR    nOldProc

   VAR    oMenu

   VAR    nTop
   VAR    nLeft
   VAR    nBottom
   VAR    nRight

   VAR    hWndTT

   METHOD new( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
   METHOD create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
   METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
   METHOD destroy()
   METHOD SetWindowProcCallback()

   METHOD captureMouse()
   METHOD currentPos()
   METHOD currentSize()
   METHOD disable()
   METHOD enable()
   METHOD getHWND()
   METHOD getModalState()
   METHOD hasInputFocus()
   METHOD hide()
   METHOD invalidateRect( aRect )
   METHOD lockPS()
   METHOD lockUpdate()
   METHOD isDerivedFrom( cClassORoObject )
   METHOD setColorBG( nRGB )
   METHOD setModalState()
   METHOD setPointer()
   METHOD setTrackPointer()
   METHOD setPos( aPos, lPaint )
   METHOD setPosAndSize( aPos, aSize, lPaint )
   METHOD setSize( aSize, lPaint )
   METHOD setFont()
   METHOD setFontCompoundName( cFont )
   METHOD setPresParam()
   METHOD show()
   METHOD toBack()
   METHOD toFront()
   METHOD unlockPS()
   METHOD winDevice()

   METHOD Initialize( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
   METHOD setFocus()
   METHOD sendMessage( nMessage, nlParam, nwParam )
   METHOD findObjectByHandle( hWnd )

   METHOD getControlID()                        INLINE ++::nControlID
   METHOD HandleEvent()                         INLINE EVENT_UNHANDLED
   METHOD isEnabled()                           INLINE ::is_enabled
   METHOD isVisible()                           INLINE ! ::is_hidden
   METHOD setColorFG( nRGB )                    INLINE ::clr_FG := iif( HB_ISSTRING( nRGB ), wvt_GetRGBColorByString( nRGB, 0 ), nRGB ), ::invalidateRect()

   METHOD enter( xParam )                       SETGET
   METHOD leave( xParam )                       SETGET
   METHOD lbClick( xParam )                     SETGET
   METHOD lbDblClick( xParam )                  SETGET
   METHOD lbDown( xParam )                      SETGET
   METHOD lbUp( xParam )                        SETGET
   METHOD mbClick( xParam )                     SETGET
   METHOD mbDblClick( xParam )                  SETGET
   METHOD mbDown( xParam )                      SETGET
   METHOD mbUp( xParam )                        SETGET
   METHOD motion( xParam )                      SETGET
   METHOD rbClick( xParam )                     SETGET
   METHOD rbDblClick( xParam )                  SETGET
   METHOD rbDown( xParam )                      SETGET
   METHOD rbUp( xParam )                        SETGET
   METHOD wheel( xParam )                       SETGET
   METHOD close( xParam )                       SETGET
   METHOD helpRequest( xParam )                 SETGET
   METHOD keyboard( xParam )                    SETGET
   METHOD killDisplayFocus( xParam )            SETGET
   METHOD killInputFocus( xParam )              SETGET
   METHOD move( xParam )                        SETGET
   METHOD paint( xParam )                       SETGET
   METHOD quit( xParam, xParam1 )               SETGET
   METHOD resize( xParam, xParam1 )             SETGET
   METHOD setDisplayFocus( xParam )             SETGET
   METHOD setInputFocus( xParam )               SETGET
   METHOD dragEnter( xParam, xParam1 )          SETGET
   METHOD dragMotion( xParam )                  SETGET
   METHOD dragLeave( xParam )                   SETGET
   METHOD dragDrop( xParam, xParam1 )           SETGET

   PROTECTED:

   METHOD getPosAndSize( aPs, aSz )
   METHOD isParentCrt()                         INLINE ::oParent:objType == objTypeCrt
   METHOD rePosition()
   METHOD createControl()

ENDCLASS


Essa é a parte GUI que sempre mencionei, e parece que nunca ninguém viu.
Tem tudo que é evento que mencionou, porque ISSO é GUI, NÃO a tela padrão que todos conhecem.
Essa é a parte onde a GTWVG está igual HWGUI, NÃO tem exemplo, e cada um que se vire.
Por isso ninguém nunca usou.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:21

Simplificando....

O tópico voltou a desviar de aprender hwgui.
parece que vocês não suportam mencionar GTWVG.

Se convençam que GTWVG tem GUI, e pronto.
E como GTWVG tem GUI, eu já estou acostumado com GUI.

Assim acaba isso de não poder mencionar GTWVG, e voltarmos a falar de aprender hwgui.

Se estou querendo fazer diferente, é porque SEI que é possível.
Se não der... tudo bem... vou continuar testando/aprendendo hwgui do mesmo jeito.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor Itamar M. Lins Jr. » 24 Set 2020 15:22

Ola!
Itamar, entenda: eu uso GTWVG com GUI, GUI NÃO é meu problema.

Meu amigo, eu vi a WVG nascer e morrer!
Sei como é para colocar um controle desse igual as LIBS gráficas tem.
   AAdd( aBlocks, {|| wvt_SetIcon( GetResource( "vr_1.ico" ) ) } )
   AAdd( aBlocks, {|| Wvt_SetTitle( "Vouch" ) } )
   AAdd( aBlocks, {|| wvt_DrawLabel( 1, 40, cLabel, 6,, RGB( 255, 255, 255 ), RGB( 198, 198, 198 ), "Arial", 26, , , , , .T., .T. ) } )
   AAdd( aBlocks, {|| wvt_DrawBoxRaised( nTop, nLft, nBtm, nRgt ) } )
   AAdd( aBlocks, {|| wvt_DrawBoxRecessed( 7, 61, 13, 70 ) } )
   AAdd( aBlocks, {|| wvt_DrawBoxGroup( 15, 59, 18, 72 ) } )
   AAdd( aBlocks, {|| wvt_DrawBoxGroup( 5, 6, 19, 44 ) } )
   AAdd( aBlocks, {|| wvt_DrawImage( 8, 62, 12, 69, IMAGE_VOUCH, , .T. ) } )
   AAdd( aBlocks, {|| wvt_DrawBoxRecessed( 7, 48, 13, 55 ) } )
   AAdd( aBlocks, {|| wvt_DrawLine( MaxRow() - 2, 0, MaxRow() - 2, MaxCol(), WVT_LINE_HORZ, WVT_LINE_RECESSED, WVT_LINE_BOTTOM ) } )
   AAdd( aBlocks, {|| wvt_DrawLine( MaxRow() - 1, 41, MaxRow(), 41, WVT_LINE_VERT, WVT_LINE_RECESSED, WVT_LINE_CENTER ) } )
   AAdd( aBlocks, {|| AEval( GetList, {| oGet | wvt_DrawBoxGet( oGet:Row, oGet:Col, Len( Transform( oGet:VarGet(), oGet:Picture ) ) ) } ) } )

Olha o grau de malabarismo!
STATIC FUNCTION BuildMainMenu()

   LOCAL oMenu
   LOCAL g_oMenuBar := WvgSetAppWindow():menuBar()

   oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
   oMenu:Caption := "Wvt*Classes"
   oMenu:AddItem( "Dialog One . New Window . Threaded"       , {|| DialogWvgClassesOne( 1 ) } )
   oMenu:AddItem( "Dialog One . Main Window . Primary Thread", {|| DialogWvgClassesOne( 2 ) } )
   oMenu:AddItem( "-" )


Na Hwgui fazer um menu!
   MENU OF oFormMain

      MENU TITLE "&Arquivos"
         MENUITEM "&Fornecedores"       ID 110  ACTION {||Fornecedores()}
         MENUITEM "F&abricantes"        ID 150  ACTION {||Fabricantes()}

Fazer janela.
   INIT WINDOW oFormMain MAIN APPNAME "XYZ" FONT oFontMain ...

Um GroupBox
   @ 010,160 GroupBox "Preços:" SIZE 500,45

E por ai vai... Está muito longe de qualquer GT chegar perto...
Vcs pensam que não fiz esse tortuoso caminho! Esquecer DOS! Que eu não TRILHEI esse caminho ?

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 4609
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 161 vezes
Mens.Curtidas: 253 vezes

Iniciando com HWGUI

Mensagempor Itamar M. Lins Jr. » 24 Set 2020 15:29

Olá!
Usando GT, Estamos trabalhando com SAVE SCREEN, RESTORE SCREEN! Não vamos esquecer disso!
Tudo tem que ser redesenhado, repintado.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 4609
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 161 vezes
Mens.Curtidas: 253 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:30

Itamar M. Lins Jr. escreveu:Meu amigo, eu vi a WVG nascer e morrer!
Sei como é para colocar um controle desse igual as LIBS gráficas tem.


Itamar.... aprenda a ler com cuidado

NÃO tem nada aí da GTWVG que estou mencionando.
Se reparou... é tudo WVT
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:34

Itamar M. Lins Jr. escreveu:Olha o grau de malabarismo!


STATIC FUNCTION BuildMainMenu()

LOCAL oMenu
LOCAL g_oMenuBar := WvgSetAppWindow():menuBar()

oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
oMenu:Caption := "Wvt*Classes"
oMenu:AddItem( "Dialog One . New Window . Threaded"       , {|| DialogWvgClassesOne( 1 ) } )
oMenu:AddItem( "Dialog One . Main Window . Primary Thread", {|| DialogWvgClassesOne( 2 ) } )
oMenu:AddItem( "-" )


Nesta parte sim, você acabou dizendo uma grande besteira
Está criando um menu, igual faria na HWGUI
E as opções vão chamar DIALOGS, igual HWGUI faz.

NÃO é diferente da HWGUI, exceto que a chamada de função não tem a conversão pra comando, pra esconder isso, igual a hwgui faz com o #define ou #command
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor Itamar M. Lins Jr. » 24 Set 2020 15:39

Ola!
   wvt_DrawBoxRecessed( 8, 22, 14, 58 )

   wvtScr1 := wvt_SaveScreen( 7, 20, 15, 60 )

   DO WHILE Inkey( 0 ) != K_ESC
   ENDDO

   hb_DispBox( 7, 20, 15, 60, "         ", "W/B*" )
   @ 10, 25 SAY "wvt_SaveScreen()" COLOR "N/B*"
   @ 11, 25 SAY "wvt_RestScreen()" COLOR "N/B*"
   @ 13, 25 SAY "Press Esc "       COLOR "N/B*"
   wvt_DrawBoxRecessed( 8, 22, 14, 58 )

   DO WHILE Inkey( 0 ) != K_ESC
   ENDDO

   wvt_RestScreen( 7, 20, 15, 60, wvtScr1 )

   DO WHILE Inkey( 0 ) != K_ESC
   ENDDO

   RestScreen( 7, 20, 15, 60, scr )
   wvt_RestScreen( 0, 0, MaxRow(), MaxCol(), wvtScr )
   WvtSetBlocks( aLastPaint )
   wvt_SetPopupMenu( hPopup )


Pensa que não usei WVG ? Tudo isso ai é uma(1) linha da Hwgui!

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 4609
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 161 vezes
Mens.Curtidas: 253 vezes

Iniciando com HWGUI

Mensagempor Itamar M. Lins Jr. » 24 Set 2020 15:42

Olá!
Está criando um menu, igual faria na HWGUI
E as opções vão chamar DIALOGS, igual HWGUI faz.

Não entendeu nada então!
   MENU OF oFormMain
      MENU TITLE "&Arquivos"
         MENUITEM "&Fornecedores"       ID 110  ACTION {||Fornecedores()}

Isso ai já e o menu.
Na WVG
STATIC FUNCTION BuildMainMenu()

   LOCAL oMenu
   LOCAL g_oMenuBar := WvgSetAppWindow():menuBar()

   oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
   oMenu:Caption := "Wvt*Classes"
   oMenu:AddItem( "Dialog One . New Window . Threaded"       , {|| DialogWvgClassesOne( 1 ) } )
   oMenu:AddItem( "Dialog One . Main Window . Primary Thread", {|| DialogWvgClassesOne( 2 ) } )
   oMenu:AddItem( "-" )

É a mesma coisa ?
Qual é código mais fácil de aprender, qual é o menor ?

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 4609
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 161 vezes
Mens.Curtidas: 253 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:43

Deixe eu te lembrar:

   MENU OF oFormMain

      MENU TITLE "&Arquivos"
         MENUITEM "&Fornecedores"       ID 110  ACTION {||Fornecedores()}
         MENUITEM "F&abricantes"        ID 150  ACTION {||Fabricantes()}


ppo

   Hwg_BeginMenu( oFormMain,, )
      Hwg_BeginMenu(,, "&Arquivos" )
         Hwg_DefineMenuItem( "&Fornecedores", 110, {||Fornecedores()}, .F.,,,, .F., .F. )
         Hwg_DefineMenuItem( "F&abricantes", 150, {||Fabricantes()}, .F.,,,, .F., .F. )


Tá, em DBF você não usa SKIP, mas usa dbSkip() porque diz que do outro jeito é de amador.
Mas pra HWGUI... já diz o contrário

Será que conseguiu entender?

Estou falando sobre a GTWVG GUI, e não da GTWVG que todos conhecem usando funções da WVT de fazer desenho.
Que por sinal, usa o EVENTO Paint() da janela pra poder manter os desenhos
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:45

NÃO POSTE NADA COMEÇANDO COM WVT
ISSO NÃO TEM A VER COM MEUS POSTS.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:51

Itamar M. Lins Jr. escreveu:Ola!
Pensa que não usei WVG ? Tudo isso ai é uma(1) linha da Hwgui!


   wvt_DrawBoxRecessed( 8, 22, 14, 58 )

   wvtScr1 := wvt_SaveScreen( 7, 20, 15, 60 )

   DO WHILE Inkey( 0 ) != K_ESC
   ENDDO

   hb_DispBox( 7, 20, 15, 60, "         ", "W/B*" )
   @ 10, 25 SAY "wvt_SaveScreen()" COLOR "N/B*"
   @ 11, 25 SAY "wvt_RestScreen()" COLOR "N/B*"
   @ 13, 25 SAY "Press Esc "       COLOR "N/B*"
   wvt_DrawBoxRecessed( 8, 22, 14, 58 )

   DO WHILE Inkey( 0 ) != K_ESC
   ENDDO

   wvt_RestScreen( 7, 20, 15, 60, wvtScr1 )

   DO WHILE Inkey( 0 ) != K_ESC
   ENDDO

   RestScreen( 7, 20, 15, 60, scr )
   wvt_RestScreen( 0, 0, MaxRow(), MaxCol(), wvtScr )
   WvtSetBlocks( aLastPaint )
   wvt_SetPopupMenu( hPopup )


Então, como eu disse, isso não tem nada a ver.
Aqui ao invés de tudo isso, eu uso multithread

hb_gtReload( "WVG" )

uma única linha também.

Também poderia ser wvgCrt(), e pode usar como MODAL ou NÃO MODAL.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 15:56

Vai parecer piada eu dizer isto, mas é sério:

NÃO sei mexer direito com GTWVG.
Vou tentar preparar um exemplo só com a parte que estou falando.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Iniciando com HWGUI

Mensagempor JoséQuintas » 24 Set 2020 16:01

Só pra adiantar uma parte:


PROCEDURE HB_GTSYS
   
   REQUEST HB_GT_WVG_DEFAULT
   REQUEST HB_GT_WVT
   REQUEST HB_GT_WGU

   RETURN


WVT NÃO É WVG
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14671
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 864 vezes

Anterior Próximo



Retornar para Bate Papo

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro