Pagina 1 van 1

Color voor Mainwin ?

BerichtGeplaatst: di maart 24, 2009 5:25 pm
door hbh-tieltjes
Zouw het niet fleurig zijn om je uitvoer naar Mainwin een kleurtje mee te geven.
Daar heb je Graphics voor hoor ik je zeggen, maar dat bedoel ik dus niet.
Kun je een programmatje oproepen zodat ik kleur aan mijn uitvoer naar mainwin kan megeven.
B.V. call.palette of zo iets om daarna te kunnen gebruiken in mijn programma.
voorbeeld
eerst normaal
print "Wat is jouw naam ";
dan Color [tekstkleur,achtergrondkleur]
Input naam$ 'dit in kleur
Color [normaal,normaal]
enz,enz
Kleur geven waar jij dat hebben wil en dat dus in mainwin
Is dit te doen in mijn JB ?

Re: Color voor Mainwin ?

BerichtGeplaatst: wo maart 25, 2009 12:15 pm
door anthonio
Beste herman,

Voor zover ik weet zijn beiden te doen in JB.
Zoek maar eens in de helpfile naar graphical window en graphicbox.
Een beetje experimenteren is de boodschap.
En indien je er niet aan uitgeraakt dan horen we het hier wel.

groeten

Re: Color voor Mainwin ?

BerichtGeplaatst: wo maart 25, 2009 1:41 pm
door hbh-tieltjes
Sorry
Het is juist niet de bedoeling om met Graphics Window of Graphicsbox te werken.
Wil ook geen Graphics Commands maar simpel kleur voor tekst naar mainwin.
Hopelijk is dit duidelijker vr. gr. Herman.

Re: Color voor Mainwin ?

BerichtGeplaatst: wo maart 25, 2009 9:33 pm
door anthonio
ik hoop dat je hier wat aan hebt.

Code: Selecteer alles
nomainwin

WindowWidth = 100
WindowHeight = 100
ForegroundColor$ = "red"
BackgroundColor$ = "black"

statictext #main, "test", 10, 10, 50, 15
open "test" for window as #main
#main, "trapclose [Quit]"
wait

[Quit]
close #main
end

Re: Color voor Mainwin ?

BerichtGeplaatst: wo maart 25, 2009 10:38 pm
door hbh-tieltjes
'Rekenen met STRING$ of liever niet ?
'Maak deze vermenigvuldiging af: 78512 x ..... = .....69776
tijd=time$("ms"):a=78512
for b=10000 to 99999
c=a*b:c$=str$(c)
if mid$(c$,6,5) <> "69776" then [volgende]
print a;" x ";b;" = ";c 'hier b.v. rood
[volgende]
next b
print (time$("ms")-tijd)/1000;" sec."
tijd=time$("ms"):a=78512
for b=10000 to 99999
c=a*b
if c mod 100000 <> 69776 then [next]
print a;" x ";b;" = ";c 'hier b.v. blauw
[next]
next b
print (time$("ms")-tijd)/1000;" sec."
end
'Geef de uitvoer van dit programma een kleurtje mee.
'Geen [nomainwin] geen graphics window-box gebruiken.
'De execution van het prog komt met zwarte tekst op witte achtergrond.
'Deze execution zou ik een door mij bepaalde kleer willen meegeven.
'vr. gr. Herman

Re: Color voor Mainwin ?

BerichtGeplaatst: wo maart 25, 2009 11:11 pm
door anthonio
het kleur van het nomainwin-venster veranderen is volgens mij niet mogelijk.

groeten

Re: Color voor Mainwin ?

BerichtGeplaatst: do maart 26, 2009 10:00 am
door hbh-tieltjes
Heeft iemand een programma of dll geschreven wat oproepbaar is zodat dit wel mogelijk is ?
Ik heb gelezen dat er wel zulke progs zijn voor geluid.
Graag ook nog commentaar op het programmatje.
vr. gr. Herman

Re: Color voor Mainwin ?

BerichtGeplaatst: do maart 26, 2009 12:38 pm
door anthonio
De WMLiberty.dll schijnt de kleuren van vensters te kunnen beinvloeden.
Alleen, hoe krijg je de windowhandle (=hwnd) van je mainwin.
Hierbij helpt de volgende code jou normaal:

Code: Selecteer alles
CallDLL #user32, "GetActiveWindow",_
hMainwin As uLong    'returns handle of MainWin

Re: Color voor Mainwin ?

BerichtGeplaatst: do maart 26, 2009 1:51 pm
door hbh-tieltjes
Geld dit ook voor JB want ik krijg een foutmelding nl sintax error.
Als het wel moet werken kun je dan een voorbeeld prog plaatsen.
vr. gr. Herman

Re: Color voor Mainwin ?

BerichtGeplaatst: do maart 26, 2009 2:47 pm
door anthonio
Hallo herman,

aangezien je een api call moet maken is dit niet mogelijk in JB,
dit is voorbehouden voor LB.
Ik ga nog even verder rondneuzen om te kijken of dit niet mogelijk is
om dit met native commando's te doen maar ik vrees hiervoor.
Wat eventueel een oplossing kan zijn voor jouw probleem is om dit te doen in een texteditor vak.
daarin kan je met behulp van de commando's "ForegroundColor$" en "BackgroundColor$" de kleuren wijzigen.

groeten