[fpc-pascal]black on white with Win32

[Noah silva]

Well change it to:

uses crt;

 begin
  {$IFDEF WIN32}
  TextAttr:=$F0;
  {$ELSE}
  textcolor(black);
  textbackground(white);
  {$ENDIF}
  ClrScr;
  WriteLn('black on white?');
  ReadLn;
 end.

Better yet,  The CRT unit for windows could be modified to work with your
trick.  I don't know if it supports textcolor/textbackground at all, but I
assume it could be made to using other textattributes.

thanks,
    Noah Silva

On Wed, 7 Mar 2001, Andreas K. Foerster wrote:

> Hello,
> 
> I found a trick to get black on white in Win32 - but only in Win32:
> 
> uses
> CRT;                                                                                                                                                       
> begin
> {$IFDEF WIN32}
> TextAttr:=$F0;
> {$ENDIF}
> ClrScr;
> WriteLn('black on white?');
> ReadLn;
> end.
> 
> Attention:
> If you would use it under Dos or Linux without the conditional, you
> would get a GRAY background and BLINKING text in textmode!
> With a WIN32-binary it doesn't blink, even when you switch to textmode.
> (I don't know why)
> 
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>