TFolderEx error. (FWH 10.10) Solved

[Horizon]

Hi,

There is no problem at 10.09.

Code: Select all  Expand view

  Error occurred at: 01/11/2010, 16:08:51
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... }
     [   2] = N   1

Stack Calls
===========
   Called from: .\source\classes\TFOLDEX.PRG => TFOLDEREX:DEFAULT(669)
   Called from: .\source\classes\TFOLDEX.PRG => TFOLDEREX:INITIATE(877)
   Called from:  => __OBJSENDMSG(0)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: .\source\function\HARBOUR.PRG => OSEND(219)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: .\source\function\HARBOUR.PRG => ASEND(197)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(664)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
   Called from: wOb_Browse1.prg => TYK_DETAY:ACTIVATE(1302)
 

Any comment?

Edit:Not compile error.

[Horizon]

Back to 10.09

Thanks

[Horizon]

Hi,

I try to use TFolderex FWH10.10 again. I have done some tests. I need comments from masters.


My Platform:
FWHX 10.10 + xHarbour Builder 1.2.1 Last Beta.

My Problem:
I use TFolderex in FWHX 10.09 without any problem. When I try to use 10.10, it gives runtime error like my first message.

My Syntax:

Code: Select all  Expand view

@ 2, 3 FOLDERex oFld OF oDlg SIZE 100, 100 PIXEL ADJUST;
      PROMPTS "&Genel", "Takibin &Konusu","İşlem Tablosu","&Alacak/Masraf Tablosu",;
        "&Mahkemeler","Matbu &Formlar","Ma&sraflar","&Tahsilat Tab.","Müv. &Cari Hs.","&Haciz",;
      "İpotek/&Rehin/İlam" ,"&Notlar","&Diğer","&Ek Menü","Kart &Parametreleri"

Test 1:Using 10.10, I just added the TFoldex.prg in 10.09 and compiled. There is no problem. This result says something that is changed in 10.10, is effected my project.

Test 2:
I try to prepare a small example like below and compile it using 10.10 without any addition. THERE IS NO PROBLEM. This says EVERYTHING IS ALLRIGHT IN 10.10.

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
LOCAL oDlg, oFld
 
   DEFINE DIALOG oDlg SIZE 620, 294 ;
        STYLE nOr( WS_OVERLAPPEDWINDOW ) TRANSPARENT
    oDlg:SetColor(,9425383)
   
   @ 2, 3 FOLDERex oFld OF oDlg SIZE 100, 100 PIXEL ;
      PROMPTS "&Genel", "Takibin &Konusu","İşlem Tablosu","&Alacak/Masraf Tablosu",;
        "&Mahkemeler","Matbu &Formlar","Ma&sraflar","&Tahsilat Tab.","Müv. &Cari Hs.","&Haciz",;
        "İpotek/&Rehin/İlam","&Notlar","&Diğer","&Ek Menü","Kart &Parametreleri"
 
  oDlg:oClient := oFld
       
ACTIVATE DIALOG oDlg CENTERED
   
return nil

I am realy confused.

I try to deep my error. I have add some comments to Tfoldex.prg in 669. I have examine Length of ::aOrder variable both 10.09 and 10.10. (This result is same in Initiate Method before sending Default() Method.)

Code: Select all  Expand view

METHOD Default() CLASS TFolderEx

   LOCAL oDlg
   LOCAL nLastRow, aMove, nAdjTop
   LOCAL oSelf := Self
   LOCAL nLen := Len( ::aOrder )

   IF ::lAdjust
      ::oWnd:oClient = Self
   ENDIF

   ::CalPos()
   FOR EACH oDlg IN ::aDialogs


      SWITCH ::nLayOut
        CASE LAYOUT_TOP
        ? Len(::aOrder)
           nLastRow := ::aPos[ ::aLines[ ::aOrder[ 1 ] ][ 1 ] ][ 2 ] + ::nFolderHeight + 1
           aMove = { nLastRow + 1, 2, ::nWidth() - 5, ::nHeight() - nLastRow - 4 }
           EXIT
....
....

Code: Select all  Expand view

10.09 result 0.
10.10 result 9.

I try to find how to initialize aOrder variable in Tfoldex.prg. But I could not.

Is there anybody to help me? Thanks in advance.

[Horizon]

Daniel, Antonio, Byte-one,

Any hope.

[Horizon]

Hi,

Where is the CalPos function?

In my condition, CalPos() does not calculate the aOrder array.

Thanks

[Daniel Garcia-Gil]

Horizon

checking....

[Daniel Garcia-Gil]

Horizon

#include "FiveWin.ch"

function Main()
LOCAL oDlg, oFld
 
   DEFINE DIALOG oDlg SIZE 620, 294 ;
        STYLE nOr( WS_OVERLAPPEDWINDOW ) TRANSPARENT
    oDlg:SetColor(,9425383)
   
   @ 2, 3 FOLDERex oFld OF oDlg SIZE 100, 100 PIXEL ;
      PROMPTS "&Genel", "Takibin &Konusu","İşlem Tablosu","&Alacak/Masraf Tablosu",;
        "&Mahkemeler","Matbu &Formlar","Ma&sraflar","&Tahsilat Tab.","Müv. &Cari Hs.","&Haciz",;
        "İpotek/&Rehin/İlam","&Notlar","&Diğer","&Ek Menü","Kart &Parametreleri"
 
  oDlg:oClient := oFld
       
ACTIVATE DIALOG oDlg CENTERED
   
return nil

using your sample run ok... and can not see th error...

please post a sample to repro the error

[Horizon]

Daniel,
if you reread test2, I already said my sample run ok. I can not reproduce the error other than my project.

Can you advise me to how to find CalPos function.

Thanks

[Daniel Garcia-Gil]

Daniel,
Can you advise me to how to find CalPos function.

CalPos is a reserved fivewin function

i need repro the error to try help you

[Horizon]

Daniel,

I need to trace in CalPos. but it seems I bump to rock.

Thanks anyway.

[Horizon]

Daniel,

Can do me a favor?. You said that this function was reserved function for fivewin. I can accept this.

Can do you support a obj file with some breaks that write to logfile this variables including first line and last line.

line number, lenght(::aOrder)

I just want to find out that is result logfiles identical for both condition (standalone and my project)

Thanks in advance.

[Daniel Garcia-Gil]

Horizon

please contact with by email: danielgarciagil@gmail.com

[Horizon]

Daniel,

Sended.

[Horizon]

Hi,

Solved with deleting "SIZE 100, 100".

Thanks to daniel.