FWH11.06: Error (Bug) with xbrowse - restorestate

FWH11.06: Error (Bug) with xbrowse - restorestate

Postby gkuhnert » Wed Jul 13, 2011 11:56 am

Hi,

with the xbrowse restorestate I experienced an error. The error can be reproduced with the contained sample testxbrw.prg:
1) Open the Menu "Browse RDD Data"
2) click "saving the browse state"
3) change the width of some columns
4) Try to open the same browse
Then you'll get following error message:

Code: Select all  Expand view
Application
===========
   Path and name: D:\fw1106\fwh\samples\testxbrw.exe (32 bits)
   Size: 2,190,336 bytes
   Time from start: 0 hours 1 mins 54 secs
   Error occurred at: 07/13/11, 13:56:31
   Error description: Error BASE/1004  Message not found: TXBROWSE:

Stack Calls
===========
   Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR(166)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:(7517)
   Called from:  => __OBJSENDMSG(0)
   Called from:  => HB_EXECFROMARRAY(0)
   Called from: .\source\function\HARBOUR.PRG => OSEND(219)
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:RESTORESTATE(5562)
   Called from:  => AEVAL(0)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RESTORESTATE(5562)
   Called from: testxbrw.prg => STATE(531)
   Called from: testxbrw.prg => (b)BUILDMENU(82)
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(484)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1048)
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(243)
   Called from:  => TMDIFRAME:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(995)
   Called from: testxbrw.prg => MAIN(39)

System
======
   CPU type: AMD Phenom(tm) II X6 1090T Processor 3217 Mhz
   Hardware memory: 1 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6714)
   FiveWin  Version: FWHX 11.06
   Windows version: 6.1, Build 7601 Service Pack 1

   Windows total applications running: 62
      1
      2 Start
      3 MSCTFIME UI
      4 Default IME
      5 CiceroUIWndFrame
      6 gilbert
      7 Startmenü
      8 Programmumschaltung
      9 Network Flyout
     10 Status Monitor
     11 TF_FloatingLangBar_WndTitle
     12 New TXBrowse class (only for FWH)
     13 FiveTech Software tech support forums • Post a new topic - Opera
     14 C:\Windows\system32\cmd.exe - buildx3  testxbrw
     15 Error.log - Editor
     16 xbrowse.prg  [BC Differ]
     17 Multi-Edit - [D:\fw1106\fwh\samples\testxbrw.prg]
     18 EHO40
     19
     20 Opera
     21 OutlookFbThreadWnd
     22 Outlook-Nachrichtenübermittlung
     23 Microsoft Word
     24 DDE Server Window
     25 AXWIN Frame Window
     26 ViewDeferedNotifManager 0x0CB0 0x0848
     27 TNOTIFThisThreadSink 0x0CB0 0x0848
     28 GDI+ Window
     29 Microsoft Outlook Social Connector
     30 WMS ST Notif Window 00000CB0 00000848
     31 WMS Idle
     32 OfficePowerManagerWindow
     33 Task Host Window
     34 MCI command handling window
     35 ControlCenter3
     36 {878390AD-434B-41EE-9110-49B69E4398F9}
     37 DeviceManager
     38
     39 TrayIconManager
     40
     41
     42 BluetoothNotificationAreaIconWindowClass
     43 MS_WebcheckMonitor
     44 Media Center SSO
     45 NvSvc
     46 Akkustand
     47 MTIH
     48 BRNIPMon
     49 ScanSoft PaperPort Print Driver
     50 USB 3.0 Monitor
     51 Microsoft Security Essentials
     52 Realtek HD Audio CPL for Vista
     53 Sprungliste
     54 RAIDXpert
     55 DWM Notification Window
     56 HiddenFaxWindow
     57 ICQ Zones
     58 Ordnerliste (Strg+6)
     59
     60 Rechner
     61 Windows Task-Manager
     62 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   _CLSSETERROR
     Param   1:    O    Class: ERROR
   TXBROWSE:
     Param   1:    N    0
     Local   1:    O    Class: TXBROWSE
     Local   2:    C    ""
     Local   3:    N    1004
     Local   4:    U    
     Local   5:    U    
     Local   6:    L    .T.
     Local   7:    L    .F.
   __OBJSENDMSG
     Param   1:    O    Class: TXBROWSE
     Param   2:    C    ""
     Param   3:    N    0
   HB_EXECFROMARRAY
     Param   1:    P    0x52CD68
     Param   2:    A    Len:    3
   OSEND
     Param   1:    A    Len:    3
     Param   2:    O    Class: TXBROWSE
     Param   3:    C    ""
     Local   1:    N    0
   (b)TXBROWSE:RESTORESTATE
     Param   1:    A    Len:    2
     Param   2:    N    2
   AEVAL
     Param   1:    A    Len:    6
     Param   2:    B    {|| ... }
     Param   3:    N    2
   TXBROWSE:RESTORESTATE
     Param   1:    C    "XSS:41F3000600412B0002004300004123000B004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E000041080002004300004E0000412B0002004300004123000B004E00004E00004E00004E00004E00004E00004E00004E00004E00004E00004E0000412B0002004300004123000B004C00004C00004C00004C00004C00004C00004C00004C00004C00004C00004C0000412B0002004300004123000B00550000550000550000550000550000550000550000550000550000550000550000412B0002004300004123000B00430000430000430000430000430000430000430000430000430000430000430000"
     Local   1:    O    Class: TXBROWSE
     Local   2:    A    Len:    6
   STATE
     Param   1:    U    
     Local   1:    O    Class: TMDICHILD
     Local   2:    O    Class: TXBROWSE
   (b)BUILDMENU
     Param   1:    O    Class: TMENUITEM
   TMENU:COMMAND
     Param   1:    N    20014
     Local   1:    O    Class: TMENU
     Local   2:    O    Class: TMENUITEM
   TWINDOW:COMMAND
     Param   1:    N    20014
     Param   2:    N    0
     Local   1:    O    Class: TMDIFRAME
     Local   2:    N    0
     Local   3:    N    20014
     Local   4:    N    0
   TMDIFRAME:COMMAND
     Param   1:    N    20014
     Param   2:    N    0
     Local   1:    O    Class: TMDIFRAME
     Local   2:    L    .F.
   TMDIFRAME:HANDLEEVENT
     Param   1:    N    273
     Param   2:    N    20014
     Param   3:    N    0
   _FWH
     Param   1:    N    0
     Param   2:    N    273
     Param   3:    N    20014
     Param   4:    N    0
     Param   5:    N    1
     Local   1:    O    Class: TMDIFRAME
   WINRUN
     Param   1:    N    985936
   TMDIFRAME:ACTIVATE
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TMDIFRAME
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TMDIFRAME
     Local   2:    O    Class: TBRUSH

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

  1: => CUSTOMER                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
        320          500      .F.   .F.

     Indexes in use                        TagName
        => FIRST                              FIRST
           LAST                               LAST
           STREET                             STREET
           CITY                               CITY
           STATE                              STATE
           ZIP                                ZIP
           HIREDATE                           HIREDATE
           MARRIED                            MARRIED
           AGE                                AGE
           SALARY                             SALARY
           NOTES                              NOTES

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TBRUSH
     6 TWINDOW
     7 TMDIFRAME
     8 TMENU
     9 TMENUITEM
    10 TMDICLIENT
    11 TFONT
    12 TMSGBAR
    13 TRECT
    14 TMSGITEM
    15 TTIMER
    16 TMDICHILD
    17 TCONTROL
    18 TXBROWSE
    19 TXBRWCOLUMN
    20 TSCROLLBAR
    21 TBTNBMP
    22 TREG32

Memory Analysis
===============
      183 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de
User avatar
gkuhnert
 
Posts: 274
Joined: Fri Apr 04, 2008 1:25 pm
Location: Aachen - Germany // Kerkrade - Netherlands

Re: FWH11.06: Error (Bug) with xbrowse - restorestate

Postby gkuhnert » Thu Jul 14, 2011 8:13 am

It seems like the source of the error has to be in harbour.prg (or another file), because when I link the xbrowse.prg from fwh10.09 in fwh11.06 the error still occurs. But in fwh10.09 it doesn't occur.
Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de
User avatar
gkuhnert
 
Posts: 274
Joined: Fri Apr 04, 2008 1:25 pm
Location: Aachen - Germany // Kerkrade - Netherlands

Re: FWH11.06: Error (Bug) with xbrowse - restorestate

Postby Antonio Linares » Mon Jul 18, 2011 2:01 am

Gilbert,

We have just tested it with FWH 11.06 (the most recent published revised build) and it is working fine.

Could you please download FWH 11.06 again and test it again ? thanks

Tested with Harbour and Borland
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41439
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: FWH11.06: Error (Bug) with xbrowse - restorestate

Postby gkuhnert » Mon Jul 18, 2011 9:49 am

Antonio,

unfortunately the error still exists. I made new installation xHarbour and FHW11.06 on a virtual machine.

I changed the example a little so you only have to click on the menu "Browse RDD data" (it still uses the customer.dbf so the example should be saved to the \samples folder)
Would you please test, if it still works in your place?

Code: Select all  Expand view
/*
##############################################################################
# TXBrowse Demo                                                              #
# Copyright FiveTech 2007                                                    #
##############################################################################
*/


#include "FiveWin.ch"
#include "InKey.ch"
#include "xbrowse.ch"


REQUEST DBFCDX

STATIC cState := ""

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

function Main()

   local oWnd, oBmp

   CheckCustCdx()

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP

   DEFINE BRUSH oBmp RESOURCE "Background"

   DEFINE WINDOW oWnd TITLE "New TXBrowse class (only for FWH)" ;
      BRUSH oBmp ;
      MENU BuildMenu( oWnd ) MDI ;
      MENUINFO 3

   SET MESSAGE OF oWnd TO FWVERSION + ", " + FWCOPYRIGHT CENTERED TIME DATE

   ACTIVATE WINDOW oWnd

return nil

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

function BuildMenu( oWnd )

   local oMenu
   local cFile

   cFile := cFilePath( GetModuleFileName( GetInstance() ) ) + "readme.txt"

   MENU oMenu
      MENUITEM "Browse RDD data" ACTION SaveAuto( oWnd )
   ENDMENU

return oMenu

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

STATIC FUNCTION SaveAuto( oWnd)

   local oChild, oBrw, oChild2, oBrw2

   DEFINE WINDOW oChild TITLE "Saving the browse state" MDICHILD OF oWnd

   oBrw := TXBrowse():New( oWnd )
   oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrw:nColDividerStyle := LINESTYLE_BLACK
   oBrw:nRowDividerStyle := LINESTYLE_BLACK

   oBrw:SetRDD()
   oBrw:CreateFromCode()

   oChild:oClient := oBrw

   oBrw:RestoreState( cState )
   
   oBrw:aCols[1]:nWidth := 111

   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus() ;
      VALID ( cState := oBrw:SaveState(), .T. )
   
    oChild:End()
     
   DEFINE WINDOW oChild2 TITLE "Saving the browse state 2" MDICHILD OF oWnd

   oBrw2 := TXBrowse():New( oWnd )
   oBrw2:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrw2:nColDividerStyle := LINESTYLE_BLACK
   oBrw2:nRowDividerStyle := LINESTYLE_BLACK

   oBrw2:SetRDD()
   oBrw2:CreateFromCode()

   oChild2:oClient := oBrw2

   oBrw2:RestoreState( cState )
   
   ACTIVATE WINDOW oChild2 ON INIT oBrw2:SetFocus() ;
      VALID ( cState := oBrw:SaveState(), .T. )
     
     
RETURN NIL

static function CheckCustCdx()

   local n

   if File( "customer.cdx" )
//      if MsgYesNo( "Re-index Customer.dbf ?" )
         FErase( "customer.cdx" )
//      endif
   endif

   if !File( "customer.cdx" )
      USE CUSTOMER EXCLUSIVE VIA "DBFCDX"
      for n := 1 to FCount()
         CreateTag( FieldName( n ) )
      next
      USE
   endif

return nil

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

static function CreateTag( ctag )

   INDEX ON &ctag TAG &ctag

return nil

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

 
Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de
User avatar
gkuhnert
 
Posts: 274
Joined: Fri Apr 04, 2008 1:25 pm
Location: Aachen - Germany // Kerkrade - Netherlands

Re: FWH11.06: Error (Bug) with xbrowse - restorestate

Postby Antonio Linares » Tue Jul 19, 2011 5:53 am

Gilbert,

Your example is working fine, no errors here. I email you our libs so you can check it with ours (FWH 11.07)

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41439
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: FWH11.06: Error (Bug) with xbrowse - restorestate

Postby gkuhnert » Tue Jul 19, 2011 8:55 am

Antonio,

thank you very much, now it is working again at my computer too 8)
Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de
User avatar
gkuhnert
 
Posts: 274
Joined: Fri Apr 04, 2008 1:25 pm
Location: Aachen - Germany // Kerkrade - Netherlands


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: richard-service and 35 guests