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 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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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 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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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,
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
<diamsbibouchka@hotmail.fr> schreef in bericht news:aa3d0af0-c010-4f3a-a4a4-33c2e470fab7@googlegroups.com...
Le mardi 12 septembre 2017 14:53:01 UTC+1, lohen a écrit :
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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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,
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
<diamsbibouchka@hotmail.fr> schreef in bericht news:aa3d0af0-c010-4f3a-a4a4-33c2e470fab7@googlegroups.com...
Le mardi 12 septembre 2017 14:53:01 UTC+1, lohen a écrit :
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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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.
<diamsbibouchka@hotmail.fr> schreef in bericht news:8df61d32-b96a-4cdb-9bfb-2c3fb4b4f535@googlegroups.com...
Le jeudi 14 septembre 2017 19:05:47 UTC+1, lohen a écrit :
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
<diamsbibouchka@hotmail.fr> schreef in bericht news:aa3d0af0-c010-4f3a-a4a4-33c2e470fab7@googlegroups.com...
Le mardi 12 septembre 2017 14:53:01 UTC+1, lohen a écrit :
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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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
<diamsbibouchka@hotmail.fr> schreef in bericht news:8df61d32-b96a-4cdb-9bfb-2c3fb4b4f535@googlegroups.com...
Le jeudi 14 septembre 2017 19:05:47 UTC+1, lohen a écrit :
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
<diamsbibouchka@hotmail.fr> schreef in bericht news:aa3d0af0-c010-4f3a-a4a4-33c2e470fab7@googlegroups.com...
Le mardi 12 septembre 2017 14:53:01 UTC+1, lohen a écrit :
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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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
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)
<medhome60@gmail.com> schreef in bericht news:91ffee76-ada0-4614-b46b-7092cf25d97c@googlegroups.com...
Le samedi 16 septembre 2017 21:00:40 UTC+1, lohen a écrit :
<diamsbibouchka@hotmail.fr> schreef in bericht news:8df61d32-b96a-4cdb-9bfb-2c3fb4b4f535@googlegroups.com...
Le jeudi 14 septembre 2017 19:05:47 UTC+1, lohen a écrit :
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
<diamsbibouchka@hotmail.fr> schreef in bericht news:aa3d0af0-c010-4f3a-a4a4-33c2e470fab7@googlegroups.com...
Le mardi 12 septembre 2017 14:53:01 UTC+1, lohen a écrit :
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
"Ben" <diams...@hotmail.fr> schreef in bericht news:c4f60145-ba3b-4a73-837e-814b256e85fe@googlegroups.com...
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
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
| Sysop: | Keyop |
|---|---|
| Location: | Huddersfield, West Yorkshire, UK |
| Users: | 291 |
| Nodes: | 16 (2 / 14) |
| Uptime: | 155:57:11 |
| Calls: | 6,612 |
| Calls today: | 2 |
| Files: | 12,162 |
| Messages: | 5,311,826 |