index 63a9e5bc113c6569f0cda0a65bcf5bc5d63c9bd6..c9a16c2dfbfd776b7f4f5526f8f18c08514964d1 100644 (file)
* 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;