See changelog 2002-04-27 00:10 UTC -0300
This commit is contained in:
@@ -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>
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user