gtwin (winxp-pro+sp3/pellesc) Eduardo
--- Em sex, 28/11/08, Miguel Angel Marchuet <[EMAIL PROTECTED]> escreveu: > De: Miguel Angel Marchuet <[EMAIL PROTECTED]> > Assunto: Re: SetColor/Set Intensity problem. > Para: [EMAIL PROTECTED] > Data: Sexta-feira, 28 de Novembro de 2008, 6:13 > What gt do you use please? > > Eduardo Fernandes escribió: > > 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 > > > > __________ Información de ESET NOD32 Antivirus, > versión de la base de firmas de virus 3647 (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
