Rocksolid Light

Welcome to Rocksolid Light

mail  files  register  newsreader  groups  login

Message-ID:  

Netscape is not a newsreader, and probably never shall be. -- Tom Christiansen

devel / comp.lang.clipper / GET TBROWSE

SubjectAuthor
* GET TBROWSEMohamed Hamza
`* GET TBROWSElohen
 `* GET TBROWSEMohamed Hamza
  `* GET TBROWSEMohamed Hamza
   `* GET TBROWSElohen
    `* GET TBROWSEMohamed Hamza
     `* GET TBROWSElohen
      `* GET TBROWSEMohamed Hamza
       `* GET TBROWSElohen
        `* GET TBROWSEMohamed Hamza
         `* GET TBROWSElohen
          `* GET TBROWSEMohamed Hamza
           `* GET TBROWSElohen
            `* GET TBROWSEMohamed Hamza
             `- GET TBROWSElohen

1
GET TBROWSE

<d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=47&group=comp.lang.clipper#47

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:a05:6214:b2b:b0:635:d96c:3204 with SMTP id w11-20020a0562140b2b00b00635d96c3204mr1200qvj.5.1688064864366;
Thu, 29 Jun 2023 11:54:24 -0700 (PDT)
X-Received: by 2002:a05:6820:1b8c:b0:563:664:ea19 with SMTP id
cb12-20020a0568201b8c00b005630664ea19mr352592oob.1.1688064863979; Thu, 29 Jun
2023 11:54:23 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.goja.nl.eu.org!3.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Thu, 29 Jun 2023 11:54:23 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=105.99.97.103; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.99.97.103
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
Subject: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Thu, 29 Jun 2023 18:54:24 +0000
Content-Type: text/plain; charset="UTF-8"
 by: Mohamed Hamza - Thu, 29 Jun 2023 18:54 UTC

Hi All,

I wrote this simple code to show my problem:

@0, 0, 10, maxcol() GET u1 TBROWSE oTB1
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2

READ

oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
Is it possible to display oTB1 and oTB2 at the same time?

Nb: I believe that oTB2 is displayed when we set the focus on it?

Regards.

Med

Re: GET TBROWSE

<u7libq$2eifg$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=48&group=comp.lang.clipper#48

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Fri, 30 Jun 2023 05:32:07 +0200
Organization: A noiseless patient Spider
Lines: 27
Message-ID: <u7libq$2eifg$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 30 Jun 2023 03:32:10 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="d0e043d0704e494d3edfcbcfbb9f1e48";
logging-data="2574832"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18y2WlDVDfvt+iFUu2OiRw1"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:jlklDzl/QrFhnILYnKpuIfmGHWw=
In-Reply-To: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
 by: lohen - Fri, 30 Jun 2023 03:32 UTC

Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> Hi All,
>
> I wrote this simple code to show my problem:
>
> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>
> READ
>
> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> Is it possible to display oTB1 and oTB2 at the same time?
>
> Nb: I believe that oTB2 is displayed when we set the focus on it?
>
> Regards.
>
> Med
Can you use the @ ... GET SEND ... clause as in

@ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
@ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
maxrow(),maxcol() was in wrong order in your sample

hth,

lohen

Re: GET TBROWSE

<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=49&group=comp.lang.clipper#49

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:a05:620a:19a6:b0:75c:b403:271 with SMTP id bm38-20020a05620a19a600b0075cb4030271mr7340qkb.1.1688137396653;
Fri, 30 Jun 2023 08:03:16 -0700 (PDT)
X-Received: by 2002:a17:90b:897:b0:263:4d9e:64f1 with SMTP id
bj23-20020a17090b089700b002634d9e64f1mr1493905pjb.0.1688137396114; Fri, 30
Jun 2023 08:03:16 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!feeder1.feed.usenet.farm!feed.usenet.farm!peer01.ams4!peer.am4.highwinds-media.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Fri, 30 Jun 2023 08:03:15 -0700 (PDT)
In-Reply-To: <u7libq$2eifg$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=105.98.8.52; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.98.8.52
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com> <u7libq$2eifg$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Fri, 30 Jun 2023 15:03:16 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2338
 by: Mohamed Hamza - Fri, 30 Jun 2023 15:03 UTC

Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> > Hi All,
> >
> > I wrote this simple code to show my problem:
> >
> > @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> > @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> >
> > READ
> >
> > oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> > Is it possible to display oTB1 and oTB2 at the same time?
> >
> > Nb: I believe that oTB2 is displayed when we set the focus on it?
> >
> > Regards.
> >
> > Med
> Can you use the @ ... GET SEND ... clause as in
>
> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> maxrow(),maxcol() was in wrong order in your sample
>
> hth,
>
> lohen

I got the same result

@ 0, 0,10,maxcol() get u tbrowse otb1 send display()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

Re: GET TBROWSE

<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=50&group=comp.lang.clipper#50

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:a0c:ebd0:0:b0:635:9ddf:fd9c with SMTP id k16-20020a0cebd0000000b006359ddffd9cmr17404qvq.5.1688140201290;
Fri, 30 Jun 2023 08:50:01 -0700 (PDT)
X-Received: by 2002:a17:902:f987:b0:1b7:d582:6a28 with SMTP id
ky7-20020a170902f98700b001b7d5826a28mr1896919plb.11.1688140201033; Fri, 30
Jun 2023 08:50:01 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Fri, 30 Jun 2023 08:50:00 -0700 (PDT)
In-Reply-To: <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=105.98.8.52; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.98.8.52
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me> <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Fri, 30 Jun 2023 15:50:01 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
 by: Mohamed Hamza - Fri, 30 Jun 2023 15:50 UTC

Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> > Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> > > Hi All,
> > >
> > > I wrote this simple code to show my problem:
> > >
> > > @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> > > @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> > >
> > > READ
> > >
> > > oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> > > Is it possible to display oTB1 and oTB2 at the same time?
> > >
> > > Nb: I believe that oTB2 is displayed when we set the focus on it?
> > >
> > > Regards.
> > >
> > > Med
> > Can you use the @ ... GET SEND ... clause as in
> >
> > @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> > @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> > maxrow(),maxcol() was in wrong order in your sample
> >
> > hth,
> >
> > lohen
> I got the same result
>
> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()

I fact, the correct way is

@ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()

Med

Re: GET TBROWSE

<u7n176$2jcir$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=51&group=comp.lang.clipper#51

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Fri, 30 Jun 2023 18:51:48 +0200
Organization: A noiseless patient Spider
Lines: 43
Message-ID: <u7n176$2jcir$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me>
<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Fri, 30 Jun 2023 16:51:50 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="b2825e8ab9e03bb7111ad4b1ba3f031e";
logging-data="2732635"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX195glOq7/GT3Ppar6gJBuvl"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:xKXu3w28BLrQ/PGCMQKBEai2rC8=
In-Reply-To: <b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
 by: lohen - Fri, 30 Jun 2023 16:51 UTC

Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
>>>> Hi All,
>>>>
>>>> I wrote this simple code to show my problem:
>>>>
>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>>>>
>>>> READ
>>>>
>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
>>>> Is it possible to display oTB1 and oTB2 at the same time?
>>>>
>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
>>>>
>>>> Regards.
>>>>
>>>> Med
>>> Can you use the @ ... GET SEND ... clause as in
>>>
>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
>>> maxrow(),maxcol() was in wrong order in your sample
>>>
>>> hth,
>>>
>>> lohen
>> I got the same result
>>
>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
> I fact, the correct way is
>
> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
>
> Med
Hadn't thought of that! :-) Thanks for sharing

lohen

Re: GET TBROWSE

<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=52&group=comp.lang.clipper#52

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:a05:620a:19a3:b0:767:2891:eb97 with SMTP id bm35-20020a05620a19a300b007672891eb97mr9349qkb.6.1688153339316;
Fri, 30 Jun 2023 12:28:59 -0700 (PDT)
X-Received: by 2002:a17:90a:e40f:b0:263:49d3:8024 with SMTP id
hv15-20020a17090ae40f00b0026349d38024mr2083449pjb.1.1688153338747; Fri, 30
Jun 2023 12:28:58 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Fri, 30 Jun 2023 12:28:57 -0700 (PDT)
In-Reply-To: <u7n176$2jcir$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=105.98.8.52; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.98.8.52
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me> <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com> <u7n176$2jcir$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Fri, 30 Jun 2023 19:28:59 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 3373
 by: Mohamed Hamza - Fri, 30 Jun 2023 19:28 UTC

Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
> > Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
> >> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> >>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> >>>> Hi All,
> >>>>
> >>>> I wrote this simple code to show my problem:
> >>>>
> >>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> >>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> >>>>
> >>>> READ
> >>>>
> >>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> >>>> Is it possible to display oTB1 and oTB2 at the same time?
> >>>>
> >>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
> >>>>
> >>>> Regards.
> >>>>
> >>>> Med
> >>> Can you use the @ ... GET SEND ... clause as in
> >>>
> >>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> >>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> >>> maxrow(),maxcol() was in wrong order in your sample
> >>>
> >>> hth,
> >>>
> >>> lohen
> >> I got the same result
> >>
> >> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
> >> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
> > I fact, the correct way is
> >
> > @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
> > @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
> >
> > Med
> Hadn't thought of that! :-) Thanks for sharing
>
> lohen

Now I want to get the active get tbrowse otb1 or otb2 I tried
@0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()

function getalias()
local otb
otb:=getactive():control
return .t.

otb is not the control I expected?

Med

Re: GET TBROWSE

<u7ogbl$2riau$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=53&group=comp.lang.clipper#53

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Sat, 1 Jul 2023 08:16:19 +0200
Organization: A noiseless patient Spider
Lines: 75
Message-ID: <u7ogbl$2riau$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me>
<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
<u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 1 Jul 2023 06:16:21 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="1adfeb5be836364ca193a5c833c6567f";
logging-data="3000670"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19BhM8TusTBEBxrtP1D8ZHA"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:B3gTX0jaVVSFknoxIDSbTab+Gcs=
In-Reply-To: <06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
 by: lohen - Sat, 1 Jul 2023 06:16 UTC

Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
>>>>>> Hi All,
>>>>>>
>>>>>> I wrote this simple code to show my problem:
>>>>>>
>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>>>>>>
>>>>>> READ
>>>>>>
>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
>>>>>>
>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
>>>>>>
>>>>>> Regards.
>>>>>>
>>>>>> Med
>>>>> Can you use the @ ... GET SEND ... clause as in
>>>>>
>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
>>>>> maxrow(),maxcol() was in wrong order in your sample
>>>>>
>>>>> hth,
>>>>>
>>>>> lohen
>>>> I got the same result
>>>>
>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
>>> I fact, the correct way is
>>>
>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
>>>
>>> Med
>> Hadn't thought of that! :-) Thanks for sharing
>>
>> lohen
> Now I want to get the active get tbrowse otb1 or otb2 I tried
> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
>
>
> function getalias()
> local otb
> otb:=getactive():control
> return .t.
>
> otb is not the control I expected?
>
> Med
>
>
>
Just a guess:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
oControl | getalias( oControl ) }
@11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
oControl | getalias( oControl ) }

function getalias( otb )
// otb is your get's :control
return .t.

?

lohen

Re: GET TBROWSE

<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=54&group=comp.lang.clipper#54

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:ad4:4d4e:0:b0:635:5e19:fa14 with SMTP id m14-20020ad44d4e000000b006355e19fa14mr14318qvm.9.1688193416811;
Fri, 30 Jun 2023 23:36:56 -0700 (PDT)
X-Received: by 2002:a65:6781:0:b0:55a:c629:4047 with SMTP id
e1-20020a656781000000b0055ac6294047mr1698954pgr.6.1688193416484; Fri, 30 Jun
2023 23:36:56 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Fri, 30 Jun 2023 23:36:55 -0700 (PDT)
In-Reply-To: <u7ogbl$2riau$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=105.98.8.52; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.98.8.52
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me> <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com> <u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com> <u7ogbl$2riau$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Sat, 01 Jul 2023 06:36:56 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 4369
 by: Mohamed Hamza - Sat, 1 Jul 2023 06:36 UTC

Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
> > Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
> >> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
> >>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
> >>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> >>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> >>>>>> Hi All,
> >>>>>>
> >>>>>> I wrote this simple code to show my problem:
> >>>>>>
> >>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> >>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> >>>>>>
> >>>>>> READ
> >>>>>>
> >>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> >>>>>> Is it possible to display oTB1 and oTB2 at the same time?
> >>>>>>
> >>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
> >>>>>>
> >>>>>> Regards.
> >>>>>>
> >>>>>> Med
> >>>>> Can you use the @ ... GET SEND ... clause as in
> >>>>>
> >>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> >>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> >>>>> maxrow(),maxcol() was in wrong order in your sample
> >>>>>
> >>>>> hth,
> >>>>>
> >>>>> lohen
> >>>> I got the same result
> >>>>
> >>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
> >>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
> >>> I fact, the correct way is
> >>>
> >>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
> >>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
> >>>
> >>> Med
> >> Hadn't thought of that! :-) Thanks for sharing
> >>
> >> lohen
> > Now I want to get the active get tbrowse otb1 or otb2 I tried
> > @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
> > @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
> >
> >
> > function getalias()
> > local otb
> > otb:=getactive():control
> > return .t.
> >
> > otb is not the control I expected?
> >
> > Med
> >
> >
> >
> Just a guess:
>
> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
> oControl | getalias( oControl ) }
> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
> oControl | getalias( oControl ) }
>
> function getalias( otb )
> // otb is your get's :control
> return .t.
>
> ?
>
> lohen

For example

When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
but when I use Tab key to navigate everything's good.

function getalias( otb )
> alert ( getactive:name)
> return .t.

Re: GET TBROWSE

<u7ok35$2rvt3$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=55&group=comp.lang.clipper#55

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Sat, 1 Jul 2023 09:20:03 +0200
Organization: A noiseless patient Spider
Lines: 93
Message-ID: <u7ok35$2rvt3$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me>
<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
<u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
<u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 1 Jul 2023 07:20:05 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="1adfeb5be836364ca193a5c833c6567f";
logging-data="3014563"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19VsT2o5b+5PWN6CMC72MFm"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:ibC3LaJXHduF97CpSuFHAzCpugY=
In-Reply-To: <910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>
 by: lohen - Sat, 1 Jul 2023 07:20 UTC

Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
> Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
>> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
>>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
>>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
>>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
>>>>>>>> Hi All,
>>>>>>>>
>>>>>>>> I wrote this simple code to show my problem:
>>>>>>>>
>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>>>>>>>>
>>>>>>>> READ
>>>>>>>>
>>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
>>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
>>>>>>>>
>>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
>>>>>>>>
>>>>>>>> Regards.
>>>>>>>>
>>>>>>>> Med
>>>>>>> Can you use the @ ... GET SEND ... clause as in
>>>>>>>
>>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
>>>>>>> maxrow(),maxcol() was in wrong order in your sample
>>>>>>>
>>>>>>> hth,
>>>>>>>
>>>>>>> lohen
>>>>>> I got the same result
>>>>>>
>>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
>>>>> I fact, the correct way is
>>>>>
>>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
>>>>>
>>>>> Med
>>>> Hadn't thought of that! :-) Thanks for sharing
>>>>
>>>> lohen
>>> Now I want to get the active get tbrowse otb1 or otb2 I tried
>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
>>>
>>>
>>> function getalias()
>>> local otb
>>> otb:=getactive():control
>>> return .t.
>>>
>>> otb is not the control I expected?
>>>
>>> Med
>>>
>>>
>>>
>> Just a guess:
>>
>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
>> oControl | getalias( oControl ) }
>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
>> oControl | getalias( oControl ) }
>>
>> function getalias( otb )
>> // otb is your get's :control
>> return .t.
>>
>> ?
>>
>> lohen
> For example
>
> When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
> but when I use Tab key to navigate everything's good.
>
> function getalias( otb )
>> alert ( getactive:name)
>> return .t.
getactive() is not being updated from the internals of the GET system,
then only _after_ the when clause yields .T.

For the mouseing misbehaviour in your sample (when you write u i suppose
you mean u1), of the top of my head, only adapting the GET system code
itself will help

l

Re: GET TBROWSE

<a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=56&group=comp.lang.clipper#56

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:a05:620a:3905:b0:765:a6bb:dc22 with SMTP id qr5-20020a05620a390500b00765a6bbdc22mr26145qkn.1.1688206875771;
Sat, 01 Jul 2023 03:21:15 -0700 (PDT)
X-Received: by 2002:a05:6214:5609:b0:635:e24b:d5c7 with SMTP id
mg9-20020a056214560900b00635e24bd5c7mr16111qvb.1.1688206875490; Sat, 01 Jul
2023 03:21:15 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Sat, 1 Jul 2023 03:21:15 -0700 (PDT)
In-Reply-To: <u7ok35$2rvt3$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=105.99.145.4; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.99.145.4
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me> <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com> <u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com> <u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com> <u7ok35$2rvt3$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Sat, 01 Jul 2023 10:21:15 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 5806
 by: Mohamed Hamza - Sat, 1 Jul 2023 10:21 UTC

Le samedi 1 juillet 2023 à 08:20:07 UTC+1, lohen a écrit :
> Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
> > Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
> >> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
> >>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
> >>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
> >>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
> >>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> >>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> >>>>>>>> Hi All,
> >>>>>>>>
> >>>>>>>> I wrote this simple code to show my problem:
> >>>>>>>>
> >>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> >>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> >>>>>>>>
> >>>>>>>> READ
> >>>>>>>>
> >>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> >>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
> >>>>>>>>
> >>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
> >>>>>>>>
> >>>>>>>> Regards.
> >>>>>>>>
> >>>>>>>> Med
> >>>>>>> Can you use the @ ... GET SEND ... clause as in
> >>>>>>>
> >>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> >>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> >>>>>>> maxrow(),maxcol() was in wrong order in your sample
> >>>>>>>
> >>>>>>> hth,
> >>>>>>>
> >>>>>>> lohen
> >>>>>> I got the same result
> >>>>>>
> >>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
> >>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
> >>>>> I fact, the correct way is
> >>>>>
> >>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
> >>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
> >>>>>
> >>>>> Med
> >>>> Hadn't thought of that! :-) Thanks for sharing
> >>>>
> >>>> lohen
> >>> Now I want to get the active get tbrowse otb1 or otb2 I tried
> >>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
> >>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
> >>>
> >>>
> >>> function getalias()
> >>> local otb
> >>> otb:=getactive():control
> >>> return .t.
> >>>
> >>> otb is not the control I expected?
> >>>
> >>> Med
> >>>
> >>>
> >>>
> >> Just a guess:
> >>
> >> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
> >> oControl | getalias( oControl ) }
> >> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
> >> oControl | getalias( oControl ) }
> >>
> >> function getalias( otb )
> >> // otb is your get's :control
> >> return .t.
> >>
> >> ?
> >>
> >> lohen
> > For example
> >
> > When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
> > but when I use Tab key to navigate everything's good.
> >
> > function getalias( otb )
> >> alert ( getactive:name)
> >> return .t.
> getactive() is not being updated from the internals of the GET system,
> then only _after_ the when clause yields .T.
>
> For the mouseing misbehaviour in your sample (when you write u i suppose
> you mean u1), of the top of my head, only adapting the GET system code
> itself will help
>
> You are right. Now the code becomes:

@ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }

@ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }

By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.

After this example I plan to code a master-detail tbrowse

Re: GET TBROWSE

<u7p024$2taui$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=57&group=comp.lang.clipper#57

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Sat, 1 Jul 2023 12:44:18 +0200
Organization: A noiseless patient Spider
Lines: 119
Message-ID: <u7p024$2taui$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me>
<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
<u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
<u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>
<u7ok35$2rvt3$1@dont-email.me>
<a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 1 Jul 2023 10:44:20 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="1adfeb5be836364ca193a5c833c6567f";
logging-data="3058642"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+kR+Yb2wolcmY/gV8S+woU"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:Bf8vBD71a9qT3VSmP620HxLZvps=
In-Reply-To: <a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com>
 by: lohen - Sat, 1 Jul 2023 10:44 UTC

Op 2023-07-01 om 12:21 schreef Mohamed Hamza:
> Le samedi 1 juillet 2023 à 08:20:07 UTC+1, lohen a écrit :
>> Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
>>> Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
>>>> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
>>>>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
>>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
>>>>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
>>>>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
>>>>>>>>>> Hi All,
>>>>>>>>>>
>>>>>>>>>> I wrote this simple code to show my problem:
>>>>>>>>>>
>>>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
>>>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>>>>>>>>>>
>>>>>>>>>> READ
>>>>>>>>>>
>>>>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
>>>>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
>>>>>>>>>>
>>>>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
>>>>>>>>>>
>>>>>>>>>> Regards.
>>>>>>>>>>
>>>>>>>>>> Med
>>>>>>>>> Can you use the @ ... GET SEND ... clause as in
>>>>>>>>>
>>>>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
>>>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample
>>>>>>>>>
>>>>>>>>> hth,
>>>>>>>>>
>>>>>>>>> lohen
>>>>>>>> I got the same result
>>>>>>>>
>>>>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
>>>>>>> I fact, the correct way is
>>>>>>>
>>>>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
>>>>>>>
>>>>>>> Med
>>>>>> Hadn't thought of that! :-) Thanks for sharing
>>>>>>
>>>>>> lohen
>>>>> Now I want to get the active get tbrowse otb1 or otb2 I tried
>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
>>>>>
>>>>>
>>>>> function getalias()
>>>>> local otb
>>>>> otb:=getactive():control
>>>>> return .t.
>>>>>
>>>>> otb is not the control I expected?
>>>>>
>>>>> Med
>>>>>
>>>>>
>>>>>
>>>> Just a guess:
>>>>
>>>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
>>>> oControl | getalias( oControl ) }
>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
>>>> oControl | getalias( oControl ) }
>>>>
>>>> function getalias( otb )
>>>> // otb is your get's :control
>>>> return .t.
>>>>
>>>> ?
>>>>
>>>> lohen
>>> For example
>>>
>>> When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
>>> but when I use Tab key to navigate everything's good.
>>>
>>> function getalias( otb )
>>>> alert ( getactive:name)
>>>> return .t.
>> getactive() is not being updated from the internals of the GET system,
>> then only _after_ the when clause yields .T.
>>
>> For the mouseing misbehaviour in your sample (when you write u i suppose
>> you mean u1), of the top of my head, only adapting the GET system code
>> itself will help
>>
>> You are right. Now the code becomes:
> @ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }
>
> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }
>
> By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.
>
> After this example I plan to code a master-detail tbrowse
>
>
>
>
>

Beware that when evaluating the WHEN clause, as far as i saw in the GET
system code, the argument from the internals to the WHEN Block isn't the
GET object itself, but the GET:control object, so that your two WHEN
clauses (perhaps?) need to be

when {| control |alert(control:cargo),.T.}

..oO although the GET system i draw this conclusion from is a heavily adapted one

lohen

Re: GET TBROWSE

<0b5ba17b-3b7f-4796-9b4f-f214f281561fn@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=58&group=comp.lang.clipper#58

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:a05:6214:1908:b0:635:db2e:e9d9 with SMTP id er8-20020a056214190800b00635db2ee9d9mr17023qvb.6.1688228155132;
Sat, 01 Jul 2023 09:15:55 -0700 (PDT)
X-Received: by 2002:a05:6a00:13a8:b0:682:616a:f907 with SMTP id
t40-20020a056a0013a800b00682616af907mr5733986pfg.4.1688228154556; Sat, 01 Jul
2023 09:15:54 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Sat, 1 Jul 2023 09:15:53 -0700 (PDT)
In-Reply-To: <u7p024$2taui$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=105.99.145.4; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.99.145.4
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me> <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com> <u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com> <u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com> <u7ok35$2rvt3$1@dont-email.me>
<a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com> <u7p024$2taui$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <0b5ba17b-3b7f-4796-9b4f-f214f281561fn@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Sat, 01 Jul 2023 16:15:55 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 6819
 by: Mohamed Hamza - Sat, 1 Jul 2023 16:15 UTC

Le samedi 1 juillet 2023 à 11:44:22 UTC+1, lohen a écrit :
> Op 2023-07-01 om 12:21 schreef Mohamed Hamza:
> > Le samedi 1 juillet 2023 à 08:20:07 UTC+1, lohen a écrit :
> >> Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
> >>> Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
> >>>> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
> >>>>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
> >>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
> >>>>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
> >>>>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> >>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> >>>>>>>>>> Hi All,
> >>>>>>>>>>
> >>>>>>>>>> I wrote this simple code to show my problem:
> >>>>>>>>>>
> >>>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> >>>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> >>>>>>>>>>
> >>>>>>>>>> READ
> >>>>>>>>>>
> >>>>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> >>>>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
> >>>>>>>>>>
> >>>>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
> >>>>>>>>>>
> >>>>>>>>>> Regards.
> >>>>>>>>>>
> >>>>>>>>>> Med
> >>>>>>>>> Can you use the @ ... GET SEND ... clause as in
> >>>>>>>>>
> >>>>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> >>>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> >>>>>>>>> maxrow(),maxcol() was in wrong order in your sample
> >>>>>>>>>
> >>>>>>>>> hth,
> >>>>>>>>>
> >>>>>>>>> lohen
> >>>>>>>> I got the same result
> >>>>>>>>
> >>>>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
> >>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
> >>>>>>> I fact, the correct way is
> >>>>>>>
> >>>>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
> >>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
> >>>>>>>
> >>>>>>> Med
> >>>>>> Hadn't thought of that! :-) Thanks for sharing
> >>>>>>
> >>>>>> lohen
> >>>>> Now I want to get the active get tbrowse otb1 or otb2 I tried
> >>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
> >>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
> >>>>>
> >>>>>
> >>>>> function getalias()
> >>>>> local otb
> >>>>> otb:=getactive():control
> >>>>> return .t.
> >>>>>
> >>>>> otb is not the control I expected?
> >>>>>
> >>>>> Med
> >>>>>
> >>>>>
> >>>>>
> >>>> Just a guess:
> >>>>
> >>>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
> >>>> oControl | getalias( oControl ) }
> >>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
> >>>> oControl | getalias( oControl ) }
> >>>>
> >>>> function getalias( otb )
> >>>> // otb is your get's :control
> >>>> return .t.
> >>>>
> >>>> ?
> >>>>
> >>>> lohen
> >>> For example
> >>>
> >>> When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
> >>> but when I use Tab key to navigate everything's good.
> >>>
> >>> function getalias( otb )
> >>>> alert ( getactive:name)
> >>>> return .t.
> >> getactive() is not being updated from the internals of the GET system,
> >> then only _after_ the when clause yields .T.
> >>
> >> For the mouseing misbehaviour in your sample (when you write u i suppose
> >> you mean u1), of the top of my head, only adapting the GET system code
> >> itself will help
> >>
> >> You are right. Now the code becomes:
> > @ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }
> >
> > @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }
> >
> > By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.
> >
> > After this example I plan to code a master-detail tbrowse
> >
> >
> >
> >
> >
> Beware that when evaluating the WHEN clause, as far as i saw in the GET
> system code, the argument from the internals to the WHEN Block isn't the
> GET object itself, but the GET:control object, so that your two WHEN
> clauses (perhaps?) need to be
>
> when {| control |alert(control:cargo),.T.}
>
> .oO although the GET system i draw this conclusion from is a heavily adapted one
>
> lohen

In

FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)
alert(ctrl:classname+' '+objget:classname) // GIVE GET object
So ctrl:control :classname and objget:classname are TBROWSE

Med

Re: GET TBROWSE

<u7plrk$2vqn5$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=59&group=comp.lang.clipper#59

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Sat, 1 Jul 2023 18:56:18 +0200
Organization: A noiseless patient Spider
Lines: 147
Message-ID: <u7plrk$2vqn5$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me>
<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
<u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
<u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>
<u7ok35$2rvt3$1@dont-email.me>
<a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com>
<u7p024$2taui$1@dont-email.me>
<0b5ba17b-3b7f-4796-9b4f-f214f281561fn@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 1 Jul 2023 16:56:21 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="67009442deda6d65d18c79ca19df501f";
logging-data="3140325"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19lCQ8jWDACGoIQRzwhgFnr"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:PnBLeZOw0hRQVCMMS9nyUGT0GsQ=
In-Reply-To: <0b5ba17b-3b7f-4796-9b4f-f214f281561fn@googlegroups.com>
 by: lohen - Sat, 1 Jul 2023 16:56 UTC

Op 2023-07-01 om 18:15 schreef Mohamed Hamza:
> Le samedi 1 juillet 2023 à 11:44:22 UTC+1, lohen a écrit :
>> Op 2023-07-01 om 12:21 schreef Mohamed Hamza:
>>> Le samedi 1 juillet 2023 à 08:20:07 UTC+1, lohen a écrit :
>>>> Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
>>>>> Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
>>>>>> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
>>>>>>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
>>>>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
>>>>>>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
>>>>>>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
>>>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
>>>>>>>>>>>> Hi All,
>>>>>>>>>>>>
>>>>>>>>>>>> I wrote this simple code to show my problem:
>>>>>>>>>>>>
>>>>>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
>>>>>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>>>>>>>>>>>>
>>>>>>>>>>>> READ
>>>>>>>>>>>>
>>>>>>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
>>>>>>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
>>>>>>>>>>>>
>>>>>>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
>>>>>>>>>>>>
>>>>>>>>>>>> Regards.
>>>>>>>>>>>>
>>>>>>>>>>>> Med
>>>>>>>>>>> Can you use the @ ... GET SEND ... clause as in
>>>>>>>>>>>
>>>>>>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
>>>>>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
>>>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample
>>>>>>>>>>>
>>>>>>>>>>> hth,
>>>>>>>>>>>
>>>>>>>>>>> lohen
>>>>>>>>>> I got the same result
>>>>>>>>>>
>>>>>>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
>>>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
>>>>>>>>> I fact, the correct way is
>>>>>>>>>
>>>>>>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
>>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
>>>>>>>>>
>>>>>>>>> Med
>>>>>>>> Hadn't thought of that! :-) Thanks for sharing
>>>>>>>>
>>>>>>>> lohen
>>>>>>> Now I want to get the active get tbrowse otb1 or otb2 I tried
>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
>>>>>>>
>>>>>>>
>>>>>>> function getalias()
>>>>>>> local otb
>>>>>>> otb:=getactive():control
>>>>>>> return .t.
>>>>>>>
>>>>>>> otb is not the control I expected?
>>>>>>>
>>>>>>> Med
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>> Just a guess:
>>>>>>
>>>>>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
>>>>>> oControl | getalias( oControl ) }
>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
>>>>>> oControl | getalias( oControl ) }
>>>>>>
>>>>>> function getalias( otb )
>>>>>> // otb is your get's :control
>>>>>> return .t.
>>>>>>
>>>>>> ?
>>>>>>
>>>>>> lohen
>>>>> For example
>>>>>
>>>>> When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
>>>>> but when I use Tab key to navigate everything's good.
>>>>>
>>>>> function getalias( otb )
>>>>>> alert ( getactive:name)
>>>>>> return .t.
>>>> getactive() is not being updated from the internals of the GET system,
>>>> then only _after_ the when clause yields .T.
>>>>
>>>> For the mouseing misbehaviour in your sample (when you write u i suppose
>>>> you mean u1), of the top of my head, only adapting the GET system code
>>>> itself will help
>>>>
>>>> You are right. Now the code becomes:
>>> @ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }
>>>
>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }
>>>
>>> By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.
>>>
>>> After this example I plan to code a master-detail tbrowse
>>>
>>>
>>>
>>>
>>>
>> Beware that when evaluating the WHEN clause, as far as i saw in the GET
>> system code, the argument from the internals to the WHEN Block isn't the
>> GET object itself, but the GET:control object, so that your two WHEN
>> clauses (perhaps?) need to be
>>
>> when {| control |alert(control:cargo),.T.}
>>
>> .oO although the GET system i draw this conclusion from is a heavily adapted one
>>
>> lohen
> In
>
> FUNCTION getAlias(ctrl)
> LOCAL objGet
> objGet := GETACTIVE(ctrl)
> alert(ctrl:classname+' '+objget:classname) // GIVE GET object
> So ctrl:control :classname and objget:classname are TBROWSE
>
>
> Med

what is said earlier, control being oGet:control wasn't correct, it
should have read:

@ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oGet,
oControl | getalias( oControl ) }
@11, 0, maxcol(), maxrow() GET u2 TBROWSE oTB2 send .... when { | oGet,
oControl | getalias( oControl ) }

when calling GETACTIVE() with an argument, it is pbly best to restore
the return value of that first GETACTIVE() call with another call to
GETACTIVE() providing the return variable of the first call - and doing
so is only meaningful during a READ

So ctrl:control :classname and objget:*control:*classname are TBROWSE

l

Re: GET TBROWSE

<018f95f2-601d-4ee6-94ea-b1348148c8e0n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=60&group=comp.lang.clipper#60

  copy link   Newsgroups: comp.lang.clipper
X-Received: by 2002:ad4:5985:0:b0:635:dbbe:7a6d with SMTP id ek5-20020ad45985000000b00635dbbe7a6dmr19501qvb.13.1688234534154;
Sat, 01 Jul 2023 11:02:14 -0700 (PDT)
X-Received: by 2002:a17:90a:ce8e:b0:262:f7df:41f3 with SMTP id
g14-20020a17090ace8e00b00262f7df41f3mr4350111pju.4.1688234533498; Sat, 01 Jul
2023 11:02:13 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.goja.nl.eu.org!3.eu.feeder.erje.net!feeder.erje.net!fdn.fr!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper
Date: Sat, 1 Jul 2023 11:02:12 -0700 (PDT)
In-Reply-To: <u7plrk$2vqn5$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=105.99.145.4; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 105.99.145.4
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me> <6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com> <u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com> <u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com> <u7ok35$2rvt3$1@dont-email.me>
<a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com> <u7p024$2taui$1@dont-email.me>
<0b5ba17b-3b7f-4796-9b4f-f214f281561fn@googlegroups.com> <u7plrk$2vqn5$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <018f95f2-601d-4ee6-94ea-b1348148c8e0n@googlegroups.com>
Subject: Re: GET TBROWSE
From: medhome60@gmail.com (Mohamed Hamza)
Injection-Date: Sat, 01 Jul 2023 18:02:14 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
 by: Mohamed Hamza - Sat, 1 Jul 2023 18:02 UTC

Le samedi 1 juillet 2023 à 17:56:23 UTC+1, lohen a écrit :
> Op 2023-07-01 om 18:15 schreef Mohamed Hamza:
> > Le samedi 1 juillet 2023 à 11:44:22 UTC+1, lohen a écrit :
> >> Op 2023-07-01 om 12:21 schreef Mohamed Hamza:
> >>> Le samedi 1 juillet 2023 à 08:20:07 UTC+1, lohen a écrit :
> >>>> Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
> >>>>> Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
> >>>>>> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
> >>>>>>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
> >>>>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
> >>>>>>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
> >>>>>>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
> >>>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
> >>>>>>>>>>>> Hi All,
> >>>>>>>>>>>>
> >>>>>>>>>>>> I wrote this simple code to show my problem:
> >>>>>>>>>>>>
> >>>>>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
> >>>>>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
> >>>>>>>>>>>>
> >>>>>>>>>>>> READ
> >>>>>>>>>>>>
> >>>>>>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
> >>>>>>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
> >>>>>>>>>>>>
> >>>>>>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
> >>>>>>>>>>>>
> >>>>>>>>>>>> Regards.
> >>>>>>>>>>>>
> >>>>>>>>>>>> Med
> >>>>>>>>>>> Can you use the @ ... GET SEND ... clause as in
> >>>>>>>>>>>
> >>>>>>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
> >>>>>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
> >>>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample
> >>>>>>>>>>>
> >>>>>>>>>>> hth,
> >>>>>>>>>>>
> >>>>>>>>>>> lohen
> >>>>>>>>>> I got the same result
> >>>>>>>>>>
> >>>>>>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
> >>>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
> >>>>>>>>> I fact, the correct way is
> >>>>>>>>>
> >>>>>>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
> >>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
> >>>>>>>>>
> >>>>>>>>> Med
> >>>>>>>> Hadn't thought of that! :-) Thanks for sharing
> >>>>>>>>
> >>>>>>>> lohen
> >>>>>>> Now I want to get the active get tbrowse otb1 or otb2 I tried
> >>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
> >>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
> >>>>>>>
> >>>>>>>
> >>>>>>> function getalias()
> >>>>>>> local otb
> >>>>>>> otb:=getactive():control
> >>>>>>> return .t.
> >>>>>>>
> >>>>>>> otb is not the control I expected?
> >>>>>>>
> >>>>>>> Med
> >>>>>>>
> >>>>>>>
> >>>>>>>
> >>>>>> Just a guess:
> >>>>>>
> >>>>>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
> >>>>>> oControl | getalias( oControl ) }
> >>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
> >>>>>> oControl | getalias( oControl ) }
> >>>>>>
> >>>>>> function getalias( otb )
> >>>>>> // otb is your get's :control
> >>>>>> return .t.
> >>>>>>
> >>>>>> ?
> >>>>>>
> >>>>>> lohen
> >>>>> For example
> >>>>>
> >>>>> When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
> >>>>> but when I use Tab key to navigate everything's good.
> >>>>>
> >>>>> function getalias( otb )
> >>>>>> alert ( getactive:name)
> >>>>>> return .t.
> >>>> getactive() is not being updated from the internals of the GET system,
> >>>> then only _after_ the when clause yields .T.
> >>>>
> >>>> For the mouseing misbehaviour in your sample (when you write u i suppose
> >>>> you mean u1), of the top of my head, only adapting the GET system code
> >>>> itself will help
> >>>>
> >>>> You are right. Now the code becomes:
> >>> @ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }
> >>>
> >>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }
> >>>
> >>> By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.
> >>>
> >>> After this example I plan to code a master-detail tbrowse
> >>>
> >>>
> >>>
> >>>
> >>>
> >> Beware that when evaluating the WHEN clause, as far as i saw in the GET
> >> system code, the argument from the internals to the WHEN Block isn't the
> >> GET object itself, but the GET:control object, so that your two WHEN
> >> clauses (perhaps?) need to be
> >>
> >> when {| control |alert(control:cargo),.T.}
> >>
> >> .oO although the GET system i draw this conclusion from is a heavily adapted one
> >>
> >> lohen
> > In
> >
> > FUNCTION getAlias(ctrl)
> > LOCAL objGet
> > objGet := GETACTIVE(ctrl)
> > alert(ctrl:classname+' '+objget:classname) // GIVE GET object
> > So ctrl:control :classname and objget:classname are TBROWSE
> >
> >
> > Med
> what is said earlier, control being oGet:control wasn't correct, it
> should have read:
>
> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oGet,
> oControl | getalias( oControl ) }
> @11, 0, maxcol(), maxrow() GET u2 TBROWSE oTB2 send .... when { | oGet,
> oControl | getalias( oControl ) }
>
> when calling GETACTIVE() with an argument, it is pbly best to restore
> the return value of that first GETACTIVE() call with another call to
> GETACTIVE() providing the return variable of the first call - and doing
> so is only meaningful during a READ
>
> So ctrl:control :classname and objget:*control:*classname are TBROWSE
>
> l
Did you try to make a sample to show the result ?

Regards
Med

Re: GET TBROWSE

<u7q0at$30rqk$1@dont-email.me>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=61&group=comp.lang.clipper#61

  copy link   Newsgroups: comp.lang.clipper
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: lohen@users.sourceforge.net (lohen)
Newsgroups: comp.lang.clipper
Subject: Re: GET TBROWSE
Date: Sat, 1 Jul 2023 21:55:08 +0200
Organization: A noiseless patient Spider
Lines: 158
Message-ID: <u7q0at$30rqk$1@dont-email.me>
References: <d770d8ee-1354-44ea-841f-d3d5cba27e03n@googlegroups.com>
<u7libq$2eifg$1@dont-email.me>
<6076fe34-3077-45a8-8701-47e6b7d05527n@googlegroups.com>
<b143f44b-2632-43fe-93d9-58f0283f73edn@googlegroups.com>
<u7n176$2jcir$1@dont-email.me>
<06ee189b-751b-4180-a2da-606c2c6cccedn@googlegroups.com>
<u7ogbl$2riau$1@dont-email.me>
<910b0e78-fed1-4015-b5d5-3d09e36f2db5n@googlegroups.com>
<u7ok35$2rvt3$1@dont-email.me>
<a94dd3f4-6b48-4340-8780-b19c6b6fa181n@googlegroups.com>
<u7p024$2taui$1@dont-email.me>
<0b5ba17b-3b7f-4796-9b4f-f214f281561fn@googlegroups.com>
<u7plrk$2vqn5$1@dont-email.me>
<018f95f2-601d-4ee6-94ea-b1348148c8e0n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 1 Jul 2023 19:55:09 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="33a55eb4a55faa56c8cd402c77541ffe";
logging-data="3174228"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/dTJT+Ct8rxKxHReYkN7eq"
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101
Thunderbird/38.5.0
Cancel-Lock: sha1:41OhlTPyk3GvqyNh4Qfd6KVqGYs=
In-Reply-To: <018f95f2-601d-4ee6-94ea-b1348148c8e0n@googlegroups.com>
 by: lohen - Sat, 1 Jul 2023 19:55 UTC

Op 2023-07-01 om 20:02 schreef Mohamed Hamza:
> Le samedi 1 juillet 2023 à 17:56:23 UTC+1, lohen a écrit :
>> Op 2023-07-01 om 18:15 schreef Mohamed Hamza:
>>> Le samedi 1 juillet 2023 à 11:44:22 UTC+1, lohen a écrit :
>>>> Op 2023-07-01 om 12:21 schreef Mohamed Hamza:
>>>>> Le samedi 1 juillet 2023 à 08:20:07 UTC+1, lohen a écrit :
>>>>>> Op 2023-07-01 om 08:36 schreef Mohamed Hamza:
>>>>>>> Le samedi 1 juillet 2023 à 07:16:23 UTC+1, lohen a écrit :
>>>>>>>> Op 2023-06-30 om 21:28 schreef Mohamed Hamza:
>>>>>>>>> Le vendredi 30 juin 2023 à 17:51:52 UTC+1, lohen a écrit :
>>>>>>>>>> Op 2023-06-30 om 17:50 schreef Mohamed Hamza:
>>>>>>>>>>> Le vendredi 30 juin 2023 à 16:03:17 UTC+1, Mohamed Hamza a écrit :
>>>>>>>>>>>> Le vendredi 30 juin 2023 à 04:32:12 UTC+1, lohen a écrit :
>>>>>>>>>>>>> Op 2023-06-29 om 20:54 schreef Mohamed Hamza:
>>>>>>>>>>>>>> Hi All,
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> I wrote this simple code to show my problem:
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1
>>>>>>>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> READ
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> oTB1 is displayed normaly but oTB2 is not showed until I click on 11,0,maxcol(),maxrow() zone or when I use the TAB key!
>>>>>>>>>>>>>> Is it possible to display oTB1 and oTB2 at the same time?
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> Nb: I believe that oTB2 is displayed when we set the focus on it?
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> Regards.
>>>>>>>>>>>>>>
>>>>>>>>>>>>>> Med
>>>>>>>>>>>>> Can you use the @ ... GET SEND ... clause as in
>>>>>>>>>>>>>
>>>>>>>>>>>>> @ 0,0,10,maxcol() GET u1 TBROWSE oTB1 SEND display()
>>>>>>>>>>>>> @ 11,0,maxrow(),maxcol() GET u2 TBROWSE oTB2 SEND display() //
>>>>>>>>>>>>> maxrow(),maxcol() was in wrong order in your sample
>>>>>>>>>>>>>
>>>>>>>>>>>>> hth,
>>>>>>>>>>>>>
>>>>>>>>>>>>> lohen
>>>>>>>>>>>> I got the same result
>>>>>>>>>>>>
>>>>>>>>>>>> @ 0, 0,10,maxcol() get u tbrowse otb1 send display()
>>>>>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send display()
>>>>>>>>>>> I fact, the correct way is
>>>>>>>>>>>
>>>>>>>>>>> @ 0,0,10,maxcol() get u tbrowse otb1 send control:forcestable()
>>>>>>>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable()
>>>>>>>>>>>
>>>>>>>>>>> Med
>>>>>>>>>> Hadn't thought of that! :-) Thanks for sharing
>>>>>>>>>>
>>>>>>>>>> lohen
>>>>>>>>> Now I want to get the active get tbrowse otb1 or otb2 I tried
>>>>>>>>> @0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when getalias()
>>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send ....when getalias()
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> function getalias()
>>>>>>>>> local otb
>>>>>>>>> otb:=getactive():control
>>>>>>>>> return .t.
>>>>>>>>>
>>>>>>>>> otb is not the control I expected?
>>>>>>>>>
>>>>>>>>> Med
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>> Just a guess:
>>>>>>>>
>>>>>>>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { |
>>>>>>>> oControl | getalias( oControl ) }
>>>>>>>> @11, 0, maxcol(),maxrow() GET u2 TBROWSE oTB2 send .... when { |
>>>>>>>> oControl | getalias( oControl ) }
>>>>>>>>
>>>>>>>> function getalias( otb )
>>>>>>>> // otb is your get's :control
>>>>>>>> return .t.
>>>>>>>>
>>>>>>>> ?
>>>>>>>>
>>>>>>>> lohen
>>>>>>> For example
>>>>>>>
>>>>>>> When I click on u2 I mean otb2 the getactive is u and when I click on u getactive is u2
>>>>>>> but when I use Tab key to navigate everything's good.
>>>>>>>
>>>>>>> function getalias( otb )
>>>>>>>> alert ( getactive:name)
>>>>>>>> return .t.
>>>>>> getactive() is not being updated from the internals of the GET system,
>>>>>> then only _after_ the when clause yields .T.
>>>>>>
>>>>>> For the mouseing misbehaviour in your sample (when you write u i suppose
>>>>>> you mean u1), of the top of my head, only adapting the GET system code
>>>>>> itself will help
>>>>>>
>>>>>> You are right. Now the code becomes:
>>>>> @ 1,0,10,maxcol() get u tbrowse otb1 send control:forcestable() MESSAGE( otb1:cargo) when {|c|alert(c:control:cargo),.T. }
>>>>>
>>>>> @ 11,0,maxrow(),maxcol() get u2 tbrowse otb2 send control:forcestable() message( otb2:cargo) when {|c|alert(c:control:cargo),.T. }
>>>>>
>>>>> By the way (c:control:cargo) contains the ALIAS of the DBF we are browsing.
>>>>>
>>>>> After this example I plan to code a master-detail tbrowse
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>> Beware that when evaluating the WHEN clause, as far as i saw in the GET
>>>> system code, the argument from the internals to the WHEN Block isn't the
>>>> GET object itself, but the GET:control object, so that your two WHEN
>>>> clauses (perhaps?) need to be
>>>>
>>>> when {| control |alert(control:cargo),.T.}
>>>>
>>>> .oO although the GET system i draw this conclusion from is a heavily adapted one
>>>>
>>>> lohen
>>> In
>>>
>>> FUNCTION getAlias(ctrl)
>>> LOCAL objGet
>>> objGet := GETACTIVE(ctrl)
>>> alert(ctrl:classname+' '+objget:classname) // GIVE GET object
>>> So ctrl:control :classname and objget:classname are TBROWSE
>>>
>>>
>>> Med
>> what is said earlier, control being oGet:control wasn't correct, it
>> should have read:
>>
>> @ 0, 0, 10, maxcol() GET u1 TBROWSE oTB1 send .... when { | oGet,
>> oControl | getalias( oControl ) }
>> @11, 0, maxcol(), maxrow() GET u2 TBROWSE oTB2 send .... when { | oGet,
>> oControl | getalias( oControl ) }
>>
>> when calling GETACTIVE() with an argument, it is pbly best to restore
>> the return value of that first GETACTIVE() call with another call to
>> GETACTIVE() providing the return variable of the first call - and doing
>> so is only meaningful during a READ
>>
>> So ctrl:control :classname and objget:*control:*classname are TBROWSE
>>
>> l
> Did you try to make a sample to show the result ?
>
> Regards
> Med
No, all written above is untested, but behaviour consulted from the
sources to the GET system
From the fact you mention @... GET ... TBROWSE i derive that this is
CA-Clipper 5.3
The CA-Clipper 5.2 GET system is quite less complicated


Click here to read the complete article
1
server_pubkey.txt

rocksolid light 0.9.81
clearnet tor