Another line editor

[NOVARSEG]

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.  

[NOVARSEG]

A blinking cursor would be nice.  Need ideas

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

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.  

[NOVARSEG]

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.  

[bplus]

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?

[NOVARSEG]

@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




   

[NOVARSEG]

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.  

[euklides]

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...

[NOVARSEG]

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.  

[euklides]

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 !!!

[NOVARSEG]

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.

[NOVARSEG]

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

[bplus]

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

[NOVARSEG]

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.

[NOVARSEG]

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.

[Aurel]

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.