Problem with Tree using bimaps from resources

[Marco Turco]

Hi, I made an xbrowse with tree and I'm using bitmaps from resources.
It seems there is a memory leak. The bitmaps appears the first time the dialog is displayed but not if I close and recall the dialog.
Any ideas ?


b_FolderOpened:=LoadBitMap( GetResources(), "16open")
b_Folder:=LoadBitMap( GetResources(), "16folder")
b_mptydoc:=LoadBitMap( GetResources(), "16mptydoc")


DEFINE DIALOG oDlg FONT oGenFont RESOURCE "XP_034" TITLE CTITLE

redefine XBROWSE oBrw id 102 FONT oGenFont OF oDlg NOBORDER

oBrw:SetTree( oTree, { b_FolderOpened, ;
b_Folder, ;
b_mptydoc } )

WITH OBJECT oBrw:aCols[ 1 ]

:AddResource( "16hdrive" )
:nWidth := 340
:cHeader := 'Cartella'
b := :bLDClickData

:bLDClickData := { |r,c,f,o| ToggleFolder( r,c,f,o,b ) }

:bBmpData := { || If( ':' $ oBrw:oTreeItem:cPrompt, 4, ;
If( 'D' $ oBrw:oTreeItem:Cargo[ 5 ], ;
If( oBrw:oTreeItem:lOpened, 1, 2 ), 3 ) ) }

END

ACTIVATE DIALOG oDlg CENTER

[Marco Turco]

The problem seems to be solved with a local definition of these variables.

[James Bott]

Marco,

Thanks for reporting the solution.

This is another reason why I always declare all my variables as LOCAL with the rare exception of a STATIC. I never use PUBLIC or PRIVATE. And I set the compiler to report any undeclared variables. This has really helped reduce bugs.

James