Re: [BLACKBOX] Views - Size at opening

From: [at]} <Robert>
Date: Sat, 31 Mar 2012 08:31:56 +0100

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

There are three abstractions:

- Simple Views
- Documents, which form a root to a general View hierarchy
- Windows, which allow 1 or more Documents to be visible on screen.

In general one wants separate control over each's size; for example when
a Window is resized it is optional if its Document is resized to fit the Window,
to fit the printer page, or fixed.

In your case I suspect that you want all 3 to be the same, but you should not
expect that to happen just by setting any one, the situation is much more
versatile than that.


To resize a View does one need more than a simple:

    v.context.SetSize(w, h)?

I don't expect that to change the size of a Window, or of the View's immediate
Container - which may be a Document.



To make an already open Window resize I have resorted to:


PROCEDURE SetWindowPlacement* (IN title : Views.Title; x, y, w, h : INTEGER);
   VAR
     win : Windows.Window;
     wTitle : Views.Title;
     wnd : WinApi.HWND;
     ret : WinApi.BOOL;
     wp : WinApi.WINDOWPLACEMENT;
   BEGIN
     win := Windows.dir.First ();
     WHILE win # NIL DO
       win.GetTitle (wTitle);
       IF wTitle = title THEN
         wnd := win(HostWindows.Window).wnd;
         IF (w = 0) & (h = 0) THEN
           ret := WinApi.GetWindowPlacement (wnd, wp);
           w := wp.rcNormalPosition.right - wp.rcNormalPosition.left;
           h := wp.rcNormalPosition.bottom - wp.rcNormalPosition.top
         END;
         ret := WinApi.MoveWindow (wnd, x, y, w, h, 1);
         RETURN
       END;
       win := Windows.dir.Next (win)
     END
   END SetWindowPlacement;

There is probably a simpler way?


Regards

Robert


On 31/03/2012 01:17, Douglas G. Danforth wrote:
> Folks,
>
> Here is an even simpler way to change the size of a view (a text view in this case)
>
> view := TextViews.dir.New(text);
> Views.OpenAux(view, title);
> win :=Windows.dir.First();
> win.SetSize(w, h);
>
> This requires that 'Windows' be used in addition to the pointer to the view you
> are given.
>
> -Doug Danforth
>
> No virus found in this message.
> Checked by AVG - www.avg.com <http://www.avg.com>
> Version: 2012.0.1913 / Virus Database: 2114/4904 - Release Date: 03/30/12
>
> ---- To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy
>

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1484908657_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFRoZXJlIGFyZSB0aHJlZSBhYnN0cmFjdGlvbnM6
XHBhcg0KXHBhcg0KLSBTaW1wbGUgVmlld3NccGFyDQotIERvY3VtZW50cywgd2hpY2ggZm9ybSBh
IHJvb3QgdG8gYSBnZW5lcmFsIFZpZXcgaGllcmFyY2h5XHBhcg0KLSBXaW5kb3dzLCB3aGljaCBh
bGxvdyAxIG9yIG1vcmUgRG9jdW1lbnRzIHRvIGJlIHZpc2libGUgb24gc2NyZWVuLlxwYXINClxw
YXINCkluIGdlbmVyYWwgb25lIHdhbnRzIHNlcGFyYXRlIGNvbnRyb2wgb3ZlciBlYWNoJ3Mgc2l6
ZTsgZm9yIGV4YW1wbGUgd2hlblxwYXINCmEgV2luZG93IGlzIHJlc2l6ZWQgaXQgaXMgb3B0aW9u
YWwgaWYgaXRzIERvY3VtZW50IGlzIHJlc2l6ZWQgdG8gZml0IHRoZSBXaW5kb3csXHBhcg0KdG8g
Zml0IHRoZSBwcmludGVyIHBhZ2UsIG9yIGZpeGVkLlxwYXINClxwYXINCkluIHlvdXIgY2FzZSBJ
IHN1c3BlY3QgdGhhdCB5b3Ugd2FudCBhbGwgMyB0byBiZSB0aGUgc2FtZSwgYnV0IHlvdSBzaG91
bGQgbm90XHBhcg0KZXhwZWN0IHRoYXQgdG8gaGFwcGVuIGp1c3QgYnkgc2V0dGluZyBhbnkgb25l
LCB0aGUgc2l0dWF0aW9uIGlzIG11Y2ggbW9yZVxwYXINCnZlcnNhdGlsZSB0aGFuIHRoYXQuXHBh
cg0KXHBhcg0KXHBhcg0KVG8gcmVzaXplIGEgVmlldyBkb2VzIG9uZSBuZWVkIG1vcmUgdGhhbiBh
IHNpbXBsZTpccGFyDQpccGFyDQogICAgdi5jb250ZXh0LlNldFNpemUodywgaCk/XHBhcg0KXHBh
cg0KSSBkb24ndCBleHBlY3QgdGhhdCB0byBjaGFuZ2UgdGhlIHNpemUgb2YgYSBXaW5kb3csIG9y
IG9mIHRoZSBWaWV3J3MgaW1tZWRpYXRlIFxwYXINCkNvbnRhaW5lciAtIHdoaWNoIG1heSBiZSBh
IERvY3VtZW50LlxwYXINClxwYXINClxwYXINClxwYXINClRvIG1ha2UgYW4gYWxyZWFkeSBvcGVu
IFdpbmRvdyByZXNpemUgSSBoYXZlIHJlc29ydGVkIHRvOlxwYXINClxwYXINClxwYXINClBST0NF
RFVSRSAgU2V0V2luZG93UGxhY2VtZW50KiAoSU4gdGl0bGUgOiBWaWV3cy5UaXRsZTsgeCwgeSwg
dywgaCA6IElOVEVHRVIpO1xwYXINCiAgIFZBUlxwYXINCiAgICAgd2luICAgICA6ICBXaW5kb3dz
LldpbmRvdztccGFyDQogICAgIHdUaXRsZSAgOiAgVmlld3MuVGl0bGU7XHBhcg0KICAgICB3bmQg
ICAgIDogIFdpbkFwaS5IV05EO1xwYXINCiAgICAgcmV0ICAgICA6ICBXaW5BcGkuQk9PTDtccGFy
DQogICAgIHdwICAgICAgOiAgV2luQXBpLldJTkRPV1BMQUNFTUVOVDtccGFyDQogICBCRUdJTlxw
YXINCiAgICAgd2luICA6PSAgV2luZG93cy5kaXIuRmlyc3QgKCk7XHBhcg0KICAgICBXSElMRSAg
d2luICAjICBOSUwgIERPXHBhcg0KICAgICAgIHdpbi5HZXRUaXRsZSAod1RpdGxlKTtccGFyDQog
ICAgICAgSUYgIHdUaXRsZSAgPSAgdGl0bGUgIFRIRU5ccGFyDQogICAgICAgICB3bmQgIDo9ICB3
aW4oSG9zdFdpbmRvd3MuV2luZG93KS53bmQ7XHBhcg0KICAgICAgICAgSUYgICh3ICA9ICAwKSAg
JiAgKGggID0gIDApICBUSEVOXHBhcg0KICAgICAgICAgICByZXQgIDo9ICBXaW5BcGkuR2V0V2lu
ZG93UGxhY2VtZW50ICh3bmQsIHdwKTtccGFyDQogICAgICAgICAgIHcgICAgOj0gIHdwLnJjTm9y
bWFsUG9zaXRpb24ucmlnaHQgICAtICB3cC5yY05vcm1hbFBvc2l0aW9uLmxlZnQ7XHBhcg0KICAg
ICAgICAgICBoICAgIDo9ICB3cC5yY05vcm1hbFBvc2l0aW9uLmJvdHRvbSAgLSAgd3AucmNOb3Jt
YWxQb3NpdGlvbi50b3BccGFyDQogICAgICAgICBFTkQ7XHBhcg0KICAgICAgICAgcmV0ICA6PSAg
V2luQXBpLk1vdmVXaW5kb3cgKHduZCwgeCwgeSwgdywgaCwgMSk7XHBhcg0KICAgICAgICAgUkVU
VVJOXHBhcg0KICAgICAgIEVORDtccGFyDQogICAgICAgd2luICA6PSAgV2luZG93cy5kaXIuTmV4
dCAod2luKVxwYXINCiAgICAgRU5EXHBhcg0KICAgRU5EICBTZXRXaW5kb3dQbGFjZW1lbnQ7XHBh
cg0KXHBhcg0KVGhlcmUgaXMgcHJvYmFibHkgYSBzaW1wbGVyIHdheT9ccGFyDQpccGFyDQpccGFy
DQpSZWdhcmRzXHBhcg0KXHBhcg0KUm9iZXJ0XHBhcg0KXHBhcg0KXHBhcg0KT24gMzEvMDMvMjAx
MiAwMToxNywgRG91Z2xhcyBHLiBEYW5mb3J0aCB3cm90ZTpccGFyDQo+IEZvbGtzLFxwYXINCj5c
cGFyDQo+IEhlcmUgaXMgYW4gZXZlbiBzaW1wbGVyIHdheSB0byBjaGFuZ2UgdGhlIHNpemUgb2Yg
YSB2aWV3IChhIHRleHQgdmlldyBpbiB0aGlzIGNhc2UpXHBhcg0KPlxwYXINCj4gdmlldyA6PSBU
ZXh0Vmlld3MuZGlyLk5ldyh0ZXh0KTtccGFyDQo+IFZpZXdzLk9wZW5BdXgodmlldywgdGl0bGUp
O1xwYXINCj4gd2luIDo9V2luZG93cy5kaXIuRmlyc3QoKTtccGFyDQo+IHdpbi5TZXRTaXplKHcs
IGgpO1xwYXINCj5ccGFyDQo+IFRoaXMgcmVxdWlyZXMgdGhhdCAnV2luZG93cycgYmUgdXNlZCBp
biBhZGRpdGlvbiB0byB0aGUgcG9pbnRlciB0byB0aGUgdmlldyB5b3VccGFyDQo+IGFyZSBnaXZl
bi5ccGFyDQo+XHBhcg0KPiAtRG91ZyBEYW5mb3J0aFxwYXINCj5ccGFyDQo+IE5vIHZpcnVzIGZv
dW5kIGluIHRoaXMgbWVzc2FnZS5ccGFyDQo+IENoZWNrZWQgYnkgQVZHIC0gd3d3LmF2Zy5jb20g
PGh0dHA6Ly93d3cuYXZnLmNvbT5ccGFyDQo+IFZlcnNpb246IDIwMTIuMC4xOTEzIC8gVmlydXMg
RGF0YWJhc2U6IDIxMTQvNDkwNCAtIFJlbGVhc2UgRGF0ZTogMDMvMzAvMTJccGFyDQo+XHBhcg0K
PiAtLS0tIFRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYg
QkxBQ0tCT1giIHRvXHBhcg0KPiBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFyDQo+XHBhcg0K
XHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRo
IGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk99fQBAZ3JlZW53b29k
ZmE=
----boundary-LibPST-iamunique-1484908657_-_---

Received on Sat Mar 31 2012 - 09:31:56 UTC