See changelog 2002-04-27 00:10 UTC -0300

This commit is contained in:
Luiz Rafael Culik
2002-04-27 03:22:15 +00:00
parent 130dcaff97
commit c16c4438f6
2 changed files with 8 additions and 10 deletions

View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/rtl/dummy.prg
*Removed reference to ordkeydel() and ordkeyadd()
2002-04-27 23:50 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
* source/rtl/teditor.prg
* Added Support lookup on SetKey()'s Defined functions on Edit()
and BrowseText() then this are not Handle by TMemoEditor:Edit() method
2002-04-27 19:15 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

View File

@@ -475,7 +475,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
LOCAL nWidthMax := ::nRight - ::nLeft +1 // Visible width of TBrowse
LOCAL nWidth := 0,nColWidth:=0,nLen:=0
tracelog('nWidthMax : ',nWidthMax)
// if oCol has :Width property set I use it
if oCol:Width <> nil //.AND. oCol:Width < (nWidthMax - 4)
nWidth := oCol:Width
@@ -516,9 +516,6 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
nLen:=nWidthMax
endif
nWidth:= if(nColwidth>nLen,nColwidth,nLen)
tracelog('nColwidth : ',nColwidth)
tracelog('nLen : ',nLen)
tracelog('nwidth : ',nWidth)
return nWidth
@@ -1492,11 +1489,9 @@ function TBMOUSE( oBrowse, nMouseRow, nMouseCol )
local Local1
if ( oBrowse:hittest(nMouseRow, nMouseCol) == -5121 )
//tracelog('mouse row ',oBrowse:mrowpos)
//tracelog('mouse col ',oBrowse:mcolpos)
Local1 := oBrowse:mrowpos - oBrowse:rowpos
//tracelog('local1 ',local1)
do while ( Local1 < 0 )
Local1++
@@ -1527,11 +1522,9 @@ function TBMOUSE( oBrowse, nMouseRow, nMouseCol )
Method hitTest(mrow,mcol) CLASS TBROWSE
local i
//tracelog('mrow',mrow)
//tracelog('mcol',mrow)
::mRowPos := ::rowPos
::mColPos := ::colPos
//tracelog(::mrowPos)
if mRow< ::rect[1] .or. mRow > ::rect[3]
return HTNOWHERE