Criar BUTTON´s - dificuldade

Hasse · Mensagem por **Hasse** » 05 Jan 2018 23:34

Bom dia meu caros colegas.

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

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 ?

Mensagem por **sygecom** » 07 Jan 2018 18:13

Mestre, acredito que sua funcion ADJUST esteja atropelando visualmente seus buttons, tentou fixar os ponto de cada botão?

MSDN · Mensagem por **MSDN** » 08 Jan 2018 10:23

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

Mensagem por **sygecom** » 08 Jan 2018 11:39

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 ?

MSDN · Mensagem por **MSDN** » 08 Jan 2018 11:51

Altura e largura vc diz no DEFINE, os botões seguem o que está descrito ali.

Mensagem por **rubens** » 08 Jan 2018 12:30

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

Hasse · Mensagem por **Hasse** » 08 Jan 2018 19:28

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. :% :% :% :% :%

MSDN · Mensagem por **MSDN** » 09 Jan 2018 11:26

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.

Mario Mesquita · Mensagem por **Mario Mesquita** » 09 Jan 2018 15:34

Olá!

Vc não usa a IDE do HMG?

Sds,
Mario.

Hasse · Mensagem por **Hasse** » 14 Jan 2018 17:47

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.

MSDN · Mensagem por **MSDN** » 14 Jan 2018 22:22

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.

microvolution · Mensagem por **microvolution** » 04 Fev 2018 23:26

MSDN escreveu:confunde muito a cabeça

é isso q tá acontecendo comigo desde que comecei a migrar em março/2015.