Clipper On Line • Ver Tópico - HWGUI com gtwvg

HWGUI com gtwvg

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

HWGUI com gtwvg

Mensagempor JoséQuintas » 09 Nov 2021 17:07

PROCEDURE PTESHWGUIBrowse( cModule, cTitle, ... )

   LOCAL cnSQL := ADOLocal(), oBrowseList

   WITH OBJECT cnSQL
      :Execute( "SELECT * FROM JPCIDADE" )
      oBrowseList := { ;
         { "IDCIDADE", { || Str( :Number( "IDCIDADE" ), 6 ) } }, ;
         { "NOME", { || :String( "CINOME", 60 ) } }, ;
         { "UF", { || :String( "CIUF", 2 ) } } }
      hwguiBrowse( cTitle, cnSQL, oBrowseList )
      MsgExclamation( :String( "CINOME" ) )
      :CloseRecordset()
   ENDWITH

   ( cModule )

   RETURN

FUNCTION HwguiBrowse( cTitle, cnSQL, oBrowseList )

   LOCAL oDlg, oBrowse, cFilter := ""

//   INIT WINDOW oDlgPesquisa TITLE cTitle AT 9, 0 SIZE AppWidth(), AppHeight()
   INIT DIALOG oDlg AT 0, 0 SIZE AppWidth() , AppHeight() TITLE cTitle

   @ 1, 1 BROWSE ARRAY oBrowse ;
      SIZE AppWidth() - 10, AppHeight() - 10 STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL + DS_CENTER ;
      ON CLICK { || hwg_EndDialog( oDlg:Handle ) }
   oBrowse:aArray := cnSQL
   BrowseSet( oBrowse, oBrowseList, oDlg, @cFilter )

   ACTIVATE DIALOG oDlg CENTER

   RETURN Nil


No primeiro módulo eu consulto o MySQL para o browse, chamo a dialog com browse, e no retorno pego o que interessa e fim.

Isso é normal na HWGUI, ou só quando usa GTWVG junto?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"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 de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HWGUI com gtwvg

Mensagempor JoséQuintas » 09 Nov 2021 17:36

hwgui.png


A resolver:

- Deixar janela hwgui do mesmo tamanho, e até mesma posição da janela GTWVG
- Sair do browse com clique esquerdo do mouse
- Não deixar redimensionar
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"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 de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HWGUI com gtwvg

Mensagempor JoséQuintas » 09 Nov 2021 19:21

Um resolvido.
Na parte de criar janelas:
      GtSetupFont()
      GtSetupPalette()
      CLS
      AppWindowRect(99)


e a função:
FUNCTION AppWindowRect( nValue )

   STATIC AppWindowRect := {}

   hb_Default( @nValue, 0 )
   IF Empty( AppWindowRect ) .OR. nValue == 99
      AppWindowRect := { 0, 0, hb_gtInfo( HB_GTI_SCREENWIDTH ), hb_gtInfo( HB_GTI_SCREENHEIGHT ) }
   ENDIF
   IF nValue >= 1 .AND. nValue <= 4
      RETURN AppWindowRect[ nValue ]
   ENDIF

   RETURN AppWindowRect


O ponto importante aí é: tem que pegar o tamanho quando existe janela, e não no módulo da hwgui, que usa janela invisível.
Posição nem importa, só o tamanho mesmo.

No módulo hwgui:
   INIT DIALOG oDlg ;
      AT AppWindowRect( 1 ), AppWindowRect( 2 ) SIZE AppWindowRect( 3 ), AppWindowRect( 4 ) ;
      TITLE cTitle


A GTWVG é quem manda. HWGUI só vai usar igual.
Talvez eu veja depois pra posicionar, mas o CENTER por enquanto serve.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"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 de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

HWGUI com gtwvg

Mensagempor JoséQuintas » 09 Nov 2021 19:26

Falta ainda:

Testar a DIALOG em REMOTEAPP.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"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 de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 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