Hidens TBROWSE

Discussion:

Hidens TBROWSE

(too old to reply)

Ben

2017-09-06 15:27:07 UTC

Hi there,

I tried to use mouCol2u() found somewhere in this forum.I Do not remember the author. moucol2u does not work at all. Is there any update ? I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send what I did
to the author ?

Best Regards

Ben

STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column

local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i

for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )

if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end

nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) * (12 ) ))) + 1 )

next

return iif(i>self:colcount,0,i)

lohen

2017-09-12 13:52:19 UTC

Permalink

Hi Ben,

The shown excerpt is part of the _o_ceans project (for CA-Clipper),
specifically for CA-Clipper 5.2(e), mimicing oTB: MROWPOS and oTB: MCOLPOS
which were only introduced for CA-Clipper 5.3(b) .oO in an alternative
naming convention (which your quoted code snippet deviates from; iow, in the
project the names are different from what you showed, but that is not
important)

I confirm this implementation works alright (as said, for CA-Clipper 5.2(e))
_as long as_ all fields in the browse exactly fit the browse window; iow,
there is yet a problem with this code in any other case, agreed

Note however, what your snippet shows is only part of the CA-Clipper 5.2(e)
oTB: MROWPOS and oTB: MCOLPOS implementation (that implementation uses the
STATIC functions mouCol2u() and mouRow2u(), but these calls are only a
fraction of the implementation) ; I will have to lookup in my code
repository

fyi, at the "_o_ceans" webpage there is a download, for running 16bit DOS
CA-Clipper (all of them targetting version 5.2(e)) demos, within any Windows
(32/64bit; tested, starting from Windows XP and beyond), when combined with
the vDos and/or vDosPlus DOS virtual machines; included is a demo named
'Referral' which uses the (current) emulation for oTB: MROWPOS and oTB:
MCOLPOS; as you can see there, clicking the mouse in the Referral browse is
supported (but not perfect)

So, in summary, there's room for improvement
Any suggestion is welcome

lohen

ps: sorry for the late response; also bear with me, I only have clc access
one message at a time, per day

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any update ?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) * (12 ) ))) + 1 )
next
return iif(i>self:colcount,0,i)

d***@hotmail.fr

2017-09-14 10:52:05 UTC

Permalink

Post by lohen
Hi Ben,
The shown excerpt is part of the _o_ceans project (for CA-Clipper),
specifically for CA-Clipper 5.2(e), mimicing oTB: MROWPOS and oTB: MCOLPOS
which were only introduced for CA-Clipper 5.3(b) .oO in an alternative
naming convention (which your quoted code snippet deviates from; iow, in the
project the names are different from what you showed, but that is not
important)
I confirm this implementation works alright (as said, for CA-Clipper 5.2(e))
_as long as_ all fields in the browse exactly fit the browse window; iow,
there is yet a problem with this code in any other case, agreed
Note however, what your snippet shows is only part of the CA-Clipper 5.2(e)
oTB: MROWPOS and oTB: MCOLPOS implementation (that implementation uses the
STATIC functions mouCol2u() and mouRow2u(), but these calls are only a
fraction of the implementation) ; I will have to lookup in my code
repository
fyi, at the "_o_ceans" webpage there is a download, for running 16bit DOS
CA-Clipper (all of them targetting version 5.2(e)) demos, within any Windows
(32/64bit; tested, starting from Windows XP and beyond), when combined with
the vDos and/or vDosPlus DOS virtual machines; included is a demo named
MCOLPOS; as you can see there, clicking the mouse in the Referral browse is
supported (but not perfect)
So, in summary, there's room for improvement
Any suggestion is welcome
lohen
ps: sorry for the late response; also bear with me, I only have clc access
one message at a time, per day

Hi iohan,

Can you send me your url web page, test clipper 5.2e under 64bits system?

Regards

Ben.

lohen

2017-09-14 18:05:40 UTC

Permalink

Hi again,

The direct DropBox url is here:
https://www.dropbox.com/s/i5km5olwbo3zj9v/_o_ceans.zip?dl=0

It assumes you also download and install vDosPlus, which is here:
http://files.vdosplus.org/vDosPlus-current-setup.exe

Either that or browsing the respective websites:

http://www.vDosPlus.org (this is the DOS VM to use for Windows)
http://users.telenet.be/_o_ceans (CA-Clipper)

Inside the archive from DropBox there is a readme.txt file (to correctly
install the 2 packages)

Now, hoping my usenet provider allows urls

Regards,

lohen

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any update ?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) *
(12 ) )))
+ 1 )
next
return iif(i>self:colcount,0,i)

Hi iohan,

Can you send me your url web page, test clipper 5.2e under 64bits system?

Regards

Ben.

d***@hotmail.fr

2017-09-15 08:41:35 UTC

Permalink

Post by lohen
Hi again,
https://www.dropbox.com/s/i5km5olwbo3zj9v/_o_ceans.zip?dl=0
http://files.vdosplus.org/vDosPlus-current-setup.exe
http://www.vDosPlus.org (this is the DOS VM to use for Windows)
http://users.telenet.be/_o_ceans (CA-Clipper)
Inside the archive from DropBox there is a readme.txt file (to correctly
install the 2 packages)
Now, hoping my usenet provider allows urls
Regards,
lohen

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any update ?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) *
(12 ) )))
+ 1 )
next
return iif(i>self:colcount,0,i)

Hi iohan,
Can you send me your url web page, test clipper 5.2e under 64bits system?
Regards
Ben.

Hi Again,
Many thanks for your last information.

Actually, to have a result from u2Moucol I changed :
t7u_tcmax:=1 to t7u_tcmax:=bin2i(substr(t7c_info,51))+self:nLeft))
Do you agree?

Regards.

Ben

lohen

2017-09-16 20:00:18 UTC

Permalink

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any
update
?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) *
(12 ) )))
+ 1 )
next
return iif(i>self:colcount,0,i)

Hi iohan,
Can you send me your url web page, test clipper 5.2e under 64bits system?
Regards
Ben.

<
Hi Again,
Many thanks for your last information.

Actually, to have a result from u2Moucol I changed :
t7u_tcmax:=1 to t7u_tcmax:=bin2i(substr(t7c_info,51))+self:nLeft))
Do you agree?

Regards.

Ben
Hi Ben,

Yes thanks, it takes care now of leading column spaces in the scenario i
referred to

I've applied the change in the demos (vDosPlus & vDos)

Thanks alot

lohen

m***@gmail.com

2017-09-18 06:19:37 UTC

Permalink

Post by d***@hotmail.fr

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any
update
?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) *
(12 ) )))
+ 1 )
next
return iif(i>self:colcount,0,i)

Hi iohan,
Can you send me your url web page, test clipper 5.2e under 64bits system?
Regards
Ben.

<
Hi Again,
Many thanks for your last information.
t7u_tcmax:=1 to t7u_tcmax:=bin2i(substr(t7c_info,51))+self:nLeft))
Do you agree?
Regards.
Ben
Hi Ben,
Yes thanks, it takes care now of leading column spaces in the scenario i
referred to
I've applied the change in the demos (vDosPlus & vDos)
Thanks alot
lohen

Hi Lohen,

Now I tried to subclass TbrowseDb using classy.lib. I was really suprised to find that I can not access to self[14]. Did you try that?

Regards.

Ben

lohen

2017-09-18 16:58:50 UTC

Permalink

Post by d***@hotmail.fr

Post by lohen
Hi Ben,
The shown excerpt is part of the _o_ceans project (for CA-Clipper),
specifically for CA-Clipper 5.2(e), mimicing oTB: MROWPOS and oTB: MCOLPOS
which were only introduced for CA-Clipper 5.3(b) .oO in an alternative
naming convention (which your quoted code snippet deviates from; iow,
in
the
project the names are different from what you showed, but that is not
important)
I confirm this implementation works alright (as said, for CA-Clipper 5.2(e))
_as long as_ all fields in the browse exactly fit the browse window; iow,
there is yet a problem with this code in any other case, agreed
Note however, what your snippet shows is only part of the CA-Clipper 5.2(e)
oTB: MROWPOS and oTB: MCOLPOS implementation (that implementation uses the
STATIC functions mouCol2u() and mouRow2u(), but these calls are only a
fraction of the implementation) ; I will have to lookup in my code
repository
fyi, at the "_o_ceans" webpage there is a download, for running 16bit DOS
CA-Clipper (all of them targetting version 5.2(e)) demos, within any Windows
(32/64bit; tested, starting from Windows XP and beyond), when combined with
the vDos and/or vDosPlus DOS virtual machines; included is a demo named
MCOLPOS; as you can see there, clicking the mouse in the Referral
browse
is
supported (but not perfect)
So, in summary, there's room for improvement
Any suggestion is welcome
lohen
ps: sorry for the late response; also bear with me, I only have clc access
one message at a time, per day

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any
update
?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 )))
+
1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) *
(12 ) )))
+ 1 )
next
return iif(i>self:colcount,0,i)

Hi iohan,
Can you send me your url web page, test clipper 5.2e under 64bits system?
Regards
Ben.

Hi Lohen,

Now I tried to subclass TbrowseDb using classy.lib. I was really suprised
to find that I can not access to self[14]. Did you try that?

Regards.
Ben
I remember having difficulty also inheriting from the CA-Clipper classes,
but afair you'll have to use a workaround; inside your constructor, f.i.
instantiate a TBrowseDb object (with the params your constructor receives),
then copy all elements of the vintage object into self (with ACOPY)

Something like that

hth,

lohen

m***@gmail.com

2017-09-20 21:06:22 UTC

Permalink

Post by m***@gmail.com

Post by d***@hotmail.fr

Post by lohen
Hi Ben,
The shown excerpt is part of the _o_ceans project (for CA-Clipper),
specifically for CA-Clipper 5.2(e), mimicing oTB: MROWPOS and oTB: MCOLPOS
which were only introduced for CA-Clipper 5.3(b) .oO in an alternative
naming convention (which your quoted code snippet deviates from; iow,
in
the
project the names are different from what you showed, but that is not
important)
I confirm this implementation works alright (as said, for CA-Clipper 5.2(e))
_as long as_ all fields in the browse exactly fit the browse window; iow,
there is yet a problem with this code in any other case, agreed
Note however, what your snippet shows is only part of the CA-Clipper 5.2(e)
oTB: MROWPOS and oTB: MCOLPOS implementation (that implementation uses the
STATIC functions mouCol2u() and mouRow2u(), but these calls are only a
fraction of the implementation) ; I will have to lookup in my code
repository
fyi, at the "_o_ceans" webpage there is a download, for running 16bit DOS
CA-Clipper (all of them targetting version 5.2(e)) demos, within any Windows
(32/64bit; tested, starting from Windows XP and beyond), when combined with
the vDos and/or vDosPlus DOS virtual machines; included is a demo named
MCOLPOS; as you can see there, clicking the mouse in the Referral
browse
is
supported (but not perfect)
So, in summary, there's room for improvement
Any suggestion is welcome
lohen
ps: sorry for the late response; also bear with me, I only have clc access
one message at a time, per day

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not
remember the author. moucol2u does not work at all. Is there any
update
?
I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send
what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 )))
+
1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) *
(12 ) )))
+ 1 )
next
return iif(i>self:colcount,0,i)

Hi iohan,
Can you send me your url web page, test clipper 5.2e under 64bits system?
Regards
Ben.

Hi Lohen,
Now I tried to subclass TbrowseDb using classy.lib. I was really suprised
to find that I can not access to self[14]. Did you try that?
Regards.
Ben
I remember having difficulty also inheriting from the CA-Clipper classes,
but afair you'll have to use a workaround; inside your constructor, f.i.
instantiate a TBrowseDb object (with the params your constructor receives),
then copy all elements of the vintage object into self (with ACOPY)
Something like that
hth,
lohen

Hi again,

Finally the problem is solved by using an other OOP library ( freeware).

Regards

Ben

m***@gmail.com

2017-09-20 19:41:21 UTC

Permalink

Post by Ben
Hi there,
I tried to use mouCol2u() found somewhere in this forum.I Do not remember the author. moucol2u does not work at all. Is there any update ? I have a Clipper 5.2e and I use grumpfish Mouse Lib. I would like to send what I did
to the author ?
Best Regards
Ben
STATIC FUNCTION mouCol (self,nmcol) // nMcol is mouse coordinate column
local c_info:=self[ 14 ]
local nMin:=1, nMax:=1, vsLen:=BIN2I((SUBSTR (c_info,13 ))),i
for i:= 1 to self:colCount
nMax += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i- 1 ) * 12 ))) + 1 )
if(((nMcol >= nMin) .AND.(nMcol<nMax ) ) )
exit
end
nMin += (BIN2I((SUBSTR (c_info ,85 + vsLen + (i - 1 ) * (12 ) ))) + 1 )
next
return iif(i>self:colcount,0,i)

Hi again,

Finaly, the problem was solved by using an other freeware library.

Regards.

Ben