METHOD SetMsg( cText ) CLASS TMsgBar
DEFAULT ::cMsg := ""
if ::l2007
::cMsg = cText
::Refresh()
return nil
endif
::GetDC() // must be placed here!!!
...METHOD SetMsg( cText ) CLASS TMsgBar
DEFAULT ::cMsg := ""
if ::l2007
::cMsg = cText
::Refresh()
return nil
endif
::GetDC() // must be placed here!!!
...I can't complite this source ( FWH 7.11 and xAHRBOUR.COM November 2007)
my log:
Type: C >>>xhb.exe -o"Obj\msgbar.c" -m -n -p -q -gc0 -B -D-w2 -I"C:\fwh\include" -I"R:\include" -I"R:\include\w32" "Source\Classes\msgbar.prg"<<<
xHarbour Compiler build 1.0.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Source\Classes\msgbar.prg(304) Error E0020 Incomplete statement or unbalanced delimiters
Source\Classes\msgbar.prg(379) Warning W0003 Variable: 'NFLAGS' declared but not used in function: 'TMSGBAR_LBUTTONDOWN(364)'
1 error
No code generated
Type: C >>>Couldn't build: msgbar.obj<<<
Type: C >>>TMAKEOBJECT<<<
Type: C >>>TMAKEOBJECT:REFRESH<<<
Type: N >>> 1322<<<
> Source\Classes\msgbar.prg(304) Error E0020 Incomplete statement or unbalanced delimiters
What source code do you have at line 304 ?
sorry, I leave one )
Antonio Linares wrote:This is a necesary fix for FWH 7.11 in Class TMsgBar:
METHOD SetMsg( cText ) CLASS TMsgBar DEFAULT ::cMsg := "" if ::l2007 ::cMsg = cText ::Refresh() return nil endif ::GetDC() // must be placed here!!! ...
Patrick,
Its a bad memory leak, as a hDC is created everytime the mouse is moved, and it is not released!
That fix should be applied inmediately if 2007 clause is used
Antonio Linares wrote:Patrick,
Its a bad memory leak, as a hDC is created everytime the mouse is moved, and it is not released!
That fix should be applied inmediately if 2007 clause is used