Creating a terminal menu with scrollable text
Creating a terminal menu with scrollable text
(OP)
I am using a terminal only so no GUI and using Free Pascal 2.6.2. If I have a screen that begins on line 5 I can use the arrow keys to move down to say line 26, and if I get to line 27 it goes back to line 5, and line 4 wraps to line 25. All good and works with enter if a line is selected.
My problem is, if I have text that is say 100 lines long, I want to keep using the arrow keys go down, and if at line 27, line 27 moves to line 26 and line 26 to line 25 and line 5 would be removed from view.
Does anyone have an example of how to accomplish this?
My problem is, if I have text that is say 100 lines long, I want to keep using the arrow keys go down, and if at line 27, line 27 moves to line 26 and line 26 to line 25 and line 5 would be removed from view.
Does anyone have an example of how to accomplish this?
Talk To Other Members
RE: Creating a terminal menu with scrollable text
For examle in Windows you can set Screen Buffer Size, which means how many lines has your command scrren.
See this for example: http://delltech.150m.com/XP/dos/4.htm
RE: Creating a terminal menu with scrollable text
CODE
{ header changed along with corresponding calls } procedure processdown(textarray: array of Pchar; textstring: string; var beginline: integer; var endline: integer; totallines: integer); begin if endline < totallines then begin gotoxy(1,2); delline; beginline := beginline + 1; endline := endline + 1; gotoxy(1,25); write(textarray[endline]); redrawtop(textstring); end; end; { header changed along with all corresponding calls } procedure processup(textarray: array of Pchar; textstring: string; var beginline: integer; var endline: integer); begin if beginline <> 0 then begin gotoxy(1,2); insline; beginline := beginline - 1; endline := endline - 1; write(textarray[beginline]); redrawtop(textstring); end; end;It is not possible for anyone to acknowledge truth when their salary depends on them not doing it.