forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

move TPoint operator to common unit

This commit is contained in:
Basile Burg 2019-03-15 22:11:15 +01:00
parent cc7f54e894
commit b47c43d38a
2 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/u_common.pas
View File

@ -328,6 +328,14 @@ type
// Converts the delta between two calls to GetTickCount64 to a string indicating a duration.
function formatTicksAsDuration(ticks: UInt64): string;
(**
* Compares two TPoints.
*)
operator = (lhs: TPoint; rhs: TPoint): boolean;
operator > (lhs: TPoint; rhs: TPoint): boolean;
operator < (lhs: TPoint; rhs: TPoint): boolean;
operator <= (lhs: TPoint; rhs: TPoint): boolean;
var
// additional directories to find background tools
additionalPath: string;
@ -337,6 +345,26 @@ var
implementation
operator = (lhs: TPoint; rhs: TPoint): boolean;
begin
exit((lhs.y = rhs.y) and (lhs.x = rhs.x));
end;
operator > (lhs: TPoint; rhs: TPoint): boolean;
begin
exit((lhs.y > rhs.y) or ((lhs.y = rhs.y) and (lhs.x > rhs.x)));
end;
operator < (lhs: TPoint; rhs: TPoint): boolean;
begin
exit(rhs > lhs);
end;
operator <= (lhs: TPoint; rhs: TPoint): boolean;
begin
exit((lhs = rhs) or (lhs < rhs));
end;
function GetIconScaledSize: TIconScaledSize;
var
h : integer;

30
src/u_dlang.pas
View File

@ -5,7 +5,7 @@ unit u_dlang;
interface
uses
Classes, SysUtils, u_dlangutils, u_dlangmaps;
Classes, SysUtils, u_common, u_dlangutils, u_dlangmaps;
type
@ -153,37 +153,9 @@ procedure getImports(list: TLexTokenList; imports: TStrings);
*)
function getIndexOfTokenLeftTo(tokens: TLexTokenList; caretPos: TPoint): integer;
(**
* Compares two TPoints.
*)
operator = (lhs: TPoint; rhs: TPoint): boolean;
operator > (lhs: TPoint; rhs: TPoint): boolean;
operator < (lhs: TPoint; rhs: TPoint): boolean;
operator <= (lhs: TPoint; rhs: TPoint): boolean;
implementation
{$REGION TReaderHead -----------------------------------------------------------}
operator = (lhs: TPoint; rhs: TPoint): boolean;
begin
exit((lhs.y = rhs.y) and (lhs.x = rhs.x));
end;
operator > (lhs: TPoint; rhs: TPoint): boolean;
begin
exit((lhs.y > rhs.y) or ((lhs.y = rhs.y) and (lhs.x > rhs.x)));
end;
operator < (lhs: TPoint; rhs: TPoint): boolean;
begin
exit(rhs > lhs);
end;
operator <= (lhs: TPoint; rhs: TPoint): boolean;
begin
exit((lhs = rhs) or (lhs < rhs));
end;
constructor TReaderHead.Create(const text: PChar; const colAndLine: TPoint);
begin
setReader(text, colAndLine);