FiveTech Support Forums

i TRY THIS LITTLE TEST






IT MAKE ERROR
Application
===========
Path and name: C:\tessera\test.Exe (32 bits)
Size: 1,858,560 bytes
Time from start: 0 hours 1 mins 22 secs
Error occurred at: 03/03/10, 18:12:33
Error description: Error BASE/1004 Class: 'NIL' has no exported method: GETCLIRECT
Args:
[ 1] = U

Stack Calls
===========
Called from: => GETCLIRECT(0)
Called from: .\source\classes\BAR.PRG => TBAR:NEW(85)
Called from: test3.prg => BARDIALOG(25)
Called from: test3.prg => (b)TEST(18)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:PAINT(853)
Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG(86)
Called from: => TDIALOG:DISPLAY(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(915)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(343)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: => GETCLIRECT(0)
Called from: .\source\classes\BAR.PRG => TBAR:NEW(85)
Called from: test3.prg => BARDIALOG(25)
Called from: test3.prg => (b)TEST(18)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:PAINT(853)



i TRYED ALSO WITH
ON INIT Bardialog()

WHY IT MAKE ERROR ?

You can easily see from the error log that the value of oDlg inside the BarDialog function is NIL. Therefore the error.

...
ON INIT BarDialog( oDlg )
and
function BarDialog( oDlg )

Hola;

ON INIT FrameBar( oDlg )

/------------------------------------------------------------------------------/
Function FrameBar( oWnd )
/------------------------------------------------------------------------------/
LOCAL oCursor, nFor

 DEFINE CURSOR oCursor HAND

 DEFINE BUTTONBAR oBar _3D SIZE 45, 45 OF oWnd

 DEFINE BUTTON RESOURCE "MenuP_Tablas" OF oBar NOBORDER;
        TOOLTIP "Tablas";
        MENU BuildPopup()

 DEFINE BUTTON RESOURCE "MenuP_Indexar" OF oBar NOBORDER;
        TOOLTIP "Ordena Bases de Datos";
        ACTION ( CreaIndices( oWnd ) )

 DEFINE BUTTON RESOURCE "BotonSalir" OF oBar NOBORDER;
        TOOLTIP "Salir del Programa" ACTION Salir()

 oBar:bRClicked := {|| NIL }
 oWnd:lBalloon  := .T.

 FOR nFor := 1 TO len(oBar:aControls)
     oBar:aControls[nFor]:oCursor := oCursor
     SysRefresh()
 NEXT

Return( oBar )

Un saludo
JLL