mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 15:39:24 +01:00
+ Compatibility checks and code reformatting
This commit is contained in:
michael
parent
ea7ed753c8
commit
01c02d63bb
@ -23,331 +23,362 @@ unit types;
|
||||
{$endif Win32}
|
||||
|
||||
{$ifndef ver1_0}
|
||||
const
|
||||
RT_RCDATA = PChar(10);
|
||||
const
|
||||
RT_RCDATA = PChar(10);
|
||||
|
||||
type
|
||||
DWORD = LongWord;
|
||||
type
|
||||
DWORD = LongWord;
|
||||
|
||||
PLongint = System.PLongint;
|
||||
PInteger = System.PInteger;
|
||||
PSmallInt = System.PSmallInt;
|
||||
PDouble = System.PDouble;
|
||||
PByte = System.PByte;
|
||||
PLongint = System.PLongint;
|
||||
PInteger = System.PInteger;
|
||||
PSmallInt = System.PSmallInt;
|
||||
PDouble = System.PDouble;
|
||||
PByte = System.PByte;
|
||||
|
||||
TIntegerDynArray = array of Integer;
|
||||
TCardinalDynArray = array of Cardinal;
|
||||
TWordDynArray = array of Word;
|
||||
TSmallIntDynArray = array of SmallInt;
|
||||
TByteDynArray = array of Byte;
|
||||
TShortIntDynArray = array of ShortInt;
|
||||
TInt64DynArray = array of Int64;
|
||||
TQWordDynArray = array of QWord;
|
||||
TLongWordDynArray = array of LongWord;
|
||||
TSingleDynArray = array of Single;
|
||||
TDoubleDynArray = array of Double;
|
||||
TBooleanDynArray = array of Boolean;
|
||||
TStringDynArray = array of AnsiString;
|
||||
TWideStringDynArray = array of WideString;
|
||||
{$ifdef Win32}
|
||||
TPoint = Windows.TPoint;
|
||||
{$else}
|
||||
TPoint = packed record
|
||||
X : Longint;
|
||||
Y : Longint;
|
||||
end;
|
||||
{$endif}
|
||||
PPoint = ^TPoint;
|
||||
tagPOINT = TPoint;
|
||||
TIntegerDynArray = array of Integer;
|
||||
TCardinalDynArray = array of Cardinal;
|
||||
TWordDynArray = array of Word;
|
||||
TSmallIntDynArray = array of SmallInt;
|
||||
TByteDynArray = array of Byte;
|
||||
TShortIntDynArray = array of ShortInt;
|
||||
TInt64DynArray = array of Int64;
|
||||
TQWordDynArray = array of QWord;
|
||||
TLongWordDynArray = array of LongWord;
|
||||
TSingleDynArray = array of Single;
|
||||
TDoubleDynArray = array of Double;
|
||||
TBooleanDynArray = array of Boolean;
|
||||
TStringDynArray = array of AnsiString;
|
||||
TWideStringDynArray = array of WideString;
|
||||
|
||||
{$ifdef Win32}
|
||||
TRect = Windows.TRect;
|
||||
TPoint = Windows.TPoint;
|
||||
{$else}
|
||||
TRect = packed record
|
||||
case Integer of
|
||||
0: (Left,Top,Right,Bottom : Longint);
|
||||
1: (TopLeft,BottomRight : TPoint);
|
||||
end;
|
||||
TPoint = packed record
|
||||
X : Longint;
|
||||
Y : Longint;
|
||||
end;
|
||||
{$endif}
|
||||
PRect = ^TRect;
|
||||
PPoint = ^TPoint;
|
||||
tagPOINT = TPoint;
|
||||
|
||||
TSize = packed record
|
||||
cx : Longint;
|
||||
cy : Longint;
|
||||
end;
|
||||
PSize = ^TSize;
|
||||
tagSIZE = TSize;
|
||||
SIZE = TSize;
|
||||
{$ifdef Win32}
|
||||
TRect = Windows.TRect;
|
||||
{$else}
|
||||
TRect = packed record
|
||||
case Integer of
|
||||
0: (Left,Top,Right,Bottom : Longint);
|
||||
1: (TopLeft,BottomRight : TPoint);
|
||||
end;
|
||||
{$endif}
|
||||
PRect = ^TRect;
|
||||
|
||||
TSmallPoint = packed record
|
||||
x : SmallInt;
|
||||
y : SmallInt;
|
||||
end;
|
||||
PSmallPoint = ^TSmallPoint;
|
||||
TSize = packed record
|
||||
cx : Longint;
|
||||
cy : Longint;
|
||||
end;
|
||||
PSize = ^TSize;
|
||||
tagSIZE = TSize;
|
||||
SIZE = TSize;
|
||||
|
||||
type
|
||||
TOleChar = WideChar;
|
||||
POleStr = PWideChar;
|
||||
PPOleStr = ^POleStr;
|
||||
TSmallPoint = packed record
|
||||
x : SmallInt;
|
||||
y : SmallInt;
|
||||
end;
|
||||
PSmallPoint = ^TSmallPoint;
|
||||
|
||||
type
|
||||
TOleChar = WideChar;
|
||||
POleStr = PWideChar;
|
||||
PPOleStr = ^POleStr;
|
||||
|
||||
{$ifndef win32}
|
||||
const
|
||||
STGTY_STORAGE = 1;
|
||||
STGTY_STREAM = 2;
|
||||
STGTY_LOCKBYTES = 3;
|
||||
STGTY_PROPERTY = 4;
|
||||
const
|
||||
|
||||
STREAM_SEEK_SET = 0;
|
||||
STREAM_SEEK_CUR = 1;
|
||||
STREAM_SEEK_END = 2;
|
||||
STGTY_STORAGE = 1;
|
||||
STGTY_STREAM = 2;
|
||||
STGTY_LOCKBYTES = 3;
|
||||
STGTY_PROPERTY = 4;
|
||||
|
||||
LOCK_WRITE = 1;
|
||||
LOCK_EXCLUSIVE = 2;
|
||||
LOCK_ONLYONCE = 4;
|
||||
STREAM_SEEK_SET = 0;
|
||||
STREAM_SEEK_CUR = 1;
|
||||
STREAM_SEEK_END = 2;
|
||||
|
||||
E_FAIL = HRESULT($80004005);
|
||||
LOCK_WRITE = 1;
|
||||
LOCK_EXCLUSIVE = 2;
|
||||
LOCK_ONLYONCE = 4;
|
||||
|
||||
STG_E_INVALIDFUNCTION = HRESULT($80030001);
|
||||
STG_E_FILENOTFOUND = HRESULT($80030002);
|
||||
STG_E_PATHNOTFOUND = HRESULT($80030003);
|
||||
STG_E_TOOMANYOPENFILES = HRESULT($80030004);
|
||||
STG_E_ACCESSDENIED = HRESULT($80030005);
|
||||
STG_E_INVALIDHANDLE = HRESULT($80030006);
|
||||
STG_E_INSUFFICIENTMEMORY = HRESULT($80030008);
|
||||
STG_E_INVALIDPOINTER = HRESULT($80030009);
|
||||
STG_E_NOMOREFILES = HRESULT($80030012);
|
||||
STG_E_DISKISWRITEPROTECTED = HRESULT($80030013);
|
||||
STG_E_SEEKERROR = HRESULT($80030019);
|
||||
STG_E_WRITEFAULT = HRESULT($8003001D);
|
||||
STG_E_READFAULT = HRESULT($8003001E);
|
||||
STG_E_SHAREVIOLATION = HRESULT($80030020);
|
||||
STG_E_LOCKVIOLATION = HRESULT($80030021);
|
||||
STG_E_FILEALREADYEXISTS = HRESULT($80030050);
|
||||
STG_E_INVALIDPARAMETER = HRESULT($80030057);
|
||||
STG_E_MEDIUMFULL = HRESULT($80030070);
|
||||
STG_E_PROPSETMISMATCHED = HRESULT($800300F0);
|
||||
STG_E_ABNORMALAPIEXIT = HRESULT($800300FA);
|
||||
STG_E_INVALIDHEADER = HRESULT($800300FB);
|
||||
STG_E_INVALIDNAME = HRESULT($800300FC);
|
||||
STG_E_UNKNOWN = HRESULT($800300FD);
|
||||
STG_E_UNIMPLEMENTEDFUNCTION = HRESULT($800300FE);
|
||||
STG_E_INVALIDFLAG = HRESULT($800300FF);
|
||||
STG_E_INUSE = HRESULT($80030100);
|
||||
STG_E_NOTCURRENT = HRESULT($80030101);
|
||||
STG_E_REVERTED = HRESULT($80030102);
|
||||
STG_E_CANTSAVE = HRESULT($80030103);
|
||||
STG_E_OLDFORMAT = HRESULT($80030104);
|
||||
STG_E_OLDDLL = HRESULT($80030105);
|
||||
STG_E_SHAREREQUIRED = HRESULT($80030106);
|
||||
STG_E_EXTANTMARSHALLINGS = HRESULT($80030108);
|
||||
STG_E_DOCFILECORRUPT = HRESULT($80030109);
|
||||
STG_E_BADBASEADDRESS = HRESULT($80030110);
|
||||
STG_E_INCOMPLETE = HRESULT($80030201);
|
||||
STG_E_TERMINATED = HRESULT($80030202);
|
||||
E_FAIL = HRESULT($80004005);
|
||||
|
||||
STG_E_INVALIDFUNCTION = HRESULT($80030001);
|
||||
STG_E_FILENOTFOUND = HRESULT($80030002);
|
||||
STG_E_PATHNOTFOUND = HRESULT($80030003);
|
||||
STG_E_TOOMANYOPENFILES = HRESULT($80030004);
|
||||
STG_E_ACCESSDENIED = HRESULT($80030005);
|
||||
STG_E_INVALIDHANDLE = HRESULT($80030006);
|
||||
STG_E_INSUFFICIENTMEMORY = HRESULT($80030008);
|
||||
STG_E_INVALIDPOINTER = HRESULT($80030009);
|
||||
STG_E_NOMOREFILES = HRESULT($80030012);
|
||||
STG_E_DISKISWRITEPROTECTED = HRESULT($80030013);
|
||||
STG_E_SEEKERROR = HRESULT($80030019);
|
||||
STG_E_WRITEFAULT = HRESULT($8003001D);
|
||||
STG_E_READFAULT = HRESULT($8003001E);
|
||||
STG_E_SHAREVIOLATION = HRESULT($80030020);
|
||||
STG_E_LOCKVIOLATION = HRESULT($80030021);
|
||||
STG_E_FILEALREADYEXISTS = HRESULT($80030050);
|
||||
STG_E_INVALIDPARAMETER = HRESULT($80030057);
|
||||
STG_E_MEDIUMFULL = HRESULT($80030070);
|
||||
STG_E_PROPSETMISMATCHED = HRESULT($800300F0);
|
||||
STG_E_ABNORMALAPIEXIT = HRESULT($800300FA);
|
||||
STG_E_INVALIDHEADER = HRESULT($800300FB);
|
||||
STG_E_INVALIDNAME = HRESULT($800300FC);
|
||||
STG_E_UNKNOWN = HRESULT($800300FD);
|
||||
STG_E_UNIMPLEMENTEDFUNCTION = HRESULT($800300FE);
|
||||
STG_E_INVALIDFLAG = HRESULT($800300FF);
|
||||
STG_E_INUSE = HRESULT($80030100);
|
||||
STG_E_NOTCURRENT = HRESULT($80030101);
|
||||
STG_E_REVERTED = HRESULT($80030102);
|
||||
STG_E_CANTSAVE = HRESULT($80030103);
|
||||
STG_E_OLDFORMAT = HRESULT($80030104);
|
||||
STG_E_OLDDLL = HRESULT($80030105);
|
||||
STG_E_SHAREREQUIRED = HRESULT($80030106);
|
||||
STG_E_EXTANTMARSHALLINGS = HRESULT($80030108);
|
||||
STG_E_DOCFILECORRUPT = HRESULT($80030109);
|
||||
STG_E_BADBASEADDRESS = HRESULT($80030110);
|
||||
STG_E_INCOMPLETE = HRESULT($80030201);
|
||||
STG_E_TERMINATED = HRESULT($80030202);
|
||||
|
||||
STG_S_CONVERTED = $00030200;
|
||||
STG_S_BLOCK = $00030201;
|
||||
STG_S_RETRYNOW = $00030202;
|
||||
STG_S_MONITORING = $00030203;
|
||||
STG_S_CONVERTED = $00030200;
|
||||
STG_S_BLOCK = $00030201;
|
||||
STG_S_RETRYNOW = $00030202;
|
||||
STG_S_MONITORING = $00030203;
|
||||
|
||||
GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}';
|
||||
GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}';
|
||||
|
||||
type
|
||||
PCLSID = PGUID;
|
||||
TCLSID = TGUID;
|
||||
type
|
||||
PCLSID = PGUID;
|
||||
TCLSID = TGUID;
|
||||
|
||||
LARGE_INT = Int64;
|
||||
Largeint = LARGE_INT;
|
||||
PDWord = ^DWord;
|
||||
LARGE_INT = Int64;
|
||||
Largeint = LARGE_INT;
|
||||
PDWord = ^DWord;
|
||||
|
||||
PDisplay = Pointer;
|
||||
PEvent = Pointer;
|
||||
PDisplay = Pointer;
|
||||
PEvent = Pointer;
|
||||
|
||||
TXrmOptionDescRec = record
|
||||
end;
|
||||
XrmOptionDescRec = TXrmOptionDescRec;
|
||||
PXrmOptionDescRec = ^TXrmOptionDescRec;
|
||||
TXrmOptionDescRec = record
|
||||
end;
|
||||
XrmOptionDescRec = TXrmOptionDescRec;
|
||||
PXrmOptionDescRec = ^TXrmOptionDescRec;
|
||||
|
||||
Widget = Pointer;
|
||||
WidgetClass = Pointer;
|
||||
ArgList = Pointer;
|
||||
Region = Pointer;
|
||||
Widget = Pointer;
|
||||
WidgetClass = Pointer;
|
||||
ArgList = Pointer;
|
||||
Region = Pointer;
|
||||
|
||||
_FILETIME = packed record
|
||||
dwLowDateTime : DWORD;
|
||||
dwHighDateTime : DWORD;
|
||||
end;
|
||||
TFileTime = _FILETIME;
|
||||
FILETIME = _FILETIME;
|
||||
PFileTime = ^TFileTime;
|
||||
_FILETIME = packed record
|
||||
dwLowDateTime : DWORD;
|
||||
dwHighDateTime : DWORD;
|
||||
end;
|
||||
TFileTime = _FILETIME;
|
||||
FILETIME = _FILETIME;
|
||||
PFileTime = ^TFileTime;
|
||||
|
||||
tagSTATSTG = packed record
|
||||
pwcsName : POleStr;
|
||||
dwType : Longint;
|
||||
cbSize : Largeint;
|
||||
mtime : TFileTime;
|
||||
ctime : TFileTime;
|
||||
atime : TFileTime;
|
||||
grfMode : Longint;
|
||||
grfLocksSupported : Longint;
|
||||
clsid : TCLSID;
|
||||
grfStateBits : Longint;
|
||||
reserved : Longint;
|
||||
end;
|
||||
TStatStg = tagSTATSTG;
|
||||
STATSTG = TStatStg;
|
||||
PStatStg = ^TStatStg;
|
||||
tagSTATSTG = packed record
|
||||
pwcsName : POleStr;
|
||||
dwType : Longint;
|
||||
cbSize : Largeint;
|
||||
mtime : TFileTime;
|
||||
ctime : TFileTime;
|
||||
atime : TFileTime;
|
||||
grfMode : Longint;
|
||||
grfLocksSupported : Longint;
|
||||
clsid : TCLSID;
|
||||
grfStateBits : Longint;
|
||||
reserved : Longint;
|
||||
end;
|
||||
TStatStg = tagSTATSTG;
|
||||
STATSTG = TStatStg;
|
||||
PStatStg = ^TStatStg;
|
||||
|
||||
{$ifdef HASINTF}
|
||||
IClassFactory = Interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}']
|
||||
Function CreateInstance(Const unkOuter : IUnknown;Const riid : TGUID;Out vObject) : HResult;StdCall;
|
||||
Function LockServer(fLock : LongBool) : HResult;StdCall;
|
||||
End;
|
||||
IClassFactory = Interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}']
|
||||
Function CreateInstance(Const unkOuter : IUnknown;Const riid : TGUID;Out vObject) : HResult;StdCall;
|
||||
Function LockServer(fLock : LongBool) : HResult;StdCall;
|
||||
End;
|
||||
|
||||
ISequentialStream = interface(IUnknown) ['{0c733a30-2a1c-11ce-ade5-00aa0044773d}']
|
||||
function Read(pv : Pointer;cb : DWord;pcbRead : PDWord) : HRESULT;stdcall;
|
||||
function Write(pv : Pointer;cb : DWord;pcbWritten : PDWord) : HRESULT;stdcall;
|
||||
end;
|
||||
ISequentialStream = interface(IUnknown) ['{0c733a30-2a1c-11ce-ade5-00aa0044773d}']
|
||||
function Read(pv : Pointer;cb : DWord;pcbRead : PDWord) : HRESULT;stdcall;
|
||||
function Write(pv : Pointer;cb : DWord;pcbWritten : PDWord) : HRESULT;stdcall;
|
||||
end;
|
||||
|
||||
IStream = interface(ISequentialStream) ['{0000000C-0000-0000-C000-000000000046}']
|
||||
function Seek(dlibMove : LargeInt; dwOrigin : Longint;
|
||||
out libNewPosition : LargeInt) : HResult;stdcall;
|
||||
function SetSize(libNewSize : LargeInt) : HRESULT;stdcall;
|
||||
function CopyTo(stm: IStream;cb : LargeInt;out cbRead : LargeInt;
|
||||
out cbWritten : LargeInt) : HRESULT;stdcall;
|
||||
function Commit(grfCommitFlags : Longint) : HRESULT;stdcall;
|
||||
function Revert : HRESULT;stdcall;
|
||||
function LockRegion(libOffset : LargeInt;cb : LargeInt;
|
||||
dwLockType : Longint) : HRESULT;stdcall;
|
||||
function UnlockRegion(libOffset : LargeInt;cb : LargeInt;
|
||||
dwLockType : Longint) : HRESULT;stdcall;
|
||||
Function Stat(out statstg : TStatStg;grfStatFlag : Longint) : HRESULT;stdcall;
|
||||
function Clone(out stm : IStream) : HRESULT;stdcall;
|
||||
end;
|
||||
IStream = interface(ISequentialStream) ['{0000000C-0000-0000-C000-000000000046}']
|
||||
function Seek(dlibMove : LargeInt; dwOrigin : Longint;
|
||||
out libNewPosition : LargeInt) : HResult;stdcall;
|
||||
function SetSize(libNewSize : LargeInt) : HRESULT;stdcall;
|
||||
function CopyTo(stm: IStream;cb : LargeInt;out cbRead : LargeInt;
|
||||
out cbWritten : LargeInt) : HRESULT;stdcall;
|
||||
function Commit(grfCommitFlags : Longint) : HRESULT;stdcall;
|
||||
function Revert : HRESULT;stdcall;
|
||||
function LockRegion(libOffset : LargeInt;cb : LargeInt;
|
||||
dwLockType : Longint) : HRESULT;stdcall;
|
||||
function UnlockRegion(libOffset : LargeInt;cb : LargeInt;
|
||||
dwLockType : Longint) : HRESULT;stdcall;
|
||||
Function Stat(out statstg : TStatStg;grfStatFlag : Longint) : HRESULT;stdcall;
|
||||
function Clone(out stm : IStream) : HRESULT;stdcall;
|
||||
end;
|
||||
{$endif HASINTF}
|
||||
{$endif win32}
|
||||
|
||||
function EqualRect(const r1,r2 : TRect) : Boolean;
|
||||
function Rect(Left,Top,Right,Bottom : Integer) : TRect;
|
||||
function Bounds(ALeft,ATop,AWidth,AHeight : Integer) : TRect;
|
||||
function Point(x,y : Integer) : TPoint;
|
||||
function PtInRect(const Rect : TRect; const p : TPoint) : Boolean;
|
||||
function IntersectRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
|
||||
function UnionRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
|
||||
function IsRectEmpty(const Rect : TRect) : Boolean;
|
||||
function OffsetRect(var Rect : TRect;DX : Integer;DY : Integer) : Boolean;
|
||||
function EqualRect(const r1,r2 : TRect) : Boolean;
|
||||
function Rect(Left,Top,Right,Bottom : Integer) : TRect;
|
||||
function Bounds(ALeft,ATop,AWidth,AHeight : Integer) : TRect;
|
||||
function Point(x,y : Integer) : TPoint;
|
||||
function PtInRect(const Rect : TRect; const p : TPoint) : Boolean;
|
||||
function IntersectRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
|
||||
function UnionRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
|
||||
function IsRectEmpty(const Rect : TRect) : Boolean;
|
||||
function OffsetRect(var Rect : TRect;DX : Integer;DY : Integer) : Boolean;
|
||||
function CenterPoint(const Rect: TRect): TPoint;
|
||||
|
||||
{$endif ver1_0}
|
||||
|
||||
implementation
|
||||
implementation
|
||||
|
||||
{$ifndef ver1_0}
|
||||
function EqualRect(const r1,r2 : TRect) : Boolean;
|
||||
begin
|
||||
EqualRect:=(r1.left=r2.left) and (r1.right=r2.right) and (r1.top=r2.top) and (r1.bottom=r2.bottom);
|
||||
end;
|
||||
|
||||
function Rect(Left,Top,Right,Bottom : Integer) : TRect;
|
||||
begin
|
||||
Rect.Left:=Left;
|
||||
Rect.Top:=Top;
|
||||
Rect.Right:=Right;
|
||||
Rect.Bottom:=Bottom;
|
||||
end;
|
||||
function EqualRect(const r1,r2 : TRect) : Boolean;
|
||||
|
||||
function Bounds(ALeft,ATop,AWidth,AHeight : Integer) : TRect;
|
||||
begin
|
||||
Bounds.Left:=ALeft;
|
||||
Bounds.Top:=ATop;
|
||||
Bounds.Right:=ALeft+AWidth;
|
||||
Bounds.Bottom:=ATop+AHeight;
|
||||
end;
|
||||
begin
|
||||
EqualRect:=(r1.left=r2.left) and (r1.right=r2.right) and (r1.top=r2.top) and (r1.bottom=r2.bottom);
|
||||
end;
|
||||
|
||||
function Point(x,y : Integer) : TPoint;
|
||||
begin
|
||||
Point.x:=x;
|
||||
Point.y:=y;
|
||||
end;
|
||||
|
||||
function PtInRect(const Rect : TRect;const p : TPoint) : Boolean;
|
||||
begin
|
||||
PtInRect:=(p.y>=Rect.Top) and (p.y<Rect.Bottom) and (p.x>=Rect.Left) and (p.x<Rect.Right);
|
||||
end;
|
||||
function Rect(Left,Top,Right,Bottom : Integer) : TRect;
|
||||
|
||||
function IntersectRect(var Rect : TRect;const R1,R2 : TRect) : Boolean;
|
||||
begin
|
||||
Rect:=R1;
|
||||
with R2 do
|
||||
begin
|
||||
if Left>R1.Left then
|
||||
Rect.Left:=Left;
|
||||
if Top>R1.Top then
|
||||
Rect.Top:=Top;
|
||||
if Right<R1.Right then
|
||||
Rect.Right:=Right;
|
||||
if Bottom<R1.Bottom then
|
||||
Rect.Bottom:=Bottom;
|
||||
end;
|
||||
if IsRectEmpty(Rect) then
|
||||
begin
|
||||
FillChar(Rect,SizeOf(Rect),0);
|
||||
IntersectRect:=false;
|
||||
end
|
||||
else
|
||||
IntersectRect:=true;
|
||||
end;
|
||||
begin
|
||||
Rect.Left:=Left;
|
||||
Rect.Top:=Top;
|
||||
Rect.Right:=Right;
|
||||
Rect.Bottom:=Bottom;
|
||||
end;
|
||||
|
||||
function UnionRect(var Rect : TRect;const R1,R2 : TRect) : Boolean;
|
||||
begin
|
||||
Rect:=R1;
|
||||
with R2 do
|
||||
begin
|
||||
if Left<R1.Left then
|
||||
Rect.Left:=Left;
|
||||
if Top<R1.Top then
|
||||
Rect.Top:=Top;
|
||||
if Right>R1.Right then
|
||||
Rect.Right:=Right;
|
||||
if Bottom>R1.Bottom then
|
||||
Rect.Bottom:=Bottom;
|
||||
end;
|
||||
if IsRectEmpty(Rect) then
|
||||
begin
|
||||
FillChar(Rect,SizeOf(Rect),0);
|
||||
UnionRect:=false;
|
||||
end
|
||||
else
|
||||
UnionRect:=true;
|
||||
end;
|
||||
|
||||
function IsRectEmpty(const Rect : TRect) : Boolean;
|
||||
begin
|
||||
IsRectEmpty:=(Rect.Right<=Rect.Left) or (Rect.Bottom<=Rect.Top);
|
||||
end;
|
||||
function Bounds(ALeft,ATop,AWidth,AHeight : Integer) : TRect;
|
||||
|
||||
function OffsetRect(var Rect : TRect;DX : Integer;DY : Integer) : Boolean;
|
||||
begin
|
||||
Bounds.Left:=ALeft;
|
||||
Bounds.Top:=ATop;
|
||||
Bounds.Right:=ALeft+AWidth;
|
||||
Bounds.Bottom:=ATop+AHeight;
|
||||
end;
|
||||
|
||||
|
||||
function Point(x,y : Integer) : TPoint;
|
||||
|
||||
begin
|
||||
Point.x:=x;
|
||||
Point.y:=y;
|
||||
end;
|
||||
|
||||
function PtInRect(const Rect : TRect;const p : TPoint) : Boolean;
|
||||
|
||||
begin
|
||||
PtInRect:=(p.y>=Rect.Top) and
|
||||
(p.y<Rect.Bottom) and
|
||||
(p.x>=Rect.Left) and
|
||||
(p.x<Rect.Right);
|
||||
end;
|
||||
|
||||
|
||||
function IntersectRect(var Rect : TRect;const R1,R2 : TRect) : Boolean;
|
||||
|
||||
begin
|
||||
Rect:=R1;
|
||||
with R2 do
|
||||
begin
|
||||
if Left>R1.Left then
|
||||
Rect.Left:=Left;
|
||||
if Top>R1.Top then
|
||||
Rect.Top:=Top;
|
||||
if Right<R1.Right then
|
||||
Rect.Right:=Right;
|
||||
if Bottom<R1.Bottom then
|
||||
Rect.Bottom:=Bottom;
|
||||
end;
|
||||
if IsRectEmpty(Rect) then
|
||||
begin
|
||||
FillChar(Rect,SizeOf(Rect),0);
|
||||
IntersectRect:=false;
|
||||
end
|
||||
else
|
||||
IntersectRect:=true;
|
||||
end;
|
||||
|
||||
function UnionRect(var Rect : TRect;const R1,R2 : TRect) : Boolean;
|
||||
begin
|
||||
Rect:=R1;
|
||||
with R2 do
|
||||
begin
|
||||
if Left<R1.Left then
|
||||
Rect.Left:=Left;
|
||||
if Top<R1.Top then
|
||||
Rect.Top:=Top;
|
||||
if Right>R1.Right then
|
||||
Rect.Right:=Right;
|
||||
if Bottom>R1.Bottom then
|
||||
Rect.Bottom:=Bottom;
|
||||
end;
|
||||
if IsRectEmpty(Rect) then
|
||||
begin
|
||||
FillChar(Rect,SizeOf(Rect),0);
|
||||
UnionRect:=false;
|
||||
end
|
||||
else
|
||||
UnionRect:=true;
|
||||
end;
|
||||
|
||||
function IsRectEmpty(const Rect : TRect) : Boolean;
|
||||
begin
|
||||
IsRectEmpty:=(Rect.Right<=Rect.Left) or (Rect.Bottom<=Rect.Top);
|
||||
end;
|
||||
|
||||
function OffsetRect(var Rect : TRect;DX : Integer;DY : Integer) : Boolean;
|
||||
begin
|
||||
if assigned(@Rect) then
|
||||
begin
|
||||
with Rect do
|
||||
begin
|
||||
if assigned(@Rect) then
|
||||
begin
|
||||
with Rect do
|
||||
begin
|
||||
inc(Left,dx);
|
||||
inc(Top,dy);
|
||||
inc(Right,dx);
|
||||
inc(Bottom,dy);
|
||||
end;
|
||||
OffsetRect:=true;
|
||||
end
|
||||
else
|
||||
OffsetRect:=false;
|
||||
inc(Left,dx);
|
||||
inc(Top,dy);
|
||||
inc(Right,dx);
|
||||
inc(Bottom,dy);
|
||||
end;
|
||||
OffsetRect:=true;
|
||||
end
|
||||
else
|
||||
OffsetRect:=false;
|
||||
end;
|
||||
|
||||
function CenterPoint(const Rect: TRect): TPoint;
|
||||
|
||||
begin
|
||||
With Rect do
|
||||
begin
|
||||
Result.X:=(Left+Right) div 2;
|
||||
Result.Y:=(Top+Bottom) div 2;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{$endif ver1_0}
|
||||
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.5 2003-10-05 19:10:03 florian
|
||||
Revision 1.6 2004-01-10 19:00:20 michael
|
||||
+ Compatibility checks and code reformatting
|
||||
|
||||
Revision 1.5 2003/10/05 19:10:03 florian
|
||||
* fixed some delphi compatibilty issues
|
||||
|
||||
Revision 1.4 2003/04/24 11:09:36 florian
|
||||
|
||||
Loading…
Reference in New Issue
Block a user