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
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
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
#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 nilVeja 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
Jackson Douglas C. Brito
Boa Vista - RR - Brasil
FWH 12.09 Last Build
xHarbour Free
UESTUDIO
SQLRDD
Boa Vista - RR - Brasil
FWH 12.09 Last Build
xHarbour Free
UESTUDIO
SQLRDD
