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)

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

Noah silva wrote

Well change it to:

[...]

textbackground(white);

[...]

That doesn't work. It sets a lightgray background (on any system). That's why I had to do the trick.

I don't know if it supports textcolor/textbackground at all,

It supports it as on any other platform.
Just the "blink"-bit leads to highlight background - that is, what I used in the trick.

BTW. under Linux black on white is the standard when startet in an xterm.