Microsig@ ADVPL

Mais uma sobre janelas Muitas vezes não queremos que o usuário feche a janela no botão [X], padrão nos formulários. Tem como tirar este botão? Sim! Veja na figura ao lado. Para tirar, na linha do comando msdialog , inclua o parâmetro style 128 . Exemplo: define msdialog oRBSFd00 from 0,0 to 8,20 title "Mes/Ano a receber" style 128 Detectar idioma Africâner Albanês Alemão Arabe Armênio Azerbaijano Basco Bengali Bielo-russo Birmanês Bósnio Búlgaro Catalão Cazaque Cebuano Chichewa Chinês (Simp) Chinês (Trad) Cingalês Coreano Crioulo haitiano Croata Dinamarquês Eslovaco Esloveno Espanhol Esperanto Estoniano Finlandês Francês Galego Galês Georgiano Grego Gujarati Hauça Hebraico Hindi Hmong Holandês Húngaro Igbo Indonésio Inglês Ioruba Irlandês Islandês Italiano Japonês Javanês Kannada Khmer Laosiano Latim Letão Lituano Macedônico Malaiala Malaio Malgaxe Maltês Maori Marathi Mongol Nepalês Norueguês Persa Polonês Português Punjabi Romeno Russo Sérvio ...

Ás vezes, por uma questão de estética, não queremos janelas com borda. Para isso, podemos definir estilo usando a função: NOR(WS_VISIBLE,WS_POPUP). Veja o exemplo: user function fJanSemB() define msdialog ojan01 title "Janela sem borda" pixel from 180,180 to 550,700 style nor(WS_VISIBLE,WS_POPUP) cTGet := space(20) oTGet := tget():new( 1,1,{||cTGet}, oJan01, 80, 5,"@!",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet,,,,) @ 8, 5 button "Sair" action oJan01:end() activate dialog ojan01 centered return Já testamos, agora, é só usar!