home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / coloriu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  340 b   |  21 lines
  1. unit ColorIU;
  2.  
  3. interface
  4. uses FastWr;
  5. procedure ColorIn( X1,Y1,X2,Y2: integer; Attr: byte);
  6.  
  7. implementation
  8.  
  9. procedure ColorIn;
  10. var       Lngth:          word;
  11.           Row:            integer;
  12. begin
  13. Lngth := X2 - X1 + 1;
  14. for Row := Y1 to Y2 do
  15.     begin
  16.     ChangeAttribute(Lngth, Row, X1, Attr);
  17.     end;
  18. end;
  19.  
  20. end.
  21.