FWH 11.11 Errors - FWH / Harbour 3.0 / MSVC

[TimStone]

So far I am encountering 3 errors using FWH 11.11 / Harbour 3.0 and MSVC that are not encountered with FWH 11.09 / xHarbour ( .com ) / xCC. Some of these are similar to other posts

1) Dialog 1 has a control bar. One button calls Dialog 2 with six folders. There is a button bar attached to the dialog, and separate ones for each folder also. This works fine in the former xharbour/fwh10.9 build. However, with 11.11 and Harbour / MSVC, I get the error No exported method GetCliRect when trying to open dialog 2. Obviously, tbar was called with dialog 1, so there must be a problem with multiple bar controls now. They worked in 11.09, but not 11.11.

2) In another case, I have a dialog with several folders in the upper half of the screen, and an xbrowse in the lower half. The folders have fields for editing the data found in the record highlighted in the xbrowse. In 11.09, there is no problem here. With 11.11, the data does not display in the fields. In cases where folders are NOT used, but there is one dialog screen split in this way, the data displays perfectly.

3) When activating the Codejock Calendar, with the former configuration the program works fine. Using Harbour 3.0 and MSVC, that same call gets an error message "Could not create object Global Settings". The calendar control is Active X written specifically for Microsoft C. Any thoughts on why this message would occur ?

Thanks.

[TimStone]

I should clarify on the third error. It is generated from the following:

oGlbSettings := win_oleCreateObject( "CodeJock.CalendarGlobalSettings.15.0.1" )
oGlbSettings:License( "Calendar Control Copyright (c) 2003-2011 Codejock Software" + CRLF + ;
"PRODUCT-ID: Codejock.Calendar.ActiveX.v15.0" + CRLF +"VALIDATE-CODE: xxx-xxx-xxx-xxx" )

win_oleCreateObject( ) is apparently returning an error.

Ideas on why ?

Tim

[Antonio Linares]

Tim,

Could you please post a screenshot for 1 and 2 ? thanks

Also a screenshot for the codejock control would be interesting. It would be great if you could replace it with a standard FWH control

ActiveX are black boxes, if they run then fine, but if they not, "Houston we have a problem"...

[TimStone]

This first screen shot shows the screen that always displayed correctly in the past. Now with 11.11 it gets the error I mentioned with GetCliRect being unknown. Note that each folder page has its own bar control plus the dialog has one. It will not activate the dialog as a result, so there is no screen shot with 11.11




This is the screen shot for the second problem.

This is what we should get, and it has always worked fine. This is from a version with FWH 11.09, xHarbour ( xCC )



This is what I get using FWH 11.11 with Harbour 3.0 and MVCC.



Other screens that do not have folders work fine.

There is no screenshot for the Codejock problem.

[Antonio Linares]

Tim,

This example is working fine. Please check if your code is similar to this one:

tim.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg SIZE 500, 300

   @ 2, 1 FOLDER oFld ITEMS "One", "Two", "Three" SIZE 240, 95

   @ 7.3, 17 BUTTON "Ok" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( BuildBar( oDlg ), AEval( oFld:aDialogs, { | oDlg | BuildBar( oDlg ) } ) )

return nil

function BuildBar( oDlg )

   local oBar
   
   DEFINE BUTTONBAR oBar OF oDlg SIZE 40, 40 2007
   
   DEFINE BUTTON OF oBar

   DEFINE BUTTON OF oBar

   DEFINE BUTTON OF oBar
   
return nil  

 

Also, as you mention that the error is related to GetCliRect(), it seems as it may come from bar.prg lines 81 and 158. We could add this code to prevent from such error:

Code: Select all  Expand view

METHOD New( oWnd, nBtnWidth, nBtnHeight, l3D, cMode, oCursor, l2007, l2010 ) CLASS TBar

   local oRect

   DEFAULT oWnd := GetWndDefault(), nBtnWidth := BAR_HEIGHT,;
           nBtnHeight := BAR_HEIGHT, l3D := .f., cMode := "TOP", l2007 := .F.,;
           l2010 := .F.
           
   oRect := oWnd:GetCliRect()

   ...

Code: Select all  Expand view

METHOD NewAt( nRow, nCol, nWidth, nHeight, nBtnWidth, nBtnHeight, oWnd, l3D,;
              cMode, oCursor ) CLASS TBar

   local oRect

   DEFAULT oWnd := GetWndDefault(), nBtnWidth := BAR_HEIGHT,;
           nBtnHeight := BAR_HEIGHT, nHeight := BAR_HEIGHT,;
           l3D := .f., cMode := "TOP"

   oRect := oWnd:GetCliRect()

   ...

[TimStone]

It still doesn't work making the changes in bar.prg ( tbar class ) that you suggested. We get the same error.

Again, this is all on a dialog. There is a bar for the dialog. Then there are 7 folders ( refer to the picture ) and each has its own button bar. This worked perfectly in 11.09 ( at least with xHarbour ). Because these are bars on a dialog, they are all placed in a function which is called when the dialog is activated.

Here is an abbreviated example of the Bar controls for the folders. They must be called in the dialog Activate command.

Code: Select all  Expand view

FUNCTION OrdBar( )

  MEMVAR cOrdLic, cSrvMil, aDuePm, oWrk, oDla, oLbx2, oDpa, oFld, aSrvUnt, aJobCost, ;
    cWrkOrd, nDepAmt, aMsg, aConst, aFieldVals, nLbTx, nPaTx, aFlags, aPhones, ;
    cStatus, oLbx1, oDpar, aTechs, oDlar, oSF3, oSF4, oLbx5, oRec, oRecr, oSf5, ;
    oCli, oWdlg, oWdlg1

    // Declare LOCAL variables for buttons
    LOCAL oBar1,oBtn11,oBtn12,oBtn13,oBtn14,oBtn15,oBtn16,oBtn17,oBtn18, oBtn19
    LOCAL oBar2,oBtn21,oBtn22,oBtn23,oBtn24,oBtn25,oBtn26,oBtn27,oBtn28,oBtn29, oBtn2a, oBtn2b
    LOCAL oBar3,oBtn31,oBtn32,oBtn33,oBtn34,oBtn35,oBtn36
    LOCAL oBar4,oBtn41,oBtn42,oBtn43,oBtn44,oBtn45,oBtn46
    LOCAL oBar5,oBtn51,oBtn52,oBtn53,oBtn54
    LOCAL oBar6,oBtn61,oBtn62,oBtn63
    LOCAL oBtn1A, oBtn1B, oBtn1C, oBtn1D, oBtn1E, oBtnA5, oBtn20, oBtn47, oBtn55

    // Define the workorder button bar.  This is the main one for the dialog
    DEFINE BUTTONBAR oBar1 SIZE 50,60 OF oWdlg1 2007
    DEFINE BUTTON oBtn11 OF oBar1 RESOURCE "HRPM" PROMPT "P/M's" TOOLTIP "View P/M Schedule";
        ACTION( PRO1051( cOrdLic, cSrvMil, aDuePM), sysRefresh() )
    DEFINE BUTTON oBtn12 OF oBar1 RESOURCE "ORDER" PROMPT "History" TOOLTIP "View Service History" ;
        ACTION ( PRO7500( oWrk:vehlic ) )

              ... more buttons defined for the main bar

    // Define the general button bar ... this is Folder 1
    DEFINE BUTTONBAR oBar2 SIZE 50,60 OF oFld:aDialogs[ 1 ] 2007
    DEFINE BUTTON oBtn21 OF oBar2 RESOURCE "UNITS"  PROMPT "Vehicle" TOOLTIP "Select/Edit Vehicle" ;
        ACTION ( aSrvUnt := UnitData( oWrk, aSrvUnt ), aFieldVals[17] := aSrvUnt[9], aFieldVals[19] := aSrvUnt[29],;
        nLbTx := aSrvUnt[39]*100, nPaTx := aSrvUnt[38]*100, oFld:update( ), oWdlg1:SetText( "Workorder: " + oWrk:wrkord +;
        "   Unit: " + oWrk:ordveh + "   Client: " +  oWrk:ordcom ), IIF( aSrvUnt[8] = "HLD", MsgInfo( "URGENT - Check client notes" ), ) )
    DEFINE BUTTON oBtn22 OF oBar2 RESOURCE "INFO" PROMPT "Data" TOOLTIP "View Vehicle Data" ;
        ACTION ShowVehicle( aSrvUnt )

                ... more are defined for this bar

    // Define the parts button bar  which is on folder 2

    DEFINE BUTTONBAR oBar3 SIZE 50,60 OF oFld:aDialogs[ 2 ] 2007
        DEFINE BUTTON oBtn31 OF oBar3 RESOURCE "HRADD"  PROMPT "Add" TOOLTIP "Add a new part" ;
            ACTION ( aFlags[1] := .T. , oLbx1:gobottom(), PartAdd( oDpa, cWrkOrd, cStatus ) , aFlags[ 26 ] := .T. , ;
            oLbx1:skip(0), oDpar:load(), oFld:update( ), oSF3:SetFocus( ) )
        DEFINE BUTTON oBtn32 OF oBar3 RESOURCE "HRSAVE" PROMPT "Save" TOOLTIP "Save a part" ;
            ACTION (    oDpar:partot := oDpar:parqun * oDpar:parchg, oDpar:save( ), ;
            PartSave( oDpar, cWrkOrd, cStatus ), oWrk := UpdateTotals( oWrk, oDpa, oDla, aSrvUnt ), ;
            aJobCost := JobCost( aJobCost, oWrk ), oLbx1:refresh(), oDpar:load(), oFld:update( ), oLbx1:setfocus( ) )
        DEFINE BUTTON oBtn33 OF oBar3 RESOURCE "HRDELETE" PROMPT "Delete" TOOLTIP "Delete a part" ;
            ACTION ( PartDelete( oDpa, oDpar ), oWrk := UpdateTotals( oWrk, oDpa, oDla, aSrvUnt), aJobCost := JobCost(aJobCost,oWrk),;
            oLbx1:Refresh( ), oLbx1:gotop( ),  oDpar:load(), oFld:update(), oLbx1:setfocus())

               ... and there are several more

    // Define the labor button bar which is folder 3
    DEFINE BUTTONBAR oBar4 SIZE 50,60 OF oFld:aDialogs[ 3 ] 2007
        DEFINE BUTTON oBtn41 OF oBar4 RESOURCE "HRADD" PROMPT "Add"  TOOLTIP "Add a new labor item" ;
            ACTION ( oLbx2:gobottom(), oDla:append( ), oDla:blank( ), oDlar:load(), oDlar:wrkord := oWrk:wrkord, ;
            oDlar:wrkdat := DATE( ), oDlar:status := oWrk:status, oDlar:labtxf := IIF( aFlags[11], aFlags[6],.F.), ;
            aFlags[4] := .T. , oDlar:labrat := aFieldVals[18], oDlar:depart := cDept,  oDlar:labmec := aFieldVals[ 4 ],;
            oDlar:labtot := 0.00, oDlar:save( ), SetLabor( oDlar ),  aFlags[ 27 ] := .T. , oFld:update( ), oSF4:SetFocus( ) )
        DEFINE BUTTON oBtn42 OF oBar4 RESOURCE "HRSAVE" PROMPT "Save" TOOLTIP "Save labor detail" ;
            ACTION ( oDlar := LaborSave( oDlar, aTechs ), oDlar:save( ), oWrk := UpdateTotals( oWrk, oDpa, oDla, aSrvUnt ),;
            aJobCost := JobCost( aJobCost, oWrk ), oDlar := GlossLink( oDla, oDlar, cWrkord, cStatus ), oLbx2:refresh(), oFld:update( ), oLbx2:setfocus( ) )
   
        DEFINE BUTTON oBtn43 OF oBar4 RESOURCE "HRDELETE" PROMPT "Delete" TOOLTIP "Delete a labor item" ;
            ACTION ( LaborDelete( oDla ), oWrk := UpdateTotals( oWrk, oDpa, oDla, aSrvUnt ), aJobCost := JobCost( aJobCost, oWrk ),;
             oDla:skip( ), oLbx2:refresh(), oDlar:load(), oFld:update( ),  oLbx2:setfocus( ) )
                ... and there are more

    // Define the recommendations button bar which is folder 4
    DEFINE BUTTONBAR oBar5 SIZE 50,60 OF oFld:aDialogs[ 4 ] 2007
        DEFINE BUTTON oBtn51 OF oBar5 RESOURCE "HRADD"  PROMPT "Add" TOOLTIP "Add a new recommendation"  ;
            ACTION ( oLbx5:gobottom(), oRec:append(), oRec:blank( ), oRecr:load(), oRecr:wrkord := oWrk:wrkord, oRecr:wrkdat := DATE( ),;
            oRecr:vehlic := oWrk:ordlic, oRecr:save( ), oFld:update( ), oSF5:SetFocus( ) )
        DEFINE BUTTON oBtn52 OF oBar5 RESOURCE "HRSAVE" PROMPT "Save" TOOLTIP "Save a recommendation"  ;
            ACTION ( oRecr:labdes := MEMOLINE( oRecr:rectxt, 60, 1,, .t. ),IIF( EMPTY( oRecr:labcod), oRecr:labcod := "None", ), ;
            oRecr:save( ), oLbx5:refresh(), oRecr:load(), oFld:update( ), oLbx5:setfocus( ) )
   
                 ... and there are more

    // Define the totals button bar  ... this is folder 5
    DEFINE BUTTONBAR oBar6 SIZE 50,60 OF oFld:aDialogs[ 5 ] 2007
        DEFINE BUTTON oBtn61 OF oBar6 RESOURCE "HRCALC" PROMPT "Re-sum"  TOOLTIP "Re-calculate totals" ;
            ACTION ( oWrk := CalcTotals( oWrk, oCli, oDpa, oDla ), oFld:update( ) )
    DEFINE BUTTON oBtn62 OF oBar6 RESOURCE "INFO" PROMPT "A/R" TOOLTIP "A/R Account Balance" ;
        ACTION AvailCredit(oWrk:acrnum)
RETURN NIL
 

[Antonio Linares]

Tim,

Are you calling OrdBar() from the ON INIT clause of the dialog ? You should

[TimStone]

Antonio

Of course I do. Again, the important points:

This worked perfectly in every version through 11.09.
It only occurs when bars are being placed on folders.
The dialog has a bar
Each folder has its own bar

The only thing that is different is using 11.11, and Harbour/MSVC instead of xHarbour/xCC. HOWEVER, in previous builds with an earlier version of Harbour and MSVC this was not a problem, and because others are commenting on folders and bars with 11.10/11 I think the problem is in the updated FWH code.

Tim

[TimStone]

Any changes you'd like me to try ?

I realize this is complex, but something in the change from .09 to .11 has created the problem ( I believe ).

I'll do a file compare in the morning.

[Antonio Linares]

Tim,

Please post the error.log here, thanks

[TimStone]

Here it is ...

Code: Select all  Expand view

Application
===========
   Path and name: L:\asw9c\asw92.exe (32 bits)
   Size: ********* bytes
   Time from start: 0 hours 0 mins 12 secs
   Error occurred at: 12/05/11, 17:46:09
   Error description: Error BASE/1004  No exported method: GETCLIRECT
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => GETCLIRECT(0)
   Called from: L:\Projects\ASW92\Source\bar.prg => TBAR:NEW(81)
   Called from: L:\Projects\ASW92\Source\PRO1000.prg => ORDBAR(1709)
   Called from: L:\Projects\ASW92\Source\PRO1000.prg => (b)PRO1000(1670)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(720)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(931)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
   Called from: L:\Projects\ASW92\Source\PRO1000.prg => PRO1000(1670)
   Called from: L:\Projects\ASW92\Source\PRO1000.prg => (b)PRO100M(310)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1902)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK(1685)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LDBLCLICK(3493)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1670)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11236)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
   Called from:  => DIALOGBOX(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
   Called from: L:\Projects\ASW92\Source\PRO1000.prg => PRO100M(347)
   Called from: L:\Projects\ASW92\Source\asw9.prg => (b)MAIN(276)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(466)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(663)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1660)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1458)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(995)
   Called from: L:\Projects\ASW92\Source\asw9.prg => MAIN(325)

System
======
   CPU type: Intel(R) Core(TM)2 Quad CPU    Q6600  @ 2.40GHz -2147483648 Mhz
   Hardware memory: 3799 megs

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

   Compiler version: Harbour 3.0.0 (Rev. 16951)
   FiveWin  Version: FWH 11.06
   Windows version: 6.1, Build 7601 Service Pack 1

   Windows total applications running: 69
      1
      2 MSCTFIME UI
      3 Default IME
      4 Start
      5 CiceroUIWndFrame
      6 Tim Stone
      7 Start menu
      8 Task Switching
      9 Network Flyout
     10 TF_FloatingLangBar_WndTitle
     11 Workorder: 000019   Unit: PICKUP 2007 TOYOTA Highlander         Client: Frequent Florists                      
     12 Workorder Manager
     13 Auto Shop Writer 9 - 2011 Edition
     14 UESTUDIO
     15 [L:\Projects\ASW92\Source\PRO1000.prg] - ASW92 - UEStudio '11
     16 AIM
     17 GDI+ Window
     18 UltraCompareTray
     19 MCI command handling window
     20 Jump List
     21 Media Center SSO
     22 WMS ST Notif Window 00000748 00000808
     23 WMS Idle
     24 OfficePowerManagerWindow
     25 RawInputDetectorCaptionForIPoint
     26 mouse
     27 AK_DISPATCHER_WINDOW_TITLE
     28 RawInputDetectorCaptionForIType
     29 DYMO QuickPrint Utility
     30 .NET-BroadcastEventWindow.2.0.0.0.259f9d2.0
     31 Webroot Spy Sweeper
     32 MS_WebcheckMonitor
     33 2: TSuser - GoodSync
     34 AAMUpdatesNotifier
     35 BluetoothNotificationAreaIconWindowClass
     36 MessengerAutomation
     37 DDE Server Window
     38 WinAMRestoreWnd
     39 HiddenFaxWindow
     40 UtilitiesCallbackWindow
     41 Office Sync Process
     42 Battery Meter
     43 RTCMediaMessageWindow
     44 HelperMsgListenerWnd
     45 CRTCMediaController
     46 CUccPlatform
     47 Microsoft OneNote 2010 - Windows taskbar
     48 NvSvc
     49 C:\Windows\system32\CorelCreatorMessages.exe
     50 imApp
     51 imAppCopyData
     52 imAppSuspendAndResume
     53 Codejock Information
     54 Codejock Alert Options
     55 Network Meter
     56 Drives Meter
     57 All CPU Meter
     58 SidebarBroadcastWatcher
     59 keyboard
     60 Microsoft Security Essentials
     61 Zune AutoLauncher
     62 UxdService
     63 Task Host Window
     64 DWM Notification Window
     65 Msg
     66 Microsoft Lync          
     67 Trial Period Expiring
     68 Text Compare - UltraCompare Professional
     69 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   GETCLIRECT
     Param   1:    O    Class: ERROR
   TBAR:NEW
     Local   1:    U    
     Local   2:    N    0
   ORDBAR
     Param   1:    U    
     Param   2:    N    50
     Param   3:    N    60
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    U    
     Param   7:    L    .F.
     Param   8:    L    .T.
     Local   1:    O    Class: TBAR
     Local   2:    U    
   (b)PRO1000
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
     Local  11:    U    
     Local  12:    U    
     Local  13:    U    
     Local  14:    U    
     Local  15:    U    
     Local  16:    U    
     Local  17:    U    
     Local  18:    U    
     Local  19:    U    
     Local  20:    U    
     Local  21:    U    
     Local  22:    U    
     Local  23:    U    
     Local  24:    U    
     Local  25:    U    
     Local  26:    U    
     Local  27:    U    
     Local  28:    U    
     Local  29:    U    
     Local  30:    U    
     Local  31:    U    
     Local  32:    U    
     Local  33:    U    
     Local  34:    U    
     Local  35:    U    
     Local  36:    U    
     Local  37:    U    
     Local  38:    U    
     Local  39:    U    
     Local  40:    U    
     Local  41:    U    
     Local  42:    U    
     Local  43:    U    
     Local  44:    U    
     Local  45:    U    
     Local  46:    U    
     Local  47:    U    
     Local  48:    U    
     Local  49:    U    
     Local  50:    U    
     Local  51:    U    
     Local  52:    U    
     Local  53:    U    
     Local  54:    U    
   TDIALOG:INITIATE
     Param   1:    O    Class: TDIALOG
   TDIALOG:HANDLEEVENT
     Param   1:    N    1509282
     Param   2:    N    592050
     Local   1:    L    .T.
     Local   2:    U    
     Local   3:    U    
     Local   4:    L    .F.
     Local   5:    U    
     Local   6:    U    
   DIALOGBOX
     Param   1:    N    272
     Param   2:    N    1509282
     Param   3:    N    592050
   TDIALOG:ACTIVATE
     Param   1:    N    12910592
     Param   2:    C    "PRO1000"
     Param   3:    N    920106
     Param   4:    O    Class: TDIALOG
   PRO1000
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Param  11:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    920106
     Local   3:    S    
     Local   4:    O    Class: TDIALOG
   (b)PRO100M
     Param   1:    O    Class: TRECORD
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    O    Class: TGET
     Local   6:    O    Class: TGET
     Local   7:    C    "000019"
     Local   8:    N    19
     Local   9:    N    4
     Local  10:    O    Class: TGET
     Local  11:    O    Class: TGET
     Local  12:    O    Class: TCOMBOBOX
     Local  13:    O    Class: TXBRWCOLUMN
     Local  14:    U    
     Local  15:    U    
     Local  16:    O    Class: TDATA
   TWINDOW:LDBLCLICK
     Param   1:    N    62
     Param   2:    N    194
     Param   3:    N    1
     Param   4:    O    Class: TXBROWSE
   TCONTROL:LDBLCLICK
     Param   1:    N    62
     Param   2:    N    194
     Param   3:    N    1
   TXBROWSE:LDBLCLICK
     Param   1:    N    62
     Param   2:    N    194
     Param   3:    N    1
   TWINDOW:HANDLEEVENT
     Param   1:    N    62
     Param   2:    N    194
     Param   3:    N    1
     Local   1:    O    Class: TXBRWCOLUMN
     Local   2:    N    4
     Local   3:    N    2
   TCONTROL:HANDLEEVENT
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    4063426
   TXBROWSE:HANDLEEVENT
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    4063426
     Local   1:    U    
   _FWH
     Param   1:    N    515
     Param   2:    N    1
     Param   3:    N    4063426
   DIALOGBOX
     Param   1:    N    4063426
     Param   2:    N    515
     Param   3:    N    1
     Param   4:    N    4063426
     Param   5:    N    43
     Local   1:    O    Class: TXBROWSE
   TDIALOG:ACTIVATE
     Param   1:    N    12910592
     Param   2:    C    "PRO100M"
     Param   3:    N    3673248
     Param   4:    O    Class: TDIALOG
   PRO100M
     Param   1:    U    
     Param   2:    U    
     Param   3:    B    {|| ... }
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    L    .F.
     Param  11:    L    .F.
     Local   1:    O    Class: TDIALOG
     Local   2:    N    3673248
     Local   3:    S    
     Local   4:    O    Class: TDIALOG
   (b)MAIN
     Local   1:    O    Class: TDATA
     Local   2:    D    12/05/11
     Local   3:    O    Class: TXBRWCOLUMN
     Local   4:    N    9
   TBTNBMP:CLICK
     Param   1:    O    Class: TBTNBMP
   TBTNBMP:LBUTTONUP
   TCONTROL:HANDLEEVENT
     Param   1:    N    30
     Param   2:    N    18
     Param   3:    N    0
     Local   1:    L    .T.
     Local   2:    S    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1966098
     Local   1:    U    
   _FWH
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    1966098
   WINRUN
     Param   1:    N    1966098
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    1966098
     Param   5:    N    3
     Local   1:    O    Class: TBTNBMP
   TWINDOW:ACTIVATE
     Param   1:    N    3673248
   MAIN
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     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:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    

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

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

  1: => DB001                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         19           45      .F.   .F.

     Indexes in use                        TagName
           upper(ordcom)                      EPRCOM
           upper(vehlic)                      EPRVLI
           upper(vehlic)+wrkord               EPRALI
           paydat                             EPRPDT
           srvmgr                             EPRMGR
        => wrkord                             EBAORD
           wrkord                             EPRORD
           acrnum+ DTOS(wrkdat)               ACRNUM
           wrkord                             EALORD
           wrkdat                             EWKDAT

     Relations in use

  2:    DB002                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
        141          146      .F.   .F.

     Indexes in use                        TagName
        => wrkord                             EPRPAR
           filnum                             EPRPAL
           upper(parnum)                      EPRIPA
           wrkdat                             EPRIPD

     Relations in use

  3:    DB003                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           11      .F.   .F.

     Indexes in use                        TagName
        => wrkord                             EPRLAB
           filnum                             EPRLAL
           wrkdat                             EPRLDT
           labcod                             EPRLAC

     Relations in use

  4:    DB004                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         35           37      .F.   .F.

     Indexes in use                        TagName
        => wrkord                             EPRREC
           upper(vehlic)                      EPRREV
           upper(vehlic)                      EPRRED

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TTIMER
     5 TDBG
     6 TFONT
     7 TWINDOW
     8 TCONTROL
     9 TICON
    10 TBRUSH
    11 TDATABASE
    12 TDATA
    13 TDIALOG
    14 TBITMAP
    15 TGET
    16 GET
    17 TCLIPGET
    18 TBTNBMP
    19 TRECT
    20 TMENU
    21 TMENUITEM
    22 TBAR
    23 TMSGBAR
    24 TMSGITEM
    25 TRECORD
    26 TCHECKBOX
    27 TXBROWSE
    28 TXBRWCOLUMN
    29 TSCROLLBAR
    30 TFOLDER
    31 TMULTIGET
    32 TCOMBOBOX
    33 TRADMENU
    34 TRADIO
    35 TBUTTON
    36 TREG32

Memory Analysis
===============
      1614 Static variables

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


[Antonio Linares]

Tim,

Please modify your L:\Projects\ASW92\Source\bar.prg Method New this way:

Code: Select all  Expand view

METHOD New( oWnd, nBtnWidth, nBtnHeight, l3D, cMode, oCursor, l2007, l2010 ) CLASS TBar

   local oRect

   DEFAULT oWnd := GetWndDefault(), nBtnWidth := BAR_HEIGHT,;
           nBtnHeight := BAR_HEIGHT, l3D := .f., cMode := "TOP", l2007 := .F.,;
           l2010 := .F.
           
   oRect = oWnd:GetCliRect()        

   ::nStyle      = nOR( WS_BORDER, WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN )
   ...
 

Please notice oWnd := GetWndDefault()

[TimStone]

I found a problem that was unrelated to the bar.prg but it resolved the bar problem.

I declared numerous variables as private in the primary function / dialog. Then, when I created the OrdBar function ( to create the button bars ), I declared many of them as MEMVAR. When I commented out these declarations, the error stopped occuring. Next I found that a function I run when I click a different folder tab was causing an error. Again, commenting out MEMVAR eliminated that problem.

So now I have the dialog display, but I still don't have the data displaying in the GETS on the folders. I believe there is a screen shot of this above. There is no problem with a dialog that does not have folders, but there is with the data displayed on folders.

Tim

[TimStone]

I just noticed you had posted an update on 12/4/2011 so I downloaded it and it resolved that problem.

Thank you very much.

[Antonio Linares]

Very good