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.
