Á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!
Boa tarde
ResponderExcluirPode parecer bobo, mas como faço para colocar a logo da minha empresa no Protheus, ELES PEDEM para colocar a imagem no diretório startpath, porem não acho o diretório, podem me ajudar ??
Olá Leandro,
ResponderExcluirNa verdade startpath não é o nome de uma pasta (ou diretório), mas sim uma variável dentro de seu arquivo appserver.ini, que fica na pasta: protheus\bin\appserver.
Abra este este arquivo, localize a expressão startpath e veja seu conteúdo. Este sim é a pasta que está procurando. Exemplo:
[ambiente]
SourcePath=c:\protheus\apo
RootPath=c:\protheus\protheus_data
StartPath=\system\
x2_path=
RpoDb=Top
Como pode ver, no trecho do arquivo "appserver.ini" acima, o startpath (ou path inicial), é a pasta system.
Obs.: Muito cuidado ao mexer com os arquivos .INI do Protheus. Em caso de dúvidas consulte usuários experientes.
Obrigado pela visita!
Atenciosamente,
http://microsigadvpl.blogspot.com.br/