home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / PSCREEN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-05  |  6.2 KB  |  127 lines
  1. Form1
  2. Pseudo-Screen
  3. Form1%
  4. SaveBtn
  5. LoadBtn
  6.     ScreenBox
  7. CursorXBox
  8. QuitBtn
  9. TextBox
  10. CursorYBox
  11. ClearBtn
  12. Clear Screen
  13. MoveBtn
  14. Move Cursor
  15.     LocateBtn
  16. Locate Cursor
  17. PrintBtn
  18. Print
  19. ScrollUpBtn
  20. ScrollUp
  21. NewLineBtn
  22. NewLine
  23.     ScreenLbl
  24. The Screen
  25.     ColumnLbl
  26. Column
  27. TextLbl
  28. RowLbl
  29. MAX_ROWS
  30. MAX_COLS
  31. ScrLine
  32. CursX
  33. CursY
  34. ScreenBuffers
  35. BufX1
  36. BufY~
  37. ClearScreen
  38.     ScreenBox
  39. GotoXY
  40. WhereX
  41. WhereYE
  42. ScrollUp
  43. NumLines
  44. UpdateScreenText
  45. NewLine
  46. PPrint
  47. UpdateScreenNow0
  48. LenStr
  49. LenLine
  50. LenDiff
  51. SaveScreen
  52. BufferY
  53. LoadScreen
  54. QuitBtn_Click
  55. ClearBtn_Clickw
  56. LocateBtn_Click
  57. MoveBtn_Click
  58. CursorXBox
  59. CursorYBox%
  60. PrintBtn_Click
  61. TextBox
  62. ScrollUpBtn_Click
  63. NewLineBtn_Click
  64. @    Form_Load
  65. SaveBtn_Click
  66. LoadBtn_Click
  67. ScreenBox_ChangeP
  68.  constants the define the size of the emulated screen
  69.  the array and variables that maintain the data fore
  70.  the emulated screen
  71.  declarations for the screen buffera
  72. ClearBtn_Click
  73. ClearScreen
  74.  clear the screen by assigning empty strings to thee
  75.  ScreenBox and ScrLine array and setting the cursore
  76.  variables to 1.
  77. Form_Load
  78. GotoXY
  79.  move the hidden cursor to (X,Y)
  80.  Pad string with spacesi
  81. LoadBtn_Click
  82. LoadScreen
  83.  load screen from the Buffer() array
  84.  the X% and Y% parameters specify new cursor location
  85. LocateBtn_Click
  86. MoveBtn_Click
  87. NewLine
  88.  move the hidden cursor to the first column of
  89.  the next line.  Scroll screen up if the cursor
  90.  is already at the last allowed screen row
  91. NewLineBtn_Click
  92. PPrint
  93.  Emulate a simple form of the QuickBasic print:
  94.  PRINT Astring$;
  95.  The second parameter enable you to update the texte
  96.  on the screen, or keep the changes hidden (for now).
  97.  string cannot fit on the current line?d
  98.  split orignal string into two strings
  99.  next-line texto
  100.  Pad current line
  101.  write S to current line
  102.  update CursX
  103.  the next-line string is not empty?n
  104.  print to the next line
  105.  pad the string for the next lineo
  106.  write the next-line string
  107.  update the screen now?
  108. PrintBtn_Click
  109. QuitBtn_Click
  110. SaveBtn_Click
  111. SaveScreen
  112.  save screen to Buffer() array.
  113.  the current position of the hidden cursor iso
  114.  stored in parameters X% and Y%d
  115. ScrollUp
  116.  scroll up a specified number of lines
  117.  scroll at most MAX_ROWS rows 
  118.  copy leading string to emulate scroll
  119.  assign empty string to trailing strings
  120. ScrollUpBtn_Click
  121. UpdateScreenText
  122.  update the text in the ScreenBox 
  123. WhereX
  124.  return the value of CursX
  125. WhereY
  126.  return the value of CursY
  127.