Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Pete on October 30, 2020, 07:42:27 pm

Title: Hey gang, fun little scrollbar demo routine...
Post by: Pete on October 30, 2020, 07:42:27 pm
Code: QB64: [Select]
  1. DIM scrn AS my_scrn
  2. DIM page AS my_page
  3. DIM margin AS my_margin
  4. DIM scrb AS my_scrb
  5. DIM cursor AS my_cursor
  6. DIM mb AS my_mb
  7.  
  11.  
  12. TYPE my_scrn
  13.     w AS INTEGER
  14.     h AS INTEGER
  16.  
  17. TYPE my_page
  18.     w AS INTEGER
  19.     h AS INTEGER
  20.     c AS INTEGER
  22.  
  23. TYPE my_margin
  24.     t AS INTEGER
  25.     b AS INTEGER
  26.     l AS INTEGER
  27.     r AS INTEGER
  29.  
  30. TYPE my_scrb
  31.     t AS INTEGER
  32.     b AS INTEGER
  33.     l AS INTEGER
  34.     x AS INTEGER
  35.     i AS INTEGER
  36.     d AS INTEGER
  37.     h AS INTEGER
  38.     s AS INTEGER
  39.     opt AS INTEGER
  40.     adjust AS INTEGER
  42.  
  43. TYPE my_cursor
  44.     find AS INTEGER
  45.     scbrrow AS INTEGER ' row + scr
  46.     scbrcol AS INTEGER ' POS(0)
  47.     holdscr AS INTEGER ' Holds scr
  48.     holdrow AS INTEGER ' Holds row
  49.     holdscrbx AS INTEGER ' Holds scrb.x
  51.  
  52. TYPE my_mb
  53.     l AS INTEGER
  54.     r AS INTEGER
  55.     m AS INTEGER
  56.     drag AS INTEGER
  57.     dragon AS INTEGER
  59.  
  60. ' DEMO -----------------------------------------------------------------
  62. DIM SHARED debug%
  63. DO: PRINT "Input screen width: 60 - 140, blank for default or -1 for debug mode: ";: INPUT screen_width%
  64.     IF screen_width% = -1 THEN debug% = -1: margin.t = 1: margin.b = 1: margin.l = 127: margin.r = 5: screen_width% = 150: noe = 99: GOTO make_fake_text ' Debug mode.
  65.     IF screen_width% = 0 THEN margin.t = 1: margin.b = 1: margin.l = 10: margin.r = 12: screen_width% = 80: noe = 40: GOTO make_fake_text ' Use defaults for demo.
  66.     IF screen_width% >= 60 AND screen_width% <= 140 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  68. DO: PRINT "Input number of text entries 10 - 99: ";: INPUT noe
  69.     IF noe >= 10 AND noe <= 99 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  71. DO: PRINT "Input margin top 0 to 10: ";: INPUT margin.t
  72.     IF margin.t >= 0 AND margin.t <= 10 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  74. DO: PRINT "Input margin bottom 0 to 10: ";: INPUT margin.b
  75.     IF margin.b >= 0 AND margin.b <= 10 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  77. DO: PRINT "Input margin left 0 to 20: ";: INPUT margin.l
  78.     IF margin.l >= 0 AND margin.l <= 20 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  80. DO: PRINT "Input margin right 2 to 20: ";: INPUT margin.r
  81.     IF margin.r >= 2 AND margin.r <= 20 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  83. DO: PRINT "Input scrollbar indicator type 1 single 0 Expands per elements: ";: INPUT scrb.opt
  84.     IF scrb.opt >= 0 AND scrb.opt <= 1 THEN EXIT DO ELSE PRINT: PRINT "Redo...": PRINT
  86.  
  87. make_fake_text:
  88. CLS: REDIM x$(noe)
  89. FOR i% = 1 TO noe
  90.     FOR j% = 1 TO screen_width% - (margin.l + margin.r) - 3
  91.         k% = (RND * 24) + 97 + 8
  92.         IF k% > 122 THEN
  93.             IF RIGHT$(x$(i%), 1) <> " " AND LEN(x$(i%)) THEN a$ = " " ELSE a$ = CHR$((RND * 24) + 97)
  94.         ELSE
  95.             a$ = CHR$(k%)
  96.         END IF
  97.         x$(i%) = x$(i%) + a$
  98.     NEXT j%
  99.     x$(i%) = STRING$(2 - LEN(LTRIM$(STR$(i%))), "0") + LTRIM$(STR$(i%)) + " " + x$(i%)
  100. NEXT i%
  101.  
  102. WIDTH screen_width%, 25
  103. IF screen_width% > 90 THEN _SCREENMOVE 0, 0
  105. ' End Demo ------------------------------------------------------------------
  106.  
  107. GOSUB getvar_setscrn
  108.  
  110.     IF debug% THEN GOSUB debugger ' Debug only.
  111.  
  112.     GOSUB displayscrn
  113.  
  114.     GOSUB makescrb
  115.  
  116.     GOSUB getkey
  119.  
  120. getvar_setscrn:
  121. scrn.w = _WIDTH
  122. scrn.h = _HEIGHT
  123. scrb.x = 0 ' Relative position of the scrollbar cursor from top of scrb.h. 0 Off / 1 to
  124. page.w = scrn.w - (margin.l + margin.r)
  125. page.h = scrn.h - (margin.t + margin.b)
  126. scrb.t = margin.t + 1
  127. scrb.b = margin.t + page.h
  128. scrb.l = margin.l + page.w + 2
  129. page.w = scrn.w - (margin.l + margin.r)
  130. page.h = scrn.h - (margin.t + margin.b)
  131. scrb.d = scrb.b - scrb.t + 1
  132. scrb.h = scrb.b - scrb.t - 1 ' Max. vertical scroll. Bar minus the top and bottom arrow symbols.
  133. IF scrb.opt = 0 THEN
  134.     scrb.s = (scrb.h + 1) * 2 - noe: IF scrb.s <= 0 THEN scrb.s = 1
  136.     scrb.s = 1
  138.  
  139. IF row = 0 THEN row = 1
  140. IF page.c = 0 THEN page.c = 7 ' Cursor apearance as underline.
  141. LOCATE margin.t + row, margin.l + 1, 1, 7, page.c
  142. GOSUB getcurrow: cursor.find = -1
  144.  
  145. displayscrn:
  146. yy% = CSRLIN: xx% = POS(0)
  147. LOCATE , , 0: ' Cursor hide.
  148. j% = 0
  149. DO ' page.h determines how mnay rows of text are displayed.
  150.     j% = j% + 1
  151.     LOCATE margin.t + j%, margin.l + 1
  152.     PRINT x$(scr + j%);
  153.     IF j% = page.h OR j% = noe THEN EXIT DO
  155. LOCATE yy%, xx%
  156. IF cursor.find THEN
  157.     cursor.find = 0
  158.     IF cursor.scbrrow > scr AND cursor.scbrrow <= scr + page.h THEN
  159.         LOCATE margin.t + cursor.scbrrow - scr, cursor.scbrcol, 1 ' Cursor show.
  160.     END IF
  162.     LOCATE , , 1 ' Show cursor.
  165.  
  166. makescrb:
  167. yy% = CSRLIN: xx% = POS(0)
  168. LOCATE scrb.t, scrb.l
  169. COLOR 0, 7
  170. PRINT CHR$(24);
  171. COLOR 7, 0
  172. FOR i% = 1 TO scrb.h
  173.     LOCATE scrb.t + i%, scrb.l
  174.     PRINT CHR$(177);
  175. NEXT i%
  176. LOCATE scrb.b, scrb.l
  177. COLOR 0, 7
  178. PRINT CHR$(25);
  179. COLOR 7, 0
  180.  
  181. IF noe > scrb.h + 2 THEN
  182.     FOR i% = 1 TO scrb.s
  183.         LOCATE scrb.t + scrb.x + i%, scrb.l
  184.         COLOR 1, 0
  185.         PRINT CHR$(176); ' Scrollbar index cursor.
  186.     NEXT
  187.     COLOR 7, 0
  189. LOCATE yy%, xx%
  191.  
  192. getkey:
  193. row = CSRLIN - margin.t
  195.     _LIMIT 60
  196.     b$ = INKEY$
  197.     IF LEN(b$) THEN
  198.         SELECT CASE b$
  199.             CASE CHR$(0) + "R"
  200.                 IF page.c = 7 THEN page.c = 30 ELSE page.c = 7
  201.                 LOCATE , , 1, 7, page.c
  202.             CASE CHR$(0) + "H"
  203.                 GOSUB backtocursor
  204.                 IF row + scr > 0 THEN
  205.                     IF row = 1 THEN
  206.                         IF scr > 0 THEN
  207.                             scr = scr - 1
  208.                             GOSUB displayscrn
  209.                         END IF
  210.                     ELSE
  211.                         row = row - 1
  212.                     END IF
  213.                     LOCATE row + margin.t, margin.l + 1
  214.                     GOSUB getcurrow
  215.                 END IF
  216.             CASE CHR$(0) + "P"
  217.                 GOSUB backtocursor
  218.                 IF row + scr < noe THEN
  219.                     IF row = page.h THEN
  220.                         scr = scr + 1
  221.                         GOSUB displayscrn
  222.                     ELSE
  223.                         row = row + 1
  224.                     END IF
  225.                     LOCATE row + margin.t, margin.l + 1
  226.                     GOSUB getcurrow
  227.                 END IF
  228.             CASE CHR$(9)
  229.                 RUN
  230.             CASE CHR$(27)
  231.                 SYSTEM
  232.         END SELECT
  233.  
  234.         ' Reverse algorithm. Not needed for this routine. scrb.x = scrb.i / ((noe - scrb.d) / (scrb.h - scrb.s))
  235.  
  236.         IF row + scr >= INT((scrb.x + 1) * ((noe - scrb.d) / (scrb.h - scrb.s))) + page.h THEN
  237.             scrb.x = scrb.x + 1
  238.  
  239.             GOSUB makescrb
  240.  
  241.             scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
  242.         ELSEIF row + scr <= scrb.i THEN
  243.             scrb.x = scrb.x - 1
  244.  
  245.             GOSUB makescrb
  246.  
  247.             scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
  248.         END IF
  249.     END IF
  250.  
  251.     IF delay.on! THEN ' Scrollbar delay.
  252.         _DELAY delay.on!
  253.         delay.on! = 0 ' Toggle off.
  254.     END IF
  255.  
  256.     mb.m = 0
  258.         mb.l = _MOUSEBUTTON(1)
  259.         mb.m = mb.m + _MOUSEWHEEL
  260.     WEND
  261.  
  262.     IF mb.l OR mb.m THEN
  263.         mx% = _MOUSEX ' Mouse column.
  264.         my% = _MOUSEY ' Mouse row.
  265.  
  266.         IF mx% = scrb.l AND scrb.s AND my% >= scrb.t AND my% <= scrb.b OR scrbardrag% AND my% > scrb.t AND my% < scrb.b OR mb.m > 0 AND scrb.x + scrb.s < scrb.h OR mb.m < 0 AND scrb.x <> 0 THEN ' Mouse on scrollbar or doing a bar cursor drag or using the scroll wheel.
  267.             IF my% = scrb.t AND scrb.x > 0 OR my% = scrb.b AND scrb.x + scrb.s < scrb.h OR mb.m THEN ' Mouse on a scrollbar arrow.
  268.                 IF my% = scrb.t OR mb.m < 0 THEN scrb.x = scrb.x - 1 ELSE scrb.x = scrb.x + 1 ' Top or bottom arrow.
  269.                 IF mb.m = 0 THEN delay.on! = .15
  270.                 scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
  271.                 scr = scrb.i
  272.                 cursor.find = -1
  273.                 EXIT DO
  274.             ELSEIF my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 AND scrbardrag% = 0 THEN ' Mouse on scrollbar cursor.
  275.                 scrbardrag% = -1: scrb.adjust = (my% - (scrb.t + 1)) - scrb.x
  276.             ELSEIF my% > scrb.t AND my% < scrb.b THEN ' Mouse on scrollbar between scrollbar arrow and cursor.
  277.                 IF my% - (scrb.t + 1) - scrb.adjust >= 0 AND my% - (scrb.t + 1) + scrb.s - scrb.adjust <= scrb.h OR scrbardrag% = 0 THEN
  278.                     IF scrbardrag% = 0 THEN ' NO drag, so adjust for cursor length for a click inside the scrollbar above or below the current scrollbar cursor position.
  279.                         IF my% - (scrb.t + 1) > scrb.x THEN
  280.                             scrb.adjust = (my% - (scrb.t + 1)) - scrb.x - 1
  281.                         ELSE
  282.                             scrb.adjust = (my% - (scrb.t + 1)) - scrb.x + 1
  283.                         END IF
  284.                     END IF
  285.                     scrb.x = my% - (scrb.t + 1) - scrb.adjust
  286.                     scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
  287.                     scr = scrb.i
  288.                     cursor.find = -1
  289.                     EXIT DO
  290.                 ELSE ' Scrollbar is at top or bottom and mouse cursor is moving vertically along the scrollbar cursor. This allows the variable to readjust.
  291.                     IF mx% = scrb.l THEN scrbardrag% = 0: scrb.adjust = 0
  292.                 END IF
  293.             END IF
  294.         ELSEIF my% >= margin.t + 1 AND my% <= margin.t + page.h THEN
  295.             IF mx% >= margin.l + 1 AND mx% <= scrn.w - margin.r THEN
  296.                 LOCATE my%, mx%, 1 ' Locate by left mouse click and show cursor.
  297.                 GOSUB getcurrow
  298.             END IF
  299.         END IF
  300.     ELSE
  301.         scrbardrag% = 0: scrb.adjust = 0
  302.     END IF
  305.  
  306. getcurrow:
  307. row = CSRLIN - margin.t
  308. cursor.scbrrow = row + scr
  309. cursor.scbrcol = POS(0)
  310. cursor.holdscr = scr
  311. cursor.holdrow = row
  312. cursor.holdscrbx = scrb.x
  314.  
  315. backtocursor:
  316. IF cursor.scbrrow > scr AND cursor.scbrrow <= scr + page.h THEN
  317.     ' Display region does not contain cursor. Do nothing.
  318. ELSE ' Display region contains the cursor.
  319.     scr = cursor.holdscr
  320.     row = cursor.holdrow
  321.     scrb.x = cursor.holdscrbx
  322.     scrb.i = scr
  323.     GOSUB makescrb
  324.     GOSUB displayscrn
  327.  
  328. debugger:
  329. ss% = CSRLIN: tt% = POS(0)
  330. LOCATE 2, 1
  331. PRINT " initiate_scrb% ="; initiate_scrb%
  332. PRINT " scrn.w ="; scrn.w; " scrn.h ="; scrn.h; scrb.s; "     "
  333. PRINT " margin.t ="; margin.t; " margin.b ="; margin.b; " margin.l ="; margin.l; " margin.r ="; margin.r; scrb.s; "     "
  334. PRINT " scrb.t ="; scrb.t; " scrb.b ="; scrb.b; " scrb.l ="; scrb.l; " scrb.d ="; scrb.d; " scrb.x = "; scrb.x; " scrb.i ="; scrb.i; " scrb.h ="; scrb.h; " scrb.s ="; scrb.s; "     "
  335. PRINT " cursor.find ="; cursor.find; " cursor.scbrrow ="; cursor.scbrrow; " cursor.scbrcol = "; cursor.scbrcol; scrb.s; "     "
  336. PRINT " cursor.holdscr ="; cursor.holdscr; " cursor.holdrow ="; cursor.holdrow; " cursor.holdscrbx ="; cursor.holdscrbx
  337. PRINT " page.h% ="; page.h%; " noe% = "; noe%; " delay_on! ="; delay_on!; " row% = "; row%; " scr% ="; scr%; " mx% ="; mx%; " my% ="; my%; " mb.l ="; mb.l; " mb.dragon ="; mb.dragon; " mb.drag ="; mb.drag; "   "
  338. LOCATE ss%, tt%
  339. _DELAY .05

Now I have a library version, but I'm skeptical of being able to use it. Between the need for a display and key input, you just cannot easily make this routine into a separate drag and drop library. I'll probably just marry it to an editor routine, anyway.

I now need to go through the code and start renaming variables, refining, etc. For instance, apparently the little square in the scrollbar is called a "box" or "thumb" and I have to change that in some remarks. Any other comments as to better names, etc. are welcome.

I'm done with all the algorithms. I refined those from the library ones I posted a couple of days ago in a different thread, and I have to say they are pretty tight.

Try it for fun, and make use of it if you need to put a scrollbar routine in any of your SCREEN ZERO programs.

Note: The demo may not be 100% goof proof, but I don't care. It's only included so folks can fiddle with different set ups.

Pete

Edited to include mouse wheel scrolling.
Title: Re: Hey gang, fun little scrollbar demo routine...
Post by: bplus on October 31, 2020, 02:44:25 am
@Pete, sorry I have to say, all those lines of code and you can't scroll with mouse wheel? I was kind of surprised.

Scrollbar looks and works fine though, I guess with screen 0 you have to put up with those narrow bars with the funny dots ;-))

Title: Re: Hey gang, fun little scrollbar demo routine...
Post by: Pete on October 31, 2020, 04:37:26 am
You can drag it, even if you move off the bar, but keepthe mouse button down (drag) or you can click off the box in the bar, but no, I didn't add a wheel function... well, not yet. That's an easy add though. What's not so easy is incorporating this into an editor, which is why I punted on it as a library. I've got the arrow keys working in an editor, but I have to fiddle a little more to get the mouse routine working properly. After I fix that, I'll add a mouse wheel.

Narrow? Who in the hell wants a big fat scroll bar? They are a drain on our health care system, and look awful in a speedo. I bet those dots don't look so bad after saying that!

Pete
Title: Re: Hey gang, fun little scrollbar demo routine...
Post by: Unseen Machine on October 31, 2020, 06:15:09 am

@Pete

Quote
SCREEN ZERO programs.

I make sure i use it in all of mine pete i promise! :)

Unseen
Title: Re: Hey gang, fun little scrollbar demo routine...
Post by: Petr on October 31, 2020, 06:29:11 am
Nicely done, Pete.
Title: Re: Hey gang, fun little scrollbar demo routine...
Post by: Pete on October 31, 2020, 06:34:55 am
Quote from: Unseen Machine on October 31, 2020, 06:15:09 am
@Pete

I make sure i use it in all of mine pete i promise! :)

Unseen

Are you saying you have NO SCREEN ZERO programs? You are DEAD to me... Oh wait, you think FB sucks. Consider yourself resurrected, and officially off my non-screen zero smite list.  Sorry for being a smite ASCII.

@ Petr, thanks! :)

Pete
Text Only | Text with Attachments