FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Error TScrollPanel
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Error TScrollPanel
Posted: Wed Feb 12, 2020 07:05 PM
Amigos, estoy intentado utilizar el control TScrollPanel en una ventana MdiChild y me genera un error

C贸digo que intento ejecutar

Code (fw): Select all Collapse
#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 (fw): Select all Collapse
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: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Error TScrollPanel
Posted: Thu Feb 13, 2020 09:36 AM
Horacio

Code (fw): Select all Collapse
#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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Error TScrollPanel
Posted: Thu Feb 13, 2020 11:00 AM
Cristobal, gracias por tu respuesta. Con tu sugerencia obtengo el mismo error

Code (fw): Select all Collapse
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: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Error TScrollPanel
Posted: Thu Feb 13, 2020 03:25 PM

Horacio, tal cual lo he puesto, a mi me funciona perfectamente.
Mira si has a帽adido algo

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Error TScrollPanel
Posted: Thu Feb 13, 2020 04: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

Saludos

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Error TScrollPanel
Posted: Thu Feb 13, 2020 06:35 PM

Horacio, eso no lo comprob茅. Luego le echo un vistazo a lo que dices

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Error TScrollPanel
Posted: Thu Feb 13, 2020 06:48 PM

Si, eso parece que ocurre cuando en el ScrolPanel no hay ning煤n control

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions