Subj : Input
To   : Armando Silva
From : Eddy L O Jansson
Date : Tue May 15 2001 11:55 am

AS> Hi Eddy, I just got it and it works great but was wondering about
AS> setting up the colors for this routine. I tried TextColor but
AS> doesn't work at all. Other than that, looks good !

 The whole thing is based around direct screen I/O, so you can forget
 about the CRT library. The input window will inherit whatever colors
 are set for those cells it will occupy. The demo code shows how to set
 up the small arrows in blue:

 { Setup arrow colors. Note: Arrows are placed -outside- the edit window. }
 SetAttrXY(I.X-1,I.Y,113);
 SetAttrXY(I.X+I.Width,I.Y,113);

 In the demo code, the color of the input-field is "inherited" from
 the window set up earlier.

 You can use the DrawHAttr(X,Y,Len,Attribute) function to setup the
 color before calling the input handler, like so:

 DrawHAttr(I.X,I.Y,I.Width,15);  { 15 = bright white on black }
 TInput(I);

 If you really want to use the CRT library functions such as TextColor(),
 you'll have to port my code to use Write() instead of direct screen IO.
 I think I wrote the code with that in mind, you should be able to
 replace my WriteXY(X,Y,Str) with a function that does

 CRT.GotoXY(X,Y);
 CRT.Write(Str);

 And maybe it'll work...

 /%/)+Eddy

---
 * Origin:  (2:203/233)

.