horacio
Posts: 1270 Joined: Wed Jun 21, 2006 12:39 amLocation: Capital Federal Argentina
Post
by horacio Wed Feb 12, 2020 7:05 pm
Amigos, estoy intentado utilizar el control TScrollPanel en una ventana MdiChild y me genera un error
Código que intento ejecutar
Code: Select all
#include "fivewin.ch"
Static oWnd
//----------------------------------------------------------------------------//
Function Main()
Define Window oWnd Mdi
Activate Window oWnd Maximized On Init PonVentanaHija()
Return 0
//----------------------------------------------------------------------------//
Function PonVentanaHija()
Local oPanel
Local oChild
Define Window oChild MdiChild Of oWnd
oPanel := TScrollPanel() : New( 10, 10, 300, 500, oChild, .f. )
oChild : SetControl( oPanel )
Activate Window oChild Maximized
Return 0
Código de error
Code: Select all
Application
===========
Path and name: C:\recibos_pdf\recibos.EXE (32 bits)
Size: 4,147,200 bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 19.12
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 02/12/20, 15:54:40
Error description: Error BASE/1004 No exported method: NTOP
Args:
[ 1] = U
Stack Calls
===========
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Alguna idea? Estoy utilizando Fwh19.12, Muchísimas gracias
Saludos
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pmLocation: España
Post
by cnavarro Thu Feb 13, 2020 9:36 am
Horacio
Code: Select all
#include "fivewin.ch"
Static oWnd
//----------------------------------------------------------------------------//
Function Main()
Define Window oWnd Mdi
Activate Window oWnd Maximized On Init PonVentanaHija()
Return 0
//----------------------------------------------------------------------------//
Function PonVentanaHija()
Local oChild
Define Window oChild MdiChild Of oWnd
Activate Window oChild Maximized ON INIT Panel( oChild )
Return 0
//----------------------------------------------------------------------------//
Function Panel( oP )
Local oPanel
oPanel := TScrollPanel() : New( 10, 10, 300, 500, oP, .f. )
oPanel:SetRange()
// oChild : SetControl( oPanel )
Return oPanel
C. Navarro
horacio
Posts: 1270 Joined: Wed Jun 21, 2006 12:39 amLocation: Capital Federal Argentina
Post
by horacio Thu Feb 13, 2020 11:00 am
Cristobal, gracias por tu respuesta. Con tu sugerencia obtengo el mismo error
Code: Select all
Application
===========
Path and name: C:\recibos_pdf\recibos.EXE (32 bits)
Size: 5,232,128 bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 19.12
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 02/13/20, 07:29:05
Error description: Error BASE/1004 No exported method: NTOP
Args:
[ 1] = U
Stack Calls
===========
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSCROLL( 304 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1801 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
Called from: => NTOP( 0 )
Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:GODOWN( 261 )
Saludos
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pmLocation: España
Post
by cnavarro Thu Feb 13, 2020 3:25 pm
Horacio, tal cual lo he puesto, a mi me funciona perfectamente.
C. Navarro
horacio
Posts: 1270 Joined: Wed Jun 21, 2006 12:39 amLocation: Capital Federal Argentina
Post
by horacio Thu Feb 13, 2020 4:11 pm
Cristobal, copié tal cual el código que posteaste aquí y lo compile con buildh.bat. El error ocurre cuando picas sobre el botón superior o inferior de la barra de scroll, también con la barra deslizante. Gracias
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pmLocation: España
Post
by cnavarro Thu Feb 13, 2020 6:35 pm
Horacio, eso no lo comprobé. Luego le echo un vistazo a lo que dices
C. Navarro
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pmLocation: España
Post
by cnavarro Thu Feb 13, 2020 6:48 pm
Si, eso parece que ocurre cuando en el ScrolPanel no hay ningún control
C. Navarro
