Strange... Clipper => blue color on background and white on foreground. xHarbour=> black on background and white on foreground.
In my console app all gets background colors was changed too. Eduardo --- Em qui, 27/11/08, Miguel Angel Marchuet <[EMAIL PROTECTED]> escreveu: > De: Miguel Angel Marchuet <[EMAIL PROTECTED]> > Assunto: Re: SetColor/Set Intensity problem. > Para: [EMAIL PROTECTED] > Data: Quinta-feira, 27 de Novembro de 2008, 15:50 > I obtain the same results with [x]harbour and clipper 5.3b > > Eduardo Fernandes escribió: > > Miguel, > > > > This sample under Clipper 5.3 shows different result > than xHarbour. > > > > PROCEDURE Main > > LOCAL cOldColor, cNewColor > > > > CLS > > SET INTENSITY ON > > > > cOldColor := SetColor() > > cNewColor := PadR( "W+/N,W+/B", 40 ) > > > > @2,0 SAY "Current color : "+ > cOldColor > > SetColor( cNewColor ) > > @3,0 SAY "Enter new color:" GET > cNewColor > > READ > > > > cNewColor := Trim( cNewColor ) > > SetColor( cNewColor ) > > @4,0 SAY "New color is :" GET > cNewColor > > CLEAR GETS > > > > SetColor( cOldColor ) > > @5,0 SAY "Back to original" > > > > RETURN > > > >> * source\rtl\setcolor.c > >> * source\rtl\tget.prg > >> ! fixed some SetColor function and ColorSpec > data > >> from tget, to be more clipper compatible > >> there are some remaining questions than > can be see > >> at hbtest. > > > > > > > > Veja quais são os assuntos do momento no Yahoo! > +Buscados > > http://br.maisbuscados.yahoo.com > > > > __________ Información de ESET NOD32 Antivirus, > versión de la base de firmas de virus 3645 (20081127) > __________ > > > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > > > > > Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ xHarbour-developers mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/xharbour-developers
