colorful text editor

[zzz000abc]

here is an attempt to make a simple text editor which displays  colored text.
I guees the main problem is  mapping scroll bar position to  row/column numbers and long press of mouse button to detected..So I solved just that problem and full functionality can be enhanced easily but requires little more calculations.Here is the code:

nomainwin
fn$="threePointCircle.bas"
open fn$ for input as#1
s$=input$(#1,lof(#1))
close#1
while word$(s$,nr+1,chr$(10))<>""
nr=nr+1
wend
dim rowlim(5)
WindowWidth=400
WindowHeight=300
sbx=377:sby=10:sbxx=387:sbyy=250
cx=382:cy=20:cr=4
cbc1$=" ;color white;backcolor white ;":cbc2$=" ;color black;backcolor black ;"
cbc3$=";color 0 0 200"
open"colorful"for graphics_nsb as #1
#1,"down;place ";sbx;" ";sby;" ";";box ";sbxx;" ";sbyy;""
#1,"place ";cx;" ";cy;" ";cbc2$;"circlefilled ";cr
#1,"when leftButtonDown [lbd]"
#1,"when leftButtonUp [lbu]"
fr=1:lr=10
if (nr-fr)<10 then lr=nr
call dsp fr,lr,s$
wait
[lbd]
lb=1
[lbd1]
if chkdwn(MouseX,MouseY)=0 then goto[uinput]
if fr+9<nr and cy<240  then fr=fr+1:lr=fr+10
if cy<240 then cy=cy+10
call nodsp fr-1,lr-1,s$
call dsp fr,lr,s$
call cdwn  cx,cy,cr,cbc1$,cbc2$
t1=time$("ms")
timer 200,[wt1]
wait
[wt1]
timer 0
t2=time$("ms")
if lb=1 and (t2-t1)>199 then goto [lbd1]
wait
[lbu]
lb=0
wait
function chkdwn(mx,my)
if mx>377 and mx<387 _
and my>120 and my<250 then _
chkdwn=1 else chkdwn=0
end function
[uinput]
print MouseX,MouseY
wait
sub cdwn x,y,r,t1$,t2$
#1,"place ";x;" ";y-10;" ";t1$;"circlefilled  ";r
#1,"place ";x;" ";y;" ";t2$;"circlefilled  ";r
end sub
sub dsp fr,lr,s$
y=20
#1,"place 10 10;backcolor white;down"
cs$="blue red brown darkgreen"
while fr<lr
k=int(rnd(1)*4)+1
if k<>kk then
#1,"color ";word$(cs$,k)
#1,"place 0 ";y
#1,"|";mid$(word$(s$,fr+1,chr$(10)),1,40)
fr=fr+1:y=y+20
kk=k
end if
wend

end sub
sub nodsp fr,lr,s$
y=20
#1,"place 10 10;backcolor white;down;color white"
while fr<lr
#1,"place 0 ";y
#1,"|";mid$(word$(s$,fr+1,chr$(10)),1,40)
fr=fr+1:y=y+20
wend
end sub


[tsh73]

So it is not quite editor - it cannot edit text.
It displays (colored) text in a graphic window, and allows to scroll it down (if one clicks in bottom half of the scrollbar).
So it's kind of viewer.

Did I miss something?

[B+]

Oh it does scroll down if you click that funny looking thing on right near bottom, how about back up?

It sure makes me appreciate the power of an edit box whenever I try to duplicate it's functionality.




You know, this has me thinking about a scroll-able colored text that you can select for copy and paste somewhere else (just the text), type screen like main window only with color. All you would need is a text array and an array to track colors for each line or even each cell, easy peasy ;-))

[zzz000abc]

Oct 25, 2019 11:52:04 GMT 5.5 tsh73 said:
So it is not quite editor - it cannot edit text.
It displays (colored) text in a graphic window, and allows to scroll it down (if one clicks in bottom half of the scrollbar).
So it's kind of viewer.

Ok tsh untill the editing capabilities are not addedup I agree with you.

Oct 25, 2019 19:04:38 GMT 5.5 B+ said:
Oh it does scroll down if you click that funny looking thing on right near bottom, how about back up?

It sure makes me appreciate the power of an edit box whenever I try to duplicate it's functionality.

you called the scroll bar (ofcourse not fully developed) funny thing ! ?
I guess bye saying backup you are talking about upward movement that black circle, if so here is the answer for backup :
nomainwin
fn$="threePointCircle.bas"
open fn$ for input as#1
s$=input$(#1,lof(#1))
close#1
while word$(s$,nr+1,chr$(10))<>""
nr=nr+1
wend
dim rowlim(5)
WindowWidth=400
WindowHeight=300
sbx=377:sby=10:sbxx=387:sbyy=250
cx=382:cy=20:cr=4
cbc1$=" ;color white;backcolor white ;":cbc2$=" ;color black;backcolor black ;"
cbc3$=";color 0 0 200"
open"colorful"for graphics_nsb as #1
#1,"down;place ";sbx;" ";sby;" ";";box ";sbxx;" ";sbyy;""
#1,"place ";cx;" ";cy;" ";cbc2$;"circlefilled ";cr
#1,"when leftButtonDown [lbd]"
#1,"when leftButtonUp [lbu]"
fr=1:lr=10
if (nr-fr)<10 then lr=nr
call dsp fr,lr,s$
wait
[lbd]
lb=1
[lbd1]
mx=MouseX:my=MouseY
if chkdwn(mx,my)=0 then goto[uinput]
if chkdwn(mx,my)=2 then goto[scrldwn]
[scrlup]
if fr+9<nr and cy<240  then fr=fr+1:lr=fr+10
if cy<240 then cy=cy+10
call nodsp fr-1,lr-1,s$
call dsp fr,lr,s$
call cdwn  cx,cy,cr,cbc1$,cbc2$
goto [lbd2]
wait
[scrldwn]
if lr-9>0 and cy>20  then fr=fr-1:lr=fr+10
if cy>20 then cy=cy-10
call nodsp fr+1,lr+1,s$
call dsp fr,lr,s$
call cup  cx,cy,cr,cbc1$,cbc2$
goto [lbd2]
wait
[lbd2]
t1=time$("ms")
timer 200,[wt1]
wait
[wt1]
timer 0
t2=time$("ms")
if lb=1 and (t2-t1)>199 then goto [lbd1]
wait
[lbu]
lb=0
wait
function chkdwn(mx,my)
 if mx>377 and mx<387 then
       if  my>120 and my<250 then chkdwn=1 else chkdwn=2
   else
       chkdwn=0
 end if
end function
[uinput]
print MouseX,MouseY
wait
sub cdwn x,y,r,t1$,t2$
#1,"place ";x;" ";y-10;" ";t1$;"circlefilled  ";r
#1,"place ";x;" ";y;" ";t2$;"circlefilled  ";r
end sub
sub cup x,y,r,t1$,t2$
#1,"place ";x;" ";y+10;" ";t1$;"circlefilled  ";r
#1,"place ";x;" ";y;" ";t2$;"circlefilled  ";r
end sub
sub dsp fr,lr,s$
y=20
#1,"place 10 10;backcolor white;down"
cs$="blue red brown darkgreen"
while fr<lr
k=int(rnd(1)*4)+1
if k<>kk then
#1,"color ";word$(cs$,k)
#1,"place 0 ";y
#1,"|";mid$(word$(s$,fr+1,chr$(10)),1,40)
fr=fr+1:y=y+20
kk=k
end if
wend

end sub
sub nodsp fr,lr,s$
y=20
#1,"place 10 10;backcolor white;down;color white"
while fr<lr
#1,"place 0 ";y
#1,"|";mid$(word$(s$,fr+1,chr$(10)),1,40)
fr=fr+1:y=y+20
wend
end sub


[B+]

Yep! You got it to go back up, nice. If that is hand drawn scroll bar, you might make it a little wider and more box like or maybe you could use a scroll bar control?