Problemas GET...VALID e BUTTOMBMP / URGENTE (RESOLVIDO)

[miragerr]

Ola amigos

Em especial ao amigo ANTONIO LINARES

Estou tendo um problema sério com a versão do FWH 8.08 com BUTTONBMP

Veja no exemplo abaixo usando a nova GET com ACTION

SAMPLES do GETBTNR.PRG

o que adicionei foi a linha do BUTTONBMP

Code: Select all

#include "FiveWin.ch"

function Main()

   local oDlg, cTest := "hello world!"

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE GET cTest ID 10 OF oDlg ;
      ACTION ( MsgInfo( "Do what you need here and then assign a value" ),;
               ::VarPut( "FiveWin power" ), ::Refresh() ) ;
      BITMAP "..\bitmaps\16x16\people.bmp";
      VALID( MsgInfo("Passei"), .T. ) // Foi incluido este

	REDEFINE BUTTONBMP ID IDOK OF oDlg ACTION (MsgInfo("Mi Boton") ) // Foi incluido este

   ACTIVATE DIALOG oDlg CENTERED

return nil

Veja que ao teclar ENTER no get sai a menssagem "Passei", após precionar o BOTÃO de "OK" me dá a menssagem "Mi Boton" até ai tudo bem

mais se eu voltar para o GET não funciona mais o VALID

o que pode ser ??

Obs: Tentei usar o BTNBMP.PRG da versão 8.06 mais não funcionou, acho que o problema esteja na TCONTROL.PRG

[Rossine]

Olá Jackson,

Veja se este tópico resolve o seu problema:
http://forums.fivetechsoft.com/viewtopic.php?t=12467

Abraços,


Rossine.

[Antonio Linares]

Rossine,

Gracias

[miragerr]

Ola rossine

Muito obrigado