scroll bars - GameCreators Forum

Author

Message

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 6th Oct 2005 11:02

Link

using dbp.
Was printing data to the screen yesterday when i realized after it gets to the bottom of the screen it keeps going and you can no longer see the output. Was wondering if there was a way to scroll down the screen in dbp. i CANNOT find any commands in the index. I searched the whole thing or anything reguarding repositioning the screen other than the windows pos itself. i would like to build a windows like file browser with icons so i will need to be able to scroll.
ty for your help

A child's dream never dies.

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 6th Oct 2005 15:03 Edited at: 8th Oct 2005 00:49

Link

First off I recommend using TEXT instead of PRINT. It gives you more control over how the text looks, where it's positioned and how it behaves.

Ok, I've never done this before so I'll just be stating how I'd do it...

I'd do something like this:

+ Code Snippet

DO

CLS

TEXT 0,Scroll#,"Some Text"
TEXT 0,Scroll#+15,"More Text"
TEXT 0,Scroll#+30,"Yet again, Text"
TEXT 0,Scroll#+45,"Text -_-"

IF UPKEY()=1 THEN DEC Scroll#,15
IF DOWNKEY()=1 THEN INC Scroll#,15

SYNC
LOOP

That should do it, just put that in the loop. Change/add more TEXT commands to suit the program, and change the amount the Scroll command adds to the y position for faster or slower scrolling, and finally change the upkey/downkey control to whatever you want to move the text up and down.

Back to top

Profile PM Email Website

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 6th Oct 2005 17:00 Edited at: 6th Oct 2005 17:10

Link

firt off i would like to say awesome man. second how the heck.
does the dec and inc command do it all?

i have no idea where to start to implement it into my code though;

+ Code Snippet

set dir "c:\program files"
set display mode 1280,1024,32
 PERFORM CHECKLIST FOR FILES
for a = CHECKLIST QUANTITY() to 3 step -1
l=l+1

IF CHECKLIST VALUE A(a) = 0
b$ = CHECKLIST STRING$(a)
ELSE
b$ = CHECKLIST STRING$(a)+".dir"
ENDIF
TEXT 10,(15*l) , b$
NEXT a

looks to me that is should work just my using my current l=l+1 as the scroll# variable. serves the same purpose however i cannot get it to work i am still very new to programming.

A child's dream never dies.

Back to top

Profile PM Email

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 6th Oct 2005 18:15 Edited at: 6th Oct 2005 18:15

Link

try this

+ Code Snippet

sync on
sync rate 0

set dir "c:program files"
set display mode 1280,1024,32
perform checklist for files
global scroll
quantity = checklist quantity()



do
   cls

   l = 0
   for a = quantity to 3 step -1
      l=l+1
      if checklist value a(a) = 0
         b$ = checklist string$(a)
      else
         b$ = checklist string$(a)+".dir"
      endif
      text 10,(15*l)+scroll , b$
   next a
   if upkey() = 1 then inc scroll,15
   if downkey() = 1 then dec scroll,15

   sync

loop

btw, how do you stand all those capital commands! ... my eyes hurt

--Peter

"We make the worst games in the universe."

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 6th Oct 2005 18:39 Edited at: 6th Oct 2005 20:42

Link

It depends whether or not you want to just scroll the screen as you are printing, or you want to be able to manually scroll back up to see what has disappeared off the top of the screen.

Below is my function for screen scrolling in a box positioned anywhere on the screen, but it doesn't include any ability to look at lines which have scrolled off the top. Shouldn't be too difficult to add that though. (Will take a look at that aspect later and add it to the Code Hints section on my web site).

DBC code, but AFAIK does not contain anything to prevent it working in DBP...

Basically, you provide it with the X and Y position on the screen you want to print, the width of the scroll box, the string you want to print and finally, how many lines of text fit into the box before it starts scrolling.

Dim Display$(25): Rem Array required for function
Dim LineCount(0): Rem Array required for function

Sync On: CLS 0
Sync Rate 0

XPos=100: Rem X position of scroll box on screen
YPos=10: Rem Y position of scroll box on screen
Numlines=8: Rem Number of lines to print before scrolling takes place
ScrollBoxWidth = 150: Rem Set this to required width to take max width string

Repeat
 Inc A
 NewLine$="Example Line "+Str$(A)
 ScrollPrint(XPos,YPos,ScrollBoxWidth,NewLine$,NumLines): Rem call this instead of Print
 Sleep 500
Until Inkey$()<>""
End

Function ScrollPrint(XPos,YPos,ScrollBoxWidth,NewLine$,Numlines)
  ScrollBoxHeight = Numlines*16
  Inc Numlines
  If NewLine$ <> ""
    If LineCount(0) < Numlines
      LineCount(0) = LineCount(0)+1 
      If LineCount(0) > Numlines Then LineCount(0) = Numlines
    Endif
    ActLine = LineCount(0)
    If ActLine < Numlines
      Rem Free Array Slots Available 
      Display$(ActLine) = NewLine$
    Else
      Rem Array Full 
      For Q = 1 To Numlines-2
        Display$(Q) = Display$(Q+1)
      Next Q
      Display$(Numlines-1) = NewLine$
    Endif
    Ink RGB(0,0,0),0: Rem Set to background colour of your screen
    Box XPos,YPos,XPos+ScrollBoxWidth,YPos+ScrollBoxHeight
    Ink RGB(255,255,255),0
    For Y = 0 To NumLines-1
      Text XPos,Y*16+YPos,Display$(Y+1)
    Next Y
    Sync
  Endif
EndFunction

+ Code Snippet

Dim Display$(25): Rem Array required for function
Dim LineCount(0): Rem Array required for function

Sync On: CLS 0
Sync Rate 0

XPos=100: Rem X position of scroll box on screen
YPos=10: Rem Y position of scroll box on screen
Numlines=8: Rem Number of lines to print before scrolling takes place
ScrollBoxWidth = 150: Rem Set this to required width to take max width string

Repeat
 Inc A
 NewLine$="Example Line "+Str$(A)
 ScrollPrint(XPos,YPos,ScrollBoxWidth,NewLine$,NumLines): Rem call this instead of Print
 Sleep 500
Until Inkey$()<>""
End

Function ScrollPrint(XPos,YPos,ScrollBoxWidth,NewLine$,Numlines)
  ScrollBoxHeight = Numlines*16
  Inc Numlines
  If NewLine$ <> ""
    If LineCount(0) < Numlines
      LineCount(0) = LineCount(0)+1 
      If LineCount(0) > Numlines Then LineCount(0) = Numlines
    Endif
    ActLine = LineCount(0)
    If ActLine < Numlines
      Rem Free Array Slots Available 
      Display$(ActLine) = NewLine$
    Else
      Rem Array Full 
      For Q = 1 To Numlines-2
        Display$(Q) = Display$(Q+1)
      Next Q
      Display$(Numlines-1) = NewLine$
    Endif
    Ink RGB(0,0,0),0: Rem Set to background colour of your screen
    Box XPos,YPos,XPos+ScrollBoxWidth,YPos+ScrollBoxHeight
    Ink RGB(255,255,255),0
    For Y = 0 To NumLines-1
      Text XPos,Y*16+YPos,Display$(Y+1)
    Next Y
    Sync
  Endif
EndFunction

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 7th Oct 2005 07:59

Link

THANKS ALOT GUYS.
i dont intentinally use capslock either i just accidentally hi it instead of shift and instead or retyping it i just go along with it.
thanks guys you have been much help

A child's dream never dies.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / scroll bars