Clipper On Line • Ver Tópico - Posição da janela com relação ao Harbour

Posição da janela com relação ao Harbour

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Posição da janela com relação ao Harbour

Mensagempor JoséQuintas » 21 Mai 2017 18:03

O Harbour tem a opção de pegar posição e tamanho da janela atual.

hb_gtInfo( HB_GTI_SCREENSIZE )[ 1 ]
hb_gtInfo( HB_GTI_SCREENSIZE )[ 2 ]
hb_gtInfo( HB_GTI_SETPOS_XY )[ 1 ]
hb_gtInfo( HB_GTI_SETPOS_XY )[ 2 ]

Ao usar no diálogo HWGUI, a janela fica desposicionada.

INIT DIALOG oDlgPesquisa AT AppRow(), AppCol() SIZE AppWidth(), AppHeight() 
@ 1, 1 BROWSE oBrowse DATABASE SIZE AppWidth(), AppHeight() STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL


Precisa alguma conversão?

Por exemplo retornou 650, 1262 como posição inicial, mas a janela da hwgui ficou no rodapé da tela.
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Posição da janela com relação ao Harbour

Mensagempor JoséQuintas » 21 Mai 2017 18:38

   MsgExclamation( Str( AppCol() ) + " , " + Str( AppRow() ) + ", " + Str( AppWidth() ) + ", " + Str( AppHeight() ) )
   INIT DIALOG oDlgPesquisa AT AppCol(), AppRow() SIZE AppWidth(), AppHeight() TITLE "Browse do arquivo " + Alias()


Isso mostrou 865, 741, 792, 570

hwgui2.png


Não entendo a posição da janela hwgui.

Considerando que a tela é 3840 x 2160, deve estar na posição 1920 x 1500 ou não?

Até pensei no redimensionamento do Windows, mas está em 110% apenas, o que daria uma diferença de 10%.
.
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Posição da janela com relação ao Harbour

Mensagempor JoséQuintas » 21 Mai 2017 18:45

Outro teste mais radical:

   INIT DIALOG oDlgPesquisa AT 500, 500 SIZE 500, 500 TITLE "Browse do arquivo " + Alias()

   @ 1, 1 BROWSE oBrowse DATABASE SIZE 450, 450 STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL


Tudo 500, posição inicial, final, e tamanhos.

hwgui3.png


Pra mim, isso tá na 2000 x 1500, e não na 500 x 500

O que está errado?
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Posição da janela com relação ao Harbour

Mensagempor JoséQuintas » 21 Mai 2017 19:02

Eureka !
É a posição relativa à janela atual. Usando posição 0, 0 ficou aceitável.

   INIT DIALOG oDlgPesquisa AT 0, 0 SIZE AppWidth(), AppHeight() TITLE "Browse do arquivo " + Alias()


hwguix.png


Agora, aparentemente a diferença tem a ver com a margem do título, e a margem de borda que teria em outras versões de Windows....
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Posição da janela com relação ao Harbour

Mensagempor janio » 21 Mai 2017 21:50

Nao seria DS_CENTER do Dialog que vc está querendo?
  INIT DIALOG oDlg TITLE (MsgCriaSoft + " - ERRO NFE ") ;
    AT 0, 0 SIZE 507,246 NOEXIT CLIPPER  ;
    ON INIT {|o| o:nInitFocus := o:oButtonex1 } ;
    STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER
    Thisform := oDlg
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Posição da janela com relação ao Harbour

Mensagempor JoséQuintas » 21 Mai 2017 23:57

Não.
É pra tela ficar encima da outra, na mesma posição.
Centrizado ela vai ficar fora do lugar.
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: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Posição da janela com relação ao Harbour

Mensagempor Toledo » 22 Mai 2017 07:50

JoséQuintas escreveu:INIT DIALOG oDlgPesquisa AT AppRow(), AppCol() SIZE AppWidth(), AppHeight()

No AT o correto seria AT AppCol(), AppRow() (AT Coluna, Linha).

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Posição da janela com relação ao Harbour

Mensagempor JoséQuintas » 22 Mai 2017 12:13

Vou corrigir as funções,

Tá quase bom...
Só falta funcionar direito em multithread.
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: 18010
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 6 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