a scrollable window...
[1/3] from: tofo::695online::com at: 21-Feb-2003 20:10
Hey guys,
sorry for the easy question, but...
I wrote a comic-grabbing script. If I grab more than two comics, the
window displaying them goes off the screen. I _know_ there is an easy
fix...
this is the extremely complex code I use to display:
view layout [
banner "Comic 1"
image %comic1.gif
;
banner "Comic 2"
image %comic2.gif
;
banner "Comic 3"
image %comic3.gif
]
How can I make that thing scroll?
--
signature in pain: "ouch!"
-tom
-- Attached file included as plaintext by Listar --
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)
iD4DBQE+Vs4jzb1Ts73OU2ERAm+MAJ4gpWGRhvXqacvx1eVt5PTPhop6EgCXah7j
wYWbdj09vkENvFKlVWchfg==
=TKWe
-----END PGP SIGNATURE-----
[2/3] from: brett:codeconscious at: 22-Feb-2003 13:51
Hi Tom,
There is a panel how-to guide on the REBOL site. You could put your images
inside a panel and add a scroll bar.
The scroll bar when activated would change the offset of the panel giving
you scrolling. Doing the coding can become tricky.
I understand that the next View will (should) include some sort of scrolling
panel functionality built-in. Until that time you can a prototype scrolling
panel I made July last year for the new View. Unfortunately is does not work
with View 1.2.1, it does work with IOS and the later View betas.
It is called "scroll-panel.r" on this page:
http://www.codeconscious.com/rebol/library-cat.html
If you must use View 1.2.1 it should be possible to convert the code, it
simply relies on some changes made to VID after 1.2.1 (slider style mostly).
Regards,
Brett.
[3/3] from: carl:cybercraft at: 22-Feb-2003 18:54
On 22-Feb-03, Tom Foster wrote:
> Hey guys,
> sorry for the easy question, but...
<<quoted lines omitted: 13>>
> ]
> How can I make that thing scroll?
Hi Tom,
Here's a simple example that just changes the pictures' offsets to
make them scroll. Press the "u" or "d" keys to make it scroll. Hope
it's of some use...
rebol []
pics: copy []
loop 5 [
append pics to-image layout [box 400x200 random 255.255.255]
]
view lo: layout [
size 480x480 ; This stops the window getting too big.
text "Pic 1"
image pics/1 #"u" [
for pic 1 10 1 [
lo/pane/:pic/offset/y: lo/pane/:pic/offset/y - 50
]
show lo
]
text "Pic 2"
image pics/2 #"d" [
for pic 1 10 1 [
lo/pane/:pic/offset/y: lo/pane/:pic/offset/y + 50
]
show lo
]
text "Pic 3"
image pics/3
text "Pic 4"
image pics/4
text "Pic 5"
image pics/5
]
--
Carl Read
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted