home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / setattu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  330 b   |  20 lines
  1. unit SetAttU;
  2.  
  3. interface
  4. function SetAttr(Blink,Intensity: boolean; FG,BG: integer):byte;
  5.  
  6. implementation
  7.  
  8. function SetAttr;
  9. var Temp:                         byte;
  10. begin
  11. Temp := 0;
  12. if Blink then inc(Temp,128);
  13. if Intensity then inc(Temp,8);
  14. inc(Temp,FG);
  15. Temp := Temp + (BG * 16);
  16. SetAttr := Temp;
  17. end;
  18.  
  19. end.
  20.