tekstkleur in textboxen

[ForNext]

Is het mogelijk om ook de in te voeren tekst in de textboxen in het grafisch venster de kleur "yellow" mee te geven?

'------------------------------------------------------------------------------------
'begin van de listing gekleurde textboxen en gekleurde tekst
'------------------------------------------------------------------------------------

nomainwin

'eerste venster = een dialoog-venster
WindowWidth = 500 : WindowHeight = 200
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/3.0)
BackgroundColor$ = "darkred"
ForegroundColor$ = "yellow"

StaticText #main01 "dit is een rode tekstbox met gele tekst", 150, 18, 300, 18
TextboxColor$ = "red"
Textbox #main01.textbox1, 30, 15,100,25

StaticText #main01 "dit is een blauwe tekstbox met gele tekst", 150, 63, 300, 18
TextboxColor$ = "blue"
Textbox #main01.textbox2, 30, 60,100,25

StaticText #main01 "dit is een groene tekstbox met gele tekst", 150, 108, 300, 18
TextboxColor$ = "darkgreen"
Textbox #main01.textbox3, 30,105,100,25

Open "gekleurde textboxen in een dialoog-venster" for dialog as #main01
#main01 "trapclose [quit]"
#main01 "font verdana 10"

[main01.invoer]
'wacht hier op invoer van het toetsenbord
'Wait

'tweede venster = een grafisch-venster
WindowWidth = 500 : WindowHeight = 200
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/1.5)
'BackgroundColor$ = "darkred"
ForegroundColor$ = "yellow"

TextboxColor$ = "red"
Textbox #main02.textbox1, 30, 15,100,25

TextboxColor$ = "blue"
Textbox #main02.textbox2, 30, 60,100,25

TextboxColor$ = "darkgreen"
Textbox #main02.textbox3, 30,105,100,25

Open "gekleurde textboxen in een grafisch-venster" for graphics_nsb as #main02
#main02 "trapclose [quit]"
#main02 "fill darkred"
#main02 "backcolor darkred"
#main02 "color yellow"
#main02 "font verdana 10"
#main02 "place 150 32"
#main02 "\dit is een rode tekstbox met gele tekst"
#main02 "place 150 78"
#main02 "\dit is een blauwe tekstbox met gele tekst"
#main02 "place 150 124"
#main02 "\dit is een groene tekstbox met gele tekst"

[main02.invoer]
'wacht hier op invoer van het toetsenbord
Wait

[quit]
Close #main01 : Close #main02 : End

'------------------------------------------------------------------------------------
'einde van de listing gekleurde textboxen en gekleurde tekst
'------------------------------------------------------------------------------------

Bij voorbaat dank,
ciao,
Rob

[Gordon]

[ForNext]

Beste Gordon,

Dank voor je reaktie.

Maar mijn vraag is daarmee (nog) niet beantwoord.

Laat ik het anders formuleren. Met behulp van de opdracht ForegroundColor$ = “yellow” worden de teksten in de gekleurde textboxen geel gekleurd. Dat wil zeggen, zolang die textboxen in een dialoog- of window-venster staan (mijn 1e venster).
Echter niet als die gekleurde textboxen in een graphics-venster staan. Er is dan een andere/extra opdracht nodig. En die kan ik niet vinden.
Met de opdracht “color yellow” (of “color 255, 255 , 0 “) in een graphics-venster (mijn 2e venster) worden de teksten in het graphics-venster zelf inderdaad geel gekleurd, maar niet de teksten die je in de al dan niet gekleurde textboxen in het graphics-venster typt. Hierin wijkt het gedrag van een graphics-venster blijkbaar af van dat van een dialoog- of window-venster. Op zich niet onoverkomelijk, maar … waarom?

Overigens dank voor de voorbeeld-listing. Ik koester dergelijke illustratieve listings, omdat ze vaak duidelijker zijn dan een week studeren op de definities in de HelpFile.

Ook ben ik blij met de verwijzing naar de opslagplaats van de oude Nieuwsbrieven. Het wemelt daar van pretprogramma´s, waarmee je – via knippen en plakken – direct aan de slag kunt.

Met allervriendelijkste groeten,
Rob

[Gordon]

Ik ben bang dat ik deze opmerking reeds eerder gezien heb.
Carl heeft laten weten dat een grafisch venster geen normale
Windows control is. Niet alle controls werken goed in een
grafisch venster. Het staat ergens in de helpfile.

Ik zoek nog verder.

Gordon.