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

improved cursor position management

Browse Source
This commit is contained in:
Antonio Linares
1999-08-04 13:26:46 +00:00
parent 21ef15f4f6
commit d123fbec31
1 changed files with 28 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -83,7 +83,7 @@ ENDCLASS
//---------------------------------------------------------------------------//
METHOD New(nRow, nCol, bVarBlock, cVarName, cPicture, cColor) CLASS tGet
METHOD New(nRow, nCol, bVarBlock, cVarName, cPicture, cColor) CLASS TGet
local cChar
local nAt, nFor
@@ -187,15 +187,17 @@ return Self
METHOD Display() CLASS TGet
local cClrInverse := StrToken( SetColor(), 2, "," )
local nOldCursor := SetCursor( 0 )
@ ::Row, ::Col SAY ::buffer COLOR cClrInverse
SetPos( ::Row, ::Col + If( ::Pos != nil, ::Pos - 1, 0 ) )
SetCursor( nOldCursor )
return Self
//---------------------------------------------------------------------------//
METHOD Reset() CLASS tGet
METHOD Reset() CLASS TGet
if ::hasfocus
::buffer := ::PutMask(::VarGet())
@@ -206,7 +208,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD Undo() CLASS tGet
METHOD Undo() CLASS TGet
if ::hasfocus
::buffer := ::PutMask(::original)
@@ -217,7 +219,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD SetFocus() CLASS tGet
METHOD SetFocus() CLASS TGet
::hasfocus := .t.
::rejected := .f.
@@ -249,7 +251,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD KillFocus() CLASS tGet
METHOD KillFocus() CLASS TGet
::hasfocus := .f.
::pos := Nil
@@ -262,7 +264,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD VarPut(xValue) CLASS tGet
METHOD VarPut(xValue) CLASS TGet
Eval(::block, xValue)
@@ -270,13 +272,13 @@ return xValue
//---------------------------------------------------------------------------//
METHOD VarGet() CLASS tGet
METHOD VarGet() CLASS TGet
return Eval(::block)
//---------------------------------------------------------------------------//
METHOD Untransform(cBuffer) CLASS tGet
METHOD Untransform(cBuffer) CLASS TGet
local xValue
local cChar
@@ -333,7 +335,7 @@ return xValue
//---------------------------------------------------------------------------//
METHOD overstrike(cChar) CLASS tGet
METHOD overstrike(cChar) CLASS TGet
if ::type == "N" .and. !::lEdit
::pos := 1
@@ -384,7 +386,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD Insert(cChar) CLASS tGet
METHOD Insert(cChar) CLASS TGet
if ::type == "N" .and. !::lEdit
::pos := 1
@@ -423,7 +425,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD _Right() CLASS tGet
METHOD _Right() CLASS TGet
local nPos
@@ -451,11 +453,13 @@ METHOD _Right() CLASS tGet
::TypeOut := .t.
endif
DevPos( ::Row, ::Col + ::Pos - 1 )
return Self
//---------------------------------------------------------------------------//
METHOD _Left() CLASS tGet
METHOD _Left() CLASS TGet
local nPos
@@ -483,11 +487,13 @@ METHOD _Left() CLASS tGet
::TypeOut := .t.
endif
DevPos( ::Row, ::Col + ::Pos - 1 )
return Self
//---------------------------------------------------------------------------//
METHOD WordLeft() CLASS tGet
METHOD WordLeft() CLASS TGet
local nPos
@@ -517,7 +523,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD WordRight() CLASS tGet
METHOD WordRight() CLASS TGet
local nPos
@@ -547,7 +553,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD ToDecPos() CLASS tGet
METHOD ToDecPos() CLASS TGet
if !::hasFocus .or. ::decpos == Nil
Return .f.
@@ -561,7 +567,7 @@ return .t.
//---------------------------------------------------------------------------//
METHOD IsEditable(nPos) CLASS tGet
METHOD IsEditable(nPos) CLASS TGet
local cChar
@@ -590,7 +596,7 @@ return .f.
//---------------------------------------------------------------------------//
METHOD Input(cChar) CLASS tGet
METHOD Input(cChar) CLASS TGet
do case
case ::type == "N"
@@ -631,7 +637,7 @@ return cChar
//---------------------------------------------------------------------------//
METHOD PutMask(xValue, lEdit) CLASS tGet
METHOD PutMask(xValue, lEdit) CLASS TGet
local cChar, cBuffer
local nFor, nLen, nAt
@@ -663,7 +669,7 @@ return cBuffer
//---------------------------------------------------------------------------//
METHOD BackSpace() CLASS tGet
METHOD BackSpace() CLASS TGet
local nPos := ::Pos
@@ -677,7 +683,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD _Delete() CLASS tGet
METHOD _Delete() CLASS TGet
do case
case ::type == "C"
@@ -711,7 +717,7 @@ return Self
//---------------------------------------------------------------------------//
METHOD DeleteAll() CLASS tGet
METHOD DeleteAll() CLASS TGet
local xValue
@@ -736,7 +742,7 @@ return Self
Function GetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
return tGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
return TGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
//---------------------------------------------------------------------------//
@@ -745,4 +751,3 @@ function _GET_( uVar, cVarName, cPicture, bValid, bWhen, bSetGet )
return TGet():New(,, bSetGet, cVarName, cPicture )
//---------------------------------------------------------------------------//