Hallo Besucher, der Thread wurde 649 mal aufgerufen und enthält 1 Antwort

letzter Beitrag von SkulleateR am

Background color for textwindow ?

  • Ok, since something like PAPER isn't there in Basic 65 I did a little workaround, maybe it's usefull to others ...


    just fill the textwindows with inverted spaces does the trick and in 40Mhz it is fast enough so you don't see the filling :D


    Like this :


    Code
    1. 10 SCNCLR
    2. 20 WINDOW 2,2,10,10
    3. 30 FOREGROUND 4
    4. 40 FOR N=1TO198:PRINTCHR$(18)" ";:NEXT
    5. 50 WINDOW 15,10,55,24
    6. 60 FOREGROUND 20
    7. 70 FOR N=1TO984:PRINTCHR$(18)" ";:NEXT
    8. 80 GETKEY K$
    9. 90 PRINTCHR$(19)CHR$(19):FOREGROUND 1