Discussion:
TBMORE.TXT by Hannes Ziegler
(too old to reply)
medhome@hotmail.com
2017-08-23 22:03:59 UTC
Permalink
Hi there,

I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8

After init oTB:tbrowsedb()
oTB:addcolumn( )

oTB:skipBlock := {|x| Skipped(x)}
I did

nkey:=inkey(0)


After clicking mouse I did

stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end

But nothing happend


Any Idea?

Med
mirda
2017-08-31 14:55:22 UTC
Permalink
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!

I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.

Have you tried this:
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))

Regards
Damir
medhome@hotmail.com
2017-09-01 10:20:55 UTC
Permalink
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,

It's the same?
Did you work with these hiddens ?

Best Regards
Med
mirda
2017-09-01 13:05:31 UTC
Permalink
Post by ***@hotmail.com
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,
It's the same?
Did you work with these hiddens ?
Best Regards
Med
Hi Med!

It's not the same. Function Stuff doesn't change atail(oTB), it returns a
changed copy of string atail(oTB).

I haven't worked with these hiddens. Acctualy, I haven't heard about them
until now.

Regards

Damir
d***@hotmail.fr
2017-09-01 13:35:48 UTC
Permalink
Post by mirda
Post by ***@hotmail.com
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,
It's the same?
Did you work with these hiddens ?
Best Regards
Med
Hi Med!
It's not the same. Function Stuff doesn't change atail(oTB), it returns a
changed copy of string atail(oTB).
I haven't worked with these hiddens. Acctualy, I haven't heard about them
until now.
Regards
Damir
Dear Damir
I agree with you. I did wrong but I have the same result. the cursor does
not move to line 8 in oTB.

Do you have any Idea?

Best Regards
mirda
2017-09-01 19:51:49 UTC
Permalink
Post by d***@hotmail.fr
Post by mirda
Post by ***@hotmail.com
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,
It's the same?
Did you work with these hiddens ?
Best Regards
Med
Hi Med!
It's not the same. Function Stuff doesn't change atail(oTB), it returns a
changed copy of string atail(oTB).
I haven't worked with these hiddens. Acctualy, I haven't heard about them
until now.
Regards
Damir
Dear Damir
I agree with you. I did wrong but I have the same result. the cursor does
not move to line 8 in oTB.
Do you have any Idea?
Best Regards
Hi!

I haven't noticed wrong parameter in stuff function, it should be:

oTB[Len(oTB)] := stuff(atail(oTB),47,2,i2bin(8))

because you wish to replace these two characters.


Do you have any documentation about ATail(oTB) string?
How do you know that characters on the 47. and 48. position in the string
define row position in browse?
Why don't you use :rowPos property of browse object? You can simply assing
oTB:rowPos := 8

Regards

Damir
d***@hotmail.fr
2017-09-01 22:11:42 UTC
Permalink
Post by mirda
Post by d***@hotmail.fr
Post by mirda
Post by ***@hotmail.com
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,
It's the same?
Did you work with these hiddens ?
Best Regards
Med
Hi Med!
It's not the same. Function Stuff doesn't change atail(oTB), it returns a
changed copy of string atail(oTB).
I haven't worked with these hiddens. Acctualy, I haven't heard about them
until now.
Regards
Damir
Dear Damir
I agree with you. I did wrong but I have the same result. the cursor does
not move to line 8 in oTB.
Do you have any Idea?
Best Regards
Hi!
oTB[Len(oTB)] := stuff(atail(oTB),47,2,i2bin(8))
because you wish to replace these two characters.
Do you have any documentation about ATail(oTB) string?
How do you know that characters on the 47. and 48. position in the string
define row position in browse?
Why don't you use :rowPos property of browse object? You can simply assing
oTB:rowPos := 8
Regards
Damir
Hi Damir,

doing: rowPos:= nn does not work correctly when nn is mouse:row.

to have TBINFO.TXT SEARCH it in this group simply type TBINFO.TXT in the message zone. I can send you more by mail.

Best Regards .

Med
mirda
2017-09-02 09:10:40 UTC
Permalink
Post by ***@hotmail.com
Post by mirda
Post by d***@hotmail.fr
Post by mirda
Post by ***@hotmail.com
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,
It's the same?
Did you work with these hiddens ?
Best Regards
Med
Hi Med!
It's not the same. Function Stuff doesn't change atail(oTB), it returns a
changed copy of string atail(oTB).
I haven't worked with these hiddens. Acctualy, I haven't heard about them
until now.
Regards
Damir
Dear Damir
I agree with you. I did wrong but I have the same result. the cursor does
not move to line 8 in oTB.
Do you have any Idea?
Best Regards
Hi!
oTB[Len(oTB)] := stuff(atail(oTB),47,2,i2bin(8))
because you wish to replace these two characters.
Do you have any documentation about ATail(oTB) string?
How do you know that characters on the 47. and 48. position in the string
define row position in browse?
Why don't you use :rowPos property of browse object? You can simply assing
oTB:rowPos := 8
Regards
Damir
Hi Damir,
doing: rowPos:= nn does not work correctly when nn is mouse:row.
to have TBINFO.TXT SEARCH it in this group simply type TBINFO.TXT in the message zone. I can send you more by mail.
Best Regards .
Med
Hi!

I'm sure you could calculate oTB:rowPos from mouse row (screen row).

I found TBMORE.TXT and there said that offset 47 in atail(oTB) correspond
to number of pending row skips during stabilization. It is not row
position!

Damir
medhome@hotmail.com
2017-09-04 16:24:00 UTC
Permalink
Post by mirda
Post by ***@hotmail.com
Post by mirda
Post by d***@hotmail.fr
Post by mirda
Post by ***@hotmail.com
Post by mirda
Post by ***@hotmail.com
Hi there,
I tried to play internals ivars of Tbrowse object on clipper52e.
I tried this to move the cursor from line 1 To Line 8
After init oTB:tbrowsedb()
oTB:addcolumn( )
oTB:skipBlock := {|x| Skipped(x)}
I did
nkey:=inkey(0)
After clicking mouse I did
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
oTB:refreshAll()
while ( !oTB:stabilize() ) ; end
But nothing happend
Any Idea?
Med
Hi Med!
I think the line
stuff(atail(oTB),47,0,i2bin(8)) ( for moving to line 8)
does nothing.
oTB[Len(oTB)] := stuff(atail(oTB),47,0,i2bin(8))
Regards
Damir
Hi Damir,
It's the same?
Did you work with these hiddens ?
Best Regards
Med
Hi Med!
It's not the same. Function Stuff doesn't change atail(oTB), it returns a
changed copy of string atail(oTB).
I haven't worked with these hiddens. Acctualy, I haven't heard about them
until now.
Regards
Damir
Dear Damir
I agree with you. I did wrong but I have the same result. the cursor does
not move to line 8 in oTB.
Do you have any Idea?
Best Regards
Hi!
oTB[Len(oTB)] := stuff(atail(oTB),47,2,i2bin(8))
because you wish to replace these two characters.
Do you have any documentation about ATail(oTB) string?
How do you know that characters on the 47. and 48. position in the string
define row position in browse?
Why don't you use :rowPos property of browse object? You can simply assing
oTB:rowPos := 8
Regards
Damir
Hi Damir,
doing: rowPos:= nn does not work correctly when nn is mouse:row.
to have TBINFO.TXT SEARCH it in this group simply type TBINFO.TXT in the message zone. I can send you more by mail.
Best Regards .
Med
Hi!
I'm sure you could calculate oTB:rowPos from mouse row (screen row).
I found TBMORE.TXT and there said that offset 47 in atail(oTB) correspond
to number of pending row skips during stabilization. It is not row
position!
Damir
Hi Mirda

I agree with you setting oTb:Rowpos is better. But I used the offsets 29,33 and 51 to set oTb:rowPos and oTb:colPos.

Best Regards

Med

Loading...