diff --git a/mdl/m_types.pas b/mdl/m_types.pas new file mode 100644 index 0000000..44e8d50 --- /dev/null +++ b/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.