fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improved Display and SetFocus methods

Browse Source
This commit is contained in:
Antonio Linares
1999-08-04 13:02:49 +00:00
parent 13c783cea2
commit ff7b575b72
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/source/rtl/tget.prg
View File

@@ -69,7 +69,9 @@ CLASS TGet
METHOD Input(cChar)
METHOD PutMask(cBuffer, lEdit)
METHOD Display() INLINE DevPos( ::Row, ::Col + If( ::Pos != nil, ::Pos, 0 ) ), DevOut( ::buffer ), Self
METHOD Display() INLINE DevPos( ::Row, ::Col ), DevOut( ::buffer ),;
DevPos( ::Row, ::Col + If( ::Pos != nil, ::Pos - 1, 0 ) ),;
Self
// METHOD ColorDisp(cColorSpec) VIRTUAL
// METHOD hitTest(nRow, nCol) VIRTUAL
@@ -232,6 +234,8 @@ METHOD SetFocus() CLASS tGet
::BadDate := .f.
endif
DevPos( ::Row, ::Col + ::Pos - 1 )
return Self
//---------------------------------------------------------------------------//
@@ -365,6 +369,8 @@ METHOD overstrike(cChar) CLASS tGet
::BadDate := .f.
endif
::Display()
return Self
//---------------------------------------------------------------------------//