Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: NOVARSEG on April 02, 2021, 02:17:30 am

Title: Basic FORM filler
Post by: NOVARSEG on April 02, 2021, 02:17:30 am
Moved from Discussion to here

appends text with a cursor. Can move text with left or right arrow keys
 can append numbers at present. Very basic code.

I see my vpos should have been hpos . i really dont understand the AND OR at the end of the PUTs but it does seem to work

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  5. DIM CurON(300) AS INTEGER
  6. DIM CurOFF(300) AS INTEGER
  7. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  8. GET (0, 7)-(9, 9), CurON()
  9. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  10. GET (0, 7)-(9, 9), CurOFF()
  11.  
  12. vpos = 100
  13. h& = _NEWIMAGE(1024, 768, 32)
  14.  
  16. Msg = " FORM FILLER"
  17.  
  18.  
  19. _PRINTSTRING (vpos, 10), Msg
  22.  
  24.  
  25.  
  26. PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  27.  
  29.  
  30.     DO
  31.  
  32.         _LIMIT 100
  33.  
  34.         kh = _KEYHIT
  35.         IF kh > 0 THEN EXIT DO
  36.  
  37.     LOOP
  38.  
  39.     IF kh > 47 AND kh < 58 THEN
  40.  
  41.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  42.         'SLEEP
  43.         Msg = Msg + CHR$(kh)
  44.         _PRINTSTRING (vpos, 10), Msg
  45.  
  46.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  47.     END IF
  48.  
  49.     IF kh = 27 THEN EXIT DO
  50.     IF kh = 19200 AND vpos > 0 THEN 'left arrow
  51.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  52.         vpos = vpos - 1
  53.         _PRINTSTRING (vpos, 10), Msg
  54.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  55.     END IF
  56.  
  57.     IF kh = 19712 AND vpos < _WIDTH - LEN(Msg) THEN 'right arrow
  58.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  59.         vpos = vpos + 1
  60.         _PRINTSTRING (vpos, 10), Msg
  61.         PUT (vpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  62.     END IF
  63.  
  64.     _SOURCE h&
  65.     _DEST 0
  66.  
  67.     _PUTIMAGE
  68.  

Some bugs fixed in this one

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  6. DIM CurON(300) AS INTEGER
  7. DIM CurOFF(300) AS INTEGER
  8. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  9. GET (0, 7)-(9, 9), CurON()
  10. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  11. GET (0, 7)-(9, 9), CurOFF()
  12.  
  13. Hpos = 0
  14. H = _NEWIMAGE(1024, 768, 32)
  15.  
  17. Msg = " FORM FILLER"
  18.  
  19.  
  20. _PRINTSTRING (Hpos, 10), Msg
  23.  
  25.  
  26.  
  27. PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  28.  
  30.  
  31.     DO
  32.         _LIMIT 100
  33.         kh = _KEYHIT
  34.         IF kh > 0 THEN EXIT DO
  35.  
  36.     LOOP
  37.  
  38.     IF kh > 47 AND kh < 58 THEN
  39.  
  40.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(Msg) + 12 < _WIDTH THEN
  41.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  42.             Msg = Msg + CHR$(kh)
  43.             _PRINTSTRING (Hpos, 10), Msg
  44.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  45.         END IF
  46.  
  47.     END IF
  48.  
  49.     IF kh = 27 THEN EXIT DO
  50.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  51.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  52.         Hpos = Hpos - 1
  53.         _PRINTSTRING (Hpos, 10), Msg
  54.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  55.     END IF
  56.  
  57.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(Msg) + 10) THEN 'right arrow
  58.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  59.         Hpos = Hpos + 1
  60.         _PRINTSTRING (Hpos, 10), Msg
  61.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  62.     END IF
  63.  
  64.     _SOURCE H
  65.     _DEST 0
  66.     _PUTIMAGE
  67.  


Can enter most any character now.  Backspace works

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  6. DIM CurON(300) AS INTEGER
  7. DIM CurOFF(300) AS INTEGER
  8. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  9. GET (0, 7)-(9, 9), CurON()
  10. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  11. GET (0, 7)-(9, 9), CurOFF()
  12.  
  13. Hpos = 0
  14. H = _NEWIMAGE(1024, 768, 32)
  15.  
  17. Msg = " FORM FILLER"
  18.  
  19.  
  20. _PRINTSTRING (Hpos, 10), Msg
  23.  
  25.  
  26.  
  27. PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  28.  
  30.  
  31.     DO
  32.         _LIMIT 100
  33.         kh = _KEYHIT
  34.         IF kh > 0 THEN EXIT DO
  35.  
  36.     LOOP
  37.  
  38.     IF kh > 31 AND kh < 127 THEN 'append
  39.  
  40.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(Msg) + 12 < _WIDTH THEN
  41.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  42.             Msg = Msg + CHR$(kh)
  43.             _PRINTSTRING (Hpos, 10), Msg
  44.             PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  45.         END IF
  46.  
  47.     END IF
  48.  
  49.  
  50.     IF kh = 8 AND LEN(Msg) > 1 THEN 'BACKSPACE
  51.  
  52.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  53.         Msg = LEFT$(Msg, LEN(Msg) - 1)
  54.         _PRINTSTRING (Hpos, 10), Msg + " "
  55.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  56.  
  57.     END IF
  58.  
  59.  
  60.  
  61.  
  62.  
  63.     IF kh = 27 THEN EXIT DO
  64.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  65.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  66.         Hpos = Hpos - 1
  67.         _PRINTSTRING (Hpos, 10), Msg
  68.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  69.     END IF
  70.  
  71.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(Msg) + 10) THEN 'right arrow
  72.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  73.         Hpos = Hpos + 1
  74.         _PRINTSTRING (Hpos, 10), Msg
  75.         PUT (Hpos + _PRINTWIDTH(Msg), 10 + _FONTHEIGHT - 2), CurON(), OR
  76.     END IF
  77.  
  78.     _SOURCE H
  79.     _DEST 0
  80.     _PUTIMAGE
  81.  
Title: Re: Basic FORM filler
Post by: NOVARSEG on April 02, 2021, 11:03:50 pm
The next thing to do is word wrap.  This is tricky because each line of text is stored in an array. The text array must work with append, insert, delete, backspace, home, end , enter

The text array is movable anywhere on the screen with arrow keys

The width of text array is adjustable.    Line spacing is adjustable.

This code shows a very basic word wrap that almost works with backspace.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  3. DIM oldHpos AS INTEGER
  6. DIM HLine AS INTEGER
  9. DIM CurON(300) AS INTEGER
  10. DIM CurOFF(300) AS INTEGER
  11.  
  12. DIM Lspace AS INTEGER ' line spacing
  13. Lspace = 12 ' pixels
  14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  15. GET (0, 7)-(9, 9), CurON()
  16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  17. GET (0, 7)-(9, 9), CurOFF()
  18.  
  19. Hpos = 0
  20. Vpos = 10
  21. oldHpos = 0
  22. H = _NEWIMAGE(1024, 768, 32)
  23.  
  24. DIM msg(50) AS STRING
  25. msg(0) = " FORM FILLER"
  26.  
  27.  
  28. _PRINTSTRING (Hpos, 10), msg(HLine)
  31.  
  33.  
  34.  
  35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  36.  
  38.     LL1:
  39.     DO
  40.         _LIMIT 100
  41.         kh = _KEYHIT
  42.         IF kh > 0 THEN EXIT DO
  43.  
  44.     LOOP
  45.  
  46.     IF kh > 31 AND kh < 127 THEN 'append
  47.  
  48.  
  49.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
  50.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  51.             msg(HLine) = msg(HLine) + CHR$(kh)
  52.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  53.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  54.         END IF
  55.  
  56.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
  57.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  58.             HLine = HLine + 1: GOTO LL1
  59.         END IF
  60.  
  61.  
  62.     END IF
  63.  
  64.  
  65.     IF kh = 8 AND LEN(msg(HLine)) > 1 THEN 'BACKSPACE
  66.  
  67.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  68.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  69.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  70.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  71.  
  72.     END IF
  73.  
  74.     IF kh = 27 THEN EXIT DO
  75.  
  76.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  77.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  78.         Hpos = Hpos - 1
  79.         _PRINTSTRING (Hpos, 10), msg(HLine)
  80.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  81.     END IF
  82.  
  83.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
  84.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  85.         Hpos = Hpos + 1
  86.         _PRINTSTRING (Hpos, 10), msg(HLine)
  87.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  88.     END IF
  89.  
  90.     _SOURCE H
  91.     _DEST 0
  92.     _PUTIMAGE
  93.  

Backspace works now. Still some bugs to work out when moving text from left most screen position. Text is not movable as an array yet.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  3. DIM oldHpos AS INTEGER
  6. DIM HLine AS INTEGER
  9. DIM CurON(300) AS INTEGER
  10. DIM CurOFF(300) AS INTEGER
  11.  
  12. DIM Lspace AS INTEGER ' line spacing
  13. Lspace = 15 ' pixels
  14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  15. GET (0, 7)-(9, 9), CurON()
  16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  17. GET (0, 7)-(9, 9), CurOFF()
  18.  
  19. Hpos = 0
  20. Vpos = 10
  21. oldHpos = 0
  22. H = _NEWIMAGE(1024, 768, 32)
  23.  
  24. DIM msg(50) AS STRING
  25. msg(0) = "FORM FILLER"
  26.  
  27.  
  28. _PRINTSTRING (Hpos, 10), msg(HLine)
  31.  
  33.  
  34.  
  35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  36.  
  38.     LL1:
  39.     DO
  40.         _LIMIT 100
  41.         kh = _KEYHIT
  42.         IF kh > 0 THEN EXIT DO
  43.  
  44.     LOOP
  45.  
  46.     IF kh > 31 AND kh < 127 THEN 'append
  47.  
  48.  
  49.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
  50.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  51.             msg(HLine) = msg(HLine) + CHR$(kh)
  52.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  53.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  54.         END IF
  55.  
  56.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
  57.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  58.             HLine = HLine + 1: GOTO LL1
  59.         END IF
  60.  
  61.  
  62.     END IF
  63.  
  64.  
  65.     '****  'BACKSPACE
  66.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
  67.         'erases cursor before a line feed up
  68.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  69.  
  70.         IF HLine > 0 THEN HLine = HLine - 1
  71.     END IF
  72.  
  73.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
  74.  
  75.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  76.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  77.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  78.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  79.  
  80.     END IF
  81.  
  82.     '****
  83.  
  84.  
  85.  
  86.     IF kh = 27 THEN EXIT DO
  87.  
  88.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  89.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  90.         Hpos = Hpos - 1
  91.         _PRINTSTRING (Hpos, 10), msg(HLine)
  92.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  93.     END IF
  94.  
  95.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
  96.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  97.         Hpos = Hpos + 1
  98.         _PRINTSTRING (Hpos, 10), msg(HLine)
  99.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  100.     END IF
  101.  
  102.     _SOURCE H
  103.     _DEST 0
  104.     _PUTIMAGE
  105.  

"Enter" key works now and a bug was fixed, Text arrays still not movable as a paragraph

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1025, 768, 32)
  3. DIM oldHpos AS INTEGER
  6. DIM HLine AS INTEGER
  9. DIM CurON(300) AS INTEGER
  10. DIM CurOFF(300) AS INTEGER
  11.  
  12. DIM Lspace AS INTEGER ' line spacing
  13. Lspace = 15 ' pixels
  14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  15. GET (0, 7)-(9, 9), CurON()
  16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  17. GET (0, 7)-(9, 9), CurOFF()
  18.  
  19. Hpos = 0
  20. Vpos = 10
  21. oldHpos = 0
  22. H = _NEWIMAGE(1024, 768, 32)
  23.  
  24. DIM msg(50) AS STRING
  25. msg(0) = "FORM FILLER"
  26.  
  27.  
  28. _PRINTSTRING (Hpos, 10), msg(HLine)
  31.  
  33.  
  34.  
  35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  36.  
  38.     LL1:
  39.     DO
  40.         _LIMIT 100
  41.         kh = _KEYHIT
  42.         IF kh > 0 THEN EXIT DO
  43.  
  44.     LOOP
  45.  
  46.  
  47.     IF kh = 13 THEN 'ENTER
  48.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  49.         HLine = HLine + 1
  50.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  51.         GOTO LL1 'line feed
  52.     END IF
  53.  
  54.  
  55.     IF kh > 31 AND kh < 127 THEN 'append
  56.  
  57.  
  58.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
  59.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  60.             msg(HLine) = msg(HLine) + CHR$(kh)
  61.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  62.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  63.         END IF
  64.  
  65.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
  66.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  67.             HLine = HLine + 1: GOTO LL1 'line feed
  68.         END IF
  69.  
  70.  
  71.     END IF
  72.  
  73.  
  74.     '****  'BACKSPACE
  75.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
  76.         'erases cursor before a line feed up
  77.  
  78.         IF HLine > 0 THEN
  79.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  80.         END IF
  81.  
  82.         IF HLine > 0 THEN HLine = HLine - 1
  83.     END IF
  84.  
  85.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
  86.  
  87.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  88.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  89.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  90.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  91.  
  92.     END IF
  93.  
  94.     '****
  95.  
  96.  
  97.  
  98.     IF kh = 27 THEN EXIT DO
  99.  
  100.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  101.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  102.         Hpos = Hpos - 1
  103.         _PRINTSTRING (Hpos, 10), msg(HLine)
  104.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  105.     END IF
  106.  
  107.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
  108.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  109.         _PRINTSTRING (Hpos, 10), " "
  110.         Hpos = Hpos + 1
  111.         _PRINTSTRING (Hpos, 10), msg(HLine)
  112.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  113.     END IF
  114.  
  115.     _SOURCE H
  116.     _DEST 0
  117.     _PUTIMAGE
  118.  
Title: Re: Basic FORM filler
Post by: NOVARSEG on April 03, 2021, 01:10:52 am
 Entire text array moves right .  Useful for moving a paragraph.

Try right arrow, enter key and backspace

Need to try a green background and save to a file.

A lot more code to do.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1025, 768, 32)
  3. DIM oldHpos AS INTEGER
  6. DIM HLine AS INTEGER
  9. DIM CurON(300) AS INTEGER
  10. DIM CurOFF(300) AS INTEGER
  11.  
  12. DIM Lspace AS INTEGER ' line spacing
  13. Lspace = 20 ' pixels
  14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  15. GET (0, 7)-(9, 9), CurON()
  16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  17. GET (0, 7)-(9, 9), CurOFF()
  18.  
  19. Hpos = 0 'horizontal pixel  position
  20. Vpos = 10 'vertical pixel  position
  21. oldHpos = 0
  22. H = _NEWIMAGE(1024, 768, 32)
  23.  
  24. DIM msg(50) AS STRING
  25. msg(0) = "FORM FILLER"
  26.  
  27.  
  28. _PRINTSTRING (Hpos, 10), msg(HLine)
  31.  
  32. '_PUTIMAGE
  33.  
  34.  
  35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  36.  
  38.     LL1:
  39.     DO
  40.         _LIMIT 100
  41.         kh = _KEYHIT
  42.         IF kh > 0 THEN EXIT DO
  43.  
  44.     LOOP
  45.  
  46.  
  47.     IF kh = 13 THEN 'ENTER
  48.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  49.         HLine = HLine + 1
  50.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  51.         GOTO LL1 'line feed
  52.     END IF
  53.  
  54.  
  55.     IF kh > 31 AND kh < 127 THEN 'append
  56.  
  57.  
  58.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
  59.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  60.             msg(HLine) = msg(HLine) + CHR$(kh)
  61.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  62.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  63.         END IF
  64.  
  65.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
  66.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  67.             HLine = HLine + 1: GOTO LL1 'line feed
  68.         END IF
  69.  
  70.  
  71.     END IF
  72.  
  73.  
  74.     '****  'BACKSPACE
  75.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
  76.  
  77.         IF HLine > 0 THEN 'erases cursor before a line feed up
  78.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  79.         END IF
  80.  
  81.         IF HLine > 0 THEN HLine = HLine - 1
  82.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  83.         GOTO LL1
  84.     END IF
  85.  
  86.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
  87.  
  88.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  89.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  90.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  91.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  92.  
  93.     END IF
  94.  
  95.     '****  end BACKSPACE
  96.  
  97.     IF kh = 27 THEN EXIT DO
  98.  
  99.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  100.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurOFF(), AND
  101.         Hpos = Hpos - 1
  102.         _PRINTSTRING (Hpos, 10), msg(HLine)
  103.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  104.     END IF
  105.  
  106.  
  107.     '****
  108.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
  109.         HLine = 0
  110.         DO
  111.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  112.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
  113.             Hpos = Hpos + 1
  114.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
  115.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  116.             Hpos = Hpos - 1 '- 1 because this is an array.
  117.  
  118.             IF msg(HLine + 1) = "" THEN
  119.                 Hpos = Hpos + 1
  120.                 EXIT DO
  121.             END IF
  122.  
  123.             HLine = HLine + 1
  124.  
  125.         LOOP
  126.     END IF
  127.     '****
  128.  
  129.     '   _SOURCE H
  130.     '  _DEST 0
  131.     ' _PUTIMAGE
  132.  

left arrow works now

move paragraph left or right

move paragraph up down next

Code: QB64: [Select]
  1.  SCREEN _NEWIMAGE(1024, 768, 32)
  3. DIM oldHpos AS INTEGER
  6. DIM HLine AS INTEGER
  9. DIM CurON(300) AS INTEGER
  10. DIM CurOFF(300) AS INTEGER
  11.  
  12. DIM Lspace AS INTEGER ' line spacing
  13. Lspace = 20 ' pixels
  14. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  15. GET (0, 7)-(9, 9), CurON()
  16. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  17. GET (0, 7)-(9, 9), CurOFF()
  18.  
  19. Hpos = 0 'horizontal pixel  position
  20. Vpos = 10 'vertical pixel  position
  21. oldHpos = 0
  22. H = _NEWIMAGE(1024, 768, 32)
  23.  
  24. DIM msg(50) AS STRING
  25. msg(0) = "FORM FILLER"
  26.  
  27.  
  28. _PRINTSTRING (Hpos, 10), msg(HLine)
  31.  
  32. '_PUTIMAGE
  33.  
  34.  
  35. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  36.  
  38.     LL1:
  39.     DO
  40.         _LIMIT 100
  41.         kh = _KEYHIT
  42.         IF kh > 0 THEN EXIT DO
  43.  
  44.     LOOP
  45.  
  46.  
  47.     IF kh = 13 THEN 'ENTER
  48.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  49.         HLine = HLine + 1
  50.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  51.         GOTO LL1 'line feed
  52.     END IF
  53.  
  54.  
  55.     IF kh > 31 AND kh < 127 THEN 'append
  56.  
  57.  
  58.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
  59.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  60.             msg(HLine) = msg(HLine) + CHR$(kh)
  61.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  62.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  63.         END IF
  64.  
  65.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
  66.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  67.             HLine = HLine + 1: GOTO LL1 'line feed
  68.         END IF
  69.  
  70.  
  71.     END IF
  72.  
  73.  
  74.     '****  'BACKSPACE
  75.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
  76.  
  77.         IF HLine > 0 THEN 'erases cursor before a line feed up
  78.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  79.         END IF
  80.  
  81.         IF HLine > 0 THEN HLine = HLine - 1
  82.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  83.         GOTO LL1
  84.     END IF
  85.  
  86.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
  87.  
  88.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  89.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  90.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  91.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  92.  
  93.     END IF
  94.  
  95.     '****  end BACKSPACE
  96.  
  97.     IF kh = 27 THEN EXIT DO
  98.  
  99.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  100.  
  101.         HLine = 0
  102.         DO
  103.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  104.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
  105.             Hpos = Hpos - 1
  106.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
  107.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  108.             Hpos = Hpos + 1 '- 1 because this is an array.
  109.  
  110.             IF msg(HLine + 1) = "" THEN
  111.                 Hpos = Hpos - 1
  112.                 EXIT DO
  113.             END IF
  114.  
  115.             HLine = HLine + 1
  116.  
  117.         LOOP
  118.  
  119.  
  120.     END IF
  121.  
  122.  
  123.     '****
  124.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
  125.         HLine = 0
  126.         DO
  127.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  128.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
  129.             Hpos = Hpos + 1
  130.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
  131.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  132.             Hpos = Hpos - 1 '- 1 because this is an array.
  133.  
  134.             IF msg(HLine + 1) = "" THEN
  135.                 Hpos = Hpos + 1
  136.                 EXIT DO
  137.             END IF
  138.  
  139.             HLine = HLine + 1
  140.  
  141.         LOOP
  142.     END IF
  143.     '****
  144.  
  145.     '   _SOURCE H
  146.     '  _DEST 0
  147.     ' _PUTIMAGE
  148.  

some bugs fixed.  up down arrows notworking yet.


Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1025, 768, 32)
  3. DIM oldHpos AS INTEGER
  6. DIM HLine AS INTEGER
  7. DIM maxHline AS INTEGER
  10. DIM CurON(300) AS INTEGER
  11. DIM CurOFF(300) AS INTEGER
  12.  
  13. DIM Lspace AS INTEGER ' line spacing
  14. Lspace = 20 ' pixels
  15. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  16. GET (0, 7)-(9, 9), CurON()
  17. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  18. GET (0, 7)-(9, 9), CurOFF()
  19.  
  20. Hpos = 0 'horizontal pixel  position
  21. Vpos = 10 'vertical pixel  position
  22. oldHpos = 0
  23. H = _NEWIMAGE(1024, 768, 32)
  24.  
  25. DIM msg(50) AS STRING
  26. msg(0) = "FORM FILLER"
  27.  
  28.  
  29. _PRINTSTRING (Hpos, 10), msg(HLine)
  32.  
  33. '_PUTIMAGE
  34.  
  35.  
  36. PUT (Hpos + _PRINTWIDTH(msg(HLine)), 10 + _FONTHEIGHT - 2), CurON(), OR
  37.  
  39.     LL1:
  40.     DO
  41.         _LIMIT 100
  42.         kh = _KEYHIT
  43.         IF kh > 0 THEN EXIT DO
  44.  
  45.     LOOP
  46.     ' PRINT kh
  47.  
  48.     IF kh = 13 THEN 'ENTER
  49.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  50.         HLine = HLine + 1 'line feed
  51.         maxHline = HLine
  52.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  53.         GOTO LL1
  54.     END IF
  55.  
  56.  
  57.     IF kh > 31 AND kh < 127 THEN 'append
  58.  
  59.  
  60.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 < _WIDTH THEN
  61.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  62.             msg(HLine) = msg(HLine) + CHR$(kh)
  63.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  64.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  65.         END IF
  66.  
  67.         IF Hpos + _PRINTWIDTH(CHR$(kh)) + _PRINTWIDTH(msg(HLine)) + 12 >= _WIDTH THEN
  68.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  69.             HLine = HLine + 1: GOTO LL1 'line feed
  70.         END IF
  71.  
  72.  
  73.     END IF
  74.  
  75.  
  76.     '****  'BACKSPACE
  77.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
  78.  
  79.         IF HLine > 0 THEN 'erases cursor before a line feed up
  80.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  81.         END IF
  82.  
  83.         IF HLine > 0 THEN HLine = HLine - 1
  84.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  85.         GOTO LL1
  86.     END IF
  87.  
  88.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
  89.  
  90.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  91.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  92.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  93.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  94.  
  95.     END IF
  96.  
  97.     '****  end BACKSPACE
  98.  
  99.     IF kh = 27 THEN EXIT DO
  100.  
  101.  
  102.     IF kh = 20480 THEN
  103.         HLine = 0
  104.     END IF
  105.  
  106.  
  107.     IF kh = 19200 AND Hpos > 0 THEN 'left arrow
  108.  
  109.         HLine = 0
  110.         DO
  111.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  112.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
  113.             Hpos = Hpos - 1
  114.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
  115.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  116.             Hpos = Hpos + 1 '- 1 because this is an array.
  117.  
  118.             IF maxHline = HLine THEN
  119.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  120.                 Hpos = Hpos - 1
  121.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  122.  
  123.                 EXIT DO
  124.             END IF
  125.  
  126.             HLine = HLine + 1
  127.  
  128.         LOOP
  129.  
  130.  
  131.     END IF
  132.  
  133.  
  134.     '****
  135.     IF kh = 19712 AND Hpos < _WIDTH - (_PRINTWIDTH(msg(HLine)) + 10) THEN 'right arrow
  136.         HLine = 0
  137.         DO
  138.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  139.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), " "
  140.             Hpos = Hpos + 1
  141.             _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
  142.             'PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  143.             Hpos = Hpos - 1 '- 1 because this is an array.
  144.  
  145.             IF maxHline = HLine THEN
  146.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  147.                 Hpos = Hpos + 1
  148.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  149.  
  150.                 EXIT DO
  151.             END IF
  152.  
  153.             HLine = HLine + 1
  154.  
  155.         LOOP
  156.     END IF
  157.     '****
  158.  
  159.     '   _SOURCE H
  160.     '  _DEST 0
  161.     ' _PUTIMAGE
  162.  
  165.  
Title: Re: Basic FORM filler
Post by: NOVARSEG on April 06, 2021, 01:45:13 am
Move a paragraph around the screen

Fast / slow movement depending on how long the arrow keys are held down.

Back space works.   no something went wrong

bug fixed

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  2.  
  5.  
  6. DIM maxHline AS INTEGER 'max array index for a cursor and or text
  9. DIM CurON(300) AS INTEGER
  10. DIM CurOFF(300) AS INTEGER
  11.  
  12. DIM ParaWide AS INTEGER 'Tight Left,word wrap paragraph of this width
  13. ParaWide = 25
  19.  
  20. DIM Lspace AS INTEGER ' line spacing
  21. Lspace = 15 ' pixels
  22.  
  23. LINE (0, 0)-(12, 12), _RGB32(255, 255, 255), BF
  24. GET (0, 7)-(9, 9), CurON()
  25. LINE (0, 0)-(12, 12), _RGB32(0, 0, 0), BF
  26. GET (0, 7)-(9, 9), CurOFF()
  27.  
  28. Hpos = 100 'initial horizontal position
  29. Vpos = 100 'initial vertical position
  30. P = 0
  31. DIM msg(50) AS STRING
  32. DIM HLine AS INTEGER
  33. HLine = 0
  34.  
  35. text = "After the latest update, the forms I need to fill are shrunk to 50% without an option to expand to full screen (blows up only a part of the document, the rest is hidden behind the enormously wide margins around the edges of the screen). Previously filled documents also shrunk, but the parts I filled out did not. So now all my tables are all over the place. Please fix                      "
  36.  
  38.     IF P + ParaWide <= LEN(text) THEN
  39.  
  40.         msg(HLine) = MID$(text, P + 1, ParaWide)
  41.         P = P + ParaWide
  42.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine)
  43.         maxHline = HLine
  44.         HLine = HLine + 1
  45.  
  46.     END IF
  47.  
  48.     IF P + ParaWide > LEN(text) THEN EXIT DO
  50.  
  51. PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  52.  
  54.     LL1:
  55.  
  56.     DO
  57.         _LIMIT 100
  58.         kh = _KEYHIT
  59.         IF kh > 0 THEN t = 0: EXIT DO
  60.         t = t + 1
  61.         IF t > 5 THEN f1 = 0
  62.     LOOP
  63.  
  64.     IF kh = 27 THEN EXIT DO
  65.  
  66.     '**** ENTER
  67.     IF kh = 13 AND Vpos + (HLine + 1) * Lspace + _FONTHEIGHT + 2 < _HEIGHT THEN
  68.  
  69.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  70.         HLine = HLine + 1
  71.         maxHline = HLine
  72.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  73.         GOTO LL1
  74.  
  75.     END IF
  76.     '****  end enter
  77.  
  78.  
  79.     '**** APPEND
  80.     IF kh > 31 AND kh < 127 THEN
  81.  
  82.         IF LEN(msg(HLine)) < ParaWide THEN
  83.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  84.             msg(HLine) = msg(HLine) + CHR$(kh)
  85.             _PRINTSTRING (Hpos, (Vpos + HLine * Lspace)), msg(HLine)
  86.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  87.         END IF
  88.  
  89.  
  90.         IF LEN(msg(HLine)) >= ParaWide THEN
  91.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurOFF(), AND
  92.  
  93.             HLine = HLine + 1
  94.             maxHline = HLine
  95.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), (Vpos + HLine * Lspace) + _FONTHEIGHT - 2), CurON(), OR
  96.             GOTO LL1
  97.         END IF
  98.  
  99.  
  100.     END IF
  101.     '****  end append
  102.  
  103.  
  104.     '****  'BACKSPACE
  105.     IF kh = 8 AND LEN(msg(HLine)) = 0 THEN
  106.  
  107.         IF HLine > 0 THEN 'erases cursor before a line feed up
  108.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  109.             HLine = HLine - 1
  110.             maxHline = HLine
  111.             PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  112.             GOTO LL1
  113.         END IF
  114.     END IF
  115.  
  116.     IF kh = 8 AND LEN(msg(HLine)) > 0 THEN
  117.  
  118.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  119.         msg(HLine) = LEFT$(msg(HLine), LEN(msg(HLine)) - 1)
  120.         _PRINTSTRING (Hpos, Vpos + HLine * Lspace), msg(HLine) + " "
  121.         PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  122.  
  123.     END IF
  124.  
  125.     '****  end BACKSPACE
  126.  
  127.  
  128.     '****
  129.     IF kh = 20480 AND Vpos + maxHline * Lspace + _FONTHEIGHT + Inc < _HEIGHT THEN 'down arrow
  130.         HLine = 0
  131.         Inc = 1
  132.         DO
  133.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
  134.             IF maxHline = HLine THEN EXIT DO
  135.             HLine = HLine + 1
  136.         LOOP
  137.  
  138.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
  139.  
  140.         t2! = TIMER
  141.         IF t2! - t1! > .5 THEN
  142.             Inc = 9
  143.             t2! = 0
  144.         END IF
  145.  
  146.         Vpos = Vpos + Inc
  147.         HLine = 0
  148.  
  149.         DO
  150.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
  151.  
  152.             IF maxHline = HLine THEN
  153.                 Vpos = Vpos - Inc
  154.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  155.                 Vpos = Vpos + Inc
  156.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  157.                 EXIT DO
  158.             END IF
  159.             HLine = HLine + 1
  160.         LOOP
  161.     END IF
  162.     '****
  163.  
  164.     '****
  165.     IF kh = 18432 AND Vpos > Inc THEN 'up arrow
  166.         HLine = 0
  167.         Inc = 1
  168.         DO
  169.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
  170.             IF maxHline = HLine THEN EXIT DO
  171.             HLine = HLine + 1
  172.         LOOP
  173.  
  174.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
  175.  
  176.         t2! = TIMER
  177.         IF t2! - t1! > .5 THEN
  178.             Inc = 9
  179.             t2! = 0
  180.         END IF
  181.  
  182.         Vpos = Vpos - Inc
  183.         HLine = 0
  184.  
  185.         DO
  186.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
  187.  
  188.             IF maxHline = HLine THEN
  189.                 Vpos = Vpos + Inc
  190.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  191.                 Vpos = Vpos - Inc
  192.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  193.                 EXIT DO
  194.             END IF
  195.  
  196.             HLine = HLine + 1
  197.         LOOP
  198.     END IF
  199.  
  200.     '****
  201.  
  202.     '****
  203.     IF kh = 19200 AND Hpos > Inc THEN 'left arrow
  204.  
  205.         HLine = 0
  206.         Inc = 1
  207.         DO
  208.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
  209.             IF maxHline = HLine THEN EXIT DO
  210.             HLine = HLine + 1
  211.         LOOP
  212.  
  213.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
  214.  
  215.         t2! = TIMER
  216.         IF t2! - t1! > .5 THEN
  217.             Inc = 9
  218.             t2! = 0
  219.         END IF
  220.  
  221.         Hpos = Hpos - Inc
  222.         HLine = 0
  223.         DO
  224.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
  225.             IF maxHline = HLine THEN
  226.                 Hpos = Hpos + Inc
  227.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  228.                 Hpos = Hpos - Inc
  229.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  230.                 EXIT DO
  231.             END IF
  232.             HLine = HLine + 1
  233.         LOOP
  234.     END IF
  235.     '****
  236.  
  237.     '****
  238.  
  239.  
  240.     IF kh = 19712 AND Hpos + _PRINTWIDTH(SPACE$(ParaWide)) + Inc + 8 < _WIDTH THEN 'right arrow
  241.  
  242.         HLine = 0
  243.         Inc = 1
  244.         DO
  245.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), SPACE$(ParaWide)
  246.             IF maxHline = HLine THEN EXIT DO
  247.             HLine = HLine + 1
  248.         LOOP
  249.  
  250.         IF f1 = 0 THEN f1 = 1: t1! = TIMER
  251.  
  252.         t2! = TIMER
  253.         IF t2! - t1! > .5 THEN
  254.             Inc = 9
  255.             t2! = 0
  256.         END IF
  257.  
  258.         Hpos = Hpos + Inc
  259.         HLine = 0
  260.         DO
  261.             _PRINTSTRING (Hpos, Vpos + (HLine * Lspace)), msg(HLine)
  262.             IF maxHline = HLine THEN
  263.                 Hpos = Hpos - Inc
  264.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurOFF(), AND
  265.                 Hpos = Hpos + Inc
  266.                 PUT (Hpos + _PRINTWIDTH(msg(HLine)), Vpos + HLine * Lspace + _FONTHEIGHT - 2), CurON(), OR
  267.                 EXIT DO
  268.             END IF
  269.  
  270.             HLine = HLine + 1
  271.         LOOP
  272.     END IF
  273.  
  276.  





Title: Re: Basic FORM filler
Post by: NOVARSEG on April 07, 2021, 08:30:48 pm
 PUT (x,y),array, AND can swap  font color with background color without the use of COLOR statement.

More bugs.




Text Only | Text with Attachments