----boundary-LibPST-iamunique-1752506666_-_-
Content-type: text/plain
Erik:
please have a look at my Gr package, available from Helmut's website.
It does not do exactly what you want, but I have dealt with a problem of
finding some object in a form. As Doug said, this is the area which was
not documented too well, and guys from Ominc sent me a few hints which
I then used with success. In particular, please look at the procedures:
GrViews.RetrieveFromContainer it shows, how you can iterate over
a container such as form, retrieve a objects, find one that meets your
criteria.
GrViews.Focus another demonstration of the same. There are two versions
of this procedure: the one based on Wolfgang Weck's advice, and a
folded (inactive) one based on my earlier attempt to understand BB
documentation.
For your reference, I am reproducing my version of the procedure, which
used to work pretty well. Later on I replaced it with Wolfgang's more
"professional" version.
Please substitute TextView for GrView and you will be done with finding
the TextView in the form. Then of course you need to write into that text.
Here I also have an example how to do it. Please read GrReportDemo
which writes something programmatically into the TextModel.
So, here is how you retrieve something from a Form (or any other
container as well, such as Text):
PROCEDURE Focus* (): View;
VAR v: Views.View;
PROCEDURE RetrieveFromForm (): View;
VAR
grv: Views.View;
ctrl: Containers.Controller;
BEGIN
ctrl := Containers.Focus();
IF (ctrl # NIL) THEN
ctrl.GetFirstView (Containers.any, grv);
(* ASSERT (grv # NIL, 21);
ASSERT fails when Panel on-screen and module
is unloaded *)
WHILE grv # NIL DO
(* The following is GrView-specific*)
(* substitute with a test of your own*)
IF (grv IS View) THEN
RETURN grv(View)
(* return the 1st
encountered GrViews.View*)
ELSE
ctrl.GetNextView (Containers.any, grv)
END
END; (* WHILE*)
RETURN NIL
ELSE
(* did not obtain a valid controller to try *)
RETURN NIL
END
END RetrieveFromForm;
BEGIN (* Focus *)
v := Controllers.FocusView();
IF (v = NIL) OR ~(v IS View) THEN
(* maybe the focus is the Form? *)
v := RetrieveFromForm();
END;
IF (v # NIL) & (v IS View) THEN
RETURN v(View)
ELSE
RETURN NIL
END
END Focus;
> Erik Spaans wrote:
> > Hello BlackBox,
> >
> > A newby question. I have created a form with the forms editor. I want to add
> > a piece of text to the form. This text should be variable, i.e. depending on
> > when and how the form is started it will display different texts.
> >
> > I do not want to use a edit or text field as this appears 'embossed'
> > (dented).
> >
> > I tried using a caption without an associated text field and linking it to a
> > variable in the underlying module, but that did not work. It does not change
> > the caption text. Adding a guard and setting par.label did not work either.
> >
> > Alternatively I created a textview. But how to insert this in the form? And
> > at a specified position? The documentation says that the module does not
> > know anything about the form. Somehow a textobject should be inserted in the
> > form (via the forms editor) and linked to a textview variable in the
> > underlying module. How?
> >
> > Any help is welcome.
> >
> > Erik
> >
>
>
> --------------------------------------------
>
> To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
> blackbox-request{([at]})nowhere.xy
>
> To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
>
> Send any problem reports or questions related to this email list to the list owner at
> owner-blackbox{([at]})nowhere.xy
>
> Current posting policy:
>
> a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
>
> b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
>
>
>
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-1752506666_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEVyaWs6XHBhcg0KXHBhcg0KICBwbGVhc2UgaGF2
ZSBhIGxvb2sgYXQgbXkgR3IgcGFja2FnZSwgYXZhaWxhYmxlIGZyb20gSGVsbXV0J3Mgd2Vic2l0
ZS5ccGFyDQpJdCBkb2VzIG5vdCBkbyBleGFjdGx5IHdoYXQgeW91IHdhbnQsIGJ1dCBJIGhhdmUg
ZGVhbHQgd2l0aCBhIHByb2JsZW0gb2ZccGFyDQpmaW5kaW5nIHNvbWUgb2JqZWN0IGluIGEgZm9y
bS4gQXMgRG91ZyBzYWlkLCB0aGlzIGlzIHRoZSBhcmVhIHdoaWNoIHdhc1xwYXINCm5vdCBkb2N1
bWVudGVkIHRvbyB3ZWxsLCBhbmQgZ3V5cyBmcm9tIE9taW5jIHNlbnQgbWUgYSBmZXcgaGludHMg
d2hpY2hccGFyDQpJIHRoZW4gdXNlZCB3aXRoIHN1Y2Nlc3MuIEluIHBhcnRpY3VsYXIsIHBsZWFz
ZSBsb29rIGF0IHRoZSBwcm9jZWR1cmVzOlxwYXINClxwYXINCkdyVmlld3MuUmV0cmlldmVGcm9t
Q29udGFpbmVyICAgaXQgc2hvd3MsIGhvdyB5b3UgY2FuIGl0ZXJhdGUgb3ZlclxwYXINCiAgIGEg
Y29udGFpbmVyIHN1Y2ggYXMgZm9ybSwgcmV0cmlldmUgYSBvYmplY3RzLCBmaW5kIG9uZSB0aGF0
IG1lZXRzIHlvdXJccGFyDQogICBjcml0ZXJpYS5ccGFyDQpccGFyDQpHclZpZXdzLkZvY3VzICAg
YW5vdGhlciBkZW1vbnN0cmF0aW9uIG9mIHRoZSBzYW1lLiBUaGVyZSBhcmUgdHdvIHZlcnNpb25z
XHBhcg0KICAgb2YgdGhpcyBwcm9jZWR1cmU6IHRoZSBvbmUgYmFzZWQgb24gV29sZmdhbmcgV2Vj
aydzIGFkdmljZSwgYW5kIGFccGFyDQogICBmb2xkZWQgKGluYWN0aXZlKSBvbmUgYmFzZWQgb24g
bXkgZWFybGllciBhdHRlbXB0IHRvIHVuZGVyc3RhbmQgQkJccGFyDQogICBkb2N1bWVudGF0aW9u
LlxwYXINClxwYXINCkZvciB5b3VyIHJlZmVyZW5jZSwgSSBhbSByZXByb2R1Y2luZyBteSB2ZXJz
aW9uIG9mIHRoZSBwcm9jZWR1cmUsIHdoaWNoXHBhcg0KdXNlZCB0byB3b3JrIHByZXR0eSB3ZWxs
LiBMYXRlciBvbiBJIHJlcGxhY2VkIGl0IHdpdGggV29sZmdhbmcncyBtb3JlXHBhcg0KInByb2Zl
c3Npb25hbCIgdmVyc2lvbi5ccGFyDQpccGFyDQpQbGVhc2Ugc3Vic3RpdHV0ZSBUZXh0VmlldyBm
b3IgR3JWaWV3IGFuZCB5b3Ugd2lsbCBiZSBkb25lIHdpdGggZmluZGluZ1xwYXINCnRoZSBUZXh0
VmlldyBpbiB0aGUgZm9ybS4gVGhlbiBvZiBjb3Vyc2UgeW91IG5lZWQgdG8gd3JpdGUgaW50byB0
aGF0IHRleHQuXHBhcg0KSGVyZSBJIGFsc28gaGF2ZSBhbiBleGFtcGxlIGhvdyB0byBkbyBpdC4g
UGxlYXNlIHJlYWQgR3JSZXBvcnREZW1vXHBhcg0Kd2hpY2ggd3JpdGVzIHNvbWV0aGluZyBwcm9n
cmFtbWF0aWNhbGx5IGludG8gdGhlIFRleHRNb2RlbC5ccGFyDQpccGFyDQpTbywgaGVyZSBpcyBo
b3cgeW91IHJldHJpZXZlIHNvbWV0aGluZyBmcm9tIGEgRm9ybSAob3IgYW55IG90aGVyXHBhcg0K
Y29udGFpbmVyIGFzIHdlbGwsIHN1Y2ggYXMgVGV4dCk6XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIEZv
Y3VzKiAoKTogVmlldztccGFyDQpcdGFiIFZBUiB2OiBWaWV3cy5WaWV3O1xwYXINClxwYXINClBS
T0NFRFVSRSBSZXRyaWV2ZUZyb21Gb3JtICgpOiBWaWV3O1xwYXINClZBUlxwYXINClx0YWIgZ3J2
OiBWaWV3cy5WaWV3O1xwYXINClx0YWIgY3RybDogQ29udGFpbmVycy5Db250cm9sbGVyO1xwYXIN
CkJFR0lOXHBhcg0KY3RybCA6PSBDb250YWluZXJzLkZvY3VzKCk7XHBhcg0KSUYgKGN0cmwgIyBO
SUwpIFRIRU5ccGFyDQpcdGFiIGN0cmwuR2V0Rmlyc3RWaWV3IChDb250YWluZXJzLmFueSwgZ3J2
KTtccGFyDQpcdGFiICgqIEFTU0VSVCAoZ3J2ICMgTklMLCAyMSk7XHBhcg0KICAgICAgICAgICBB
U1NFUlQgZmFpbHMgd2hlbiBQYW5lbCBvbi1zY3JlZW4gYW5kIG1vZHVsZVxwYXINCiAgICAgICAg
ICAgaXMgdW5sb2FkZWQgKilccGFyDQpcdGFiIFdISUxFIGdydiAjIE5JTCBET1xwYXINCiAgICAg
ICAgICAgICAgICAoKiBUaGUgZm9sbG93aW5nIGlzIEdyVmlldy1zcGVjaWZpYyopXHBhcg0KICAg
ICAgICAgICAgICAgICgqIHN1YnN0aXR1dGUgd2l0aCBhIHRlc3Qgb2YgeW91ciBvd24qKVxwYXIN
Clx0YWIgXHRhYiBJRiAgKGdydiBJUyBWaWV3KSBUSEVOXHBhcg0KXHRhYiBcdGFiIFx0YWIgUkVU
VVJOIGdydihWaWV3KVxwYXINCiAgICAgICAgICAgICAgICAgICAgICAgICgqIHJldHVybiB0aGUg
MXN0XHBhcg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgZW5jb3VudGVyZWQgR3JWaWV3cy5W
aWV3KilccGFyDQpcdGFiIFx0YWIgRUxTRVxwYXINClx0YWIgXHRhYiBcdGFiICBjdHJsLkdldE5l
eHRWaWV3IChDb250YWluZXJzLmFueSwgZ3J2KVxwYXINClx0YWIgXHRhYiBFTkRccGFyDQpcdGFi
IEVORDtcdGFiICgqIFdISUxFKilccGFyDQpcdGFiIFJFVFVSTiBOSUxccGFyDQpFTFNFXHBhcg0K
XHRhYiAoKiBkaWQgbm90IG9idGFpbiBhIHZhbGlkIGNvbnRyb2xsZXIgdG8gdHJ5ICopXHBhcg0K
XHRhYiBSRVRVUk4gTklMXHBhcg0KRU5EXHBhcg0KRU5EIFJldHJpZXZlRnJvbUZvcm07XHBhcg0K
XHBhcg0KQkVHSU4gICgqIEZvY3VzICopXHBhcg0KdiA6PSBDb250cm9sbGVycy5Gb2N1c1ZpZXco
KTtccGFyDQpJRiAodiA9IE5JTCkgT1Igfih2IElTIFZpZXcpIFRIRU5ccGFyDQpcdGFiICgqIG1h
eWJlIHRoZSBmb2N1cyBpcyB0aGUgRm9ybT8gKilccGFyDQpcdGFiIHYgOj0gUmV0cmlldmVGcm9t
Rm9ybSgpO1xwYXINCkVORDtccGFyDQpJRiAodiAjIE5JTCkgJiAodiBJUyBWaWV3KSBUSEVOXHBh
cg0KXHRhYiBSRVRVUk4gdihWaWV3KVxwYXINCkVMU0VccGFyDQpcdGFiIFJFVFVSTiBOSUxccGFy
DQpFTkRccGFyDQpFTkQgRm9jdXM7XHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KID4gRXJp
ayBTcGFhbnMgd3JvdGU6XHBhcg0KPiA+IEhlbGxvIEJsYWNrQm94LFxwYXINCj4gPlxwYXINCj4g
PiBBIG5ld2J5IHF1ZXN0aW9uLiBJIGhhdmUgY3JlYXRlZCBhIGZvcm0gd2l0aCB0aGUgZm9ybXMg
ZWRpdG9yLiBJIHdhbnQgdG8gYWRkXHBhcg0KPiA+IGEgcGllY2Ugb2YgdGV4dCB0byB0aGUgZm9y
bS4gVGhpcyB0ZXh0IHNob3VsZCBiZSB2YXJpYWJsZSwgaS5lLiBkZXBlbmRpbmcgb25ccGFyDQo+
ID4gd2hlbiBhbmQgaG93IHRoZSBmb3JtIGlzIHN0YXJ0ZWQgaXQgd2lsbCBkaXNwbGF5IGRpZmZl
cmVudCB0ZXh0cy5ccGFyDQo+ID5ccGFyDQo+ID4gSSBkbyBub3Qgd2FudCB0byB1c2UgYSBlZGl0
IG9yIHRleHQgZmllbGQgYXMgdGhpcyBhcHBlYXJzICdlbWJvc3NlZCdccGFyDQo+ID4gKGRlbnRl
ZCkuXHBhcg0KPiA+XHBhcg0KPiA+IEkgdHJpZWQgdXNpbmcgYSBjYXB0aW9uIHdpdGhvdXQgYW4g
YXNzb2NpYXRlZCB0ZXh0IGZpZWxkIGFuZCBsaW5raW5nIGl0IHRvIGFccGFyDQo+ID4gdmFyaWFi
bGUgaW4gdGhlIHVuZGVybHlpbmcgbW9kdWxlLCBidXQgdGhhdCBkaWQgbm90IHdvcmsuIEl0IGRv
ZXMgbm90IGNoYW5nZVxwYXINCj4gPiB0aGUgY2FwdGlvbiB0ZXh0LiBBZGRpbmcgYSBndWFyZCBh
bmQgc2V0dGluZyBwYXIubGFiZWwgZGlkIG5vdCB3b3JrIGVpdGhlci5ccGFyDQo+ID5ccGFyDQo+
ID4gQWx0ZXJuYXRpdmVseSBJIGNyZWF0ZWQgYSB0ZXh0dmlldy4gQnV0IGhvdyB0byBpbnNlcnQg
dGhpcyBpbiB0aGUgZm9ybT8gQW5kXHBhcg0KPiA+IGF0IGEgc3BlY2lmaWVkIHBvc2l0aW9uPyBU
aGUgZG9jdW1lbnRhdGlvbiBzYXlzIHRoYXQgdGhlIG1vZHVsZSBkb2VzIG5vdFxwYXINCj4gPiBr
bm93IGFueXRoaW5nIGFib3V0IHRoZSBmb3JtLiBTb21laG93IGEgdGV4dG9iamVjdCBzaG91bGQg
YmUgaW5zZXJ0ZWQgaW4gdGhlXHBhcg0KPiA+IGZvcm0gKHZpYSB0aGUgZm9ybXMgZWRpdG9yKSBh
bmQgbGlua2VkIHRvIGEgdGV4dHZpZXcgdmFyaWFibGUgaW4gdGhlXHBhcg0KPiA+IHVuZGVybHlp
bmcgbW9kdWxlLiBIb3c/XHBhcg0KPiA+XHBhcg0KPiA+IEFueSBoZWxwIGlzIHdlbGNvbWUuXHBh
cg0KPiA+XHBhcg0KPiA+IEVyaWtccGFyDQo+ID5ccGFyDQo+XHBhcg0KPlxwYXINCj4gLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQo+XHBhcg0KPiBUbyB1
bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWlu
aW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KPiAgICBibGFja2JveC1yZXF1ZXN0
QG9iZXJvbi5jaFxwYXINCj5ccGFyDQo+IFRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNv
bW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIgdXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNv
bnRhaW5pbmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBhYm92ZSBhZGRyZXNzLlxwYXINCj5ccGFy
DQo+IFNlbmQgYW55IHByb2JsZW0gcmVwb3J0cyBvciBxdWVzdGlvbnMgcmVsYXRlZCB0byB0aGlz
IGVtYWlsIGxpc3QgdG8gdGhlIGxpc3Qgb3duZXIgYXRccGFyDQo+ICAgIG93bmVyLWJsYWNrYm94
QG9iZXJvbi5jaFxwYXINCj5ccGFyDQo+IEN1cnJlbnQgcG9zdGluZyBwb2xpY3k6XHBhcg0KPlxw
YXINCj4gYSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUgc2FtZSBhZGRyZXNzIGJ5IHdoaWNo
IHlvdSBhcmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBsaXN0LiBUaGF0IHdheSwgdGhlIGxp
c3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJzY3JpYmVyIGFuZCBmb3J3YXJkIHlv
dXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBh
cg0KPlxwYXINCj4gYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20g
dGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdp
bGwgYmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1bmRlcnN0YW5kIHRoYXQgbW9k
ZXJhdGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGluIHBhcnRpY3VsYXIgb3ZlciB3
ZWVrZW5kcyBvciBob2x5ZGF5cy5ccGFyDQo+XHBhcg0KPlxwYXINCj5ccGFyDQpccGFyDQotLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINClRvIHVu
c3Vic2NyaWJlIGZyb20gdGhpcyBtYWlsaW5nIGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5p
bmcgdGhlIHdvcmQgInVuc3Vic2NyaWJlIiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9i
ZXJvbi5jaFxwYXINClxwYXINClRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRz
IGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIgdXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5p
bmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBhYm92ZSBhZGRyZXNzLlxwYXINClxwYXINClNlbmQg
YW55IHByb2JsZW0gcmVwb3J0cyBvciBxdWVzdGlvbnMgcmVsYXRlZCB0byB0aGlzIGVtYWlsIGxp
c3QgdG8gdGhlIGxpc3Qgb3duZXIgYXRccGFyDQogICBvd25lci1ibGFja2JveEBvYmVyb24uY2hc
cGFyDQpccGFyDQpDdXJyZW50IHBvc3RpbmcgcG9saWN5OlxwYXINClxwYXINCmEpIFRvIHBvc3Qg
eW91IHNob3VsZCB1c2UgdGhlIHNhbWUgYWRkcmVzcyBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmli
ZWQgdG8gdGhlIG1haWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJl
Y29nbml6ZSB5b3UgYXMgc3Vic2NyaWJlciBhbmQgZm9yd2FyZCB5b3VyIHBvc3RpbmcgaW1tZWRp
YXRlbHksIHdpdGhvdXQgY3JlYXRpbmcgYW55IG92ZXJoZWFkLlxwYXINClxwYXINCmIpIElmLCBm
b3Igc29tZSByZWFzb24sIHlvdSBjYW5ub3QgcG9zdCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3aGlj
aCB5b3UgYXJlIHN1YnNjcmliZWQsIHlvdXIgbWVzc2FnZSB3aWxsIGJlIG1vZGVyYXRlZCB0byBh
dm9pZCBzcGFtLiBQbGVhc2UgdW5kZXJzdGFuZCB0aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRlbiBj
YXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMgb3IgaG9seWRheXMu
XHB9fQDvLhIkkwMQAw==
----boundary-LibPST-iamunique-1752506666_-_---
Received on Thu Aug 28 2003 - 18:39:00 UTC