[BLACKBOX] Play file = Automatic scrolling

From: Douglas G. Danforth <"Douglas>
Date: Thu, 24 Apr 2008 21:14:08 -0700

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

Ok, I give up.

I have tried to follow the documentation and the code
and end up chasing my tail.

Here is what I want to do (under a deadline to get it done).
Play a large jpg file. By play I mean have is slowly scroll horizontally
from the beginning to end.

This can easily be done with the current 'thumb' scroll bar when the
file is opened BUT this needs to be done from 'underneath', by the
program when a 'Play' button is pushed.

I can see the 'Restore' code for the implementation of FreeImage in
BlackBox.

I can even get a crude form of scrolling to happen by using a
Services.Action
coupled with f.SetOffset(gx, gy) for a frame f. BUT something else is
missing
since when I do that the image does indeed scroll to the left but the
right hand
side is not refreshed. It IS refreshed if one uses the 'thumb' scroll bar.

Hence I would like to emulate (in some manner) the action of mouse down
over the
scroll bar and moving it.

Nowhere in the Free/Mod/ software is there any handling of
Controls.PollSectionMsg
and yet it still does the right thing when the thumb scroll bar is
moved. How does it
know this? The Restore code knows about f.gx, f.gy and
f.context.GetSize(x, y);

Here it is

    PROCEDURE RestorePicture* (v: View; f: Views.Frame);
        VAR
            res: INTEGER;
            dc, dc1: WinApi.HDC;
            w, h: INTEGER;
    BEGIN

        v.context.GetSize(w, h);

        dc := f.rider(HostPorts.Rider).port.dc; (* Actual dc *)
        dc1 := WinApi.CreateCompatibleDC(dc);
        res := WinApi.SelectObject(dc1, v.bmp);
        f.rider(HostPorts.Rider).DrawBitmap(dc1, v.w, v.h, f.gx, f.gy,
w, h);

        res := WinApi.DeleteDC(dc1)

    END RestorePicture;

    (* To display the imported picture in a stand-alone view *)
    PROCEDURE (v: View) Restore* (f: Views.Frame; l, t, r, b: INTEGER);
    BEGIN
        IF v.bmp # 0 THEN
            RestorePicture(v, f)
        END
    END Restore;


The values of v.w and v.h are set when the image file is opened and not
changed there after.
Since I can change f.gx and f.gy and get only partially the correct
answer it says to me that
v.context.GetSize(w,h) is returning values that are not set up correctly
and yet this (above) is the
one and only place where the v.context is mentioned in all the Mod files.

This is much too low level. I had hoped that BB had a one-to-one
correspondence for every
control to a programatic representation of that control so that there
would be something like
view.MoveHScrollBarTo(x) and it would be exactly as if the user moved
the Horizontal
Scroll Bar to position x (with all of the consequences there of).

Does anyone have any ideas of how to do this without me reimplementing
the Restore code?

-Doug Danforth

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-101494924_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIE9rLCBJIGdpdmUgdXAuXHBhcg0KXHBhcg0KSSBo
YXZlIHRyaWVkIHRvIGZvbGxvdyB0aGUgZG9jdW1lbnRhdGlvbiBhbmQgdGhlIGNvZGVccGFyDQph
bmQgZW5kIHVwIGNoYXNpbmcgbXkgdGFpbC5ccGFyDQpccGFyDQpIZXJlIGlzIHdoYXQgSSB3YW50
IHRvIGRvICh1bmRlciBhIGRlYWRsaW5lIHRvIGdldCBpdCBkb25lKS5ccGFyDQpQbGF5IGEgbGFy
Z2UganBnIGZpbGUuICBCeSBwbGF5IEkgbWVhbiBoYXZlIGlzIHNsb3dseSBzY3JvbGwgaG9yaXpv
bnRhbGx5XHBhcg0KZnJvbSB0aGUgYmVnaW5uaW5nIHRvIGVuZC5ccGFyDQpccGFyDQpUaGlzIGNh
biBlYXNpbHkgYmUgZG9uZSB3aXRoIHRoZSBjdXJyZW50ICd0aHVtYicgc2Nyb2xsIGJhciB3aGVu
IHRoZVxwYXINCmZpbGUgaXMgb3BlbmVkIEJVVCB0aGlzIG5lZWRzIHRvIGJlIGRvbmUgZnJvbSAn
dW5kZXJuZWF0aCcsIGJ5IHRoZVxwYXINCnByb2dyYW0gd2hlbiBhICdQbGF5JyBidXR0b24gaXMg
cHVzaGVkLlxwYXINClxwYXINCkkgY2FuIHNlZSB0aGUgJ1Jlc3RvcmUnIGNvZGUgZm9yIHRoZSBp
bXBsZW1lbnRhdGlvbiBvZiBGcmVlSW1hZ2UgaW5ccGFyDQpCbGFja0JveC5ccGFyDQpccGFyDQpJ
IGNhbiBldmVuIGdldCBhIGNydWRlIGZvcm0gb2Ygc2Nyb2xsaW5nIHRvIGhhcHBlbiBieSB1c2lu
ZyBhIFxwYXINClNlcnZpY2VzLkFjdGlvblxwYXINCmNvdXBsZWQgd2l0aCBmLlNldE9mZnNldChn
eCwgZ3kpIGZvciBhIGZyYW1lIGYuICBCVVQgc29tZXRoaW5nIGVsc2UgaXMgXHBhcg0KbWlzc2lu
Z1xwYXINCnNpbmNlIHdoZW4gSSBkbyB0aGF0IHRoZSBpbWFnZSBkb2VzIGluZGVlZCBzY3JvbGwg
dG8gdGhlIGxlZnQgYnV0IHRoZSBccGFyDQpyaWdodCBoYW5kXHBhcg0Kc2lkZSBpcyBub3QgcmVm
cmVzaGVkLiAgIEl0IElTIHJlZnJlc2hlZCBpZiBvbmUgdXNlcyB0aGUgJ3RodW1iJyBzY3JvbGwg
YmFyLlxwYXINClxwYXINCkhlbmNlIEkgd291bGQgbGlrZSB0byBlbXVsYXRlIChpbiBzb21lIG1h
bm5lcikgdGhlIGFjdGlvbiBvZiBtb3VzZSBkb3duIFxwYXINCm92ZXIgdGhlXHBhcg0Kc2Nyb2xs
IGJhciBhbmQgbW92aW5nIGl0LlxwYXINClxwYXINCk5vd2hlcmUgaW4gdGhlIEZyZWUvTW9kLyBz
b2Z0d2FyZSBpcyB0aGVyZSBhbnkgaGFuZGxpbmcgb2YgXHBhcg0KQ29udHJvbHMuUG9sbFNlY3Rp
b25Nc2dccGFyDQphbmQgeWV0IGl0IHN0aWxsIGRvZXMgdGhlIHJpZ2h0IHRoaW5nIHdoZW4gdGhl
IHRodW1iIHNjcm9sbCBiYXIgaXMgXHBhcg0KbW92ZWQuICBIb3cgZG9lcyBpdFxwYXINCmtub3cg
dGhpcz8gIFRoZSBSZXN0b3JlIGNvZGUga25vd3MgYWJvdXQgZi5neCwgZi5neSBhbmQgXHBhcg0K
Zi5jb250ZXh0LkdldFNpemUoeCwgeSk7XHBhcg0KXHBhcg0KSGVyZSBpdCBpc1xwYXINClxwYXIN
CiAgICBQUk9DRURVUkUgUmVzdG9yZVBpY3R1cmUqICh2OiBWaWV3OyBmOiBWaWV3cy5GcmFtZSk7
XHBhcg0KICAgICAgICBWQVJccGFyDQogICAgICAgICAgICByZXM6IElOVEVHRVI7XHBhcg0KICAg
ICAgICAgICAgZGMsIGRjMTogV2luQXBpLkhEQztccGFyDQogICAgICAgICAgICB3LCBoOiBJTlRF
R0VSO1xwYXINCiAgICBCRUdJTlxwYXINClxwYXINCiAgICAgICAgdi5jb250ZXh0LkdldFNpemUo
dywgaCk7XHBhcg0KXHBhcg0KICAgICAgICBkYyA6PSBmLnJpZGVyKEhvc3RQb3J0cy5SaWRlciku
cG9ydC5kYzsgKCogQWN0dWFsIGRjICopXHBhcg0KICAgICAgICBkYzEgOj0gV2luQXBpLkNyZWF0
ZUNvbXBhdGlibGVEQyhkYyk7XHBhcg0KICAgICAgICByZXMgOj0gV2luQXBpLlNlbGVjdE9iamVj
dChkYzEsIHYuYm1wKTtccGFyDQogICAgICAgIGYucmlkZXIoSG9zdFBvcnRzLlJpZGVyKS5EcmF3
Qml0bWFwKGRjMSwgdi53LCB2LmgsIGYuZ3gsIGYuZ3ksIFxwYXINCncsIGgpO1xwYXINClxwYXIN
CiAgICAgICAgcmVzIDo9IFdpbkFwaS5EZWxldGVEQyhkYzEpXHBhcg0KXHBhcg0KICAgIEVORCBS
ZXN0b3JlUGljdHVyZTtccGFyDQpccGFyDQogICAgKCogVG8gZGlzcGxheSB0aGUgaW1wb3J0ZWQg
cGljdHVyZSBpbiBhIHN0YW5kLWFsb25lIHZpZXcgKilccGFyDQogICAgUFJPQ0VEVVJFICh2OiBW
aWV3KSBSZXN0b3JlKiAoZjogVmlld3MuRnJhbWU7IGwsIHQsIHIsIGI6IElOVEVHRVIpO1xwYXIN
CiAgICBCRUdJTlxwYXINCiAgICAgICAgSUYgdi5ibXAgIyAwIFRIRU5ccGFyDQogICAgICAgICAg
ICBSZXN0b3JlUGljdHVyZSh2LCBmKVxwYXINCiAgICAgICAgRU5EXHBhcg0KICAgIEVORCBSZXN0
b3JlO1xwYXINClxwYXINClxwYXINClRoZSB2YWx1ZXMgb2Ygdi53IGFuZCB2LmggYXJlIHNldCB3
aGVuIHRoZSBpbWFnZSBmaWxlIGlzIG9wZW5lZCBhbmQgbm90IFxwYXINCmNoYW5nZWQgdGhlcmUg
YWZ0ZXIuXHBhcg0KU2luY2UgSSBjYW4gY2hhbmdlIGYuZ3ggYW5kIGYuZ3kgYW5kIGdldCBvbmx5
IHBhcnRpYWxseSB0aGUgY29ycmVjdCBccGFyDQphbnN3ZXIgaXQgc2F5cyB0byBtZSB0aGF0XHBh
cg0Kdi5jb250ZXh0LkdldFNpemUodyxoKSBpcyByZXR1cm5pbmcgdmFsdWVzIHRoYXQgYXJlIG5v
dCBzZXQgdXAgY29ycmVjdGx5IFxwYXINCmFuZCB5ZXQgdGhpcyAoYWJvdmUpIGlzIHRoZVxwYXIN
Cm9uZSBhbmQgb25seSBwbGFjZSB3aGVyZSB0aGUgdi5jb250ZXh0IGlzIG1lbnRpb25lZCBpbiBh
bGwgdGhlIE1vZCBmaWxlcy5ccGFyDQpccGFyDQpUaGlzIGlzIG11Y2ggdG9vIGxvdyBsZXZlbC4g
IEkgaGFkIGhvcGVkIHRoYXQgQkIgaGFkIGEgb25lLXRvLW9uZSBccGFyDQpjb3JyZXNwb25kZW5j
ZSBmb3IgZXZlcnlccGFyDQpjb250cm9sIHRvIGEgcHJvZ3JhbWF0aWMgcmVwcmVzZW50YXRpb24g
b2YgdGhhdCBjb250cm9sIHNvIHRoYXQgdGhlcmUgXHBhcg0Kd291bGQgYmUgc29tZXRoaW5nIGxp
a2VccGFyDQp2aWV3Lk1vdmVIU2Nyb2xsQmFyVG8oeCkgYW5kIGl0IHdvdWxkIGJlIGV4YWN0bHkg
YXMgaWYgdGhlIHVzZXIgbW92ZWQgXHBhcg0KdGhlIEhvcml6b250YWxccGFyDQpTY3JvbGwgQmFy
IHRvIHBvc2l0aW9uIHggKHdpdGggYWxsIG9mIHRoZSBjb25zZXF1ZW5jZXMgdGhlcmUgb2YpLlxw
YXINClxwYXINCkRvZXMgYW55b25lIGhhdmUgYW55IGlkZWFzIG9mIGhvdyB0byBkbyB0aGlzIHdp
dGhvdXQgbWUgcmVpbXBsZW1lbnRpbmcgXHBhcg0KdGhlIFJlc3RvcmUgY29kZT9ccGFyDQpccGFy
DQotRG91ZyBEYW5mb3J0aFxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmli
ZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VS
VkBMSVNUUy5PQkVST04uQ0hccGFyDQp9
----boundary-LibPST-iamunique-101494924_-_---

Received on Fri Apr 25 2008 - 06:14:08 UTC