Protheus 12 – Removendo barra de titulo e deixando tela mais elegante
Segue uma dia para deixar a tela mais elegante, removendo a barra de titulo.
Para isso, utilize as propriedades WS_VISIBLE e WS_POPUP em sua janela
Exemplo:
1 2 |
DEFINE MSDIALOG oDlg TITLE "Janela sem barra de titulo e bordas" From 0,0 TO 800,100 Pixel STYLE nOR( WS_VISIBLE, WS_POPUP ) oDlg:lMaximized := .T. //Maximizar a janela |
Se estiver usando construtor TDialog:New, faça assim:
1 2 |
oDlg := TDialog():New(0,0,800,1000,'Janela sem barra de titulo e bordas',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,,,.F.) oDlg:lMaximized := .T. //Maximizar a Janela |
Usando o construtor MsDialog:New, faça assim:
1 2 |
oMsDialog := MSDialog():New(0,0,800, 1000,'Janela sem barra de titulo e bordas',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,.T.) oDlg:lMaximized := .T. //Maximizar a Janela |
Como podem ver, não importa qual objeto esteja usando, todos utilizam as mesmas propriedades para remover a barra de titulo e as bordas.
Simples não?