this come from window.prg
Code: Select all
METHOD Row( nValue ) CLASS WINDOW
LOCAL nCol
IF ::lCreated
IF Pcount() == 0
RETURN ::oQTObject:y()
ELSEIF Pcount() == 1
nCol := ::oQTObject:x()
::oQTObject:move( nCol,nValue )
ENDIF
ELSE
IF Pcount() == 0
RETURN ::nRow
ELSEIF Pcount() == 1
::nRow := nValue
ENDIF
ENDIF
RETURN NIL
Code: Select all
METHOD HMGBASEOBJ:Col( nArg1 )
IF PCOUNT() == 0
RETURN ::nCol
ELSEIF VALTYPE( nArg1 ) == "N"
::nCol := nArg1
IF ::lCreated == .T.
::nRow := IF( VALTYPE( ::nRow) == "N", ::nRow, ::oQTObject:y() )
::Move()
ENDIF
ENDIF
RETURN NIL
etc, etc...
METHOD HMGBASEOBJ:Row( nArg1 )
IF PCOUNT() == 0
RETURN ::nRow
ELSEIF VALTYPE( nArg1 ) == "N"
::nRow := nArg1
IF ::lCreated == .T.
::nCol := IF( VALTYPE( ::nCol) == "N", ::nCol, ::oQTObject:x() )
::Move()
ENDIF
ENDIF
RETURN NIL
etc, etc.
METHOD HMGBASEOBJ:Move()
IF ::lCreated == .T.
::oQTObject:move( ::nCol, ::nRow )
ENDIF
RETURN NIL