[BLACKBOX] AW: [BLACKBOX] Control for SETs

From: [at]} <Gerhard.Marent{>
Date: Wed, 30 May 2012 09:52:50 +0000

----boundary-LibPST-iamunique-1287159201_-_-
Content-type: text/plain

I have a workaround for the update problem of the checkboxes. If you replace in CtlsxSets the

PROCEDURE(c: Control) HandleCtrlMsg2 (f: Views.Frame; VAR msg: Controllers.Message; VAR focus: Views.View);

by the following, the problem is solved. (Not elegant, but it works.)

Regards Gerhard Marent

 
        PROCEDURE(c: Control) HandleCtrlMsg2 (f: Views.Frame; VAR msg: Controllers.Message; VAR focus: Views.View);
                VAR h, i: INTEGER;
        BEGIN
                        IF ~c.disabled & ~c.readOnly & c.item.Valid() THEN
                        WITH msg: Controllers.TrackMsg DO
                                IF c.ClickAtButton(msg.x, msg.y, h) THEN
                                        IF (18 IN msg.modifiers) THEN
                                                IF c.backCol[h] = markCol THEN c.backCol[h] := stdBackCol;
                                                ELSE c.backCol[h] := markCol END; Draw(c, f);
                                        ELSE
                                                ChangeValue(c, f, h)
                                        END;
                                        FOR i := 0 TO 31 DO
                                                Controls.Notify(c, f, Dialog.changed, 0, i);
                                        END;
                                END;
                        ELSE
                        END
                END;
        END HandleCtrlMsg2;





-----Ursprüngliche Nachricht-----
Von: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
Gesendet: Dienstag, 29. Mai 2012 22:55
An: BLACKBOX{([at]})nowhere.xy
Betreff: Re: [BLACKBOX] Control for SETs



On 29/05/2012 18:37, Bob Walkden wrote:
>>
>> I had a look at the MS style guide
>> (<http://www.microsoft.com/en-us/download/details.aspx?id&95>), a
>> 900 page extravaganza, but failed to recognise anything I wanted to copy.
>> #
>
> it's at the bottom of page 34.
>
> B
>>
>> I then tried Gerhard Marent's Control - just what I wanted for my
>> current application - thanks.


Ok - Its a Control whose description includes the word SET. But it is so far away from what I wanted that I didn't recognise it (in a VERY fast skip of a 900 page document) as relevant.


The attached picture compares Gerhard's Control with an array of CheckBoxes. His Control gives a good visual indication of which bits are set in a form that has a pretty good resonance with my application.


I have found a (minor) bug which I can't quite track down.

Suppose, with reference to the attached picture, I have TWO sets of CheckBoxes,
and 2 Set Controls, all linked to the same SET, and no Guards or Notifiers.

When I toggle some bit with a CheckBox all 4 Controls automatically update.
However, when I toggle a bit with the Set Control only the Set Controls update,
the CheckBoxes do not until some other event causes then to be redrawn.

I thought the problem was with the way Controls.Notify was being used, but am
not sure.

Using Notifiers is an easy workaround, but I am interested to understand the
problem as I suspect that some other Controls I've written may have the same
problem.


Regards

Robert

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xyVorarlberger Illwerke Aktiengesellschaft ein Unternehmen von illwerke vkw
Rechtsform: Aktiengesellschaft, Sitz: Bregenz, Firmenbuchnummer: FN 59202m
Firmenbuchgericht: LG Feldkirch, DVR 0008753, UID-Nr.: ATU 36737402
Vorarlberger Kraftwerke Aktiengesellschaft ein Unternehmen von illwerke vkw
Rechtsform: Aktiengesellschaft, Sitz: Bregenz, Firmenbuchnummer: FN58920y
Firmenbuchgericht: LG Feldkirch, DVR 0027961, UID-Nr.: ATU 36737304
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1287159201_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBJIGhhdmUgYSB3b3JrYXJvdW5k
IGZvciB0aGUgdXBkYXRlIHByb2JsZW0gb2YgdGhlIGNoZWNrYm94ZXMuIElmIHlvdSByZXBsYWNl
IGluIEN0bHN4U2V0cyAgdGhlXHBhcg0KXHBhcg0KUFJPQ0VEVVJFKGM6IENvbnRyb2wpIEhhbmRs
ZUN0cmxNc2cyIChmOiBWaWV3cy5GcmFtZTsgVkFSIG1zZzogQ29udHJvbGxlcnMuTWVzc2FnZTsg
VkFSIGZvY3VzOiBWaWV3cy5WaWV3KTtccGFyDQpccGFyDQpieSB0aGUgZm9sbG93aW5nLCB0aGUg
cHJvYmxlbSBpcyBzb2x2ZWQuIChOb3QgZWxlZ2FudCwgYnV0IGl0IHdvcmtzLikgXHBhcg0KXHBh
cg0KUmVnYXJkcyAgR2VyaGFyZCBNYXJlbnRccGFyDQpccGFyDQogXHBhcg0KXHRhYiBQUk9DRURV
UkUoYzogQ29udHJvbCkgSGFuZGxlQ3RybE1zZzIgKGY6IFZpZXdzLkZyYW1lOyBWQVIgbXNnOiBD
b250cm9sbGVycy5NZXNzYWdlOyBWQVIgZm9jdXM6IFZpZXdzLlZpZXcpO1xwYXINClx0YWIgXHRh
YiBWQVJcdGFiIGgsIGk6IElOVEVHRVI7XHBhcg0KXHRhYiBCRUdJTlxwYXINClx0YWIgXHRhYiBc
dGFiIElGIH5jLmRpc2FibGVkICYgfmMucmVhZE9ubHkgJiBjLml0ZW0uVmFsaWQoKSBUSEVOXHBh
cg0KXHRhYiBcdGFiIFx0YWIgV0lUSCBtc2c6IENvbnRyb2xsZXJzLlRyYWNrTXNnIERPXHBhcg0K
XHRhYiBcdGFiIFx0YWIgXHRhYiBJRiBjLkNsaWNrQXRCdXR0b24obXNnLngsIG1zZy55LCBoKSBU
SEVOXHBhcg0KXHRhYiBcdGFiIFx0YWIgXHRhYiBcdGFiIElGICgxOCBJTiBtc2cubW9kaWZpZXJz
KSBUSEVOXHBhcg0KXHRhYiBcdGFiIFx0YWIgXHRhYiBcdGFiIFx0YWIgSUYgYy5iYWNrQ29sW2hd
ID0gbWFya0NvbCBUSEVOIGMuYmFja0NvbFtoXSA6PSBzdGRCYWNrQ29sO1xwYXINClx0YWIgXHRh
YiBcdGFiIFx0YWIgXHRhYiBcdGFiIEVMU0UgYy5iYWNrQ29sW2hdIDo9IG1hcmtDb2wgRU5EOyBE
cmF3KGMsIGYpO1xwYXINClx0YWIgXHRhYiBcdGFiIFx0YWIgXHRhYiBFTFNFXHBhcg0KXHRhYiBc
dGFiIFx0YWIgXHRhYiBcdGFiIFx0YWIgQ2hhbmdlVmFsdWUoYywgZiwgaClccGFyDQpcdGFiIFx0
YWIgXHRhYiBcdGFiIFx0YWIgRU5EO1xwYXINClx0YWIgXHRhYiBcdGFiIFx0YWIgXHRhYiBGT1Ig
aSA6PSAwIFRPIDMxIERPXHBhcg0KXHRhYiBcdGFiIFx0YWIgXHRhYiBcdGFiIFx0YWIgQ29udHJv
bHMuTm90aWZ5KGMsIGYsIERpYWxvZy5jaGFuZ2VkLCAwLCBpKTtccGFyDQpcdGFiIFx0YWIgXHRh
YiBcdGFiIFx0YWIgRU5EO1xwYXINClx0YWIgXHRhYiBcdGFiIFx0YWIgRU5EO1xwYXINClx0YWIg
XHRhYiBcdGFiIEVMU0VccGFyDQpcdGFiIFx0YWIgXHRhYiBFTkRccGFyDQpcdGFiIFx0YWIgRU5E
O1xwYXINClx0YWIgRU5EIEhhbmRsZUN0cmxNc2cyO1xwYXINClxwYXINClxwYXINClxwYXINClxw
YXINClxwYXINCi0tLS0tVXJzcHJcJ2ZjbmdsaWNoZSBOYWNocmljaHQtLS0tLVxwYXINClZvbjog
QmxhY2tCb3ggW21haWx0bzpCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hdIEltIEF1ZnRyYWcgdm9u
IFJvYmVydFxwYXINCkdlc2VuZGV0OiBEaWVuc3RhZywgMjkuIE1haSAyMDEyIDIyOjU1XHBhcg0K
QW46IEJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSFxwYXINCkJldHJlZmY6IFJlOiBbQkxBQ0tCT1hd
IENvbnRyb2wgZm9yIFNFVHNccGFyDQpccGFyDQpccGFyDQpccGFyDQpPbiAyOS8wNS8yMDEyIDE4
OjM3LCBCb2IgV2Fsa2RlbiB3cm90ZTpccGFyDQo+PlxwYXINCj4+IEkgaGFkIGEgbG9vayBhdCB0
aGUgTVMgc3R5bGUgZ3VpZGVccGFyDQo+PiAoPGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9lbi11
cy9kb3dubG9hZC9kZXRhaWxzLmFzcHg/aWQ9MjY5NT4pLCBhIFxwYXINCj4+IDkwMCBwYWdlIGV4
dHJhdmFnYW56YSwgYnV0IGZhaWxlZCB0byByZWNvZ25pc2UgYW55dGhpbmcgSSB3YW50ZWQgdG8g
Y29weS5ccGFyDQo+PiAjXHBhcg0KPlxwYXINCj4gaXQncyBhdCB0aGUgYm90dG9tIG9mIHBhZ2Ug
MzQuXHBhcg0KPlxwYXINCj4gQlxwYXINCj4+XHBhcg0KPj4gSSB0aGVuIHRyaWVkIEdlcmhhcmQg
TWFyZW50J3MgQ29udHJvbCAtIGp1c3Qgd2hhdCBJIHdhbnRlZCBmb3IgbXkgXHBhcg0KPj4gY3Vy
cmVudCBhcHBsaWNhdGlvbiAtIHRoYW5rcy5ccGFyDQpccGFyDQpccGFyDQpPayAtIEl0cyBhIENv
bnRyb2wgd2hvc2UgZGVzY3JpcHRpb24gaW5jbHVkZXMgdGhlIHdvcmQgU0VULiBCdXQgaXQgaXMg
c28gZmFyIGF3YXkgZnJvbSB3aGF0IEkgd2FudGVkIHRoYXQgSSBkaWRuJ3QgcmVjb2duaXNlIGl0
IChpbiBhIFZFUlkgZmFzdCBza2lwIG9mIGEgOTAwIHBhZ2UgZG9jdW1lbnQpIGFzIHJlbGV2YW50
LlxwYXINClxwYXINClxwYXINClRoZSBhdHRhY2hlZCBwaWN0dXJlIGNvbXBhcmVzIEdlcmhhcmQn
cyBDb250cm9sIHdpdGggYW4gYXJyYXkgb2YgQ2hlY2tCb3hlcy4gSGlzIENvbnRyb2wgZ2l2ZXMg
YSBnb29kIHZpc3VhbCBpbmRpY2F0aW9uIG9mIHdoaWNoIGJpdHMgYXJlIHNldCBpbiBhIGZvcm0g
dGhhdCBoYXMgYSBwcmV0dHkgZ29vZCByZXNvbmFuY2Ugd2l0aCBteSBhcHBsaWNhdGlvbi5ccGFy
DQpccGFyDQpccGFyDQpJIGhhdmUgZm91bmQgYSAobWlub3IpIGJ1ZyB3aGljaCBJIGNhbid0IHF1
aXRlIHRyYWNrIGRvd24uXHBhcg0KXHBhcg0KU3VwcG9zZSwgd2l0aCByZWZlcmVuY2UgdG8gdGhl
IGF0dGFjaGVkIHBpY3R1cmUsIEkgaGF2ZSBUV08gc2V0cyBvZiBDaGVja0JveGVzLCBccGFyDQph
bmQgMiBTZXQgQ29udHJvbHMsIGFsbCBsaW5rZWQgdG8gdGhlIHNhbWUgU0VULCBhbmQgbm8gR3Vh
cmRzIG9yIE5vdGlmaWVycy5ccGFyDQpccGFyDQpXaGVuIEkgdG9nZ2xlIHNvbWUgYml0IHdpdGgg
YSBDaGVja0JveCBhbGwgNCBDb250cm9scyBhdXRvbWF0aWNhbGx5IHVwZGF0ZS4gXHBhcg0KSG93
ZXZlciwgd2hlbiBJIHRvZ2dsZSBhIGJpdCB3aXRoIHRoZSBTZXQgQ29udHJvbCBvbmx5IHRoZSBT
ZXQgQ29udHJvbHMgdXBkYXRlLFxwYXINCnRoZSBDaGVja0JveGVzIGRvIG5vdCB1bnRpbCBzb21l
IG90aGVyIGV2ZW50IGNhdXNlcyB0aGVuIHRvIGJlIHJlZHJhd24uXHBhcg0KXHBhcg0KSSB0aG91
Z2h0IHRoZSBwcm9ibGVtIHdhcyB3aXRoIHRoZSB3YXkgQ29udHJvbHMuTm90aWZ5IHdhcyBiZWlu
ZyB1c2VkLCBidXQgYW0gXHBhcg0Kbm90IHN1cmUuXHBhcg0KXHBhcg0KVXNpbmcgTm90aWZpZXJz
IGlzIGFuIGVhc3kgd29ya2Fyb3VuZCwgYnV0IEkgYW0gaW50ZXJlc3RlZCB0byB1bmRlcnN0YW5k
IHRoZSBccGFyDQpwcm9ibGVtIGFzIEkgc3VzcGVjdCB0aGF0IHNvbWUgb3RoZXIgQ29udHJvbHMg
SSd2ZSB3cml0dGVuIG1heSBoYXZlIHRoZSBzYW1lIFxwYXINCnByb2JsZW0uXHBhcg0KXHBhcg0K
XHBhcg0KUmVnYXJkc1xwYXINClxwYXINClJvYmVydFxwYXINClxwYXINClxwYXINClxwYXINClxw
YXINClxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1l
c3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVS
T04uQ0hccGFyDQpWb3JhcmxiZXJnZXIgSWxsd2Vya2UgQWt0aWVuZ2VzZWxsc2NoYWZ0IGVpbiBV
bnRlcm5laG1lbiB2b24gaWxsd2Vya2Ugdmt3XHBhcg0KUmVjaHRzZm9ybTogQWt0aWVuZ2VzZWxs
c2NoYWZ0LCBTaXR6OiBCcmVnZW56LCBGaXJtZW5idWNobnVtbWVyOiBGTiA1OTIwMm1ccGFyDQpG
aXJtZW5idWNoZ2VyaWNodDogTEcgRmVsZGtpcmNoLCBEVlIgMDAwODc1MywgVUlELU5yLjogQVRV
IDM2NzM3NDAyXHBhcg0KXHBhcg0KVm9yYXJsYmVyZ2VyIEtyYWZ0d2Vya2UgQWt0aWVuZ2VzZWxs
c2NoYWZ0IGVpbiBVbnRlcm5laG1lbiB2b24gaWxsd2Vya2Ugdmt3XHBhcg0KUmVjaHRzZm9ybTog
QWt0aWVuZ2VzZWxsc2NoYWZ0LCBTaXR6OiBCcmVnZW56LCBGaXJtZW5idWNobnVtbWVyOiBGTjU4
OTIweVxwYXINCkZpcm1lbmJ1Y2hnZXJpY2h0OiBMRyBGZWxka2lyY2gsIERWUiAwMDI3OTYxLCBV
SUQtTnIuOiBBVFUgMzY3MzczMDRccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJz
Y3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElT
VFNFUlZATElTVFMuT0JFUk9OLkNIXHBhcg0KfQ=
----boundary-LibPST-iamunique-1287159201_-_---

Received on Wed May 30 2012 - 11:52:50 UTC