home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GEARS.ZIP / ALLUNITS.DOC next >
Encoding:
Text File  |  1980-01-01  |  6.8 KB  |  242 lines
  1. (*****************************************************************************)
  2. (* Unit AllUnits: All Turbo Gears Units                        DOCUMENTATION *)
  3. (*                                                                           *)
  4. (* Copyright 1988, Escape Technologies                                       *)
  5. (*****************************************************************************)
  6.  
  7. Unit AllUnits;
  8.  
  9. Interface
  10.  
  11. Uses Dos,
  12.      Graph;
  13.  
  14. Const IOError:Word = $0;
  15.       Hidden = $2;
  16.       NoAttributes = $0;
  17.       InvalidFunction = $1;
  18.       FileNotFound = $2;
  19.       PathNotFound = $3;
  20.       AccessDenied = $5;
  21.       NoMoreFiles = 18;
  22.       CapsOn = True;
  23.       CapsOff = False;
  24.       NumOn = True;
  25.       NumOff = False;
  26.       InsertOn = True;
  27.       InsertOff = False;
  28.       F1 = #59;
  29.       F2 = #60;
  30.       F3 = #61;
  31.       F4 = #62;
  32.       F5 = #63;
  33.       F6 = #64;
  34.       F7 = #65;
  35.       F8 = #66;
  36.       F9 = #67;
  37.       F10 = #68;
  38.       F11 = #133;
  39.       F12 = #134;
  40.       Home = #71;
  41.       UpArrow = #72;
  42.       PgUp = #73;
  43.       LeftArrow = #75;
  44.       CenterKey = #76;
  45.       RightArrow = #77;
  46.       EndKey = #79;
  47.       DownArrow = #80;
  48.       PgDn = #81;
  49.       Ins = #82;
  50.       Del = #83;
  51.       ShiftF1 = #84;
  52.       ShiftF2 = #85;
  53.       ShiftF3 = #86;
  54.       ShiftF4 = #87;
  55.       ShiftF5 = #88;
  56.       ShiftF6 = #89;
  57.       ShiftF7 = #90;
  58.       ShiftF8 = #91;
  59.       ShiftF9 = #92;
  60.       ShiftF10 = #93;
  61.       ShiftF11 = #135;
  62.       ShiftF12 = #136;
  63.       ShiftTab = #15;
  64.       CtrlF1 = #94;
  65.       CtrlF2 = #95;
  66.       CtrlF3 = #96;
  67.       CtrlF4 = #97;
  68.       CtrlF5 = #98;
  69.       CtrlF6 = #99;
  70.       CtrlF7 = #100;
  71.       CtrlF8 = #101;
  72.       CtrlF9 = #102;
  73.       CtrlF10 = #103;
  74.       CtrlF11 = #137;
  75.       CtrlF12 = #138;
  76.       CtrlPrtSc = #114;
  77.       CtrlHome = #119;
  78.       CtrlUpArrow = #160;
  79.       CtrlPgUp = #132;
  80.       CtrlLeftArrow = #115;
  81.       CtrlRightArrow = #116;
  82.       CtrlEndKey = #117;
  83.       CtrlDownArrow = #164;
  84.       CtrlPgDn = #118;
  85.       CtrlIns = #165;
  86.       CtrlDel = #166;
  87.       AltF1 = #104;
  88.       AltF2 = #105;
  89.       AltF3 = #106;
  90.       AltF4 = #107;
  91.       AltF5 = #108;
  92.       AltF6 = #109;
  93.       AltF7 = #110;
  94.       AltF8 = #111;
  95.       AltF9 = #112;
  96.       AltF10 = #113;
  97.       AltF11 = #139;
  98.       AltF12 = #140;
  99.       AltHome = #174;
  100.       AltUpArrow = #175;
  101.       AltPgUp = #176;
  102.       AltLeftArrow = #178;
  103.       AltRightArrow = #180;
  104.       AltEndKey = #182;
  105.       AltDownArrow = #183;
  106.       AltPgDn = #184;
  107.       AltIns = #185;
  108.       AltDel = #186;
  109.       AltQ = #16;
  110.       AltW = #17;
  111.       AltE = #18;
  112.       AltR = #19;
  113.       AltT = #20;
  114.       AltY = #21;
  115.       AltU = #22;
  116.       AltI = #23;
  117.       AltO = #24;
  118.       AltP = #25;
  119.       AltA = #30;
  120.       AltS = #31;
  121.       AltD = #32;
  122.       AltF = #33;
  123.       AltG = #34;
  124.       AltH = #35;
  125.       AltJ = #36;
  126.       AltK = #37;
  127.       AltL = #38;
  128.       AltZ = #44;
  129.       AltX = #45;
  130.       AltC = #46;
  131.       AltV = #47;
  132.       AltB = #48;
  133.       AltN = #49;
  134.       AltM = #50;
  135.       Alt1 = #120;
  136.       Alt2 = #121;
  137.       Alt3 = #122;
  138.       Alt4 = #123;
  139.       Alt5 = #124;
  140.       Alt6 = #125;
  141.       Alt7 = #126;
  142.       Alt8 = #127;
  143.       Alt9 = #128;
  144.       Alt0 = #129;
  145.       AltMinus = #130;
  146.       AltEquals = #131;
  147.       DSDD=360;
  148.       DSSD=320;
  149.       SSDD=180;
  150.       SSSD=160;
  151.       BadDrive=0;
  152.       BadFormat=1;
  153.       DriveA = 1;
  154.       DriveB = 2;
  155.       DriveC = 3;
  156.       DriveD = 4;
  157.       DriveE = 5;
  158.       CurrentDrive = 0;
  159.       Parallel = 0;
  160.       RS232 = 1;
  161.       Serial = 1;
  162.       Game = 2;
  163.  
  164. Var BoxPoly:Array[1..4] of PointType;
  165.     TriPoly:Array[1..3] of PointType;
  166.  
  167. { Exist Checking and Directory routines }
  168. Function Exist(FileName:String):Boolean;
  169. Procedure MakeDirectory(DirName:String; Attribute:Word);
  170. Procedure HideDirectory(DirName:String);
  171. Procedure CopyFile(InputFile,OutputFile:String);
  172.  
  173. { Filename Manipulation Functions }
  174. Function FilenameOf(Filename:String):String;
  175. Function ExtentionOf(Filename:String):String;
  176.  
  177. { Type Conversions }
  178. Function StrInt(I:Integer):String;                      { Integer to String }
  179. Function StrLong(I:LongInt):String;                     { LongInt to String }
  180. Function StrWord(I:Word):String;                        { Word to String    }
  181. Function StrReal(N:Real; Width,Decimal:Integer):String; { Real to String    }
  182. Function AsciiZ(St:String):String;                      { String to AsciiZ  }
  183. Function LongVal(Ascii:String):LongInt;                 { String to LongInt }
  184. Function IntVal(Ascii:String):Integer;                  { String to Integer }
  185. Function WordVal(Ascii:String):Word;                    { String to Word    }
  186. Function RealVal(St:String):Real;                       { String to Real    }
  187. Function HexStr(I:Integer):String;                      { Decimal to Hex    }
  188.  
  189. { String Case Conversion }
  190. Function StrUpCase(St:String):String;
  191. Function StrLowCase(St:String):String;
  192.  
  193. { String Manipulation }
  194. Function ReversedStr(St:String):String;
  195. Procedure StripLeadSpaces(Var St:String);
  196. Procedure StripTrailSpaces(Var St:String);
  197.  
  198. { Keyboard Input Commands }
  199. Procedure SetLocks(Caps,Num,Insert:Boolean);
  200. Function ScrollLockOn:Boolean;
  201. Function NumLockOn:Boolean;
  202. Function CapsLockOn:Boolean;
  203. Function RightShiftPressed:Boolean;
  204. Function LeftShiftPressed:Boolean;
  205. Function CtrlPressed:Boolean;
  206. Function AltPressed:Boolean;
  207.  
  208. { Disk Format Checking }
  209. Function DiskType(Drive:Word):Integer;
  210.  
  211. { Hardware Detection Commands }
  212. Function Memory:Integer;
  213. Function CardPresent(Card:Byte):Boolean;
  214. Function DiskDrives:Byte;
  215.  
  216. { Drawing Commands }
  217. Procedure DrawBox(X1,Y1,X2,Y2:Integer; Color:Word);
  218. Procedure DrawTriangle(X1,Y1,X2,Y2,X3,Y3:Integer; Color:Word);
  219. Procedure DrawFilledBox(X1,Y1,X2,Y2:Integer; Outline:Boolean);
  220. Procedure DrawFilledTriangle(X1,Y1,X2,Y2,X3,Y3:Integer; Outline:Boolean);
  221. Procedure DrawCircleArc(X,Y,XRadius,StAngle,EndAngle:Integer; Color:Word);
  222. Procedure DrawEllipseArc(X,Y,XRadius,YRadius,StAngle,EndAngle:Integer;
  223.                          Color:Word);
  224. Procedure DrawPieSlice(X,Y,XRadius,StAngle,EndAngle:Integer; Color:Word);
  225. Procedure DrawCircle(X,Y,XRadius:Integer; Color:Word);
  226. Procedure DrawEllipse(X1,Y1,X2,Y2:Integer; Color:Word);
  227. Procedure DrawLine(X1,Y1,X2,Y2:Integer; Color:Word);
  228. Procedure DrawPixel(X,Y:Integer; Color:Word);
  229. Function PixelAt(X,Y:Integer):Boolean;
  230. Function PixelColorAt(X,Y:Integer):Word;
  231.  
  232. { Text Drawing Commands }
  233. Procedure DrawTextXY(X,Y:Integer; Color:Word; WhatToDraw:String);
  234. Procedure DrawText(Color:Word; WhatToDraw:String);
  235. Procedure DrawTextLn(Color:Word; WhatToDraw:String);
  236.  
  237. { Screen Saving and Loading Commands }
  238. Procedure SaveScreen(FileName:String);
  239. Procedure SaveScreenP(FileName:String);
  240. Procedure LoadScreen(FileName:String);
  241. Procedure LoadScreenP(FileName:String; Offset:Byte);
  242.