Initial import

mdl/m_types.pas

@@ -0,0 +1,54 @@
+{
+  Mystic Software Development Library
+  ===========================================================================
+  File    | M_TYPES.PAS
+  Desc    | Common types used throughout the development library.
+  Created | August 22, 2002
+  ---------------------------------------------------------------------------
+}
+
+Unit m_Types;
+
+{$I M_OPS.PAS}
+
+Interface
+
+{$IFDEF WINDOWS}
+Uses
+  Windows;
+{$ENDIF}
+
+Const
+  {$IFDEF UNIX}
+    PathSep = '/';
+  {$ELSE}
+    PathSep = '\';
+  {$ENDIF}
+
+Type
+  TMenuFormFlagsRec = Set of 1..26;
+
+  {$IFNDEF WINDOWS}
+  TCharInfo = Record
+    Attributes  : Byte;
+    UnicodeChar : Char;
+  End;
+  {$ENDIF}
+
+  TConsoleLineRec   = Array[1..80] of TCharInfo;
+  TConsoleScreenRec = Array[1..50] of TConsoleLineRec;
+
+  TConsoleImageRec  = Record
+    Data    : TConsoleScreenRec;
+    CursorX : Byte;
+    CursorY : Byte;
+    CursorA : Byte;
+    X1      : Byte;
+    X2      : Byte;
+    Y1      : Byte;
+    Y2      : Byte;
+  End;
+
+Implementation
+
+End.