home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Templates / other / Pascal.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-01-11  |  761 b   |  31 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {                                                       }
  4. {                                                       }
  5. {                                                       }
  6. {*******************************************************}
  7.  
  8. unit Utils;
  9.  
  10. interface
  11.  
  12. uses Windows, Classes, Variants, SysUtils, Messages;
  13.  
  14. // color functions
  15. type
  16.   TColor = -$7FFFFFFF-1..$7FFFFFFF;
  17.  
  18. function StrToColor(const S: string): TColor;
  19.  
  20. type
  21.   TPlatform = (plWin32s, plWin95, plWin98, plWinNT, plWin2000);
  22.  
  23. implementation
  24.  
  25. function StrToColor(const S: string): TColor;
  26. begin
  27.   Result := TColor(StrToInt(S));
  28. end;
  29.  
  30. initialization
  31. end.