Message-ID:

7 May, 2024: fms is rebuilding. Don't expect much in that section for quite a few days, maybe longer.

devel / comp.lang.xharbour / Get Tbrowse

Get Tbrowse

<ea82a491-029d-445c-8021-2f048dbc19ban@googlegroups.com>

https://www.rocksolidbbs.com/devel/article-flat.php?id=17460&group=comp.lang.xharbour#17460

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:622a:586:b0:400:84a9:5282 with SMTP id c6-20020a05622a058600b0040084a95282mr35238qtb.8.1688396369511;
Mon, 03 Jul 2023 07:59:29 -0700 (PDT)
X-Received: by 2002:a17:90a:ce8e:b0:262:ef07:f30a with SMTP id
g14-20020a17090ace8e00b00262ef07f30amr7557355pju.7.1688396369260; Mon, 03 Jul
2023 07:59:29 -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.xharbour
Date: Mon, 3 Jul 2023 07:59:28 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=197.204.179.48; posting-account=SAu86QoAAADpHYPskLdK7LtZa_Gh7sh4
NNTP-Posting-Host: 197.204.179.48
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ea82a491-029d-445c-8021-2f048dbc19ban@googlegroups.com>
Subject: Get Tbrowse
From: medhome60@gmail.com (MedHome)
Injection-Date: Mon, 03 Jul 2023 14:59:29 +0000
Content-Type: text/plain; charset="UTF-8"

by: MedHome - Mon, 3 Jul 2023 14:59 UTC

Hi All,

I want to achieve a master-detail form with tgetlist system using get tbrowse behavior. I write down this sample below:
Piece of the sample
otb1:border := b_double
otb2:border := b_simple
@ 1,0,10,maxcol() GET u tbrowse otb1 MESSAGE( otb1:cargo) WHEN {|c|getAlias(c)}
@ 11,0,20,maxcol() GET u2 tbrowse otb2 SEND control:forcestable() MESSAGE( otb2:cargo) WHEN {|c|getAlias(c)}
READ MSG AT 0,21,30 msg COLOR "gb+/B"
Return

FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)

ctrl is the active tbrowse
objget is the last tbrowse

I hb_dispbox(objget:control:ntop,objget:control:nleft,objget:control:nbottom,objget:control:nright,B_SINGLE,'w/n')
hb_dispbox(ctrl:control:ntop,ctrl:control:nleft,ctrl:control:nbottom,ctrl:control:nright,B_DOUBLE,'r+/n')
RETURN (.T.)

In fact just after last hb_dispbox the borders are restored to the old values
I did not find out where it's done in tgetlist.prg any idea?

The result must be : active border with red color and last border with white color

Regards

Med