Página 1 de 1

Criar BUTTON´s - dificuldade

Enviado: 05 Jan 2018 23:34
por Hasse
Bom dia meu caros colegas.

Estou criando uma tela com TOOLBAR e BUTTON´s. Os BUTTON´s não aparecem.

Código: Selecionar todos

DEFINE WINDOW TEMPLATE AT nRow , nCol WIDTH nWidth HEIGHT nHeight TITLE "DBF TOOL" ICON "main" MAIN ON SIZE Adjust() ON MAXIMIZE Adjust()
   DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 20,20 FONT "Arial" SIZE 6 FLAT BORDER RIGHTTEXT
      BUTTON Open1  TOOLTIP "Abrir Arquivo"  PICTURE "open" ACTION OpenArq("")
      ....
      ....
   END TOOLBAR
END WINDOW
Os BUTTON´s existem mas ficam invisíveis, mas basta mover o cursor por sobre o BUTTON que ele aparece, com o TOOLTIP correto. Retirando o cursor da área do BUTTON ele desaparece novamente.

O ACTION relativo a cada BUTTON funciona corretamente.

Inserindo o CAPTION o texto aparece, mas ainda sem o contorno do BUTTON.

Testei retirar o PICTURE nada se altera.

Também não carrega o ícone, em fomato *.bmp, tanto no DEFINE WINDOW quanto nos BUTTON´s.

Já tentei inserir a referência dos ícones (que estão na pasta RES) no arquivo .RC, com e sem o PATH mas nada acontece. Tentei colocar os ícone na mesma pasta de compilação do executável e também sem sucesso.

Onde está o meu ERRO ?

Criar BUTTON´s - dificuldade

Enviado: 07 Jan 2018 18:13
por sygecom
Mestre, acredito que sua funcion ADJUST esteja atropelando visualmente seus buttons, tentou fixar os ponto de cada botão?

Criar BUTTON´s - dificuldade

Enviado: 08 Jan 2018 10:23
por MSDN
Esse exemplo de Toolbar peguei diretamente do samples da MiniGUI

Código: Selecionar todos

		DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 85,85 FLAT BORDER 

			BUTTON Button_1 ;
			CAPTION '&More ToolBars...' ;
			PICTURE 'button1.bmp' ;
			ACTION Modal_Click() ;
			TOOLTIP 'ONE'

			BUTTON Button_2 ;
			CAPTION '&Button 2' ;
			PICTURE 'button2.bmp' ;
			ACTION MsgInfo('Click! 2') ;
			TOOLTIP 'TWO'

			BUTTON Button_3 ;
			CAPTION 'Button &3' ;
			PICTURE 'button3.bmp' ;
			ACTION MsgInfo('Click! 3') ;
			TOOLTIP 'THREE'

		END TOOLBAR

Criar BUTTON´s - dificuldade

Enviado: 08 Jan 2018 11:39
por sygecom
Eu não entendo nada de Minigui, mas será que nesse seu exemplo não está faltando os SIZE pra dizer onde exatamente vai montar esses buttons ?

Criar BUTTON´s - dificuldade

Enviado: 08 Jan 2018 11:51
por MSDN
Altura e largura vc diz no DEFINE, os botões seguem o que está descrito ali.

Criar BUTTON´s - dificuldade

Enviado: 08 Jan 2018 12:30
por rubens
Tenta assim tb...

Código: Selecionar todos

     DEFINE TOOLBAR Toolbar_1 BUTTONSIZE 64,64 FONT "Arial Narrow" SIZE 12 BOLD
            BUTTON BtCompraXml CAPTION "BaixarXML" PICTURE "Imagens\48Mais.png" ACTION Compras(2) TOOLTIP "Importar XML do Site da Sefaz" AUTOSIZE
            BUTTON BtNova CAPTION "AbrirXML" PICTURE "Imagens\48Pasta.png" ACTION Compras(1) TOOLTIP "Nova Compra Com Xml de uma pasta" AUTOSIZE
            BUTTON BtExcluir CAPTION "Excluir" PICTURE "Imagens\48Excluir.png" ACTION Excluir_Compra() TOOLTIP "Apagar compra" SEPARATOR
            BUTTON BtPNumero CAPTION "&Pesquisar" PICTURE "Imagens\48Lupa.png" WHOLEDROPDOWN TOOLTIP "Pesquisar Compras" AUTOSIZE SEPARATOR
         	DEFINE DROPDOWN MENU BUTTON BtPNumero
					ITEM 'Pesquisar Compra pelo Numero     '	ACTION Pesq_Compra(1)
					ITEM 'Pesquisar Compra pela data       '	ACTION Pesq_Compra(2)
					ITEM 'Pesquisar Compra pelo Fornecedor '	ACTION Pesq_Compra(3)
				END MENU
           	BUTTON BtRelatorio CAPTION "&Relatorios" PICTURE "Imagens\48relatorio.png" WHOLEDROPDOWN TOOLTIP "Relatórios de Compras" AUTOSIZE SEPARATOR
         	DEFINE DROPDOWN MENU BUTTON BtRelatorio
					ITEM 'Imprime Espelho da Compra no Formato Bobina'	ACTION RelcomBob(COM->NUMERO_)
					ITEM 'Imprime Espelho da Compra no Formato A4'		ACTION Impcompra(COM->NUMERO_)
					ITEM 'Imprime Relatorio de compras por periodo'		ACTION Relcompras()
				END MENU
            BUTTON BtDanfe CAPTION "&NFe" PICTURE "Imagens\48NFe.png" ACTION Danfe_Nfe() TOOLTIP "Visualizar NFe" SEPARATOR AUTOSIZE
            BUTTON BtSair CAPTION "&Sair" PICTURE "Imagens\48Sair.png" ACTION ThisWindow.Release
     END TOOLBAR
Rubens

Criar BUTTON´s - dificuldade

Enviado: 08 Jan 2018 19:28
por Hasse
Boa tarde amigos.

Apesar de ter feito inúmeras tentativas com o BUTTON, testei TODAS as opções sugeridas acima pelos colegas Rubens e Marcelo.

Nenhuma das opções fez os BUTTON´s serem exibidos.

Isso eventualmente tem a ver com alguma propriedade do DEFINE WINDOW TEMPLATE ?

Alterar o SIZE dos BUTTON´s também não resolve.

Na linha DEFINE TOOLBAR também tentei alter e/ou remover propriedades mas nada alterou os botões.

Os neurônios já estão soltando fumaça. :% :% :% :% :%

Criar BUTTON´s - dificuldade

Enviado: 09 Jan 2018 11:26
por MSDN
Hasse,

Se vc quer testar a MiniGUI, independente se é a HMG ou a Extended, creio que deva ter ela instalada em seu computador.
Para conseguir testar e ver como funciona a TOOLBAR e outras, vá até a pasta SAMPLES, lá terá mais 3 pastas com exemplos, Advanced, Applications e Basic, vá na Basic, ache as pastas da TOOLBAR, faça uma cópia e vá testando, é a melhor forma de conseguir ver como funciona.

Criar BUTTON´s - dificuldade

Enviado: 09 Jan 2018 15:34
por Mario Mesquita
Olá!

Vc não usa a IDE do HMG?

Sds,
Mario.

Criar BUTTON´s - dificuldade

Enviado: 14 Jan 2018 17:47
por Hasse
Boa tarde.

Sim, uso a IDE do Roberto Lopes.

O Exemplo tirei do DBViewver elaborado por Miguel Angel Juárez A.m e colaboração de Includes the code of Grigory Filatov e Rathinagiri

Estou me dando conta agora que o exemplo pode ter código ou parte da Extended.

Vou seguir a sugestão do Marcelo e testar os citados exemplos, e então comparar o código e os resultados com o meu.

Obrigado colegas.

Criar BUTTON´s - dificuldade

Enviado: 14 Jan 2018 22:22
por MSDN
Hasse,

Sempre que quiser entender algo básico da ferramenta, procure exemplos básicos, focando somente no que vc precisa, isso ajuda muito no aprendizado, eu fiz assim, e consegui evoluir rapidamente, senão confunde muito a cabeça, como aconteceu no seu caso, pegando um exemplo mais elaborado.

Criar BUTTON´s - dificuldade

Enviado: 04 Fev 2018 23:26
por microvolution
MSDN escreveu:confunde muito a cabeça
é isso q tá acontecendo comigo desde que comecei a migrar em março/2015.