Clipper On Line • Ver Tópico - Form iniciar no centro da tela

Form iniciar no centro da tela

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Form iniciar no centro da tela

Mensagempor porter » 30 Abr 2018 18:23

Olá pessoal, estou estudando esse exemplo de Harbour32\contrib\gtwvg\tests\_dyndlgs.prg, executando
o exemplo passo a passo nessa linha: hDlg := Wvt_CreateDialog( aDlg, lOnTop, cDlgProc, cDlgIcon, /*nTimerTicks*/, hMenu )
é criado o form, como faço para esse form ficar no centro da tela ?
Harbour 3.2.0(dev)

IF nInfo == 2
      // Modal Dialog
      // hDlg := Wvt_DialogBox( aDlg, bDlgProc, Wvt_GetWindowHandle() )
      // hDlg := Wvt_DialogBox( aDlg, cDlgProc, Wvt_GetWindowHandle() )
ELSE
      // Modeless Dialog
      hDlg := Wvt_CreateDialog( aDlg, lOnTop, cDlgProc, cDlgIcon, /*nTimerTicks*/, hMenu ) // aqui cria o form

      // Using Function name.
      // hDlg  := Wvt_CreateDialog( aDlg, lOnTop, cDlgProc, cDlgIcon, nTimerTicks, hMenu, lModal )
ENDIF
RETURN hDlg
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes

Form iniciar no centro da tela

Mensagempor JoséQuintas » 01 Mai 2018 17:28

Eu acabei nunca mexendo com isso.
Talvez ajude...

[quote]
hbmk2 -find center

gtwvg.hbc (installed):
wvt_CenterWindow()
gtwvw.hbc (installed):
wvw_CenterWindow()
[/code]

Se olhar o fonte:

FUNCTION wvt_CenterWindow( lCenter, lRePaint )
   RETURN hb_gtInfo( HB_GTI_SPEC, HB_GTS_CENTERWINDOW, { hb_defaultValue( lCenter, .T. ), hb_defaultValue( lRePaint, .F. ) } )


Não sei se vale pra janela dialog, ou se é automático.
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

Form iniciar no centro da tela

Mensagempor porter » 02 Mai 2018 14:20

Olá,
Só consegui posicionar o form manualmente, informando linhas e colunas.

aDlg := Wvt_MakeDlgTemplate( 1, 16, 18, 40, { 3, 3, 3, 3 },  "Dialog First [ " + hb_ntos( nInfo ) + " ] " + iif( nInfo % 2 == 0, "Modeless", "Modal" ), " Dialog !", nStyle )

hDlg := Wvt_CreateDialog( aDlg, lOnTop, cDlgProc, cDlgIcon, /*nTimerTicks*/, hMenu )
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 7 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