|
@@ -57,6 +57,9 @@ uses
|
|
crt,
|
|
crt,
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
+ {$IFDEF DELPHILINUX}
|
|
|
|
+ Quick.SyncObjs.Linux.Compatibility,
|
|
|
|
+ {$ENDIF}
|
|
SysUtils,
|
|
SysUtils,
|
|
Quick.Commons,
|
|
Quick.Commons,
|
|
Quick.Log;
|
|
Quick.Log;
|
|
@@ -93,19 +96,22 @@ type
|
|
{$ELSE}
|
|
{$ELSE}
|
|
TOutputProc<T> = procedure(const aLine : T) of object;
|
|
TOutputProc<T> = procedure(const aLine : T) of object;
|
|
TExecuteProc = procedure of object;
|
|
TExecuteProc = procedure of object;
|
|
- {$IFDEF LINUX}
|
|
|
|
- TCoord = record
|
|
|
|
- X : tcrtcoord;
|
|
|
|
- Y : tcrtcoord;
|
|
|
|
- end;
|
|
|
|
-
|
|
|
|
- TSmallRect = record
|
|
|
|
- Left : Byte;
|
|
|
|
- Top : Byte;
|
|
|
|
- Right : Byte;
|
|
|
|
- Bottom : Byte;
|
|
|
|
- end;
|
|
|
|
|
|
+ {$ENDIF}
|
|
|
|
+ {$IF DEFINED(FPCLINUX) OR DEFINED(DELPHILINUX)}
|
|
|
|
+ {$IFDEF DELPHILINUX}
|
|
|
|
+ tcrtcoord = Byte;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
+ TCoord = record
|
|
|
|
+ X : tcrtcoord;
|
|
|
|
+ Y : tcrtcoord;
|
|
|
|
+ end;
|
|
|
|
+
|
|
|
|
+ TSmallRect = record
|
|
|
|
+ Left : Byte;
|
|
|
|
+ Top : Byte;
|
|
|
|
+ Right : Byte;
|
|
|
|
+ Bottom : Byte;
|
|
|
|
+ end;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
|
{$IFDEF MSWINDOWS}
|
|
{$IFDEF MSWINDOWS}
|