QB64.org Forum

Active Forums => Programs => Topic started by: NOVARSEG on April 13, 2021, 01:25:32 am

Title: Another line editor
Post by: NOVARSEG on April 13, 2021, 01:25:32 am

This one uses MEM. Easy control of the cursor with MEM. Code is easier to understand

will add BACKSPACE   later

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM Text AS STRING
7. DIM CharWidth AS INTEGER
8. DIM printPos AS INTEGER
9. DIM kh AS LONG
10.  
11. Text = "Some text to edit"
12.  
13. Handle = _NEWIMAGE(400, 400, 32)
14. SCREEN Handle
15. DIM M AS _MEM
16. M = _MEMIMAGE(Handle)
17.  
18. DIM r AS _UNSIGNED _BYTE
19. DIM g AS _UNSIGNED _BYTE
20. DIM b AS _UNSIGNED _BYTE
21. 'DIM a AS _UNSIGNED _BYTE
22. _FULLSCREEN
23.  
24. PRINT
25. PRINT "Move cursor with left / right arrow"
26.  
27. PRINT "Insert, Append, Delete characters"
28. PRINT
29. PRINT Text
30.  
31. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
32. CharWidth = _PRINTWIDTH(CHR$(a))
33.  
34. curPosX = _PRINTWIDTH(Text)
35. curOffset = _WIDTH * (15 + 64) + curPosX
36.  
37.  
38. GOSUB curon
39.  
40. DO
41.  
42.     DO
43.         _LIMIT 100
44.         kh = _KEYHIT
45.         IF kh > 0 THEN EXIT DO
46.     LOOP
47.  
48.     'PRINT kh
49.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
50.         Text = Text + CHR$(kh)
51.         curPosX = _PRINTWIDTH(Text)
52.         curOffset = _WIDTH * (15 + 64) + curPosX
53.         LOCATE 5, 1: PRINT Text
54.         GOSUB curon
55.     END IF
56.  
57.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT
58.         Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
59.         curPosX = curPosX + CharWidth
60.         curOffset = _WIDTH * (15 + 64) + curPosX '
61.         LOCATE 5, 1: PRINT Text
62.         GOSUB curon
63.     END IF
64.  
65.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
66.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
67.         curOffset = _WIDTH * (15 + 64) + curPosX '
68.         LOCATE 5, 1: PRINT Text + " "
69.         GOSUB curon
70.     END IF
71.  
72.     IF kh = 27 THEN END
73.  
74.     IF kh = 19200 AND curPosX > 0 THEN 'left arrow
75.         GOSUB curoff
76.         curPosX = curPosX - CharWidth
77.         curOffset = _WIDTH * (15 + 64) + curPosX
78.         GOSUB curon
79.     END IF
80.  
81.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
82.         GOSUB curoff
83.         curPosX = curPosX + CharWidth
84.         curOffset = _WIDTH * (15 + 64) + curPosX
85.         GOSUB curon
86.     END IF
87. LOOP
88.  
89. '****
90. curon:
91. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
92.     b = 255
93.     _MEMPUT M, M.OFFSET + T, b
94.  
95.     g = 255
96.     _MEMPUT M, M.OFFSET + T + 1, g
97.  
98.     r = 0
99.     _MEMPUT M, M.OFFSET + T + 2, r
100. NEXT T
101. printPos = curPosX / CharWidth + 1
102. RETURN
103.  
104. '****
105. curoff:
106.  
107. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
108.  
109.     b = 0
110.     _MEMPUT M, M.OFFSET + T, b
111.  
112.     g = 0
113.     _MEMPUT M, M.OFFSET + T + 1, g
114.  
115.     r = 0
116.     _MEMPUT M, M.OFFSET + T + 2, r
117. NEXT T
118. printPos = curPosX / CharWidth + 1
119. RETURN
120.  

Added backspace

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM Text AS STRING
7. DIM CharWidth AS INTEGER
8. DIM printPos AS INTEGER
9. DIM kh AS LONG
10.  
11. Text = "Some text to edit"
12.  
13. Handle = _NEWIMAGE(400, 400, 32)
14. SCREEN Handle
15. DIM M AS _MEM
16. M = _MEMIMAGE(Handle)
17.  
18. DIM r AS _UNSIGNED _BYTE
19. DIM g AS _UNSIGNED _BYTE
20. DIM b AS _UNSIGNED _BYTE
21. 'DIM a AS _UNSIGNED _BYTE
22. _FULLSCREEN
23.  
24. PRINT
25. PRINT "Move cursor with left / right arrow"
26.  
27. PRINT "Insert, Append, Delete, Backspace characters"
28. PRINT
29. PRINT Text
30.  
31. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
32. CharWidth = _PRINTWIDTH(CHR$(a))
33.  
34. curPosX = _PRINTWIDTH(Text)
35. curOffset = _WIDTH * (15 + 64) + curPosX
36.  
37.  
38. GOSUB curon
39.  
40. DO
41.  
42.     DO
43.         _LIMIT 100
44.         kh = _KEYHIT
45.         IF kh > 0 THEN EXIT DO
46.     LOOP
47.  
48.     IF kh = 27 THEN END
49.  
50.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
51.         GOSUB curoff
52.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
53.         curPosX = curPosX - CharWidth
54.         curOffset = _WIDTH * (15 + 64) + curPosX
55.         LOCATE 5, 1: PRINT Text + " "
56.         GOSUB curon
57.     END IF
58.  
59.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
60.         Text = Text + CHR$(kh)
61.         curPosX = _PRINTWIDTH(Text)
62.         curOffset = _WIDTH * (15 + 64) + curPosX
63.         LOCATE 5, 1: PRINT Text
64.         GOSUB curon
65.     END IF
66.  
67.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT
68.         Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
69.         curPosX = curPosX + CharWidth
70.         curOffset = _WIDTH * (15 + 64) + curPosX '
71.         LOCATE 5, 1: PRINT Text
72.         GOSUB curon
73.     END IF
74.  
75.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
76.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
77.         curOffset = _WIDTH * (15 + 64) + curPosX '
78.         LOCATE 5, 1: PRINT Text + " "
79.         GOSUB curon
80.     END IF
81.  
82.     IF kh = 19200 AND curPosX > 0 THEN 'left arrow
83.         GOSUB curoff
84.         curPosX = curPosX - CharWidth
85.         curOffset = _WIDTH * (15 + 64) + curPosX
86.         GOSUB curon
87.     END IF
88.  
89.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
90.         GOSUB curoff
91.         curPosX = curPosX + CharWidth
92.         curOffset = _WIDTH * (15 + 64) + curPosX
93.         GOSUB curon
94.     END IF
95. LOOP
96.  
97. '****
98. curon:
99. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
100.     b = 255
101.     _MEMPUT M, M.OFFSET + T, b
102.  
103.     g = 255
104.     _MEMPUT M, M.OFFSET + T + 1, g
105.  
106.     r = 0
107.     _MEMPUT M, M.OFFSET + T + 2, r
108. NEXT T
109. printPos = curPosX / CharWidth + 1
110. RETURN
111.  
112. '****
113. curoff:
114.  
115. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
116.  
117.     b = 0
118.     _MEMPUT M, M.OFFSET + T, b
119.  
120.     g = 0
121.     _MEMPUT M, M.OFFSET + T + 1, g
122.  
123.     r = 0
124.     _MEMPUT M, M.OFFSET + T + 2, r
125. NEXT T
126. printPos = curPosX / CharWidth + 1
127. RETURN
128.  

Title: Re: Another line editor
Post by: NOVARSEG on April 14, 2021, 12:05:39 am

A blinking cursor would be nice.  Need ideas

A useful tip  from https://en.wikipedia.org/wiki/Cursor_(user_interface)#Text_cursor

Quote

The blinking of the text cursor is usually temporarily suspended when it is being moved; otherwise, the cursor may change position when it is not visible, making its location difficult to follow.

Blinking cursor added

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM CharWidth AS INTEGER
7. DIM printPos AS INTEGER
8. DIM kh AS LONG
9. DIM T1 AS SINGLE
10. DIM F AS _UNSIGNED _BIT
11. DIM Text AS STRING
12.  
13. Text = "Some text to edit"
14.  
15. Handle = _NEWIMAGE(400, 400, 32)
16. SCREEN Handle
17. DIM M AS _MEM
18. M = _MEMIMAGE(Handle)
19.  
20. DIM r AS _UNSIGNED _BYTE
21. DIM g AS _UNSIGNED _BYTE
22. DIM b AS _UNSIGNED _BYTE
23.  
24. _FULLSCREEN
25.  
26. PRINT
27. PRINT "Move cursor with left / right arrow"
28.  
29. PRINT "Insert, Append, Delete, Backspace characters"
30. PRINT
31. PRINT Text
32.  
33. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
34. CharWidth = _PRINTWIDTH(CHR$(a))
35.  
36. curPosX = _PRINTWIDTH(Text)
37. curOffset = _WIDTH * (15 + 64) + curPosX
38.  
39.  
40. GOSUB curon
41. F = 0
42. DO
43.     T1 = TIMER
44.     DO
45.  
46.         _LIMIT 100
47.  
48.         IF TIMER - T1 > .3 AND F = 0 THEN
49.             F = 1
50.             T1 = TIMER
51.             GOSUB curoff
52.         END IF
53.  
54.         IF TIMER - T1 > .3 AND F = 1 THEN
55.             F = 0
56.             T1 = TIMER
57.             GOSUB curon
58.         END IF
59.  
60.         kh = _KEYHIT
61.         IF kh > 0 THEN GOSUB curon: EXIT DO
62.     LOOP
63.  
64.  
65.     IF kh = 27 THEN END
66.  
67.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
68.         GOSUB curoff
69.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
70.         curPosX = curPosX - CharWidth
71.         curOffset = _WIDTH * (15 + 64) + curPosX
72.         LOCATE 5, 1: PRINT Text + " "
73.         GOSUB curon
74.     END IF
75.  
76.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
77.         Text = Text + CHR$(kh)
78.         curPosX = _PRINTWIDTH(Text)
79.         curOffset = _WIDTH * (15 + 64) + curPosX
80.         LOCATE 5, 1: PRINT Text
81.         GOSUB curon
82.     END IF
83.  
84.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT
85.         Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
86.         curPosX = curPosX + CharWidth
87.         curOffset = _WIDTH * (15 + 64) + curPosX '
88.         LOCATE 5, 1: PRINT Text
89.         GOSUB curon
90.     END IF
91.  
92.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
93.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
94.         curOffset = _WIDTH * (15 + 64) + curPosX '
95.         LOCATE 5, 1: PRINT Text + " "
96.         GOSUB curon
97.     END IF
98.  
99.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
100.         GOSUB curoff
101.         curPosX = curPosX - CharWidth
102.         curOffset = _WIDTH * (15 + 64) + curPosX
103.         GOSUB curon
104.     END IF
105.  
106.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
107.         GOSUB curoff
108.         curPosX = curPosX + CharWidth
109.         curOffset = _WIDTH * (15 + 64) + curPosX
110.         GOSUB curon
111.     END IF
112. LOOP
113.  
114. '****
115. curon:
116. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
117.     b = 255
118.     _MEMPUT M, M.OFFSET + T, b
119.  
120.     g = 255
121.     _MEMPUT M, M.OFFSET + T + 1, g
122.  
123.     r = 0
124.     _MEMPUT M, M.OFFSET + T + 2, r
125. NEXT T
126. printPos = curPosX / CharWidth + 1
127. RETURN
128.  
129. '****
130. curoff:
131.  
132. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
133.  
134.     b = 0
135.     _MEMPUT M, M.OFFSET + T, b
136.  
137.     g = 0
138.     _MEMPUT M, M.OFFSET + T + 1, g
139.  
140.     r = 0
141.     _MEMPUT M, M.OFFSET + T + 2, r
142. NEXT T
143. printPos = curPosX / CharWidth + 1
144. RETURN
145.  

Title: Re: Another line editor
Post by: NOVARSEG on April 14, 2021, 03:17:45 am

Move text with up / down arrows

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM CharWidth AS INTEGER
7. DIM printPos AS INTEGER
8. DIM kh AS LONG
9. DIM T1 AS SINGLE
10. DIM F AS _UNSIGNED _BIT
11. DIM pixelDown AS INTEGER
12. DIM Text AS STRING
13. DIM lines AS INTEGER
14. lines = 5 * 16
15.  
16.  
17. Text = "Some text to edit"
18.  
19. Handle = _NEWIMAGE(400, 400, 32)
20. SCREEN Handle
21. DIM M AS _MEM
22. M = _MEMIMAGE(Handle)
23.  
24. DIM r AS _UNSIGNED _BYTE
25. DIM g AS _UNSIGNED _BYTE
26. DIM b AS _UNSIGNED _BYTE
27.  
28. _FULLSCREEN
29.  
30. PRINT
31. PRINT "Move cursor with left / right arrow"
32.  
33. PRINT "Insert, Append, Delete, Backspace characters"
34. PRINT "Move text with up / down arrow."
35. PRINT
36. PRINT Text
37.  
38. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
39.  
40. CharHeight = _FONTHEIGHT
41. CharWidth = _PRINTWIDTH(CHR$(a))
42.  
43.  
44. curPosX = _PRINTWIDTH(Text)
45. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
46.  
47.  
48. GOSUB curon
49. F = 0
50. DO
51.     T1 = TIMER
52.     DO
53.  
54.         _LIMIT 100
55.  
56.         IF TIMER - T1 > .3 AND F = 0 THEN
57.             F = 1
58.             T1 = TIMER
59.             GOSUB curoff
60.         END IF
61.  
62.         IF TIMER - T1 > .3 AND F = 1 THEN
63.             F = 0
64.             T1 = TIMER
65.             GOSUB curon
66.         END IF
67.  
68.         kh = _KEYHIT
69.         IF kh > 0 THEN GOSUB curon: EXIT DO
70.     LOOP
71.     'PRINT kh
72.  
73.     IF kh = 27 THEN END
74.  
75.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
76.         GOSUB curoff
77.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
78.         curPosX = curPosX - CharWidth
79.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
80.         _PRINTSTRING (0, lines + pixelDown), Text + " "
81.         GOSUB curon
82.     END IF
83.  
84.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
85.         Text = Text + CHR$(kh)
86.         curPosX = _PRINTWIDTH(Text)
87.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
88.         _PRINTSTRING (0, lines + pixelDown), Text
89.         GOSUB curon
90.     END IF
91.  
92.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT
93.         Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
94.         curPosX = curPosX + CharWidth
95.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX '
96.         _PRINTSTRING (0, lines + pixelDown), Text
97.         GOSUB curon
98.     END IF
99.  
100.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
101.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
102.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX '
103.         _PRINTSTRING (0, lines + pixelDown), Text + " "
104.         GOSUB curon
105.     END IF
106.  
107.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
108.         GOSUB curoff
109.         curPosX = curPosX - CharWidth
110.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
111.         GOSUB curon
112.     END IF
113.  
114.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
115.         GOSUB curoff
116.         curPosX = curPosX + CharWidth
117.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
118.         GOSUB curon
119.     END IF
120.  
121.     IF kh = 20480 AND lines + pixelDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
122.         pixelDown = pixelDown + 1
123.         GOSUB curoff
124.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
125.         _PRINTSTRING (0, lines + pixelDown), Text
126.         GOSUB curon
127.     END IF
128.  
129.     IF kh = 18432 AND lines + pixelDown > lines THEN 'UP ARROW
130.         pixelDown = pixelDown - 1
131.         GOSUB curoff
132.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
133.         _PRINTSTRING (0, lines + pixelDown), Text
134.         GOSUB curon
135.     END IF
136.  
137. LOOP
138.  
139. '****
140. curon:
141. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
142.     b = 255
143.     _MEMPUT M, M.OFFSET + T, b
144.  
145.     g = 255
146.     _MEMPUT M, M.OFFSET + T + 1, g
147.  
148.     r = 0
149.     _MEMPUT M, M.OFFSET + T + 2, r
150. NEXT T
151. printPos = curPosX / CharWidth + 1
152. RETURN
153.  
154. '****
155. curoff:
156.  
157. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
158.  
159.     b = 0
160.     _MEMPUT M, M.OFFSET + T, b
161.  
162.     g = 0
163.     _MEMPUT M, M.OFFSET + T + 1, g
164.  
165.     r = 0
166.     _MEMPUT M, M.OFFSET + T + 2, r
167. NEXT T
168. printPos = curPosX / CharWidth + 1
169. RETURN
170.  

Title: Re: Another line editor
Post by: bplus on April 14, 2021, 01:40:08 pm

The use of up down arrows in code above is stupid (sorry) IMHO.

Wouldn't it be more useful to edit a string array and use up and down for access of the different lines?
That would be a step closer to a full editor.

The rest of the functions working well for my little test, could add home and end to line navigating.

Looks like cursor problem is worked out, nice.

Have you worked out one for insert (line at base of insert point) and type over (usually a full box character size) to toggle between?

Title: Re: Another line editor
Post by: NOVARSEG on April 14, 2021, 09:20:26 pm

@bplus
Yes it might look stupid at present.   I started out the idea trying to code a FORM FILLER but my code soon got clunky and I had to start all over again. The line editor is some basic code.  Move text one pixel at a time anywhere on the screen.   Most word processor can't move text like that. Of course programs like MS WORD have some nice features.  Im not trying to duplicate MS WORD - too complicated.

Yes I have thought about string arrays and that is what I tried in FORM FILLER.  I ran into some problems with arrays, such as, does each paragraph have it's own array?   The line editor does not have arrays at present. i want to treat any text that is on a line independent of other text on another line.   To move a paragraph does not require an array.  I could use hidden characters to link lines of text together so it would function like an array.   MS WORD has a thing called GROUP where text or images can be grouped together and then the whole group can be moved.

 Anyway that is some exotic code and I'm concentrating on the basics right now.

yep, the blinking cursor took me some time to figure out.  TIMER was the solution.

Oh INSERT does work. TYPEOVER hey I forgot that!  With a toggle ?   OK




   

Title: Re: Another line editor
Post by: NOVARSEG on April 16, 2021, 04:00:58 am

Added Typeover mode .

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM CharWidth AS INTEGER
7. DIM printPos AS INTEGER
8. DIM kh AS LONG
9. DIM T1 AS SINGLE
10. DIM F AS _UNSIGNED _BIT
11. DIM insertKeyToggle AS _UNSIGNED _BIT
12. DIM pixelUpDown AS INTEGER
13. DIM Text AS STRING
14. DIM lines AS INTEGER
15. lines = 5 * 16
16.  
17.  
18. Text = "Some text to edit"
19.  
20. Handle = _NEWIMAGE(400, 400, 32)
21. SCREEN Handle
22. DIM M AS _MEM
23. M = _MEMIMAGE(Handle)
24.  
25. DIM r AS _UNSIGNED _BYTE
26. DIM g AS _UNSIGNED _BYTE
27. DIM b AS _UNSIGNED _BYTE
28.  
29. _FULLSCREEN
30.  
31. PRINT
32. PRINT "Move cursor with left / right arrow"
33.  
34. PRINT "Insert / Type over, Append, Delete, Backspace"
35.  
36. PRINT "Move text with up / down arrow. ESC to exit"
37. PRINT
38. PRINT Text
39.  
40. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
41.  
42. CharHeight = _FONTHEIGHT
43. CharWidth = _PRINTWIDTH(CHR$(a))
44.  
45.  
46. curPosX = _PRINTWIDTH(Text)
47. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
48.  
49.  
50. GOSUB curon
51. F = 0
52. DO
53.  
54.     T1 = TIMER
55.     DO
56.  
57.         _LIMIT 100
58.  
59.         kh = _KEYHIT
60.  
61.         IF kh = 20992 AND insertKeyToggle = 0 AND LEN(Text) >= printPos THEN
62.             insertKeyToggle = 1 'TYPEOVER mode
63.             kh = 0
64.             T1 = TIMER
65.             GOSUB curoff
66.             GOSUB cursolidon
67.             F = 0
68.         END IF
69.  
70.         IF kh = 20992 AND insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
71.             insertKeyToggle = 0 'INSERT MODE
72.             kh = 0
73.             T1 = TIMER
74.             GOSUB cursolidoff
75.             GOSUB curon
76.             F = 0
77.         END IF
78.  
79.         IF insertKeyToggle = 1 THEN
80.             IF TIMER - T1 > .3 AND F = 1 THEN
81.                 F = 0
82.                 T1 = TIMER
83.                 GOSUB cursolidon
84.             END IF
85.         END IF
86.  
87.         IF insertKeyToggle = 1 THEN
88.             IF TIMER - T1 > .3 AND F = 0 THEN
89.                 F = 1
90.                 T1 = TIMER
91.                 GOSUB cursolidoff
92.             END IF
93.         END IF
94.  
95.         IF insertKeyToggle = 0 THEN
96.             IF TIMER - T1 > .3 AND F = 0 THEN
97.                 F = 1
98.                 T1 = TIMER
99.                 GOSUB curoff
100.             END IF
101.             IF TIMER - T1 > .3 AND F = 1 THEN
102.                 F = 0
103.                 T1 = TIMER
104.                 GOSUB curon
105.             END IF
106.         END IF
107.  
108.         IF kh > 0 AND insertKeyToggle = 1 THEN GOSUB cursolidon: EXIT DO
109.         IF kh > 0 AND insertKeyToggle = 0 THEN GOSUB curon: EXIT DO
110.     LOOP
111.  
112.  
113.     ' PRINT kh
114.  
115.     IF kh = 27 THEN END
116.  
117.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
118.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL3
119.         GOSUB curoff
120.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
121.         curPosX = curPosX - CharWidth
122.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
123.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
124.         GOSUB curon
125.         LL3:
126.     END IF
127.     '****
128.  
129.     '****
130.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
131.         Text = Text + CHR$(kh)
132.         curPosX = _PRINTWIDTH(Text)
133.         curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
134.         _PRINTSTRING (0, lines + pixelUpDown), Text
135.         GOSUB curon
136.     END IF
137.     '****
138.  
139.     '****
140.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT TYPE OVER
141.         IF insertKeyToggle = 0 THEN 'INSERT MODE
142.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
143.             curPosX = curPosX + CharWidth
144.             curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
145.             _PRINTSTRING (0, lines + pixelUpDown), Text
146.             GOSUB curon
147.         END IF
148.  
149.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN 'cursor is pointing to last character
150.             insertKeyToggle = 0
151.             GOSUB cursolidoff
152.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
153.             curPosX = curPosX + CharWidth
154.             curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
155.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
156.             GOSUB curon
157.         END IF
158.  
159.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN 'cursor is pointing to any char except last char
160.             GOSUB cursolidoff
161.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
162.             curPosX = curPosX + CharWidth
163.             curOffset = _WIDTH * (15 + lines + pixelDown) + curPosX
164.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
165.             GOSUB cursolidon
166.         END IF
167.     END IF 'END INSERT OR TYPE OVER
168.  
169.     '****
170.  
171.     '****
172.  
173.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
174.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL1
175.  
176.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
177.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX '
178.         _PRINTSTRING (0, lines + pixelDown), Text + " "
179.         GOSUB curon
180.         LL1:
181.     END IF
182.  
183.     '****
184.  
185.     '****
186.  
187.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
188.  
189.         IF insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
190.             GOSUB cursolidoff
191.             curPosX = curPosX - CharWidth
192.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
193.             GOSUB cursolidon
194.         END IF
195.  
196.         IF insertKeyToggle = 0 THEN
197.             GOSUB curoff
198.             curPosX = curPosX - CharWidth
199.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
200.             GOSUB curon
201.         END IF
202.  
203.     END IF 'END LEFT ARROW
204.  
205.     '****
206.  
207.     '****
208.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
209.  
210.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN
211.             insertKeyToggle = 0
212.             GOSUB cursolidoff
213.             curPosX = curPosX + CharWidth
214.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
215.             GOSUB curon
216.             GOTO LL2
217.         END IF
218.  
219.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN
220.             GOSUB cursolidoff
221.             curPosX = curPosX + CharWidth
222.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
223.             GOSUB cursolidon
224.         END IF
225.  
226.         IF insertKeyToggle = 0 THEN
227.             GOSUB curoff
228.             curPosX = curPosX + CharWidth
229.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
230.             GOSUB curon
231.         END IF
232.         LL2:
233.  
234.     END IF 'END RIGHT ARROW
235.     '****
236.  
237.     '****
238.     IF kh = 20480 AND lines + pixelUpDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
239.  
240.         IF insertKeyToggle = 1 THEN
241.             pixelUpDown = pixelUpDown + 1
242.             GOSUB cursolidoff
243.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
244.             _PRINTSTRING (0, lines + pixelUpDown), Text
245.             GOSUB cursolidon
246.         END IF
247.  
248.         IF insertKeyToggle = 0 THEN
249.             pixelUpDown = pixelUpDown + 1
250.             GOSUB curoff
251.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
252.             _PRINTSTRING (0, lines + pixelUpDown), Text
253.             GOSUB curon
254.         END IF
255.     END IF
256.     '**** END DOWN ARROW
257.  
258.     '****
259.     IF kh = 18432 AND lines + pixelUpDown > lines THEN 'UP ARROW
260.  
261.         IF insertKeyToggle = 1 THEN
262.             pixelUpDown = pixelUpDown - 1
263.             GOSUB cursolidoff
264.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
265.             _PRINTSTRING (0, lines + pixelUpDown), Text
266.             GOSUB cursolidon
267.         END IF
268.         IF insertKeyToggle = 0 THEN
269.             pixelUpDown = pixelUpDown - 1
270.             GOSUB curoff
271.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
272.             _PRINTSTRING (0, lines + pixelUpDown), Text
273.             GOSUB curon
274.         END IF
275.     END IF
276.     '**** END UP ARROW
277.  
278. LOOP
279. '****
280.  
281. '****
282. cursolidon: 'Cursor for TYPE OVER mode  - ON
283. FOR y = 0 TO CharHeight - 1
284.     newoffset = curOffset - y * _WIDTH
285.  
286.     FOR T = newoffset * 4 TO newoffset * 4 + curWidth * 4 STEP 4
287.  
288.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
289.         b = b XOR 255
290.         _MEMPUT M, M.OFFSET + T, b
291.  
292.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
293.         g = g XOR 255
294.         _MEMPUT M, M.OFFSET + T + 1, g
295.  
296.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
297.         r = r XOR 0
298.         _MEMPUT M, M.OFFSET + T + 2, r
299.     NEXT T
300.  
301. NEXT y
302. printPos = curPosX / CharWidth + 1
303. RETURN
304. '****
305. cursolidoff: 'Cursor for TYPE OVER mode - OFF
306. FOR y = 0 TO CharHeight
307.     newoffset = curOffset - y * _WIDTH
308.  
309.     FOR T = newoffset * 4 TO newoffset * 4 + curWidth * 4 STEP 4
310.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
311.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
312.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
313.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
314.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
315.         _MEMPUT M, M.OFFSET + T, b
316.         _MEMPUT M, M.OFFSET + T + 1, g
317.         _MEMPUT M, M.OFFSET + T + 2, r
318.     NEXT T
319. NEXT y
320. printPos = curPosX / CharWidth + 1
321. RETURN
322. '****
323.  
324. curon:
325. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
326.     b = 255
327.     _MEMPUT M, M.OFFSET + T, b
328.  
329.     g = 255
330.     _MEMPUT M, M.OFFSET + T + 1, g
331.  
332.     r = 0
333.     _MEMPUT M, M.OFFSET + T + 2, r
334. NEXT T
335. printPos = curPosX / CharWidth + 1
336. RETURN
337.  
338. '****
339. curoff:
340.  
341. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
342.  
343.     b = 0
344.     _MEMPUT M, M.OFFSET + T, b
345.  
346.     g = 0
347.     _MEMPUT M, M.OFFSET + T + 1, g
348.  
349.     r = 0
350.     _MEMPUT M, M.OFFSET + T + 2, r
351. NEXT T
352. printPos = curPosX / CharWidth + 1
353. RETURN
354.  

Title: Re: Another line editor
Post by: euklides on April 16, 2021, 05:56:02 am

It's a one line text editor to replace luxuriously the normal inputbox command, but with only a maximum of 60 characters ???
Don't understand what is this for...

Title: Re: Another line editor
Post by: NOVARSEG on April 16, 2021, 04:41:53 pm

Quote

It's a one line text editor to replace luxuriously the normal inputbox command, but with only a maximum of 60 characters ???
Don't understand what is this for...

euklides

Will add more lines later.  Trying to link single lines of text together to form paragraphs without arrays.   The original idea was to make  something like a PDF filler.   Basically I need really good control of text on the screen. Also multiple pages of text are needed with scrolling.

I'm looking for ideas on what kind of features would be most useful.  Maybe I will get GROUP working.  It's quite a challenge moving a paragraph without arrays?


bug fix. some variables were not correct

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM CharWidth AS INTEGER
7. DIM printPos AS INTEGER
8. DIM kh AS LONG
9. DIM T1 AS SINGLE
10. DIM F AS _UNSIGNED _BIT
11. DIM insertKeyToggle AS _UNSIGNED _BIT
12. DIM pixelUpDown AS INTEGER
13. DIM Text AS STRING
14. DIM lines AS INTEGER
15. lines = 5 * 16
16.  
17.  
18. Text = "Some text to edit"
19.  
20. Handle = _NEWIMAGE(400, 400, 32)
21. SCREEN Handle
22. DIM M AS _MEM
23. M = _MEMIMAGE(Handle)
24.  
25. DIM r AS _UNSIGNED _BYTE
26. DIM g AS _UNSIGNED _BYTE
27. DIM b AS _UNSIGNED _BYTE
28.  
29. _FULLSCREEN
30.  
31. PRINT
32. PRINT "Move cursor with left / right arrow"
33.  
34. PRINT "Insert / Type over, Append, Delete, Backspace"
35.  
36. PRINT "Move text with up / down arrow. ESC to exit"
37. PRINT
38. PRINT Text
39.  
40. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
41.  
42. CharHeight = _FONTHEIGHT
43. CharWidth = _PRINTWIDTH(CHR$(a))
44.  
45.  
46. curPosX = _PRINTWIDTH(Text)
47. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
48.  
49.  
50. GOSUB curon
51. F = 0
52. DO
53.  
54.     T1 = TIMER
55.     DO
56.  
57.         _LIMIT 100
58.  
59.         kh = _KEYHIT
60.  
61.         IF kh = 20992 AND insertKeyToggle = 0 AND LEN(Text) >= printPos THEN
62.             insertKeyToggle = 1 'TYPEOVER mode
63.             kh = 0
64.             T1 = TIMER
65.             GOSUB curoff
66.             GOSUB cursolidon
67.             F = 0
68.         END IF
69.  
70.         IF kh = 20992 AND insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
71.             insertKeyToggle = 0 'INSERT MODE
72.             kh = 0
73.             T1 = TIMER
74.             GOSUB cursolidoff
75.             GOSUB curon
76.             F = 0
77.         END IF
78.  
79.         IF insertKeyToggle = 1 THEN
80.             IF TIMER - T1 > .3 AND F = 1 THEN
81.                 F = 0
82.                 T1 = TIMER
83.                 GOSUB cursolidon
84.             END IF
85.         END IF
86.  
87.         IF insertKeyToggle = 1 THEN
88.             IF TIMER - T1 > .3 AND F = 0 THEN
89.                 F = 1
90.                 T1 = TIMER
91.                 GOSUB cursolidoff
92.             END IF
93.         END IF
94.  
95.         IF insertKeyToggle = 0 THEN
96.             IF TIMER - T1 > .3 AND F = 0 THEN
97.                 F = 1
98.                 T1 = TIMER
99.                 GOSUB curoff
100.             END IF
101.             IF TIMER - T1 > .3 AND F = 1 THEN
102.                 F = 0
103.                 T1 = TIMER
104.                 GOSUB curon
105.             END IF
106.         END IF
107.  
108.         IF kh > 0 AND insertKeyToggle = 1 THEN GOSUB cursolidon: EXIT DO
109.         IF kh > 0 AND insertKeyToggle = 0 THEN GOSUB curon: EXIT DO
110.     LOOP
111.  
112.  
113.     ' PRINT kh
114.  
115.     IF kh = 27 THEN END
116.  
117.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
118.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL3
119.         GOSUB curoff
120.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
121.         curPosX = curPosX - CharWidth
122.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
123.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
124.         GOSUB curon
125.         LL3:
126.     END IF
127.     '****
128.  
129.     '****
130.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
131.         Text = Text + CHR$(kh)
132.         curPosX = _PRINTWIDTH(Text)
133.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
134.         _PRINTSTRING (0, lines + pixelUpDown), Text
135.         GOSUB curon
136.     END IF
137.     '****
138.  
139.     '****
140.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT TYPE OVER
141.         IF insertKeyToggle = 0 THEN 'INSERT MODE
142.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
143.             curPosX = curPosX + CharWidth
144.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
145.             _PRINTSTRING (0, lines + pixelUpDown), Text
146.             GOSUB curon
147.         END IF
148.  
149.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN 'cursor is pointing to last character
150.             insertKeyToggle = 0
151.             GOSUB cursolidoff
152.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
153.             curPosX = curPosX + CharWidth
154.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
155.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
156.             GOSUB curon
157.         END IF
158.  
159.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN 'cursor is pointing to any char except last char
160.             GOSUB cursolidoff
161.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
162.             curPosX = curPosX + CharWidth
163.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
164.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
165.             GOSUB cursolidon
166.         END IF
167.     END IF 'END INSERT OR TYPE OVER
168.  
169.     '****
170.  
171.     '****
172.  
173.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
174.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL1
175.  
176.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
177.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX '
178.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
179.         GOSUB curon
180.         LL1:
181.     END IF
182.  
183.     '****
184.  
185.     '****
186.  
187.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
188.  
189.         IF insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
190.             GOSUB cursolidoff
191.             curPosX = curPosX - CharWidth
192.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
193.             GOSUB cursolidon
194.         END IF
195.  
196.         IF insertKeyToggle = 0 THEN
197.             GOSUB curoff
198.             curPosX = curPosX - CharWidth
199.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
200.             GOSUB curon
201.         END IF
202.  
203.     END IF 'END LEFT ARROW
204.  
205.     '****
206.  
207.     '****
208.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
209.  
210.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN
211.             insertKeyToggle = 0
212.             GOSUB cursolidoff
213.             curPosX = curPosX + CharWidth
214.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
215.             GOSUB curon
216.             GOTO LL2
217.         END IF
218.  
219.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN
220.             GOSUB cursolidoff
221.             curPosX = curPosX + CharWidth
222.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
223.             GOSUB cursolidon
224.         END IF
225.  
226.         IF insertKeyToggle = 0 THEN
227.             GOSUB curoff
228.             curPosX = curPosX + CharWidth
229.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
230.             GOSUB curon
231.         END IF
232.         LL2:
233.  
234.     END IF 'END RIGHT ARROW
235.     '****
236.  
237.     '****
238.     IF kh = 20480 AND lines + pixelUpDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
239.  
240.         IF insertKeyToggle = 1 THEN
241.             pixelUpDown = pixelUpDown + 1
242.             GOSUB cursolidoff
243.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
244.             _PRINTSTRING (0, lines + pixelUpDown), Text
245.             GOSUB cursolidon
246.         END IF
247.  
248.         IF insertKeyToggle = 0 THEN
249.             pixelUpDown = pixelUpDown + 1
250.             GOSUB curoff
251.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
252.             _PRINTSTRING (0, lines + pixelUpDown), Text
253.             GOSUB curon
254.         END IF
255.     END IF
256.     '**** END DOWN ARROW
257.  
258.     '****
259.     IF kh = 18432 AND lines + pixelUpDown > lines THEN 'UP ARROW
260.  
261.         IF insertKeyToggle = 1 THEN
262.             pixelUpDown = pixelUpDown - 1
263.             GOSUB cursolidoff
264.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
265.             _PRINTSTRING (0, lines + pixelUpDown), Text
266.             GOSUB cursolidon
267.         END IF
268.         IF insertKeyToggle = 0 THEN
269.             pixelUpDown = pixelUpDown - 1
270.             GOSUB curoff
271.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
272.             _PRINTSTRING (0, lines + pixelUpDown), Text
273.             GOSUB curon
274.         END IF
275.     END IF
276.     '**** END UP ARROW
277.  
278. LOOP
279. '****
280.  
281. '****
282. cursolidon: 'Cursor for TYPE OVER mode  - ON
283. FOR y = 0 TO CharHeight - 1
284.     newoffset = curOffset - y * _WIDTH
285.  
286.     FOR T = newoffset * 4 TO newoffset * 4 + curWidth * 4 STEP 4
287.  
288.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
289.         b = b XOR 255
290.         _MEMPUT M, M.OFFSET + T, b
291.  
292.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
293.         g = g XOR 255
294.         _MEMPUT M, M.OFFSET + T + 1, g
295.  
296.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
297.         r = r XOR 0
298.         _MEMPUT M, M.OFFSET + T + 2, r
299.     NEXT T
300.  
301. NEXT y
302. printPos = curPosX / CharWidth + 1
303. RETURN
304. '****
305. cursolidoff: 'Cursor for TYPE OVER mode - OFF
306. FOR y = 0 TO CharHeight
307.     newoffset = curOffset - y * _WIDTH
308.  
309.     FOR T = newoffset * 4 TO newoffset * 4 + curWidth * 4 STEP 4
310.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
311.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
312.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
313.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
314.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
315.         _MEMPUT M, M.OFFSET + T, b
316.         _MEMPUT M, M.OFFSET + T + 1, g
317.         _MEMPUT M, M.OFFSET + T + 2, r
318.     NEXT T
319. NEXT y
320. printPos = curPosX / CharWidth + 1
321. RETURN
322. '****
323.  
324. curon:
325. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
326.     b = 255
327.     _MEMPUT M, M.OFFSET + T, b
328.  
329.     g = 255
330.     _MEMPUT M, M.OFFSET + T + 1, g
331.  
332.     r = 0
333.     _MEMPUT M, M.OFFSET + T + 2, r
334. NEXT T
335. printPos = curPosX / CharWidth + 1
336. RETURN
337.  
338. '****
339. curoff:
340.  
341. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
342.  
343.     b = 0
344.     _MEMPUT M, M.OFFSET + T, b
345.  
346.     g = 0
347.     _MEMPUT M, M.OFFSET + T + 1, g
348.  
349.     r = 0
350.     _MEMPUT M, M.OFFSET + T + 2, r
351. NEXT T
352. printPos = curPosX / CharWidth + 1
353. RETURN
354.  

Title: Re: Another line editor
Post by: euklides on April 17, 2021, 08:47:04 am

To create a word processing program, you need at least:
- a dimensioned variable (rows column) which contains the whole text document;
- a display module which presents part of the text on the visible screen
- an interactive part (inkey$, mouse...input, etc.) which impacts the screen and the dimensionned variable too
- lot of options (save, load, copy, aso... )

If you don't follow this way, you will not overcome this application...
A did such application in 80's... 
Good luck !!!

Title: Re: Another line editor
Post by: NOVARSEG on April 17, 2021, 04:13:01 pm

Many good suggestions

The code so far shows basic line editing features with some graphical functions.

   The challenge here is to add more features without getting too complex. Yes arrays are useful but since we have MEMGET, maybe we can take snapshots of text and then move them as a group.

MS WORD has UNGROUP function too.

Title: Re: Another line editor
Post by: NOVARSEG on April 17, 2021, 09:01:10 pm

OK at the very least my single line text editor has a DARK background.   Try that with the DUMBED DOWN NOTEPAD or WORD PAD

cant even set margins in NOTE PAD anymore.    software has gotten real bad.  Time for change

Title: Re: Another line editor
Post by: bplus on April 17, 2021, 09:06:13 pm

Well if you were to print something out on paper, white background is best.

Title: Re: Another line editor
Post by: NOVARSEG on April 17, 2021, 09:10:14 pm

of course.  it saves ink too.

i will correct about NOTE PAD.    If you click on the minimize "square thingy" then you can use "sizing handles"  but NOTEPAD does not have a black background feature.   Imagine if it did!

So many other wise good word processors won't let you change colors.  Even with WINDOWS 10 you need a uni degree to do so.   GOOGLE how do you change colors in windows 10 and you get thousands of hits with every arm chair expert saying DO THIS and damage your computer.

Title: Re: Another line editor
Post by: NOVARSEG on April 18, 2021, 02:19:31 am

Mouse cursor working

Code sometimes crashes  -"memory region out of range"  trying to debug

Some times_MOUSEX returns  -1 when the program first starts.  Mouse buffer overun?

OK both MOUSEX and MOUSEY return -1 at start of program - if mouse is moved just after "START" is clicked

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM newcurOffset AS _UNSIGNED LONG
7. DIM mouseOffset AS _UNSIGNED LONG
8. DIM newmouseOffset AS _UNSIGNED LONG
9.  
10.  
11. DIM CharWidth AS INTEGER
12. DIM printPos AS INTEGER
13. DIM kh AS LONG
14. DIM T1 AS SINGLE
15. DIM F AS _UNSIGNED _BIT
16. DIM insertKeyToggle AS _UNSIGNED _BIT
17. DIM pixelUpDown AS INTEGER
18. DIM Text AS STRING
19. DIM X AS INTEGER
20. DIM Y AS INTEGER
21. DIM Z AS INTEGER
22.  
23. DIM lines AS INTEGER
24. lines = 5 * 16
25.  
26.  
27. Text = "Some text to edit"
28.  
29. Handle = _NEWIMAGE(400, 400, 32)
30. SCREEN Handle
31. DIM M AS _MEM
32. M = _MEMIMAGE(Handle)
33.  
34. DIM r AS _UNSIGNED _BYTE
35. DIM g AS _UNSIGNED _BYTE
36. DIM b AS _UNSIGNED _BYTE
37.  
38. _FULLSCREEN
39.  
40. PRINT
41. PRINT "Move cursor with left / right arrow"
42.  
43. PRINT "Insert / Type over, Append, Delete, Backspace"
44.  
45. PRINT "Move text with up / down arrow. ESC to exit"
46. PRINT
47. PRINT Text
48.  
49. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
50.  
51. CharHeight = _FONTHEIGHT
52. CharWidth = _PRINTWIDTH(CHR$(a))
53.  
54.  
55. curPosX = _PRINTWIDTH(Text)
56. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
57.  
58.  
59. GOSUB curon
60. F = 0
61. DO
62.  
63.     T1 = TIMER
64.     DO
65.  
66.         _LIMIT 1000
67.  
68.         IF _MOUSEINPUT = -1 THEN
69.  
70.             X = _MOUSEX
71.             Y = _MOUSEY
72.             GOSUB curmouseoff
73.             IF Y + CharHeight < _HEIGHT THEN mouseOffset = Y * _WIDTH + X
74.             GOSUB curmouseon
75.         END IF
76.  
77.  
78.  
79.  
80.  
81.  
82.         kh = _KEYHIT
83.  
84.         IF kh = 20992 AND insertKeyToggle = 0 AND LEN(Text) >= printPos THEN
85.             insertKeyToggle = 1 'TYPEOVER mode
86.             kh = 0
87.             T1 = TIMER
88.             GOSUB curoff
89.             GOSUB cursolidon
90.             F = 0
91.         END IF
92.  
93.         IF kh = 20992 AND insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
94.             insertKeyToggle = 0 'INSERT MODE
95.             kh = 0
96.             T1 = TIMER
97.             GOSUB cursolidoff
98.             GOSUB curon
99.             F = 0
100.         END IF
101.  
102.         IF insertKeyToggle = 1 THEN
103.             IF TIMER - T1 > .3 AND F = 1 THEN
104.                 F = 0
105.                 T1 = TIMER
106.                 GOSUB cursolidon
107.             END IF
108.         END IF
109.  
110.         IF insertKeyToggle = 1 THEN
111.             IF TIMER - T1 > .3 AND F = 0 THEN
112.                 F = 1
113.                 T1 = TIMER
114.                 GOSUB cursolidoff
115.             END IF
116.         END IF
117.  
118.         IF insertKeyToggle = 0 THEN
119.             IF TIMER - T1 > .3 AND F = 0 THEN
120.                 F = 1
121.                 T1 = TIMER
122.                 GOSUB curoff
123.             END IF
124.             IF TIMER - T1 > .3 AND F = 1 THEN
125.                 F = 0
126.                 T1 = TIMER
127.                 GOSUB curon
128.             END IF
129.         END IF
130.  
131.         IF kh > 0 AND insertKeyToggle = 1 THEN GOSUB cursolidon: EXIT DO
132.         IF kh > 0 AND insertKeyToggle = 0 THEN GOSUB curon: EXIT DO
133.     LOOP
134.  
135.  
136.     ' PRINT kh
137.  
138.     IF kh = 27 THEN END
139.  
140.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
141.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL3
142.         GOSUB curoff
143.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
144.         curPosX = curPosX - CharWidth
145.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
146.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
147.         GOSUB curon
148.         LL3:
149.     END IF
150.     '****
151.  
152.     '****
153.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
154.         Text = Text + CHR$(kh)
155.         curPosX = _PRINTWIDTH(Text)
156.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
157.         _PRINTSTRING (0, lines + pixelUpDown), Text
158.         GOSUB curon
159.     END IF
160.     '****
161.  
162.     '****
163.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT TYPE OVER
164.         IF insertKeyToggle = 0 THEN 'INSERT MODE
165.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
166.             curPosX = curPosX + CharWidth
167.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
168.             _PRINTSTRING (0, lines + pixelUpDown), Text
169.             GOSUB curon
170.         END IF
171.  
172.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN 'cursor is pointing to last character
173.             insertKeyToggle = 0
174.             GOSUB cursolidoff
175.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
176.             curPosX = curPosX + CharWidth
177.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
178.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
179.             GOSUB curon
180.         END IF
181.  
182.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN 'cursor is pointing to any char except last char
183.             GOSUB cursolidoff
184.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
185.             curPosX = curPosX + CharWidth
186.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
187.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
188.             GOSUB cursolidon
189.         END IF
190.     END IF 'END INSERT OR TYPE OVER
191.  
192.     '****
193.  
194.     '****
195.  
196.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
197.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL1
198.  
199.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
200.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX '
201.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
202.         GOSUB curon
203.         LL1:
204.     END IF
205.  
206.     '****
207.  
208.     '****
209.  
210.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
211.  
212.         IF insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
213.             GOSUB cursolidoff
214.             curPosX = curPosX - CharWidth
215.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
216.             GOSUB cursolidon
217.         END IF
218.  
219.         IF insertKeyToggle = 0 THEN
220.             GOSUB curoff
221.             curPosX = curPosX - CharWidth
222.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
223.             GOSUB curon
224.         END IF
225.  
226.     END IF 'END LEFT ARROW
227.  
228.     '****
229.  
230.     '****
231.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
232.  
233.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN
234.             insertKeyToggle = 0
235.             GOSUB cursolidoff
236.             curPosX = curPosX + CharWidth
237.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
238.             GOSUB curon
239.             GOTO LL2
240.         END IF
241.  
242.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN
243.             GOSUB cursolidoff
244.             curPosX = curPosX + CharWidth
245.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
246.             GOSUB cursolidon
247.         END IF
248.  
249.         IF insertKeyToggle = 0 THEN
250.             GOSUB curoff
251.             curPosX = curPosX + CharWidth
252.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
253.             GOSUB curon
254.         END IF
255.         LL2:
256.  
257.     END IF 'END RIGHT ARROW
258.     '****
259.  
260.     '****
261.     IF kh = 20480 AND lines + pixelUpDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
262.  
263.         IF insertKeyToggle = 1 THEN
264.             pixelUpDown = pixelUpDown + 1
265.             GOSUB cursolidoff
266.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
267.             _PRINTSTRING (0, lines + pixelUpDown), Text
268.             GOSUB cursolidon
269.         END IF
270.  
271.         IF insertKeyToggle = 0 THEN
272.             pixelUpDown = pixelUpDown + 1
273.             GOSUB curoff
274.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
275.             _PRINTSTRING (0, lines + pixelUpDown), Text
276.             GOSUB curon
277.         END IF
278.     END IF
279.     '**** END DOWN ARROW
280.  
281.     '****
282.     IF kh = 18432 AND lines + pixelUpDown > lines THEN 'UP ARROW
283.  
284.         IF insertKeyToggle = 1 THEN
285.             pixelUpDown = pixelUpDown - 1
286.             GOSUB cursolidoff
287.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
288.             _PRINTSTRING (0, lines + pixelUpDown), Text
289.             GOSUB cursolidon
290.         END IF
291.         IF insertKeyToggle = 0 THEN
292.             pixelUpDown = pixelUpDown - 1
293.             GOSUB curoff
294.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
295.             _PRINTSTRING (0, lines + pixelUpDown), Text
296.             GOSUB curon
297.         END IF
298.     END IF
299.     '**** END UP ARROW
300.  
301. LOOP
302. '****
303.  
304. '****
305. curmouseon:
306. FOR Z = 0 TO CharHeight - 1
307.     newmouseOffset = mouseOffset + Z * _WIDTH
308.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
309.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
310.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
311.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
312.         IF b = 255 AND g = 255 AND r = 255 THEN b = 0: g = 0: r = 255
313.         IF b = 0 AND g = 0 AND r = 0 THEN b = 255: g = 255: r = 0
314.         _MEMPUT M, M.OFFSET + T, b
315.         _MEMPUT M, M.OFFSET + T + 1, g
316.         _MEMPUT M, M.OFFSET + T + 2, r
317.     NEXT T
318. NEXT Z
319. RETURN
320.  
321. '****
322. curmouseoff:
323. FOR Z = 0 TO CharHeight - 1
324.     newmouseOffset = mouseOffset + Z * _WIDTH
325.  
326.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
327.         'locate 100,100: print t
328.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
329.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
330.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
331.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
332.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
333.         _MEMPUT M, M.OFFSET + T, b
334.         _MEMPUT M, M.OFFSET + T + 1, g
335.         _MEMPUT M, M.OFFSET + T + 2, r
336.     NEXT T
337. NEXT Z
338.  
339. RETURN
340.  
341. '****
342. cursolidon: 'Cursor for TYPE OVER mode  - ON
343. FOR Z = 0 TO CharHeight - 1
344.     newcurOffset = curOffset - Z * _WIDTH
345.  
346.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
347.  
348.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
349.         b = b XOR 255
350.         _MEMPUT M, M.OFFSET + T, b
351.  
352.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
353.         g = g XOR 255
354.         _MEMPUT M, M.OFFSET + T + 1, g
355.  
356.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
357.         r = r XOR 0
358.         _MEMPUT M, M.OFFSET + T + 2, r
359.     NEXT T
360.  
361. NEXT Z
362. printPos = curPosX / CharWidth + 1
363. RETURN
364.  
365. '****
366. cursolidoff: 'Cursor for TYPE OVER mode - OFF
367. FOR Z = 0 TO CharHeight
368.     newcurOffset = curOffset - Z * _WIDTH
369.  
370.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
371.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
372.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
373.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
374.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
375.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
376.         _MEMPUT M, M.OFFSET + T, b
377.         _MEMPUT M, M.OFFSET + T + 1, g
378.         _MEMPUT M, M.OFFSET + T + 2, r
379.     NEXT T
380. NEXT Z
381. printPos = curPosX / CharWidth + 1
382. RETURN
383. '****
384.  
385. curon:
386. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
387.     b = 255
388.     _MEMPUT M, M.OFFSET + T, b
389.  
390.     g = 255
391.     _MEMPUT M, M.OFFSET + T + 1, g
392.  
393.     r = 0
394.     _MEMPUT M, M.OFFSET + T + 2, r
395. NEXT T
396. printPos = curPosX / CharWidth + 1
397. RETURN
398.  
399. '****
400. curoff:
401.  
402. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
403.  
404.     b = 0
405.     _MEMPUT M, M.OFFSET + T, b
406.  
407.     g = 0
408.     _MEMPUT M, M.OFFSET + T + 1, g
409.  
410.     r = 0
411.     _MEMPUT M, M.OFFSET + T + 2, r
412. NEXT T
413. printPos = curPosX / CharWidth + 1
414. RETURN
415.  

It wont crash now.  added
IF X < 0 THEN EXIT DO
 IF Y < 0 THEN EXIT DO

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM newcurOffset AS _UNSIGNED LONG
7. DIM mouseOffset AS _UNSIGNED LONG
8. DIM newmouseOffset AS _UNSIGNED LONG
9.  
10.  
11. DIM CharWidth AS INTEGER
12. DIM printPos AS INTEGER
13. DIM kh AS LONG
14. DIM T1 AS SINGLE
15. DIM F AS _UNSIGNED _BIT
16. DIM insertKeyToggle AS _UNSIGNED _BIT
17. DIM pixelUpDown AS INTEGER
18. DIM Text AS STRING
19. DIM X AS INTEGER
20. DIM Y AS INTEGER
21. DIM Z AS INTEGER
22.  
23. DIM lines AS INTEGER
24. lines = 5 * 16
25.  
26.  
27. Text = "Some text to edit"
28.  
29. Handle = _NEWIMAGE(400, 400, 32)
30. SCREEN Handle
31. DIM M AS _MEM
32. M = _MEMIMAGE(Handle)
33.  
34. DIM r AS _UNSIGNED _BYTE
35. DIM g AS _UNSIGNED _BYTE
36. DIM b AS _UNSIGNED _BYTE
37.  
38. _FULLSCREEN
39.  
40. PRINT
41. PRINT "Move cursor with left / right arrow"
42.  
43. PRINT "Insert / Type over, Append, Delete, Backspace"
44.  
45. PRINT "Move text with up / down arrow. ESC to exit"
46. PRINT
47. PRINT Text
48.  
49. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
50.  
51. CharHeight = _FONTHEIGHT
52. CharWidth = _PRINTWIDTH(CHR$(a))
53.  
54.  
55. curPosX = _PRINTWIDTH(Text)
56. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
57.  
58.  
59. GOSUB curon
60. F = 0
61.  
62.  
63. DO
64.     X = 0
65.     T1 = TIMER
66.     DO
67.  
68.         _LIMIT 1000
69.  
70.         IF _MOUSEINPUT = -1 THEN
71.             X = _MOUSEX
72.             Y = _MOUSEY
73.             IF X < 0 THEN EXIT DO
74.             IF Y < 0 THEN EXIT DO
75.             GOSUB curmouseoff
76.             IF Y + CharHeight < _HEIGHT THEN mouseOffset = Y * _WIDTH + X
77.             GOSUB curmouseon
78.         END IF
79.  
80.  
81.         kh = _KEYHIT
82.  
83.         IF kh = 20992 AND insertKeyToggle = 0 AND LEN(Text) >= printPos THEN
84.             insertKeyToggle = 1 'TYPEOVER mode
85.             kh = 0
86.             T1 = TIMER
87.             GOSUB curoff
88.             GOSUB cursolidon
89.             F = 0
90.         END IF
91.  
92.         IF kh = 20992 AND insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
93.             insertKeyToggle = 0 'INSERT MODE
94.             kh = 0
95.             T1 = TIMER
96.             GOSUB cursolidoff
97.             GOSUB curon
98.             F = 0
99.         END IF
100.  
101.         IF insertKeyToggle = 1 THEN
102.             IF TIMER - T1 > .3 AND F = 1 THEN
103.                 F = 0
104.                 T1 = TIMER
105.                 GOSUB cursolidon
106.             END IF
107.         END IF
108.  
109.         IF insertKeyToggle = 1 THEN
110.             IF TIMER - T1 > .3 AND F = 0 THEN
111.                 F = 1
112.                 T1 = TIMER
113.                 GOSUB cursolidoff
114.             END IF
115.         END IF
116.  
117.         IF insertKeyToggle = 0 THEN
118.             IF TIMER - T1 > .3 AND F = 0 THEN
119.                 F = 1
120.                 T1 = TIMER
121.                 GOSUB curoff
122.             END IF
123.             IF TIMER - T1 > .3 AND F = 1 THEN
124.                 F = 0
125.                 T1 = TIMER
126.                 GOSUB curon
127.             END IF
128.         END IF
129.  
130.         IF kh > 0 AND insertKeyToggle = 1 THEN GOSUB cursolidon: EXIT DO
131.         IF kh > 0 AND insertKeyToggle = 0 THEN GOSUB curon: EXIT DO
132.     LOOP
133.  
134.  
135.     ' PRINT kh
136.  
137.     IF kh = 27 THEN END
138.  
139.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
140.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL3
141.         GOSUB curoff
142.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
143.         curPosX = curPosX - CharWidth
144.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
145.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
146.         GOSUB curon
147.         LL3:
148.     END IF
149.     '****
150.  
151.     '****
152.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
153.         Text = Text + CHR$(kh)
154.         curPosX = _PRINTWIDTH(Text)
155.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
156.         _PRINTSTRING (0, lines + pixelUpDown), Text
157.         GOSUB curon
158.     END IF
159.     '****
160.  
161.     '****
162.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT TYPE OVER
163.         IF insertKeyToggle = 0 THEN 'INSERT MODE
164.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
165.             curPosX = curPosX + CharWidth
166.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
167.             _PRINTSTRING (0, lines + pixelUpDown), Text
168.             GOSUB curon
169.         END IF
170.  
171.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN 'cursor is pointing to last character
172.             insertKeyToggle = 0
173.             GOSUB cursolidoff
174.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
175.             curPosX = curPosX + CharWidth
176.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
177.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
178.             GOSUB curon
179.         END IF
180.  
181.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN 'cursor is pointing to any char except last char
182.             GOSUB cursolidoff
183.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
184.             curPosX = curPosX + CharWidth
185.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
186.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
187.             GOSUB cursolidon
188.         END IF
189.     END IF 'END INSERT OR TYPE OVER
190.  
191.     '****
192.  
193.     '****
194.  
195.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
196.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL1
197.  
198.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
199.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX '
200.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
201.         GOSUB curon
202.         LL1:
203.     END IF
204.  
205.     '****
206.  
207.     '****
208.  
209.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
210.  
211.         IF insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
212.             GOSUB cursolidoff
213.             curPosX = curPosX - CharWidth
214.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
215.             GOSUB cursolidon
216.         END IF
217.  
218.         IF insertKeyToggle = 0 THEN
219.             GOSUB curoff
220.             curPosX = curPosX - CharWidth
221.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
222.             GOSUB curon
223.         END IF
224.  
225.     END IF 'END LEFT ARROW
226.  
227.     '****
228.  
229.     '****
230.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
231.  
232.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN
233.             insertKeyToggle = 0
234.             GOSUB cursolidoff
235.             curPosX = curPosX + CharWidth
236.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
237.             GOSUB curon
238.             GOTO LL2
239.         END IF
240.  
241.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN
242.             GOSUB cursolidoff
243.             curPosX = curPosX + CharWidth
244.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
245.             GOSUB cursolidon
246.         END IF
247.  
248.         IF insertKeyToggle = 0 THEN
249.             GOSUB curoff
250.             curPosX = curPosX + CharWidth
251.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
252.             GOSUB curon
253.         END IF
254.         LL2:
255.  
256.     END IF 'END RIGHT ARROW
257.     '****
258.  
259.     '****
260.     IF kh = 20480 AND lines + pixelUpDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
261.  
262.         IF insertKeyToggle = 1 THEN
263.             pixelUpDown = pixelUpDown + 1
264.             GOSUB cursolidoff
265.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
266.             _PRINTSTRING (0, lines + pixelUpDown), Text
267.             GOSUB cursolidon
268.         END IF
269.  
270.         IF insertKeyToggle = 0 THEN
271.             pixelUpDown = pixelUpDown + 1
272.             GOSUB curoff
273.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
274.             _PRINTSTRING (0, lines + pixelUpDown), Text
275.             GOSUB curon
276.         END IF
277.     END IF
278.     '**** END DOWN ARROW
279.  
280.     '****
281.     IF kh = 18432 AND lines + pixelUpDown > lines THEN 'UP ARROW
282.  
283.         IF insertKeyToggle = 1 THEN
284.             pixelUpDown = pixelUpDown - 1
285.             GOSUB cursolidoff
286.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
287.             _PRINTSTRING (0, lines + pixelUpDown), Text
288.             GOSUB cursolidon
289.         END IF
290.         IF insertKeyToggle = 0 THEN
291.             pixelUpDown = pixelUpDown - 1
292.             GOSUB curoff
293.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
294.             _PRINTSTRING (0, lines + pixelUpDown), Text
295.             GOSUB curon
296.         END IF
297.     END IF
298.     '**** END UP ARROW
299.  
300. LOOP
301. '****
302.  
303. '****
304. curmouseon:
305. FOR Z = 0 TO CharHeight - 1
306.     newmouseOffset = mouseOffset + Z * _WIDTH
307.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
308.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
309.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
310.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
311.         IF b = 255 AND g = 255 AND r = 255 THEN b = 0: g = 0: r = 255
312.         IF b = 0 AND g = 0 AND r = 0 THEN b = 255: g = 255: r = 0
313.         _MEMPUT M, M.OFFSET + T, b
314.         _MEMPUT M, M.OFFSET + T + 1, g
315.         _MEMPUT M, M.OFFSET + T + 2, r
316.     NEXT T
317. NEXT Z
318. RETURN
319.  
320. '****
321. curmouseoff:
322. FOR Z = 0 TO CharHeight - 1
323.     newmouseOffset = mouseOffset + Z * _WIDTH
324.  
325.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
326.         'locate 100,100: print t
327.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
328.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
329.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
330.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
331.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
332.         _MEMPUT M, M.OFFSET + T, b
333.         _MEMPUT M, M.OFFSET + T + 1, g
334.         _MEMPUT M, M.OFFSET + T + 2, r
335.     NEXT T
336. NEXT Z
337.  
338. RETURN
339.  
340. '****
341. cursolidon: 'Cursor for TYPE OVER mode  - ON
342. FOR Z = 0 TO CharHeight - 1
343.     newcurOffset = curOffset - Z * _WIDTH
344.  
345.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
346.  
347.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
348.         b = b XOR 255
349.         _MEMPUT M, M.OFFSET + T, b
350.  
351.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
352.         g = g XOR 255
353.         _MEMPUT M, M.OFFSET + T + 1, g
354.  
355.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
356.         r = r XOR 0
357.         _MEMPUT M, M.OFFSET + T + 2, r
358.     NEXT T
359.  
360. NEXT Z
361. printPos = curPosX / CharWidth + 1
362. RETURN
363.  
364. '****
365. cursolidoff: 'Cursor for TYPE OVER mode - OFF
366. FOR Z = 0 TO CharHeight
367.     newcurOffset = curOffset - Z * _WIDTH
368.  
369.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
370.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
371.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
372.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
373.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
374.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
375.         _MEMPUT M, M.OFFSET + T, b
376.         _MEMPUT M, M.OFFSET + T + 1, g
377.         _MEMPUT M, M.OFFSET + T + 2, r
378.     NEXT T
379. NEXT Z
380. printPos = curPosX / CharWidth + 1
381. RETURN
382. '****
383.  
384. curon:
385. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
386.     b = 255
387.     _MEMPUT M, M.OFFSET + T, b
388.  
389.     g = 255
390.     _MEMPUT M, M.OFFSET + T + 1, g
391.  
392.     r = 0
393.     _MEMPUT M, M.OFFSET + T + 2, r
394. NEXT T
395. printPos = curPosX / CharWidth + 1
396. RETURN
397.  
398. '****
399. curoff:
400.  
401. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
402.  
403.     b = 0
404.     _MEMPUT M, M.OFFSET + T, b
405.  
406.     g = 0
407.     _MEMPUT M, M.OFFSET + T + 1, g
408.  
409.     r = 0
410.     _MEMPUT M, M.OFFSET + T + 2, r
411. NEXT T
412. printPos = curPosX / CharWidth + 1
413. RETURN

If no one noticed yet,  I don't use the ELSE  statement.  I find it creates far more confusion than it solves. In other words, if you feel inclined to use ELSE, simply change the  code so you DON'T have to use it.

Also there is not one FUNCTION or SUB in my code.  GOSUBS are easier to code  less DIMimg and no overhead. Variables are automatically global.

Title: Re: Another line editor
Post by: Aurel on April 18, 2021, 02:42:08 am

I am wondering ..is there anyone who try to use native windows edit control and made editor.
for more features you can subclass edit control too.

Title: Re: Another line editor
Post by: NOVARSEG on April 19, 2021, 03:24:34 am

Basic mouse select

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM newcurOffset AS _UNSIGNED LONG
7. DIM mouseOffset AS _UNSIGNED LONG
8. DIM newmouseOffset AS _UNSIGNED LONG
9. DIM newSelectOffset AS _UNSIGNED LONG
10. DIM selectOffset AS _UNSIGNED LONG
11.  
12.  
13. DIM CharWidth AS INTEGER
14. DIM printPos AS INTEGER
15. DIM kh AS LONG
16. DIM T1 AS SINGLE
17. DIM F AS _UNSIGNED _BIT
18. DIM F1 AS INTEGER
19.  
20. DIM insertKeyToggle AS _UNSIGNED _BIT
21. DIM pixelUpDown AS INTEGER
22. DIM Text AS STRING
23. DIM X AS INTEGER
24. DIM X1 AS INTEGER
25. DIM Y AS INTEGER
26. DIM X2 AS INTEGER
27. DIM Z AS INTEGER
28.  
29. DIM selectPosLeftX AS INTEGER
30. DIM selectPosTopY AS INTEGER
31. DIM selectPosRightX AS INTEGER
32. DIM selectPosLowY AS INTEGER
33.  
34.  
35. DIM lines AS INTEGER
36. lines = 5 * 16
37.  
38.  
39. Text = "Some text to edit"
40.  
41. Handle = _NEWIMAGE(400, 400, 32)
42. SCREEN Handle
43. DIM M AS _MEM
44. M = _MEMIMAGE(Handle)
45.  
46. DIM r AS _UNSIGNED _BYTE
47. DIM g AS _UNSIGNED _BYTE
48. DIM b AS _UNSIGNED _BYTE
49.  
50. _FULLSCREEN
51.  
52. PRINT
53. PRINT "Move cursor with left / right arrow"
54.  
55. PRINT "Insert / Type over, Append, Delete, Backspace"
56.  
57. PRINT "Move text with up / down arrow. ESC to exit"
58. PRINT
59. PRINT Text
60.  
61. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
62.  
63. CharHeight = _FONTHEIGHT
64. CharWidth = _PRINTWIDTH(CHR$(a))
65.  
66.  
67. curPosX = _PRINTWIDTH(Text)
68. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
69.  
70.  
71. GOSUB curon
72. F = 0
73.  
74.  
75. DO
76.     X = 0
77.     T1 = TIMER
78.     DO
79.  
80.         _LIMIT 1000
81.  
82.         IF _MOUSEINPUT = -1 THEN
83.             X = _MOUSEX
84.             Y = _MOUSEY
85.             IF X < 0 THEN EXIT DO
86.             IF Y < 0 THEN EXIT DO
87.             GOSUB curmouseoff
88.             IF Y + CharHeight < _HEIGHT THEN mouseOffset = Y * _WIDTH + X
89.             GOSUB curmouseon
90.  
91.             IF _MOUSEBUTTON(1) = 0 AND F1 = 1 THEN F1 = 0
92.             ' IF _MOUSEBUTTON(1) = 0 AND F1 = 3 THEN F1 = 0
93.  
94.             IF _MOUSEBUTTON(1) = -1 AND F1 = 1 THEN 'Left mouse button held down to select
95.                 selectPosRightX = X
96.                 selectPosLowY = Y
97.                 GOSUB curSelect
98.             END IF
99.  
100.             IF _MOUSEBUTTON(1) = -1 AND F1 = 0 THEN 'Initial top left position of select block
101.                 F1 = 1
102.                 selectOffset = mouseOffset
103.                 selectPosLeftX = X
104.                 selectPosTopY = Y
105.             END IF
106.  
107.  
108.         END IF
109.  
110.  
111.         kh = _KEYHIT
112.  
113.         IF kh = 20992 AND insertKeyToggle = 0 AND LEN(Text) >= printPos THEN
114.             insertKeyToggle = 1 'TYPEOVER mode
115.             kh = 0
116.             T1 = TIMER
117.             GOSUB curoff
118.             GOSUB cursolidon
119.             F = 0
120.         END IF
121.  
122.         IF kh = 20992 AND insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
123.             insertKeyToggle = 0 'INSERT MODE
124.             kh = 0
125.             T1 = TIMER
126.             GOSUB cursolidoff
127.             GOSUB curon
128.             F = 0
129.         END IF
130.  
131.         IF insertKeyToggle = 1 THEN
132.             IF TIMER - T1 > .3 AND F = 1 THEN
133.                 F = 0
134.                 T1 = TIMER
135.                 GOSUB cursolidon
136.             END IF
137.         END IF
138.  
139.         IF insertKeyToggle = 1 THEN
140.             IF TIMER - T1 > .3 AND F = 0 THEN
141.                 F = 1
142.                 T1 = TIMER
143.                 GOSUB cursolidoff
144.             END IF
145.         END IF
146.  
147.         IF insertKeyToggle = 0 THEN
148.             IF TIMER - T1 > .3 AND F = 0 THEN
149.                 F = 1
150.                 T1 = TIMER
151.                 GOSUB curoff
152.             END IF
153.             IF TIMER - T1 > .3 AND F = 1 THEN
154.                 F = 0
155.                 T1 = TIMER
156.                 GOSUB curon
157.             END IF
158.         END IF
159.  
160.         IF kh > 0 AND insertKeyToggle = 1 THEN GOSUB cursolidon: EXIT DO
161.         IF kh > 0 AND insertKeyToggle = 0 THEN GOSUB curon: EXIT DO
162.     LOOP
163.  
164.  
165.     ' PRINT kh
166.  
167.     IF kh = 27 THEN END
168.  
169.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
170.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL3
171.         GOSUB curoff
172.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
173.         curPosX = curPosX - CharWidth
174.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
175.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
176.         GOSUB curon
177.         LL3:
178.     END IF
179.     '****
180.  
181.     '****
182.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
183.         Text = Text + CHR$(kh)
184.         curPosX = _PRINTWIDTH(Text)
185.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
186.         _PRINTSTRING (0, lines + pixelUpDown), Text
187.         GOSUB curon
188.     END IF
189.     '****
190.  
191.     '****
192.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT TYPE OVER
193.         IF insertKeyToggle = 0 THEN 'INSERT MODE
194.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
195.             curPosX = curPosX + CharWidth
196.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
197.             _PRINTSTRING (0, lines + pixelUpDown), Text
198.             GOSUB curon
199.         END IF
200.  
201.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN 'cursor is pointing to last character
202.             insertKeyToggle = 0
203.             GOSUB cursolidoff
204.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
205.             curPosX = curPosX + CharWidth
206.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
207.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
208.             GOSUB curon
209.         END IF
210.  
211.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN 'cursor is pointing to any char except last char
212.             GOSUB cursolidoff
213.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
214.             curPosX = curPosX + CharWidth
215.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
216.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
217.             GOSUB cursolidon
218.         END IF
219.     END IF 'END INSERT OR TYPE OVER
220.  
221.     '****
222.  
223.     '****
224.  
225.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
226.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL1
227.  
228.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
229.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX '
230.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
231.         GOSUB curon
232.         LL1:
233.     END IF
234.  
235.     '****
236.  
237.     '****
238.  
239.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
240.  
241.         IF insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
242.             GOSUB cursolidoff
243.             curPosX = curPosX - CharWidth
244.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
245.             GOSUB cursolidon
246.         END IF
247.  
248.         IF insertKeyToggle = 0 THEN
249.             GOSUB curoff
250.             curPosX = curPosX - CharWidth
251.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
252.             GOSUB curon
253.         END IF
254.  
255.     END IF 'END LEFT ARROW
256.  
257.     '****
258.  
259.     '****
260.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
261.  
262.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN
263.             insertKeyToggle = 0
264.             GOSUB cursolidoff
265.             curPosX = curPosX + CharWidth
266.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
267.             GOSUB curon
268.             GOTO LL2
269.         END IF
270.  
271.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN
272.             GOSUB cursolidoff
273.             curPosX = curPosX + CharWidth
274.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
275.             GOSUB cursolidon
276.         END IF
277.  
278.         IF insertKeyToggle = 0 THEN
279.             GOSUB curoff
280.             curPosX = curPosX + CharWidth
281.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
282.             GOSUB curon
283.         END IF
284.         LL2:
285.  
286.     END IF 'END RIGHT ARROW
287.     '****
288.  
289.     '****
290.     IF kh = 20480 AND lines + pixelUpDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
291.  
292.         IF insertKeyToggle = 1 THEN
293.             pixelUpDown = pixelUpDown + 1
294.             GOSUB cursolidoff
295.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
296.             _PRINTSTRING (0, lines + pixelUpDown), Text
297.             GOSUB cursolidon
298.         END IF
299.  
300.         IF insertKeyToggle = 0 THEN
301.             pixelUpDown = pixelUpDown + 1
302.             GOSUB curoff
303.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
304.             _PRINTSTRING (0, lines + pixelUpDown), Text
305.             GOSUB curon
306.         END IF
307.     END IF
308.     '**** END DOWN ARROW
309.  
310.     '****
311.     IF kh = 18432 AND lines + pixelUpDown > lines THEN 'UP ARROW
312.  
313.         IF insertKeyToggle = 1 THEN
314.             pixelUpDown = pixelUpDown - 1
315.             GOSUB cursolidoff
316.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
317.             _PRINTSTRING (0, lines + pixelUpDown), Text
318.             GOSUB cursolidon
319.         END IF
320.         IF insertKeyToggle = 0 THEN
321.             pixelUpDown = pixelUpDown - 1
322.             GOSUB curoff
323.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
324.             _PRINTSTRING (0, lines + pixelUpDown), Text
325.             GOSUB curon
326.         END IF
327.     END IF
328.     '**** END UP ARROW
329.  
330. LOOP
331. '****
332.  
333. '****
334. curmouseon:
335. FOR Z = 0 TO CharHeight - 1
336.     newmouseOffset = mouseOffset + Z * _WIDTH
337.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
338.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
339.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
340.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
341.         IF b = 255 AND g = 255 AND r = 255 THEN b = 0: g = 0: r = 255
342.         IF b = 0 AND g = 0 AND r = 0 THEN b = 255: g = 255: r = 0
343.         ' _MEMPUT M, M.OFFSET + T + 100, b
344.         ' _MEMPUT M, M.OFFSET + T + 1 + 100, g
345.         ' _MEMPUT M, M.OFFSET + T + 2 + 100, r
346.  
347.  
348.  
349.         _MEMPUT M, M.OFFSET + T, b
350.         _MEMPUT M, M.OFFSET + T + 1, g
351.         _MEMPUT M, M.OFFSET + T + 2, r
352.     NEXT T
353. NEXT Z
354. RETURN
355.  
356. '****
357. curmouseoff:
358. FOR Z = 0 TO CharHeight - 1
359.     newmouseOffset = mouseOffset + Z * _WIDTH
360.  
361.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
362.         'locate 100,100: print t
363.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
364.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
365.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
366.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
367.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
368.         _MEMPUT M, M.OFFSET + T, b
369.         _MEMPUT M, M.OFFSET + T + 1, g
370.         _MEMPUT M, M.OFFSET + T + 2, r
371.     NEXT T
372. NEXT Z
373.  
374. RETURN
375.  
376. '****
377. cursolidon: 'Cursor for TYPE OVER mode  - ON
378. FOR Z = 0 TO CharHeight - 1
379.     newcurOffset = curOffset - Z * _WIDTH
380.  
381.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
382.  
383.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
384.         b = b XOR 255
385.         _MEMPUT M, M.OFFSET + T, b
386.  
387.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
388.         g = g XOR 255
389.         _MEMPUT M, M.OFFSET + T + 1, g
390.  
391.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
392.         r = r XOR 0
393.         _MEMPUT M, M.OFFSET + T + 2, r
394.     NEXT T
395.  
396. NEXT Z
397. printPos = curPosX / CharWidth + 1
398. RETURN
399.  
400. '****
401. cursolidoff: 'Cursor for TYPE OVER mode - OFF
402. FOR Z = 0 TO CharHeight
403.     newcurOffset = curOffset - Z * _WIDTH
404.  
405.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
406.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
407.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
408.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
409.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
410.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
411.         _MEMPUT M, M.OFFSET + T, b
412.         _MEMPUT M, M.OFFSET + T + 1, g
413.         _MEMPUT M, M.OFFSET + T + 2, r
414.     NEXT T
415. NEXT Z
416. printPos = curPosX / CharWidth + 1
417. RETURN
418. '****
419.  
420. curon:
421. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
422.     b = 255
423.     _MEMPUT M, M.OFFSET + T, b
424.  
425.     g = 255
426.     _MEMPUT M, M.OFFSET + T + 1, g
427.  
428.     r = 0
429.     _MEMPUT M, M.OFFSET + T + 2, r
430. NEXT T
431. printPos = curPosX / CharWidth + 1
432. RETURN
433.  
434. '****
435. curoff:
436.  
437. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
438.  
439.     b = 0
440.     _MEMPUT M, M.OFFSET + T, b
441.  
442.     g = 0
443.     _MEMPUT M, M.OFFSET + T + 1, g
444.  
445.     r = 0
446.     _MEMPUT M, M.OFFSET + T + 2, r
447. NEXT T
448. printPos = curPosX / CharWidth + 1
449. RETURN
450.  
451. curSelect:
452.  
453. FOR Z = 0 TO ABS(selectPosLowY - selectPosTopY) 'select block height
454.     newSelectOffset = selectOffset + Z * _WIDTH
455.     '*                                                            select block width
456.     FOR T = newSelectOffset * 4 TO newSelectOffset * 4 + (ABS(selectPosRightX - selectPosLeftX) * 4) STEP 4
457.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
458.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
459.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
460.         IF b = 255 AND g = 255 AND r = 255 THEN b = 0: g = 0: r = 255
461.         IF b = 0 AND g = 0 AND r = 0 THEN b = 255: g = 255: r = 0
462.         _MEMPUT M, M.OFFSET + T, b
463.         _MEMPUT M, M.OFFSET + T + 1, g
464.         _MEMPUT M, M.OFFSET + T + 2, r
465.     NEXT T
466. NEXT Z
467. RETURN

Title: Re: Another line editor
Post by: NOVARSEG on May 03, 2021, 08:16:57 pm

Basic mouse select with copy / paste feature  The moved text can not be edited yet.

The code shows some uses of MEMGET and MEMPUT. Very useful for selecting areas of the screen and making cursors of any shape or color etc.  Also the basic editing of a single line of text is shown.

FULLSCREEN has no issues with MEMGET or MEMPUT. 

The code does not use the ELSE statement and does not have any SUBS or FUNCTIONS

Lots of gosubs though :)

Code: QB64: [Select]

1. DIM T AS _UNSIGNED LONG
2. DIM Handle AS LONG
3. DIM curWidth AS INTEGER
4. DIM curPosX AS INTEGER
5. DIM curOffset AS _UNSIGNED LONG
6. DIM newcurOffset AS _UNSIGNED LONG
7. DIM mouseOffset AS _UNSIGNED LONG
8. DIM newmouseOffset AS _UNSIGNED LONG
9. DIM newSelectOffset AS _UNSIGNED LONG
10. DIM selectOffset AS _UNSIGNED LONG
11. DIM MoveSelectOffset AS _UNSIGNED LONG
12.  
13. DIM CharWidth AS INTEGER
14. DIM printPos AS INTEGER
15. DIM kh AS LONG
16. DIM T1 AS SINGLE
17. DIM T2 AS _UNSIGNED LONG
18. DIM F AS _UNSIGNED _BIT
19. DIM F1 AS INTEGER
20.  
21. DIM insertKeyToggle AS _UNSIGNED _BIT
22. DIM pixelUpDown AS INTEGER
23. DIM Text AS STRING
24. DIM X AS INTEGER
25. DIM X1 AS INTEGER
26. DIM Y AS INTEGER
27. DIM X2 AS INTEGER
28. DIM Z AS INTEGER
29.  
30. DIM selectPosLeftX AS INTEGER
31. DIM selectPosTopY AS INTEGER
32. DIM selectPosRightX AS INTEGER
33. DIM selectPosLowY AS INTEGER
34.  
35.  
36. DIM lines AS INTEGER
37. lines = 5 * 16
38.  
39.  
40. Text = "Some text to edit"
41.  
42. Handle = _NEWIMAGE(400, 400, 32)
43. SCREEN Handle
44. DIM M AS _MEM
45. M = _MEMIMAGE(Handle)
46.  
47. DIM r AS _UNSIGNED _BYTE
48. DIM g AS _UNSIGNED _BYTE
49. DIM b AS _UNSIGNED _BYTE
50.  
51. _FULLSCREEN
52.  
53. PRINT
54. PRINT "Move cursor with left / right arrow"
55.  
56. PRINT "Insert / Type over, Append, Delete, Backspace"
57.  
58. PRINT "Move text with up / down arrow. ESC to exit"
59. PRINT
60. PRINT Text
61.  
62. curWidth = (_PRINTWIDTH(CHR$(a)) - 2)
63.  
64. CharHeight = _FONTHEIGHT
65. CharWidth = _PRINTWIDTH(CHR$(a))
66.  
67.  
68. curPosX = _PRINTWIDTH(Text)
69. curOffset = _WIDTH * (15 + lines) + curPosX 'initial
70.  
71.  
72. GOSUB curon
73. F1 = 0
74. F = 0
75.  
76. DO
77.     X = 0
78.     T1 = TIMER
79.     DO
80.  
81.         _LIMIT 1000
82.  
83.         IF _MOUSEINPUT = -1 THEN
84.             X = _MOUSEX
85.             Y = _MOUSEY
86.             IF X < 0 THEN EXIT DO
87.             IF Y < 0 THEN EXIT DO
88.             GOSUB curmouseoff
89.             IF Y + CharHeight < _HEIGHT THEN mouseOffset = Y * _WIDTH + X
90.             GOSUB curmouseon
91.  
92.  
93.             IF _MOUSEBUTTON(1) = 0 AND F1 = 3 THEN F1 = 0 'reset back to zero after paste
94.  
95.             IF _MOUSEBUTTON(1) = -1 AND F1 = 2 THEN 'Left mouse button down, pastes image / text
96.                 F1 = 3
97.                 MoveSelectOffset = Y * _WIDTH + X
98.                 GOSUB DropBlock
99.             END IF
100.  
101.             IF _MOUSEBUTTON(1) = 0 AND F1 = 1 THEN F1 = 2 'release left mouse button to get ready for paste
102.  
103.  
104.             IF _MOUSEBUTTON(1) = -1 AND F1 = 1 THEN 'Left mouse button held down to select area
105.                 selectPosRightX = X
106.                 selectPosLowY = Y
107.                 GOSUB curSelect
108.             END IF
109.  
110.             IF _MOUSEBUTTON(1) = -1 AND F1 = 0 THEN 'Initial top left position of select block
111.                 F1 = 1
112.                 selectOffset = Y * _WIDTH + X
113.                 selectPosLeftX = X
114.                 selectPosTopY = Y
115.             END IF
116.  
117.  
118.         END IF
119.  
120.  
121.         kh = _KEYHIT
122.  
123.         IF kh = 20992 AND insertKeyToggle = 0 AND LEN(Text) >= printPos THEN
124.             insertKeyToggle = 1 'TYPEOVER mode
125.             kh = 0
126.             T1 = TIMER
127.             GOSUB curoff
128.             GOSUB cursolidon
129.             F = 0
130.         END IF
131.  
132.         IF kh = 20992 AND insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
133.             insertKeyToggle = 0 'INSERT MODE
134.             kh = 0
135.             T1 = TIMER
136.             GOSUB cursolidoff
137.             GOSUB curon
138.             F = 0
139.         END IF
140.  
141.         IF insertKeyToggle = 1 THEN
142.             IF TIMER - T1 > .3 AND F = 1 THEN
143.                 F = 0
144.                 T1 = TIMER
145.                 GOSUB cursolidon
146.             END IF
147.         END IF
148.  
149.         IF insertKeyToggle = 1 THEN
150.             IF TIMER - T1 > .3 AND F = 0 THEN
151.                 F = 1
152.                 T1 = TIMER
153.                 GOSUB cursolidoff
154.             END IF
155.         END IF
156.  
157.         IF insertKeyToggle = 0 THEN
158.             IF TIMER - T1 > .3 AND F = 0 THEN
159.                 F = 1
160.                 T1 = TIMER
161.                 GOSUB curoff
162.             END IF
163.             IF TIMER - T1 > .3 AND F = 1 THEN
164.                 F = 0
165.                 T1 = TIMER
166.                 GOSUB curon
167.             END IF
168.         END IF
169.  
170.         IF kh > 0 AND insertKeyToggle = 1 THEN GOSUB cursolidon: EXIT DO
171.         IF kh > 0 AND insertKeyToggle = 0 THEN GOSUB curon: EXIT DO
172.     LOOP
173.  
174.  
175.     ' PRINT kh
176.  
177.     IF kh = 27 THEN END
178.  
179.     IF kh = 8 AND curPosX > 0 THEN 'BACKSPACE
180.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL3
181.         GOSUB curoff
182.         Text = LEFT$(Text, printPos - 2) + MID$(Text, printPos, LEN(Text) - (printPos - 1))
183.         curPosX = curPosX - CharWidth
184.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
185.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
186.         GOSUB curon
187.         LL3:
188.     END IF
189.     '****
190.  
191.     '****
192.     IF kh > 31 AND kh < 127 AND LEN(Text) < printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'APPEND
193.         Text = Text + CHR$(kh)
194.         curPosX = _PRINTWIDTH(Text)
195.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
196.         _PRINTSTRING (0, lines + pixelUpDown), Text
197.         GOSUB curon
198.     END IF
199.     '****
200.  
201.     '****
202.     IF kh > 31 AND kh < 127 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) + CharWidth < _WIDTH THEN 'INSERT TYPE OVER
203.         IF insertKeyToggle = 0 THEN 'INSERT MODE
204.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos, LEN(Text) - printPos + 1)
205.             curPosX = curPosX + CharWidth
206.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
207.             _PRINTSTRING (0, lines + pixelUpDown), Text
208.             GOSUB curon
209.         END IF
210.  
211.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN 'cursor is pointing to last character
212.             insertKeyToggle = 0
213.             GOSUB cursolidoff
214.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
215.             curPosX = curPosX + CharWidth
216.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
217.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
218.             GOSUB curon
219.         END IF
220.  
221.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN 'cursor is pointing to any char except last char
222.             GOSUB cursolidoff
223.             Text = LEFT$(Text, printPos - 1) + CHR$(kh) + MID$(Text, printPos + 1, LEN(Text) - (printPos))
224.             curPosX = curPosX + CharWidth
225.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
226.             _PRINTSTRING (0, lines + pixelUpDown), Text + " "
227.             GOSUB cursolidon
228.         END IF
229.     END IF 'END INSERT OR TYPE OVER
230.  
231.     '****
232.  
233.     '****
234.  
235.     IF kh = 21248 AND LEN(Text) >= printPos AND _PRINTWIDTH(Text) <= _WIDTH THEN 'DELETE
236.         IF insertKeyToggle = 1 THEN GOSUB cursolidoff: insertKeyToggle = 0: GOTO LL1
237.  
238.         Text = LEFT$(Text, printPos - 1) + MID$(Text, printPos + 1, LEN(Text) - printPos + 1)
239.         curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX '
240.         _PRINTSTRING (0, lines + pixelUpDown), Text + " "
241.         GOSUB curon
242.         LL1:
243.     END IF
244.  
245.     '****
246.  
247.     '****
248.  
249.     IF kh = 19200 AND curPosX > 0 THEN 'LEFT ARROW
250.  
251.         IF insertKeyToggle = 1 AND LEN(Text) >= printPos THEN
252.             GOSUB cursolidoff
253.             curPosX = curPosX - CharWidth
254.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
255.             GOSUB cursolidon
256.         END IF
257.  
258.         IF insertKeyToggle = 0 THEN
259.             GOSUB curoff
260.             curPosX = curPosX - CharWidth
261.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
262.             GOSUB curon
263.         END IF
264.  
265.     END IF 'END LEFT ARROW
266.  
267.     '****
268.  
269.     '****
270.     IF kh = 19712 AND curPosX < _PRINTWIDTH(Text) AND _PRINTWIDTH(Text) < _WIDTH THEN 'RIGHT ARROW
271.  
272.         IF insertKeyToggle = 1 AND LEN(Text) = printPos THEN
273.             insertKeyToggle = 0
274.             GOSUB cursolidoff
275.             curPosX = curPosX + CharWidth
276.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
277.             GOSUB curon
278.             GOTO LL2
279.         END IF
280.  
281.         IF insertKeyToggle = 1 AND LEN(Text) > printPos THEN
282.             GOSUB cursolidoff
283.             curPosX = curPosX + CharWidth
284.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
285.             GOSUB cursolidon
286.         END IF
287.  
288.         IF insertKeyToggle = 0 THEN
289.             GOSUB curoff
290.             curPosX = curPosX + CharWidth
291.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
292.             GOSUB curon
293.         END IF
294.         LL2:
295.  
296.     END IF 'END RIGHT ARROW
297.     '****
298.  
299.     '****
300.     IF kh = 20480 AND lines + pixelUpDown + CharHeight < _HEIGHT THEN 'DOWN ARROW
301.  
302.         IF insertKeyToggle = 1 THEN
303.             pixelUpDown = pixelUpDown + 1
304.             GOSUB cursolidoff
305.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
306.             _PRINTSTRING (0, lines + pixelUpDown), Text
307.             GOSUB cursolidon
308.         END IF
309.  
310.         IF insertKeyToggle = 0 THEN
311.             pixelUpDown = pixelUpDown + 1
312.             GOSUB curoff
313.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
314.             _PRINTSTRING (0, lines + pixelUpDown), Text
315.             GOSUB curon
316.         END IF
317.     END IF
318.     '**** END DOWN ARROW
319.  
320.     '****
321.     IF kh = 18432 AND lines + pixelUpDown > lines THEN 'UP ARROW
322.  
323.         IF insertKeyToggle = 1 THEN
324.             pixelUpDown = pixelUpDown - 1
325.             GOSUB cursolidoff
326.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
327.             _PRINTSTRING (0, lines + pixelUpDown), Text
328.             GOSUB cursolidon
329.         END IF
330.         IF insertKeyToggle = 0 THEN
331.             pixelUpDown = pixelUpDown - 1
332.             GOSUB curoff
333.             curOffset = _WIDTH * (15 + lines + pixelUpDown) + curPosX
334.             _PRINTSTRING (0, lines + pixelUpDown), Text
335.             GOSUB curon
336.         END IF
337.     END IF
338.     '**** END UP ARROW
339.  
340. LOOP
341. '****
342.  
343. '****
344. curmouseon:
345. FOR Z = 0 TO CharHeight - 1
346.     newmouseOffset = mouseOffset + Z * _WIDTH
347.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
348.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
349.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
350.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
351.         IF b = 255 AND g = 255 AND r = 255 THEN b = 0: g = 0: r = 255
352.         IF b = 0 AND g = 0 AND r = 0 THEN b = 255: g = 255: r = 0
353.         ' _MEMPUT M, M.OFFSET + T + 100, b
354.         ' _MEMPUT M, M.OFFSET + T + 1 + 100, g
355.         ' _MEMPUT M, M.OFFSET + T + 2 + 100, r
356.  
357.  
358.  
359.         _MEMPUT M, M.OFFSET + T, b
360.         _MEMPUT M, M.OFFSET + T + 1, g
361.         _MEMPUT M, M.OFFSET + T + 2, r
362.     NEXT T
363. NEXT Z
364. RETURN
365.  
366. '****
367. curmouseoff:
368. FOR Z = 0 TO CharHeight - 1
369.     newmouseOffset = mouseOffset + Z * _WIDTH
370.  
371.     FOR T = newmouseOffset * 4 TO newmouseOffset * 4 + curWidth * 4 STEP 4
372.         'locate 100,100: print t
373.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
374.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
375.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
376.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
377.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
378.         _MEMPUT M, M.OFFSET + T, b
379.         _MEMPUT M, M.OFFSET + T + 1, g
380.         _MEMPUT M, M.OFFSET + T + 2, r
381.     NEXT T
382. NEXT Z
383.  
384. RETURN
385.  
386. '****
387. cursolidon: 'Cursor for TYPE OVER mode  - ON
388. FOR Z = 0 TO CharHeight - 1
389.     newcurOffset = curOffset - Z * _WIDTH
390.  
391.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
392.  
393.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
394.         b = b XOR 255
395.         _MEMPUT M, M.OFFSET + T, b
396.  
397.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
398.         g = g XOR 255
399.         _MEMPUT M, M.OFFSET + T + 1, g
400.  
401.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
402.         r = r XOR 0
403.         _MEMPUT M, M.OFFSET + T + 2, r
404.     NEXT T
405.  
406. NEXT Z
407. printPos = curPosX / CharWidth + 1
408. RETURN
409.  
410. '****
411. cursolidoff: 'Cursor for TYPE OVER mode - OFF
412. FOR Z = 0 TO CharHeight - 1
413.     newcurOffset = curOffset - Z * _WIDTH
414.  
415.     FOR T = newcurOffset * 4 TO newcurOffset * 4 + curWidth * 4 STEP 4
416.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
417.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
418.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
419.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
420.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
421.         _MEMPUT M, M.OFFSET + T, b
422.         _MEMPUT M, M.OFFSET + T + 1, g
423.         _MEMPUT M, M.OFFSET + T + 2, r
424.     NEXT T
425. NEXT Z
426. printPos = curPosX / CharWidth + 1
427. RETURN
428. '****
429.  
430. curon:
431. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
432.     b = 255
433.     _MEMPUT M, M.OFFSET + T, b
434.  
435.     g = 255
436.     _MEMPUT M, M.OFFSET + T + 1, g
437.  
438.     r = 0
439.     _MEMPUT M, M.OFFSET + T + 2, r
440. NEXT T
441. printPos = curPosX / CharWidth + 1
442. RETURN
443.  
444. '****
445. curoff:
446.  
447. FOR T = curOffset * 4 TO curOffset * 4 + curWidth * 4 STEP 4
448.  
449.     b = 0
450.     _MEMPUT M, M.OFFSET + T, b
451.  
452.     g = 0
453.     _MEMPUT M, M.OFFSET + T + 1, g
454.  
455.     r = 0
456.     _MEMPUT M, M.OFFSET + T + 2, r
457. NEXT T
458. printPos = curPosX / CharWidth + 1
459. RETURN
460. '****
461.  
462. '*****
463. curSelect:
464. FOR Z = 0 TO ABS(selectPosLowY - selectPosTopY) 'select block height
465.     newSelectOffset = selectOffset + Z * _WIDTH
466.     '*                                                            select block width
467.     FOR T = newSelectOffset * 4 TO newSelectOffset * 4 + (ABS(selectPosRightX - selectPosLeftX) * 4) STEP 4
468.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
469.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
470.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
471.         IF b = 255 AND g = 255 AND r = 255 THEN b = 0: g = 0: r = 255
472.         IF b = 0 AND g = 0 AND r = 0 THEN b = 255: g = 255: r = 0
473.         _MEMPUT M, M.OFFSET + T, b
474.         _MEMPUT M, M.OFFSET + T + 1, g
475.         _MEMPUT M, M.OFFSET + T + 2, r
476.     NEXT T
477. NEXT Z
478. RETURN
479. '****
480.  
481. '*****
482. DropBlock:
483. FOR Z = 0 TO ABS(selectPosLowY - selectPosTopY) 'select block height
484.     newSelectOffset = selectOffset + Z * _WIDTH
485.     '*                                                            select block width
486.     FOR T = newSelectOffset * 4 TO newSelectOffset * 4 + (ABS(selectPosRightX - selectPosLeftX) * 4) STEP 4
487.         b = _MEMGET(M, M.OFFSET + T, _UNSIGNED _BYTE)
488.         g = _MEMGET(M, M.OFFSET + T + 1, _UNSIGNED _BYTE)
489.         r = _MEMGET(M, M.OFFSET + T + 2, _UNSIGNED _BYTE)
490.         IF b = 255 AND g = 255 AND r = 0 THEN b = 0: g = 0: r = 0
491.         IF b = 0 AND g = 0 AND r = 255 THEN b = 255: g = 255: r = 255
492.         T2 = T + ((MoveSelectOffset + Z * _WIDTH) - (selectOffset + Z * _WIDTH)) * 4
493.  
494.         _MEMPUT M, M.OFFSET + T2, b
495.         _MEMPUT M, M.OFFSET + T2 + 1, g
496.         _MEMPUT M, M.OFFSET + T2 + 2, r
497.  
498.     NEXT T
499. NEXT Z
500.  
501. RETURN
502.  

Title: Re: Another line editor
Post by: LM on May 08, 2021, 08:09:18 pm

@NOVARSEG
Great work.  I can think of uses for this.  I like it!

Title: Re: Another line editor
Post by: euklides on May 09, 2021, 08:46:26 am

Very big armada for a single input...

Text Only | Text with Attachments