mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
119 lines
3.5 KiB
ObjectPascal
119 lines
3.5 KiB
ObjectPascal
unit LuaRasterImage;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Graphics, lua, lualib, lauxlib;
|
|
|
|
procedure initializeLuaRasterImage;
|
|
|
|
implementation
|
|
|
|
uses LuaHandler, luaclass, LuaGraphic;
|
|
|
|
function rasterImage_getCanvas(L: PLua_State): integer; cdecl;
|
|
var
|
|
c: TrasterImage;
|
|
begin
|
|
c:=luaclass_getClassObject(L);
|
|
luaclass_newClass(L, c.Canvas);
|
|
result:=1;
|
|
end;
|
|
|
|
function rasterimage_getPixelFormat(L: PLua_State): integer; cdecl;
|
|
var
|
|
c: TrasterImage;
|
|
begin
|
|
c:=luaclass_getClassObject(L);
|
|
lua_pushinteger(L, integer(c.PixelFormat));
|
|
result:=1;
|
|
end;
|
|
|
|
|
|
function rasterimage_setPixelFormat(L: PLua_State): integer; cdecl;
|
|
var
|
|
c: TrasterImage;
|
|
a: integer;
|
|
begin
|
|
result:=0;
|
|
c:=luaclass_getClassObject(L);
|
|
if lua_gettop(L)>=1 then
|
|
c.PixelFormat:=TPixelFormat(lua_tointeger(L,-1));
|
|
end;
|
|
|
|
function rasterimage_getTransparent(L: PLua_State): integer; cdecl; //obsolete
|
|
var
|
|
rasterimage: Trasterimage;
|
|
begin
|
|
rasterimage:=luaclass_getClassObject(L);
|
|
lua_pushboolean(L, rasterimage.Transparent);
|
|
result:=1;
|
|
end;
|
|
|
|
function rasterimage_setTransparent(L: PLua_State): integer; cdecl;
|
|
var
|
|
rasterimage: Trasterimage;
|
|
begin
|
|
result:=0;
|
|
rasterimage:=luaclass_getClassObject(L);
|
|
if lua_gettop(L)=1 then
|
|
rasterimage.Transparent:=lua_toboolean(L, -1);
|
|
end;
|
|
|
|
|
|
function rasterimage_gettransparentColor(L: PLua_State): integer; cdecl;
|
|
var
|
|
c: TrasterImage;
|
|
begin
|
|
c:=luaclass_getClassObject(L);
|
|
lua_pushinteger(L, c.transparentColor);
|
|
result:=1;
|
|
end;
|
|
|
|
|
|
function rasterimage_settransparentColor(L: PLua_State): integer; cdecl;
|
|
var
|
|
c: TrasterImage;
|
|
a: integer;
|
|
begin
|
|
result:=0;
|
|
c:=luaclass_getClassObject(L);
|
|
if lua_gettop(L)>=1 then
|
|
c.transparentColor:=lua_tointeger(L,-1);
|
|
end;
|
|
|
|
procedure rasterimage_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
begin
|
|
graphic_addMetaData(L, metatable, userdata);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getCanvas', rasterImage_getCanvas);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getPixelFormat', rasterimage_getPixelFormat);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'setPixelFormat', rasterimage_setPixelFormat);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getTransparentColor', rasterimage_getTransparentColor);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'setTransparentColor', rasterimage_setTransparentColor);
|
|
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'Canvas', rasterImage_getCanvas, nil);
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'PixelFormat', rasterimage_getPixelFormat, rasterimage_setPixelFormat);
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'TransparentColor', rasterimage_getTransparentColor, rasterimage_setTransparentColor);
|
|
end;
|
|
|
|
|
|
procedure initializeLuaRasterImage;
|
|
begin
|
|
lua_register(LuaVM, 'rasterimage_getCanvas', rasterImage_getCanvas);
|
|
lua_register(LuaVM, 'rasterimage_getPixelFormat', rasterimage_getPixelFormat);
|
|
lua_register(LuaVM, 'rasterimage_setPixelFormat', rasterimage_setPixelFormat);
|
|
lua_register(LuaVM, 'rasterimage_getTransparent', rasterimage_getTransparent); //should be graphic_
|
|
lua_register(LuaVM, 'rasterimage_setTransparent', rasterimage_setTransparent);
|
|
lua_register(LuaVM, 'rasterimage_getTransparentColor', rasterimage_getTransparentColor);
|
|
lua_register(LuaVM, 'rasterimage_setTransparentColor', rasterimage_setTransparentColor);
|
|
end;
|
|
|
|
initialization
|
|
luaclass_register(TrasterImage, rasterImage_addMetaData);
|
|
|
|
|
|
|
|
end.
|
|
|