denuvo-ref/cheat-engine
1
0
Fork 0
mirror of https://github.com/cheat-engine/cheat-engine synced 2026-08-15 02:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
cheat-engine/Cheat Engine/frmluaengineunit.pas

1188 lines
27 KiB
ObjectPascal
Raw Blame History

unit frmLuaEngineUnit;
{$mode delphi}
interface
uses
windows, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, StdCtrls, Menus, ExtCtrls, SynMemo, SynCompletion, SynEdit, lua,
lauxlib, lualib, LuaSyntax, luahandler, cefuncproc, strutils, InterfaceBase,
ComCtrls, SynGutterBase, SynEditMarks, PopupNotifier, ActnList,
SynEditHighlighter, AvgLvlTree, math;
type
{ TfrmLuaEngine }
TfrmLuaEngine = class(TForm)
btnExecute: TButton;
FindDialog1: TFindDialog;
GroupBox1: TGroupBox;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
miResizeOutput: TMenuItem;
miSetBreakpoint: TMenuItem;
miRun: TMenuItem;
miSingleStep: TMenuItem;
ToolButton1: TToolButton;
tbStopDebug: TToolButton;
tShowHint: TIdleTimer;
ilLuaDebug: TImageList;
ilSyneditDebug: TImageList;
MainMenu1: TMainMenu;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
miView: TMenuItem;
cbShowOnPrint: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
mOutput: TMemo;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
mScript: TSynEdit;
OpenDialog1: TOpenDialog;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
pmEditor: TPopupMenu;
dlgReplace: TReplaceDialog;
SaveDialog1: TSaveDialog;
Splitter1: TSplitter;
tbDebug: TToolBar;
tbRun: TToolButton;
tbSingleStep: TToolButton;
procedure btnExecuteClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure dlgReplaceFind(Sender: TObject);
procedure dlgReplaceReplace(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure MenuItem10Click(Sender: TObject);
procedure MenuItem11Click(Sender: TObject);
procedure MenuItem13Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure MenuItem7Click(Sender: TObject);
procedure MenuItem8Click(Sender: TObject);
procedure MenuItem9Click(Sender: TObject);
procedure miResizeOutputClick(Sender: TObject);
procedure miSetBreakpointClick(Sender: TObject);
procedure mScriptChange(Sender: TObject);
procedure mScriptGutterClick(Sender: TObject; X, Y, Line: integer;
mark: TSynEditMark);
procedure mScriptKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
procedure mScriptMouseEnter(Sender: TObject);
procedure mScriptMouseLeave(Sender: TObject);
procedure mScriptMouseLink(Sender: TObject; X, Y: Integer;
var AllowMouseLink: Boolean);
procedure mScriptMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure mScriptShowHint(Sender: TObject; HintInfo: PHintInfo);
procedure Panel2Resize(Sender: TObject);
procedure tbRunClick(Sender: TObject);
procedure tbSingleStepClick(Sender: TObject);
procedure tbStopDebugClick(Sender: TObject);
procedure tShowHintTimer(Sender: TObject);
private
{ private declarations }
hintwindow:THintWindow;
continuemethod: integer;
public
{ public declarations }
synhighlighter: TSynLuaSyn;
end;
var
frmLuaEngine: TfrmLuaEngine;
implementation
{ TfrmLuaEngine }
uses luaclass;
resourcestring
rsError = 'Script Error';
rsLEErrorInLine = 'Error in line ';
rsLEUndefinedError = 'Undefined error';
rsLEOnlyOneScriptCanBeDebuggedAtATimeEtc = 'Only one script can be debugged at a time. Continue executing this script without the debugger?';
rsLEUserClickedStop = 'User clicked stop';
var
LuaDebugForm: TfrmLuaEngine;
LuaDebugSingleStepping: boolean;
LuaDebugInfo: Plua_Debug;
LuaDebugVariables: TStringToStringTree;
LuaDebugSource: pointer;
procedure TfrmLuaEngine.Panel2Resize(Sender: TObject);
begin
btnexecute.Height:=panel2.clientheight-(2*btnexecute.top);
end;
procedure TfrmLuaEngine.tbRunClick(Sender: TObject);
begin
if tbdebug.visible and tbrun.enabled and tbrun.visible then
begin
continuemethod:=1;
tbDebug.enabled:=false;
tbRun.enabled:=false;
tbSingleStep.enabled:=false;
tbStopDebug.enabled:=false;
end
else
begin
if btnExecute.enabled then
btnExecute.click;
end;
end;
procedure TfrmLuaEngine.tbSingleStepClick(Sender: TObject);
begin
if tbdebug.visible and tbSingleStep.Enabled and tbSingleStep.Visible then
begin
continuemethod:=2;
tbDebug.enabled:=false;
tbRun.enabled:=false;
tbSingleStep.enabled:=false;
tbStopDebug.enabled:=false;
end;
end;
procedure TfrmLuaEngine.tbStopDebugClick(Sender: TObject);
begin
if tbdebug.visible and tbStopDebug.Enabled and tbStopDebug.Visible then
begin
continuemethod:=3;
tbDebug.enabled:=false;
tbRun.enabled:=false;
tbSingleStep.enabled:=false;
tbStopDebug.enabled:=false;
end;
end;
function findToken(s: string; var start: integer):string;
var i: integer;
begin
for i:=start to length(s) do
begin
if (i<length(s)) and (s[i] in ['a'..'z','A'..'Z','0'..'9','_']) then
continue
else
begin
if i=length(s) then
result:=copy(s, start, i-start+1)
else
result:=copy(s, start, i-start);
start:=i;
break;
end;
end;
end;
function getObject(s: string): boolean;
var
index: integer;
token: string;
nextArray: boolean;
name: pchar;
i: integer;
begin
result:=false;
//parse through the string's tokens.
//first find the first token and look it up in the local and global tables
index:=1;
nextArray:=false;
token:=findToken(s, index);
i:=1;
repeat //lookup in the local's
name:=lua_getlocal(Luavm, LuaDebugInfo, i);
if name<>nil then
begin
if (name=token) then
begin
result:=true;
break; //leave the value on the stack
end
else
begin
lua_pop(LuaVM, 1);
inc(i);
end;
end;
until name=nil;
if result=false then
begin
//try global
lua_getglobal(luavm, pchar(token));
if lua_isnil(LuaVM,-1) then
lua_pop(luavm, 1)
else
result:=true; //keep this object in the stack
end;
if not result then exit; //nothing found
while index<length(s) do
begin
if s[index]='[' then
begin
//handle an array element access. Not implemented right now. Stuff that should work if implemented: x.y[123+bla[12+x[67]]].xxx
lua_pop(luavm,1); //remove the last object
result:=false;
exit; //fail
end;
if s[index]='.' then
inc(index);
token:=findToken(s,index);
//query the current object at the top of the stack for this field
i:=lua_gettop(Luavm);
lua_pushstring(luavm, token);
lua_gettable(luavm, i);
if lua_isnil(Luavm,-1) then
begin
result:=false; //nil
lua_pop(luavm,2); //pop of this nil value, and the previous object
exit;
end;
//still here so an object has been pushed on the stack
lua_remove(luavm, i); //not needed anymore
end;
end;
procedure TfrmLuaEngine.tShowHintTimer(Sender: TObject);
var r: trect;
description: string;
p,p2,p3: tpoint;
token: string;
attr: TSynHighlighterAttributes;
o: TObject;
stop, start: integer;
i: integer;
line: string;
s: string;
found: boolean;
foundcount: integer; //the number of pops needed to balance the stack
begin
if (LuaDebugForm=self) and (GetForegroundWindow=handle) then
begin
//figure out what is currently focused by the mouse
p:=mouse.cursorpos;
p2:=mScript.ScreenToClient(p);
if p2.x<mscript.Gutter.Width then exit; //gutter stuff
p3:=mscript.PixelsToLogicalPos(p2);
mscript.GetHighlighterAttriAtRowCol(p3, token, attr);
if (attr=synhighlighter.IdentifierAttri) or (attr=synhighlighter.KeyAttri) then
begin
line:=mscript.lines[p3.y-1];
mscript.GetWordBoundsAtRowCol(p3, start, stop);
// token:=mscript.GetWordAtRowCol(p3);
//find the actual start
for i:=p3.x downto 1 do
begin
if i=1 then
begin
if line[1] in ['a'..'z','A'..'Z','0'..'9','_','[',']','''','"','.'] then
start:=1
else
start:=2;
break;
end;
if line[i] in ['a'..'z','A'..'Z','0'..'9','_','[',']','''','"','.'] then
continue
else
begin
start:=i+1;
break;
end;
end;
//and stop (else bla~= will be seen as bla~)
while (stop>start) do
if line[stop-1] in ['a'..'z','A'..'Z','0'..'9','_','[',']','''','"','.'] then
break
else
dec(stop);
token:=copy(line,start, stop-start);
if getObject(token) then
begin
description:=LuaValueToDescription(LuaVM, -1);
lua_pop(Luavm,1);
end
else
description:='nil';
//parse the first word and find out if it's a global or local start
//token:=findToken(line, start);
{
if length(token)>1 then
begin
if token[length(token)] = '~' then //~ is not part of the token...
token:=copy(token, 1, length(token)+1);
end;
mscript.GetWordBoundsAtRowCol(p3, start, stop);
if (start>1) and (line[start-1]='.') then //check if it starts with a . and if so, do table lookups using the parent(s)
begin
last:=start-2;
for i:=start-2 downto 1 do //trace back till you find the start of the line or a seperator
begin
if i=1 then
begin
s:=copy(line, 1, last);
path.Insert(0, s);
end;
if line[i] in ['a'..'z','A'..'Z','0'..'9','_'] then
continue;
if line[i]='.' then
begin
s:=copy(line, i+1, last-i);
path.Insert(0, s);
last:=i-1;
end
else
if line[i]=']' then
begin
//array element encounterd
end
else
break; //seperator encountered
end;
end;
token:='';
description:='nil';
foundcount:=0;
for i:=0 to path.Count-1 do
begin
if token='' then
token:=path[i]
else
token:=token+'.'+path[i];
found:=false;
if i=0 then //get it from global or local
begin
repeat
name:=lua_getlocal(L, ar, i);
if name<>nil then
begin
if (name=path[0]) then
begin
found:=true;
break;
end
else
begin
lua_pop(L, 1);
inc(i);
end;
end;
until name=nil;
if not found then
begin
//try global
lua_getfield(LuaVM, LUA_GLOBALSINDEX, pchar(path[0]));
if lua_isnil(LuaVM,-1) then
lua_pop(luavm, 1)
else
found:=true; //keep this object in the stack
if not found then
break;
end;
if found then
inc(foundcount);
end;
if foundcount>0 then
begin
if i=path.count-1 then
begin
//last one
description:=LuaValueToDescription(LuaVM, -1);
end
else
begin
//get more paths
lua_getfield();
end;
end;
//description:=LuaDebugVariables[token];
if description='' then //check if it's a global
begin
//look up
LuaCS.Enter;
try
lua_getfield(LuaVM, LUA_GLOBALSINDEX, pchar(token));
if lua_isnil(LuaVM,-1) then
description:='nil'
else
description:=LuaValueToDescription(LuaVM, -1)+' (global)';
lua_pop(luavm, 1);
finally
luacs.Leave;
end;
if description='' then
begin
description:=' ';
LuaDebugVariables.Add(token, description); //could not be found
end;
end;
end;
path.free; }
if description=' ' then
begin
//means nothing was found
exit;
end;
if hintwindow=nil then
hintwindow:=THintWindow.Create(self);
description:=token+' = '+description;
r:=hintwindow.CalcHintRect(mscript.width, description, nil);
r.Top:=r.top+p.y;
r.Left:=r.left+p.x;
r.Right:=r.right+p.x;
r.Bottom:=r.Bottom+p.y;
hintwindow.ActivateHint(r, description);
end;
end;
// mScript.ShowHint:=;
end;
function onerror(L: PLua_State): integer; cdecl;
var ld: lua_Debug;
frm: TfrmLuaEngine;
r: integer;
t: integer;
begin
//todo: Try to get this to work (might be a lua bug)
{
result:=0;
frm:=luaclass_getClassObject(L);
t:=lua_gettop(L);
ZeroMemory(@ld, sizeof(ld));
r:=lua_getstack(L, 1, @ld);
if r=1 then
begin
lua_getinfo(L, '>l', @ld);
lua_pushstring(L, rsLEErrorInLine+inttostr(ld.currentline));
end
else
lua_pushstring(L, rsLEUndefinedError);
}
result:=1;
end;
function hasLuaBreakpoint(linenumber: integer): boolean;
begin
result:=LuaDebugSingleStepping or (LuaDebugForm.mScript.Marks.Line[linenumber]<>nil);
end;
procedure LineHook_Handler(L: Plua_State; ar: Plua_Debug);
var i,j: integer;
s,s2: integer;
mark: TSynEditMark;
name: pchar;
value: string;
stack: integer;
begin
LuaDebugForm.continuemethod:=0;
if MainThreadID<>GetCurrentThreadId then
begin
//Only the main thread can be debugged for now
exit;
end;
if lua_getinfo(L,'nSl', ar)<>0 then
begin
if LuaDebugSource=nil then
LuaDebugSource:=ar.source;
if (ar.source=LuaDebugSource) and (hasLuaBreakpoint(ar.currentline)) then
begin
//break
// frmLuaEngine.visible:=false;
// frmLuaEngine.ShowModal;
// frmLuaEngine.show;
LuaDebugForm.show;
LuaDebugForm.SetFocus;
if LuaDebugForm.mScript.Marks.Line[ar.currentline]<>nil then
begin
//update the icon for the current line
if LuaDebugForm.mScript.Marks.Line[ar.currentline][0].ImageIndex = 0 then
LuaDebugForm.mScript.Marks.Line[ar.currentline][0].ImageIndex:=2;
end
else
begin
mark:=TSynEditMark.Create(LuaDebugForm.mscript);
mark.line:=ar.currentline;
mark.ImageList:=LuaDebugForm.ilSyneditDebug;
mark.ImageIndex:=1;
mark.Visible:=true;
LuaDebugForm.mscript.Marks.Add(mark);
end;
LuaDebugForm.show;
//activate the debug gui
LuaDebugForm.tbDebug.Visible:=true;
LuaDebugForm.tbDebug.enabled:=true;
LuaDebugForm.tbRun.enabled:=true;
LuaDebugForm.tbSingleStep.enabled:=true;
LuaDebugForm.tbStopDebug.enabled:=true;
LuaDebugForm.mScript.ReadOnly:=true;
LuaDebugForm.mScript.CaretY:=ar.currentline;
LuaDebugForm.mScript.EnsureCursorPosVisible;
LuaDebugForm.continuemethod:=0;
LuaDebugInfo:=ar;
LuaDebugVariables:=TStringToStringTree.Create(true);
i:=1;
repeat
name:=lua_getlocal(L, ar, i);
if name<>nil then
begin
if copy(name,1,1)<>'(' then //(*temporary)
begin
value:=LuaValueToDescription(L, -1)+' (local)';
LuaDebugVariables.Add(name, value);
end;
lua_pop(L, 1);
inc(i);
end;
until name=nil;
while LuaDebugForm.continuemethod=0 do
begin
try
application.ProcessMessages;
except
if Application.CaptureExceptions then
Application.HandleException(LuaDebugForm)
else
raise;
end;
if application.Terminated or (LuaDebugForm.Visible=false) then break;
application.Idle(true);
end;
if application.Terminated then
ExitProcess(UINT(-1)); //there's nothing to return to...
LuaDebugForm.mScript.ReadOnly:=false;
//clear the current instruction pointer
if LuaDebugForm.mScript.Marks.Line[ar.currentline]<>nil then
begin
if LuaDebugForm.mScript.Marks.Line[ar.currentline][0].ImageIndex = 2 then //bp with the current bp set
LuaDebugForm.mScript.Marks.Line[ar.currentline][0].ImageIndex:=0 //set back to normal bp
else
LuaDebugForm.mScript.Marks.Line[ar.currentline][0].Free; //clear bp
end;
LuaDebugSingleStepping:=false;
end;
// frmLuaEngine.moutput.lines.add('called:'+ar.what+' ('+inttostr(ar.currentline)+')');
end;
end;
procedure LineHook(L: Plua_State; ar: Plua_Debug); cdecl;
begin
LineHook_Handler(L, ar);
case LuaDebugForm.continuemethod of
1: ;//continue (normal bp's only)
2: LuaDebugSingleStepping:=true; //single step next instruction
3:
begin
//lua_sethook(L, linehook, 0, 0);
lua_pushstring(L, rsLEUserClickedStop);
lua_error(L);
end;
end;
end;
procedure TfrmLuaEngine.btnExecuteClick(Sender: TObject);
var pc: pchar;
i,j: integer;
oldprintoutput: Tstrings;
c: tobject;
err: integer;
oldstack: integer;
dodebug: boolean;
begin
dodebug:=false;
for i:=0 to mScript.Marks.Count-1 do
if mscript.Marks[i].ImageIndex=0 then
begin
dodebug:=true;
break;
end;
if dodebug then
begin
if LuaDebugForm=nil then
begin
for i:=0 to mScript.Marks.Count-1 do
if mscript.Marks[i].ImageIndex=0 then
begin
//this script wishes to get debugged
dodebug:=true;
LuaDebugForm:=self;
LuaDebugSingleStepping:=false;
LuaDebugSource:=nil;
LuaDebugForm.btnExecute.enabled:=false;
mscript.OnMouseEnter:=mScriptMouseEnter;
mscript.OnMouseLeave:=mScriptMouseLeave;
if LuaDebugVariables<>nil then
LuaDebugVariables.Clear;
break;
end;
end
else
begin
dodebug:=false;
if MessageDlg(rsLEOnlyOneScriptCanBeDebuggedAtATimeEtc, mtConfirmation, [mbyes, mbno], 0)<>mryes then exit;
end;
end;
luacs.Enter;
oldstack:=lua_gettop(luavm);
oldprintoutput:=lua_oldprintoutput;
try
mOutput.lines.add(mscript.text);
lua_setPrintOutput(mOutput.lines);
i:=0;
{ luaclass_newClass(Luavm, self);
lua_pushcclosure(Luavm, onerror,1);
err:=lua_gettop(Luavm);
if luaL_loadstring(Luavm, pchar(mScript.text))=0 then
i := lua_pcall(Luavm, 0, LUA_MULTRET, err);
lua_remove(luavm, err); }
if dodebug then
lua_sethook(luavm, linehook, LUA_MASKLINE, 0);
if lua_dostring(Luavm, pchar(mScript.text))=0 then
begin
j:=lua_gettop(luavm);
if j>oldstack then
begin
for i:=oldstack+1 to j do
begin
mOutput.lines.add(':'+LuaValueToDescription(luavm, i));
{
pc:=lua_tolstring(luavm, i,nil);
if pc<>nil then
mOutput.lines.add(':'+pc)
else
begin
if lua_islightuserdata(luavm,i) then //shouldn't occur anymore
moutput.lines.add(':'+p->'+inttohex(ptruint(lua_touserdata(luavm,i)),1))
else
if lua_isboolean(luavm,i) then
moutput.lines.add(':(boolean)'+BoolToStr(lua_toboolean(Luavm, i),'true','false'))
else
if lua_isnil(luavm,i) then
moutput.lines.add(':'+'nil')
else
if lua_istable(luavm, i) then
moutput.lines.add(':'+'table')
else
if lua_isfunction(luavm,i) then
moutput.lines.add(':'+'function')
else
if lua_isuserdata(luavm,i) then
begin
try
c:=lua_ToCEUserData(luavm, i);
moutput.lines.add(':'+'class object ('+c.ClassName+')')
except
moutput.lines.add(':'+'class object (corrupt)')
end;
end
else
moutput.lines.add(':'+'unknown')
end;}
end;
end;
end
else
begin
i:=lua_gettop(luavm);
if i>oldstack then
begin
//is currently shown inside the pcall function
pc:=lua_tolstring(luavm, -1,nil);
if pc<>nil then
mOutput.lines.add(rsError+':'+pc)
else
moutput.lines.add(rsError+':'+'nil');
end else moutput.lines.add(rsError);
end;
finally
if dodebug then
begin
LuaDebugForm.btnExecute.enabled:=true;
lua_sethook(luavm, linehook, 0, 0);
LuaDebugForm:=nil;
mscript.OnMouseEnter:=nil;
mscript.OnMouseLeave:=nil;
if hintwindow<>nil then
hintwindow.hide;
end;
lua_settop(luavm, oldstack);
lua_setPrintOutput(oldprintoutput);
luacs.Leave;
end;
end;
procedure TfrmLuaEngine.Button1Click(Sender: TObject);
begin
end;
procedure TfrmLuaEngine.dlgReplaceFind(Sender: TObject);
var
s: string;
i: integer;
begin
//find
if sender=FindDialog1 then
s:=finddialog1.FindText
else
s:=dlgReplace.FindText;
i:=PosEx(s, mscript.Text, mscript.selstart+1);
if i>0 then
begin
mScript.SelStart:=i;
mscript.SelEnd:=i+length(s);
end
else
beep;//weeeeee
end;
procedure TfrmLuaEngine.dlgReplaceReplace(Sender: TObject);
var oldselstart: integer;
begin
//replace
repeat
oldselstart:=mScript.SelStart;
dlgReplaceFind(sender);
if oldselstart=mScript.SelStart then break; //nothing found
if mscript.SelEnd>mscript.SelStart then
begin
oldselstart:=mScript.SelStart;
mScript.SelText:=dlgReplace.ReplaceText;
mscript.selstart:=oldselstart;
mscript.SelEnd:=oldselstart+length(dlgreplace.replacetext);
end
else
break;
until (frReplaceAll in dlgReplace.Options=false);
end;
procedure TfrmLuaEngine.FormCreate(Sender: TObject);
var x: array of integer;
begin
synhighlighter:=TSynLuaSyn.Create(self);
mscript.Highlighter:=synhighlighter;
setlength(x,1);
if LoadFormPosition(self, x) then
begin
panel1.height:=x[0];
if length(x)>1 then
begin
miResizeOutput.checked:=x[1]=1;
miResizeOutput.OnClick(miResizeOutput);
end;
end;
end;
procedure TfrmLuaEngine.FormDestroy(Sender: TObject);
begin
SaveFormPosition(self, [panel1.height, integer(ifthen(miResizeOutput.checked, 1,0))]);
end;
procedure TfrmLuaEngine.MenuItem10Click(Sender: TObject);
begin
mscript.Undo;
end;
procedure TfrmLuaEngine.MenuItem11Click(Sender: TObject);
var f: TfrmLuaEngine;
begin
f:=TfrmLuaEngine.create(application);
f.miView.visible:=false;
f.show;
end;
procedure TfrmLuaEngine.MenuItem13Click(Sender: TObject);
begin
finddialog1.Execute;
end;
procedure TfrmLuaEngine.MenuItem2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
mscript.Lines.LoadFromFile(opendialog1.filename);
end;
procedure TfrmLuaEngine.MenuItem3Click(Sender: TObject);
begin
if savedialog1.execute then
mscript.lines.SaveToFile(savedialog1.filename);
end;
procedure TfrmLuaEngine.MenuItem5Click(Sender: TObject);
begin
moutput.Clear;
end;
procedure TfrmLuaEngine.MenuItem6Click(Sender: TObject);
begin
dlgReplace.Execute;
end;
procedure TfrmLuaEngine.MenuItem7Click(Sender: TObject);
begin
mscript.CutToClipboard;
end;
procedure TfrmLuaEngine.MenuItem8Click(Sender: TObject);
begin
mscript.CopyToClipboard;
end;
procedure TfrmLuaEngine.MenuItem9Click(Sender: TObject);
begin
mscript.PasteFromClipboard;
end;
procedure TfrmLuaEngine.miResizeOutputClick(Sender: TObject);
begin
if groupbox1.align=alClient then
groupbox1.align:=alNone;
if panel1.align=alClient then
panel1.align:=alNone;
if not miResizeOutput.checked then
begin
groupbox1.align:=alTop;
panel1.align:=alClient;
splitter1.Align:=alTop;
// splitter1.ResizeControl:=groupbox1;
end
else
begin
panel1.align:=alBottom;
groupbox1.align:=alClient;
//splitter1.ResizeControl:=panel1;
splitter1.Align:=alBottom;
end;
end;
procedure TfrmLuaEngine.miSetBreakpointClick(Sender: TObject);
begin
mScriptGutterClick(mScript, 0,0, mscript.CaretY, nil);
end;
procedure TfrmLuaEngine.mScriptChange(Sender: TObject);
begin
end;
procedure TfrmLuaEngine.mScriptGutterClick(Sender: TObject; X, Y,
Line: integer; mark: TSynEditMark);
var
ml: TSynEditMarkLine;
i: integer;
hasbp:boolean;
begin
hasbp:=false;
ml:=mscript.Marks.Line[line];
if ml<>nil then
begin
for i:=0 to ml.Count-1 do
begin
if ml[i].ImageIndex in [0,2] then
hasbp:=true;
end;
if hasbp then
begin
//clear it
i:=0;
while i<ml.count do
begin
if ml[i].imageindex in [0,2] then //bp set or bp set and current line
begin
ml[i].Free;
ml:=mscript.Marks.Line[line];
if ml=nil then exit;
end
else
inc(i);
end;
end;
end;
if not hasbp then
begin
//set it
mark:=TSynEditMark.Create(mscript);
mark.line:=line;
mark.ImageList:=ilSyneditDebug;
mark.ImageIndex:=0;
mark.Visible:=true;
mscript.Marks.Add(mark);
end;
end;
procedure TfrmLuaEngine.mScriptKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in shift) and (key=vk_return) then
begin
btnExecute.click;
mScript.ClearAll;
end;
{
if (key=VK_TAB) and (not mscript.ReadOnly) then
begin
if shift=[] then
begin
//right
mscript.BlockTabIndent:=;
mscript.SelStart
end
else
if Shift=[ssShift] then
begin
//left
end;
end; }
end;
procedure TfrmLuaEngine.mScriptMouseEnter(Sender: TObject);
begin
tShowHint.enabled:=false;
tShowHint.AutoEnabled:=true;
end;
procedure TfrmLuaEngine.mScriptMouseLeave(Sender: TObject);
begin
tShowHint.AutoEnabled:=false;
tShowHint.enabled:=false;
end;
procedure TfrmLuaEngine.mScriptMouseLink(Sender: TObject; X, Y: Integer;
var AllowMouseLink: Boolean);
begin
AllowMouseLink:=false;
end;
procedure TfrmLuaEngine.mScriptMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if hintwindow<>nil then
hintwindow.hide;
end;
procedure TfrmLuaEngine.mScriptShowHint(Sender: TObject; HintInfo: PHintInfo);
begin
end;
initialization
{$I frmluaengineunit.lrs}
end.
Reference in a new issue View git blame Copy permalink