Error with scrollpanel class

[Silvio.Falconi]

I have this error

Code: Select all  Expand view

Application
===========
   Path and name: C:\Work\Errori\scrollPanel\test.Exe (32 bits)
   Size: 2,618,368 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725)
   FiveWin  Version: FWHX 15.01
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 06/19/15, 19:06:24
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: NTOP
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => NTOP( 0 )
   Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:VSETPOS( 196 )
   Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:RESIZE( 124 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TSCROLLPANEL:HANDLEEVENT( 1733 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => WNDHEIGHT( 0 )
   Called from: .\source\classes\CONTROL.PRG => (b)TCONTROL:TCONTROL( 184 )
   Called from:  => TSCROLLPANEL:_NHEIGHT( 0 )
   Called from: .\source\classes\SCRLPANL.PRG => TSCROLLPANEL:CHECKRESIZE( 145 )
   Called from: .\source\classes\SCRLPANL.PRG => (b)TSCROLLPANEL:NEW( 115 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:RESIZE( 2357 )
   Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG( 92 )
   Called from:  => TDIALOG:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: test.prg => TEST( 22 )

System

I made a small sample test to try

Code: Select all  Expand view

#include "fivewin.ch"
#include "constant.ch"


static oDlg,oPanel,oImage


Function test()
   Local nBottom   := 33
   Local nRight    := 75
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H

  DEFINE DIALOG oDlg  ;   //
   TITLE "test"   ;
   SIZE nWidth, nHeight  TRANSPARENT PIXEL

    oDlg:nStyle    := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_SYSMENU,WS_MAXIMIZEBOX,   0  )


   ACTIVATE DIALOG oDlg CENTERED ;
     ON INIT (Create_Panel(), Create_Image() )
return nil

//--------------------------------------------------------------------------------------//
Function Create_Panel()
   oPanel:=TScrollPanel():New( 0, 0,oDlg:nHeight-80 ,oDlg:nWidth-20, oDlg )
   oPanel:setrange()
  return nil
//--------------------------------------------------------------------------------------//
Function Create_Image()
   @ 0, 0 IMAGE oImage SIZE oPanel:nRight, oPanel:nbottom OF  oPanel
   oImage:nWidth:= oPanel:nWidth
   oImage:nHeight:= oPanel:nHeight
   oImage:center()
return nil
//--------------------------------------------------------------------------------------//

 

[nageswaragunupudi]

You should call oPanel:SetRange() only after you create all controls on the panel.
You may revise your code accordingly.

[Silvio.Falconi]

thanks I understood
but not run I not see the image I selected

Code: Select all  Expand view

#include "constant.ch"


static oDlg,oPanel,oImage


Function test()
   Local nBottom   := 33
   Local nRight    := 75
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H

  DEFINE DIALOG oDlg  ;   //
   TITLE "test"   ;
   SIZE nWidth, nHeight  TRANSPARENT PIXEL

    oDlg:nStyle    := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_SYSMENU,WS_MAXIMIZEBOX,   0  )


   ACTIVATE DIALOG oDlg CENTERED ;
     ON INIT (Create_Panel(), Create_Image(),GetImage( oImage )  )
return nil

//--------------------------------------------------------------------------------------//
Function Create_Panel()
   oPanel:=TScrollPanel():New( 0, 0,200 ,oDlg:nWidth-20, oDlg )
  * oPanel:setrange()
  return nil
//--------------------------------------------------------------------------------------//
Function Create_Image()
   @ 0, 0 IMAGE oImage SIZE oPanel:nRight, oPanel:nbottom OF  oPanel
   oImage:nWidth:= oPanel:nWidth
   oImage:nHeight:= oPanel:nHeight
   oImage:center()

return nil
//--------------------------------------------------------------------------------------//

 STATIC FUNCTION GetImage( oImage )

   local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                             "DIB   (*.dib)| *.dib|" +          ;
                             "PCX   (*.pcx)| *.pcx|"  +         ;
                             "JPEG  (*.jpg)| *.jpg|" +          ;
                             "GIF   (*.gif)| *.gif|"  +         ;
                             "TARGA (*.tga)| *.tga|" +          ;
                             "RLE   (*.rle)| *.rle|" +          ;
                             "All Files (*.*)| *.*"             ;
                            ,"Please select a image file", 4 )

   if ! Empty( gcFile ) .and. File( gcFile )
      oImage:LoadBmp( gcFile )
         oImage:refresh()
        oPanel:setrange()

   endif
return nil

[Silvio.Falconi]

Now I see the image
but when I move the dialog the scrollpanel is resize but the image that is on the center not resize
how resolve it ?

Code: Select all  Expand view

#include "fivewin.ch"
#include "constant.ch"


static oDlg,oPanel,oImage


Function test()
   Local nBottom   := 33
   Local nRight    := 75
   Local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local nHeight := nBottom * DLG_CHARPIX_H

  DEFINE DIALOG oDlg  ;   //
   TITLE "test"   ;
   SIZE nWidth, nHeight  TRANSPARENT PIXEL

    oDlg:nStyle    := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_SYSMENU,WS_MAXIMIZEBOX,   0  )


     oDlg:bResized := {||Rinfresca_oFrm() }




   ACTIVATE DIALOG oDlg CENTERED ;
     ON INIT (Create_Panel(), Create_Image(),GetImage( oImage )  )
return nil

//--------------------------------------------------------------------------------------//
Function Create_Panel()
   oPanel:=TScrollPanel():New( 0, 0,oDlg:nbottom-200 ,oDlg:nWidth-20, oDlg )
  * oPanel:setrange()
  return nil
//--------------------------------------------------------------------------------------//
Function Create_Image()
   @ 0, 0 IMAGE oImage SIZE oPanel:nRight, oPanel:nbottom OF  oPanel  // SCROLL ADJUST

   oImage:Progress( .f. )
return nil
//--------------------------------------------------------------------------------------//

 STATIC FUNCTION GetImage( oImage )

   local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                             "DIB   (*.dib)| *.dib|" +          ;
                             "PCX   (*.pcx)| *.pcx|"  +         ;
                             "JPEG  (*.jpg)| *.jpg|" +          ;
                             "GIF   (*.gif)| *.gif|"  +         ;
                             "TARGA (*.tga)| *.tga|" +          ;
                             "RLE   (*.rle)| *.rle|" +          ;
                             "All Files (*.*)| *.*"             ;
                            ,"Please select a image file", 4 )

   if ! Empty( gcFile ) .and. File( gcFile )
      oImage:LoadBmp( gcFile )
        oPanel:setrange()

   endif
   return nil

   //---------------------------------------------------------------------------------------//


Function Rinfresca_oFrm()

  oPanel:nWidth:=oDlg:nWidth-20
  oPanel:nHeight:=oDlg:nbottom-200
  oPanel:refresh()

   oImage:nWidth:= oPanel:nWidth
   oImage:nHeight:= oPanel:nHeight
   oImage:nZoom:= 1
   oImage:center()
   oImage:refresh()


   return ni

[Antonio Linares]

Silvio,

I am trying this but I gert amazing results

Code: Select all  Expand view

Function Rinfresca_oFrm()

  local lGrow := oDlg:nWidth - 20 > oPanel:nWidth

  oPanel:nWidth:=oDlg:nWidth-20
  oPanel:nHeight:=oDlg:nbottom-200
  // oPanel:refresh()

   oImage:hBitmap = ResizeBmp( oImage:hBitmap, oImage:nWidth * If( lGrow, 1.02, 0.98 ),;
                             oImage:nHeight * If( lGrow, 1.01, 0.98 ), .T. )   
   oImage:SetSize( oPanel:nWidth, oPanel:nHeight ) 
   oImage:center()
   // oImage:refresh()


   return nil            

[Antonio Linares]

I am going to ask Daniel for help, surely he will solve it as he is very good on mathematics

[Daniel Garcia-Gil]

Hello

Code: Select all  Expand view

Function Rinfresca_oFrm()

  oPanel:SetSize( oDlg:nWidth-20, oDlg:nbottom-200 )  

  // oPanel:refresh()

  if oImage:cargo == NIL
    oImage:cargo = oImage:hBitmap
  else
    DeleteObject( oImage:hBitmap )
  endif

   oImage:hBitmap = ResizeBmp( oImage:cargo, oPanel:nWidth, oPanel:nHeight, .T. )    
   oImage:SetSize( oPanel:nWidth, oPanel:nHeight )  
   oImage:center()
   // oImage:refresh()


   return nil
 

[Antonio Linares]

Daniel,

Genial como de costumbre

A mi me funciona tu código con este pequeño cambio:

Code: Select all  Expand view

function Rinfresca_oFrm()

   oPanel:SetSize( oDlg:nWidth-20, oDlg:nbottom-200 )  

   if oImage:cargo == NIL
      oImage:cargo = oImage:hBitmap
   else
      DeleteObject( oImage:hBitmap )
   endif

   oImage:hBitmap = ResizeBmp( oImage:cargo, oPanel:nWidth, oPanel:nHeight, .T. )    
   oImage:SetSize( oPanel:nWidth, oPanel:nHeight )  
   oImage:Center()
   oImage:Refresh()

return nil            

[Silvio.Falconi]

uauuu fantastic