[ MODELO ] Arquivo em Modo Aplicativo, Menu em Dialogo e Zoom automático

[schiavinatto]

Arquivo MODELO, com exemplos de

• Abertura em Modo Aplicativo ( tela cheia )

• Menu Vertical em Dialogo

• Zoom automático na largura, conforme tela do usuário.

MODELO_Modo_Aplcativo_Menu_em_dialogo_e_Zoom_de_Tela.ods (154.0 KB)

Obs. Para a imagem de fundo ser mantida no DIALOGO, ela deve estar em uma planilha, neste exemplo esta ma Planilha Inicial, para ver, role para baixo. Caso seja deletada e salvo o arquivo, na reabertura a imagem do fundo é perdida,

@yeron50201 , @victorwestmann , @FelipeAle , testando o que conversamos.

[LeandroRodrigues]

Que show de bola. Parabéns @schiavinatto

[FelipeAle]

Seguindo o raciocínio do título, uma alternativa então seria 1 tópico para cada modelo, ou grupo de modelos?

[schiavinatto]

Ola @FelipeAle, bom dia, imaginando que as postagens de MODELOS possam ter comentários e/ou sugestão para melhoria, se incluir todos os MODELOS em única POSTAGEM a troca de informações poderá ser confusa, minha opinião.

[LeandroRodrigues]

@schiavinatto referente a sua nota da imagem de fundo no diálogo, como você faz para colocar ela no diálogo?

[schiavinatto]

(1) Selecione o Dialogo e no item (2) Figuras busque a imagem desejada.

Lembrando coloque uma copia da imagem em alguma planilha.

Existe um “bug” em que o nome da imagem não fica visível no campo, problema antigo.

[LeandroRodrigues]

Notei esse bug ao adicionar recentemente figuras em botões

[schiavinatto]

Usou Botão de imagem ou Botão de pressão ?

[FelipeAle]

Ao invés de manter a imagem em algum arquivo, também seria possível definir o caminho onde está armazenada, por meio da propriedade ImageUrl. Por exemplo:

Sub AbrirMenuVertical
    DialogLibraries.LoadLibrary("Standard")
    'Usando a variável declarada no começo do módulo'
    oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("MENUVERTCAL") )
	
	With oDialogo
		'.Model.ImageUrl = ConvertToUrl("COLOQUE AQUI O CAMINHO DE PASTA DA IMAGEM, INCLUSIVE NOME E EXTENSAO")
		.Model.ImageUrl = ConvertToUrl("C:/Users/felipe/Pictures/LogoLO.png")	'<<EXEMPLO>>
    	.Execute()
	    .Dispose()
   	End With
End Sub

[LeandroRodrigues]

Botão de pressão. Usei a opção de figura para adicionar um ícone na frente do texto. Foi aí onde percebi que não aparece nada na caixa de propriedades do objeto (bug). Mas a imagem é aplicada.

[schiavinatto]

@FelipeAle , Sim, mas se enviar o arquivo para outra maquina, tem que enviar as imagens também, acho uma dor de cabeça a mais, não uso este método.

[yeron50201]

Uhuuu show de bola ;D