index 63a9e5bc113c6569f0cda0a65bcf5bc5d63c9bd6..96513d90755f8abcbe1e5237a36767dd8c45316f 100644 (file)
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
unit e_graphics;
interface
X, Y: Double;
end;
- TRect = record
+ TRectE = record
Left, Top, Right, Bottom: Integer;
end;
PPoint = ^TPoint;
PPoint2f = ^TPoint2f;
- PRect = ^TRect;
+ PRect = ^TRectE;
PRectWH = ^TRectWH;
function _RGB(Red, Green, Blue: Byte): TRGB;
function _Point(X, Y: Integer): TPoint2i;
function _Rect(X, Y: Integer; Width, Height: Word): TRectWH;
-function _TRect(L, T, R, B: LongInt): TRect;
+function _TRect(L, T, R, B: LongInt): TRectE;
//function e_getTextGLId (ID: DWORD): GLuint;
Result.Height := Height;
end;
-function _TRect(L, T, R, B: LongInt): TRect;
+function _TRect(L, T, R, B: LongInt): TRectE;
begin
Result.Top := T;
Result.Left := L;