API tools faq
paste
Advertisement
Guest User

CheatEngine with removed units

a guest
Nov 4th, 2013
61
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Diff 57.42 KB | None | 0 0
raw download clone embed print report
  1. Index: CEDebugger.pas
  2. ===================================================================
  3. --- CEDebugger.pas  (wersja 2198)
  4. +++ CEDebugger.pas  (kopia robocza)
  5. @@ -150,7 +150,7 @@
  6.  
  7.  implementation
  8.  
  9. -uses debuggertypedefinitions, debugeventhandler, MainUnit,frmFloatingPointPanelUnit,Memorybrowserformunit,disassembler,frmTracerUnit,foundcodeunit,kerneldebugger,advancedoptionsunit,formChangedAddresses,frmstacktraceunit,frmThreadlistunit,formdebugstringsunit,formsettingsunit,processwindowunit,plugin(*,frmCreatedProcessListUnit*);
  10. +uses debuggertypedefinitions, debugeventhandler, MainUnit,frmFloatingPointPanelUnit,Memorybrowserformunit,disassembler,{frmTracerUnit,}foundcodeunit,kerneldebugger,advancedoptionsunit,formChangedAddresses,{frmstacktraceunit,}frmThreadlistunit,formdebugstringsunit,formsettingsunit,processwindowunit,plugin(*,frmCreatedProcessListUnit*);
  11.  
  12.  
  13.  resourcestring
  14. Index: cheatengine.lpr
  15. ===================================================================
  16. --- cheatengine.lpr (wersja 2198)
  17. +++ cheatengine.lpr (kopia robocza)
  18. @@ -22,21 +22,21 @@
  19.    formProcessInfo, frmautoinjectunit, MenuItemExtra, MemoryBrowserFormUnit,
  20.    disassemblerviewlinesunit, disassemblerviewunit, PasteTableentryFRM,
  21.    frmBreakpointlistunit, DissectCodeThread, DissectCodeunit, Valuechange,
  22. -  FindWindowUnit, stacktrace2, frmstacktraceunit, frmBreakThreadUnit,
  23. +  FindWindowUnit, {stacktrace2, frmstacktraceunit,} frmBreakThreadUnit,
  24.    FormDebugStringsUnit, frmDissectwindowUnit, frmCapturedTimersUnit,
  25.    frmEnumerateDLLsUnit, frmThreadlistunit, frmMemoryAllocHandlerUnit,
  26.    circularBuffer, PEInfoFunctions, PEInfounit, FileMapping, frmFindstaticsUnit,
  27.    frmModifyRegistersUnit, frmHeapsUnit, savedisassemblyfrm,
  28.    frmSaveMemoryRegionUnit, frmLoadMemoryunit, formAddToCodeList,
  29.    frmFillMemoryUnit, frmCodecaveScannerUnit, frmSelectionlistunit,
  30. -  symbolconfigunit, frmFloatingPointPanelUnit, frmTracerUnit, DriverList,
  31. +  symbolconfigunit, frmFloatingPointPanelUnit, {frmTracerUnit,} DriverList,
  32.    frmRegistersunit, formChangedAddresses, frmGDTunit, frmIDTunit,
  33. -  frmDisassemblyscanunit, frmReferencedStringsUnit, StructuresAddElementfrm,
  34. -  Structuresfrm, PointerscannerSettingsFrm, simpleaobscanner,
  35. -  PointerscanresultReader, pointervaluelist, rescanhelper, pointerscannerfrm,
  36. -  VirtualMemory, ValueFinder, frmRescanPointerUnit, SyncObjs2,
  37. -  ManualModuleLoader, SynHighlighterAA, APIhooktemplatesettingsfrm,
  38. -  frmAAEditPrefsUnit, disassembler, hexviewunit, guisafecriticalsection,
  39. +  {frmDisassemblyscanunit,} frmReferencedStringsUnit, StructuresAddElementfrm,
  40. +  Structuresfrm, {PointerscannerSettingsFrm,} simpleaobscanner,
  41. +  {PointerscanresultReader,} pointervaluelist, {rescanhelper, pointerscannerfrm,}
  42. +  VirtualMemory, ValueFinder, {frmRescanPointerUnit,} SyncObjs2,
  43. +  ManualModuleLoader, {SynHighlighterAA,} APIhooktemplatesettingsfrm,
  44. +  {frmAAEditPrefsUnit,} disassembler, hexviewunit, guisafecriticalsection,
  45.    DebugHelper, debugeventhandler, formFoundcodeListExtraUnit,
  46.    debuggertypedefinitions, sfloat, addresslist, MemoryRecordUnit,
  47.    ThreadlistExFRM, windows7taskbar, tablist, frmStructuresConfigUnit,
  48. @@ -44,15 +44,15 @@
  49.    DebuggerInterfaceAPIWrapper, frmDebugEventsUnit, changelist, tableconverter,
  50.    DBK32functions, debug, multicpuexecution, vmxfunctions, frmPagingUnit,
  51.    bigmemallochandler, KernelDebuggerInterface, CustomTypeHandler, LuaHandler,
  52. -  frmLuaEngineUnit, frmMemviewPreferencesUnit, frmBreakpointConditionUnit,
  53. -  frmTracerConfigUnit, frmStackViewUnit, luaJit, ScrollBoxEx, fileaccess,
  54. -  ceguicomponents, formdesignerunit, LuaCaller, LuaSyntax, cesupport,
  55. +  {frmLuaEngineUnit,} frmMemviewPreferencesUnit, frmBreakpointConditionUnit,
  56. +  {frmTracerConfigUnit, frmStackViewUnit,} luaJit, ScrollBoxEx, fileaccess,
  57. +  ceguicomponents, formdesignerunit, LuaCaller, {LuaSyntax,} cesupport,
  58.    trainergenerator, genericHotkey, frmExeTrainerGeneratorUnit, luafile,
  59.    xmplayer_server, xmplayer_defines, ExtraTrainerComponents, frmAdConfigUnit,
  60. -  IconStuff, cetranslator, frmStringMapUnit, MemFuncs, frmStringPointerScanUnit,
  61. -  frmStructPointerRescanUnit, sharedMemory, disassemblerComments,
  62. +  IconStuff, cetranslator, {frmStringMapUnit,} MemFuncs, {frmStringPointerScanUnit,}
  63. +  {frmStructPointerRescanUnit,} sharedMemory, disassemblerComments,
  64.    frmFilePatcherUnit, LuaCanvas, LuaPen, LuaFont, LuaBrush, LuaPicture, LuaMenu,
  65. -  LuaDebug, frmUltimapUnit, DBK64SecondaryLoader, frmHotkeyExUnit,
  66. +  LuaDebug, {frmUltimapUnit,} DBK64SecondaryLoader, frmHotkeyExUnit,
  67.    SymbolListHandler, networkInterface, networkInterfaceApi, networkConfig,
  68.    LuaThread, LuaGraphic, LuaProgressBar, d3dhookUnit, LuaOldD3DHook,
  69.    LuaWinControl, frmSetCrosshairUnit, StructuresFrm2, scrollTreeView,
  70. @@ -61,7 +61,7 @@
  71.    vartypestrings, LuaXMPlayer, groupscancommandparser, LuaMemscan, LuaFoundlist,
  72.    LuaRadioGroup, RemoteMemoryManager, LuaRasterImage, multilineinputqueryunit,
  73.    LuaCheatComponent, LuaAddresslist, frmDriverLoadedUnit, memdisplay,
  74. -  frmSortPointerlistUnit, LuaClassArray, LuaObject, LuaComponent, LuaControl,
  75. +  {frmSortPointerlistUnit,} LuaClassArray, LuaObject, LuaComponent, LuaControl,
  76.    LuaStrings, LuaStringlist, LuaCustomControl, LuaGraphicControl, LuaPanel,
  77.    LuaImage, LuaButton, LuaCheckbox, LuaClass, LuaGroupbox, LuaListbox,
  78.    LuaCombobox, LuaTrackbar, LuaCollectionItem, LuaListcolumn, LuaEdit, LuaMemo,
  79. @@ -71,11 +71,11 @@
  80.    frmMemoryViewExUnit, LuaDisassembler, LuaDissectCode, LuaByteTable, LuaBinary,
  81.    frmD3DHookSnapshotConfigUnit, frmsnapshothandlerUnit, frmSaveSnapshotsUnit,
  82.    frmD3DTrainerGeneratorOptionsUnit, lua_server, frmAssemblyScanUnit,
  83. -frmManualStacktraceConfigUnit, cvconst, NetworkDebuggerInterface,
  84. +{frmManualStacktraceConfigUnit,} cvconst, NetworkDebuggerInterface,
  85.  DisassemblerArm, LastDisassembleData, elfsymbols, assemblerArm,
  86. -frmPointerscanConnectDialogUnit, PageMap, CELazySocket,
  87. -PointerscanNetworkCommands, frmpointerrescanconnectdialogunit,
  88. -frmMergePointerscanResultSettingsUnit, AddresslistEditor,
  89. +{frmPointerscanConnectDialogUnit,} PageMap, CELazySocket,
  90. +{PointerscanNetworkCommands, frmpointerrescanconnectdialogunit,
  91. +frmMergePointerscanResultSettingsUnit,} AddresslistEditor,
  92.  FrmMemoryRecordDropdownSettingsUnit, frmMemrecComboboxUnit, tracerIgnore;
  93.  
  94.  {$R cheatengine.res}
  95. Index: debugeventhandler.pas
  96. ===================================================================
  97. --- debugeventhandler.pas   (wersja 2198)
  98. +++ debugeventhandler.pas   (kopia robocza)
  99. @@ -6,7 +6,7 @@
  100.  
  101.  uses
  102.    jwawindows, Windows, Classes, SysUtils, syncobjs, GuiSafeCriticalSection,
  103. -  disassembler, cefuncproc, newkernelhandler,debuggertypedefinitions, frmTracerUnit,
  104. +  disassembler, cefuncproc, newkernelhandler,debuggertypedefinitions, //frmTracerUnit,
  105.    DebuggerInterfaceAPIWrapper, LuaHandler, lua, lauxlib, lualib, win32proc, tracerIgnore;
  106.  
  107.  type
  108. @@ -38,7 +38,7 @@
  109.      //break and trace:
  110.      isTracing: boolean;
  111.      tracecount: integer;
  112. -    traceWindow: TfrmTracer;
  113. +    //traceWindow: TfrmTracer;
  114.      traceQuitCondition: string;
  115.      traceStepOver: boolean; //perhaps also trace branches ?
  116.      //------------------
  117. @@ -497,7 +497,7 @@
  118.  
  119.  procedure TDebugThreadHandler.TracerQuit;
  120.  begin
  121. -  tracewindow:=nil;
  122. +  //tracewindow:=nil;
  123.  end;
  124.  
  125.  
  126. @@ -507,8 +507,8 @@
  127.    r: ptruint;
  128.    x: dword;
  129.  begin
  130. -  if tracewindow<>nil then
  131. -    TDebuggerthread(debuggerthread).Synchronize(TDebuggerthread(debuggerthread), tracewindow.AddRecord);
  132. +  //if tracewindow<>nil then
  133. +    //TDebuggerthread(debuggerthread).Synchronize(TDebuggerthread(debuggerthread), tracewindow.AddRecord);
  134.  
  135.    dec(tracecount);
  136.    if tracecount>0 then
  137. @@ -521,8 +521,8 @@
  138.          OutputDebugString('CheckIfConditionIsMet=true');
  139.          ContinueFromBreakpoint(nil, co_run);
  140.          isTracing:=false;
  141. -        if tracewindow<>nil then
  142. -          TDebuggerthread(debuggerthread).Synchronize(TDebuggerthread(debuggerthread), tracewindow.Finish);
  143. +        //if tracewindow<>nil then
  144. +          //TDebuggerthread(debuggerthread).Synchronize(TDebuggerthread(debuggerthread), tracewindow.Finish);
  145.          exit;
  146.        end;
  147.      end;
  148. @@ -550,8 +550,8 @@
  149.  
  150.      ContinueFromBreakpoint(nil, co_run);
  151.      isTracing:=false;
  152. -    if tracewindow<>nil then
  153. -      TDebuggerthread(debuggerthread).Synchronize(TDebuggerthread(debuggerthread), tracewindow.Finish);
  154. +    //if tracewindow<>nil then
  155. +      //TDebuggerthread(debuggerthread).Synchronize(TDebuggerthread(debuggerthread), tracewindow.Finish);
  156.    end;
  157.  end;
  158.  
  159. @@ -762,7 +762,7 @@
  160.          begin
  161.            isTracing:=true;
  162.            tracecount:=bpp.TraceCount;
  163. -          traceWindow:=bpp.frmTracer;
  164. +          //traceWindow:=bpp.frmTracer;
  165.            traceStepOver:=bpp.tracestepOver;
  166.            if bpp.traceendcondition<>nil then
  167.              traceQuitCondition:=bpp.traceendcondition
  168. Index: debuggertypedefinitions.pas
  169. ===================================================================
  170. --- debuggertypedefinitions.pas (wersja 2198)
  171. +++ debuggertypedefinitions.pas (kopia robocza)
  172. @@ -5,7 +5,7 @@
  173.  interface
  174.  
  175.  uses
  176. -  Classes, SysUtils, Windows, FoundCodeUnit, formchangedaddresses, frmTracerUnit,
  177. +  Classes, SysUtils, Windows, FoundCodeUnit, formchangedaddresses, //frmTracerUnit,
  178.    cefuncproc, NewKernelHandler, fgl;
  179.  
  180.  type
  181. @@ -182,7 +182,7 @@
  182.  
  183.      FoundcodeDialog: TFoundcodedialog;
  184.      frmchangedaddresses: Tfrmchangedaddresses;
  185. -    frmTracer: TfrmTracer;
  186. +    //frmTracer: TfrmTracer;
  187.      tracecount: integer;
  188.      traceendcondition: pchar;
  189.      tracestepOver: boolean; //when set the tracer will step over instead of single step
  190. Index: debughelper.pas
  191. ===================================================================
  192. --- debughelper.pas (wersja 2198)
  193. +++ debughelper.pas (kopia robocza)
  194. @@ -7,7 +7,7 @@
  195.  uses
  196.    Windows, Classes, SysUtils, Controls, forms, syncobjs, guisafecriticalsection, Dialogs,
  197.    foundcodeunit, debugeventhandler, cefuncproc, newkernelhandler, comctrls,
  198. -  debuggertypedefinitions, formChangedAddresses, frmTracerUnit, KernelDebuggerInterface, VEHDebugger,
  199. +  debuggertypedefinitions, formChangedAddresses, {frmTracerUnit,} KernelDebuggerInterface, VEHDebugger,
  200.    WindowsDebugger, debuggerinterfaceAPIWrapper, debuggerinterface,symbolhandler,
  201.    fgl, disassembler, NetworkDebuggerInterface;
  202.  
  203. @@ -55,9 +55,9 @@
  204.      procedure WaitTillAttachedOrError;
  205.      procedure setCurrentThread(x: TDebugThreadHandler);
  206.      function getCurrentThread: TDebugThreadHandler;
  207. -    procedure FindCodeByBP(address: uint_ptr; size: integer; bpt: TBreakpointTrigger);
  208. +    //procedure FindCodeByBP(address: uint_ptr; size: integer; bpt: TBreakpointTrigger);
  209.  
  210. -    function AddBreakpoint(owner: PBreakpoint; address: uint_ptr; size: integer; bpt: TBreakpointTrigger; bpm: TBreakpointMethod; bpa: TBreakpointAction; debugregister: integer=-1; foundcodedialog: Tfoundcodedialog=nil; threadID: dword=0; frmchangedaddresses: Tfrmchangedaddresses=nil; FrmTracer: TFrmTracer=nil; tcount: integer=0; changereg: pregistermodificationBP=nil): PBreakpoint;
  211. +    //function AddBreakpoint(owner: PBreakpoint; address: uint_ptr; size: integer; bpt: TBreakpointTrigger; bpm: TBreakpointMethod; bpa: TBreakpointAction; debugregister: integer=-1; foundcodedialog: Tfoundcodedialog=nil; threadID: dword=0; frmchangedaddresses: Tfrmchangedaddresses=nil; FrmTracer: TFrmTracer=nil; tcount: integer=0; changereg: pregistermodificationBP=nil): PBreakpoint;
  212.  
  213.  
  214.      function AdjustAccessRightsWithActiveBreakpoints(ar: TAccessRights; base: ptruint; size: integer): TAccessRights;
  215. @@ -88,20 +88,20 @@
  216.      procedure getBreakpointAddresses(AddressList: TAddressArray);
  217.      function  isBreakpoint(address: uint_ptr; address2: uint_ptr=0; includeinactive: boolean=false): PBreakpoint;
  218.      function  CodeFinderStop(codefinder: TFoundCodeDialog): boolean;
  219. -    function  setChangeRegBreakpoint(regmod: PRegisterModificationBP): PBreakpoint;
  220. -    procedure setBreakAndTraceBreakpoint(frmTracer: TFrmTracer; address: ptrUint; BreakpointTrigger: TBreakpointTrigger; bpsize: integer; count: integer; condition:string=''; stepover: boolean=false);
  221. -    function  stopBreakAndTrace(frmTracer: TFrmTracer): boolean;
  222. -    function FindWhatCodeAccesses(address: uint_ptr; FoundCodeDialog:TFoundCodeDialog=nil): tfrmChangedAddresses;
  223. +    //function  setChangeRegBreakpoint(regmod: PRegisterModificationBP): PBreakpoint;
  224. +    //procedure setBreakAndTraceBreakpoint(frmTracer: TFrmTracer; address: ptrUint; BreakpointTrigger: TBreakpointTrigger; bpsize: integer; count: integer; condition:string=''; stepover: boolean=false);
  225. +    //function  stopBreakAndTrace(frmTracer: TFrmTracer): boolean;
  226. +    //function FindWhatCodeAccesses(address: uint_ptr; FoundCodeDialog:TFoundCodeDialog=nil): tfrmChangedAddresses;
  227.      function  FindWhatCodeAccessesStop(frmchangedaddresses: Tfrmchangedaddresses): boolean;
  228.      procedure FindWhatAccesses(address: uint_ptr; size: integer);
  229.      procedure FindWhatWrites(address: uint_ptr; size: integer);
  230. -    function  SetOnWriteBreakpoint(address: ptrUint; size: integer; bpm: TBreakpointMethod; tid: dword=0): PBreakpoint; overload;
  231. +    //function  SetOnWriteBreakpoint(address: ptrUint; size: integer; bpm: TBreakpointMethod; tid: dword=0): PBreakpoint; overload;
  232.      function  SetOnWriteBreakpoint(address: ptrUint; size: integer; tid: dword=0): PBreakpoint; overload;
  233. -    function  SetOnAccessBreakpoint(address: ptrUint; size: integer; bpm: TBreakpointMethod; tid: dword=0): PBreakpoint; overload;
  234. +    //function  SetOnAccessBreakpoint(address: ptrUint; size: integer; bpm: TBreakpointMethod; tid: dword=0): PBreakpoint; overload;
  235.      function  SetOnAccessBreakpoint(address: ptrUint; size: integer; tid: dword=0): PBreakpoint; overload;
  236. -    function  SetOnExecuteBreakpoint(address: ptrUint; bpm: TBreakpointMethod; askforsoftwarebp: boolean = false; tid: dword=0): PBreakpoint; overload;
  237. +    //function  SetOnExecuteBreakpoint(address: ptrUint; bpm: TBreakpointMethod; askforsoftwarebp: boolean = false; tid: dword=0): PBreakpoint; overload;
  238.      function  SetOnExecuteBreakpoint(address: ptrUint; askforsoftwarebp: boolean = false; tid: dword=0): PBreakpoint; overload;
  239. -    function  ToggleOnExecuteBreakpoint(address: ptrUint; tid: dword=0): PBreakpoint;
  240. +    //function  ToggleOnExecuteBreakpoint(address: ptrUint; tid: dword=0): PBreakpoint;
  241.  
  242.      procedure UpdateDebugRegisterBreakpointsForThread(thread: TDebugThreadHandler);
  243.      procedure RemoveBreakpoint(breakpoint: PBreakpoint);
  244. @@ -1034,7 +1034,7 @@
  245.    if frmBreakpointlist<>nil then
  246.      postmessage(frmBreakpointlist.handle, WM_BPUPDATE,0,0); //tell the breakpointlist that there's been an update
  247.  end;
  248. -
  249. +{
  250.  function TDebuggerThread.AddBreakpoint(owner: PBreakpoint; address: uint_ptr; size: integer; bpt: TBreakpointTrigger; bpm: TBreakpointMethod; bpa: TBreakpointAction; debugregister: integer=-1; foundcodedialog: Tfoundcodedialog=nil; threadID: dword=0; frmchangedaddresses: Tfrmchangedaddresses=nil; FrmTracer: TFrmTracer=nil; tcount: integer=0; changereg: pregistermodificationBP=nil): PBreakpoint;
  251.  var
  252.    newbp: PBreakpoint;
  253. @@ -1105,7 +1105,7 @@
  254.    if frmBreakpointlist<>nil then
  255.      postmessage(frmBreakpointlist.handle, WM_BPUPDATE,0,0); //tell the breakpointlist that there's been an update
  256.  end;
  257. -
  258. +}
  259.  procedure TDebuggerThread.GetBreakpointList(address: uint_ptr; size: integer; var bplist: TBreakpointSplitArray);
  260.  {
  261.  splits up the given address and size into a list of debug register safe breakpoints (alligned)
  262. @@ -1293,16 +1293,16 @@
  263.  
  264.  procedure TDebuggerthread.FindWhatWrites(address: uint_ptr; size: integer);
  265.  begin
  266. -  if size>0 then
  267. -    FindCodeByBP(address, size, bptWrite);
  268. +  //if size>0 then
  269. +    //FindCodeByBP(address, size, bptWrite);
  270.  end;
  271.  
  272.  procedure TDebuggerthread.FindWhatAccesses(address: uint_ptr; size: integer);
  273.  begin
  274. -  if size>0 then
  275. -    FindCodeByBP(address, size, bptAccess);
  276. +  //if size>0 then
  277. +    //FindCodeByBP(address, size, bptAccess);
  278.  end;
  279. -
  280. +{
  281.  procedure TDebuggerthread.FindCodeByBP(address: uint_ptr; size: integer; bpt: TBreakpointTrigger);
  282.  var
  283.    usedDebugRegister: integer;
  284. @@ -1363,7 +1363,8 @@
  285.    end;
  286.  
  287.  end;
  288. -
  289. +}
  290. +{
  291.  function TDebuggerThread.stopBreakAndTrace(frmTracer: TFrmTracer): boolean;
  292.  var
  293.    i: integer;
  294. @@ -1390,6 +1391,7 @@
  295.  
  296.    //it doesn't really matter if it returns false, that would just mean the breakpoint got and it's tracing or has finished tracing
  297.  end;
  298. +}
  299.  
  300.  
  301.  function TDebuggerThread.CodeFinderStop(codefinder: TFoundCodeDialog): boolean;
  302. @@ -1440,7 +1442,7 @@
  303.      breakpointCS.leave;
  304.    end;
  305.  end;
  306. -
  307. +{
  308.  function TDebuggerthread.setChangeRegBreakpoint(regmod: PRegisterModificationBP): PBreakpoint;
  309.  var
  310.    method: TBreakpointMethod;
  311. @@ -1478,7 +1480,8 @@
  312.  
  313.  
  314.  end;
  315. -
  316. +}
  317. +{
  318.  procedure TDebuggerthread.setBreakAndTraceBreakpoint(frmTracer: TFrmTracer; address: ptrUint; BreakpointTrigger: TBreakpointTrigger; bpsize: integer; count: integer; condition:string=''; stepover: boolean=false);
  319.  var
  320.    method: TBreakpointMethod;
  321. @@ -1544,7 +1547,8 @@
  322.      breakpointCS.leave;
  323.    end;
  324.  end;
  325. -
  326. +}
  327. +{
  328.  function TDebuggerthread.FindWhatCodeAccesses(address: uint_ptr; foundCodeDialog:TFoundCodeDialog=nil): tfrmChangedAddresses;
  329.  var
  330.    method: TBreakpointMethod;
  331. @@ -1601,7 +1605,7 @@
  332.  
  333.    result:=frmChangedAddresses;
  334.  end;
  335. -
  336. +}
  337.  procedure TDebuggerthread.setbreakpointcondition(bp: PBreakpoint; easymode: boolean; script: string);
  338.  begin
  339.    breakpointCS.enter;
  340. @@ -1719,23 +1723,23 @@
  341.  
  342.      OutputDebugString('Going to toggle bp');
  343.  
  344. -    try
  345. +    {try
  346.        bp:=ToggleOnExecuteBreakpoint(code);
  347.  
  348.        if bp<>nil then
  349.          bp.OneTimeOnly:=true;
  350.      finally
  351.        preferedBreakpointMethod:=oldstate;
  352. -    end;
  353. +    end;}
  354.  
  355.    end;
  356.  end;
  357.  
  358.  function TDebuggerthread.SetOnExecuteBreakpoint(address: ptrUint; askforsoftwarebp: boolean = false; tid: dword=0): PBreakpoint;
  359.  begin
  360. -  result:=SetOnExecuteBreakpoint(address, preferedBreakpointMethod, askforsoftwarebp, tid);
  361. +  //result:=SetOnExecuteBreakpoint(address, preferedBreakpointMethod, askforsoftwarebp, tid);
  362.  end;
  363. -
  364. +{
  365.  function TDebuggerthread.SetOnExecuteBreakpoint(address: ptrUint; bpm: TBreakpointMethod; askforsoftwarebp: boolean = false; tid: dword=0): PBreakpoint;
  366.  var
  367.    i: integer;
  368. @@ -1797,12 +1801,12 @@
  369.      breakpointCS.leave;
  370.    end;
  371.  end;
  372. -
  373. +}
  374.  function TDebuggerthread.SetOnWriteBreakpoint(address: ptrUint; size: integer; tid: dword=0): PBreakpoint;
  375.  begin
  376. -  result:=SetOnWriteBreakpoint(address, size, preferedBreakpointMethod, tid);
  377. +  //result:=SetOnWriteBreakpoint(address, size, preferedBreakpointMethod, tid);
  378.  end;
  379. -
  380. +{
  381.  function TDebuggerthread.SetOnWriteBreakpoint(address: ptrUint; size: integer; bpm: TBreakpointMethod; tid: dword=0): PBreakpoint;
  382.  var
  383.    i: integer;
  384. @@ -1851,12 +1855,12 @@
  385.    end;
  386.  
  387.  end;
  388. -
  389. +}
  390.  function TDebuggerthread.SetOnAccessBreakpoint(address: ptrUint; size: integer; tid: dword=0): PBreakpoint;
  391.  begin
  392. -  result:=SetOnAccessBreakpoint(address, size, preferedBreakpointMethod, tid);
  393. +  //result:=SetOnAccessBreakpoint(address, size, preferedBreakpointMethod, tid);
  394.  end;
  395. -
  396. +{
  397.  function TDebuggerthread.SetOnAccessBreakpoint(address: ptrUint; size: integer; bpm: TBreakpointMethod; tid: dword=0): PBreakpoint;
  398.  var
  399.    i: integer;
  400. @@ -1903,12 +1907,14 @@
  401.    end;
  402.  
  403.  end;
  404. +}
  405.  
  406.  
  407.  
  408.  
  409. +{
  410.  function TDebuggerthread.ToggleOnExecuteBreakpoint(address: ptrUint; tid: dword=0): PBreakpoint;
  411. -{Only called from the main thread}
  412. +//Only called from the main thread
  413.  var
  414.    i: integer;
  415.    found: boolean;
  416. @@ -1974,7 +1980,7 @@
  417.      breakpointCS.leave;
  418.    end;
  419.  end;
  420. -
  421. +}
  422.  function TDebuggerthread.getrealbyte(address: ptrUint): byte;
  423.  {
  424.  Called when the byte is a $cc
  425. Index: formdesignerunit.pas
  426. ===================================================================
  427. --- formdesignerunit.pas    (wersja 2198)
  428. +++ formdesignerunit.pas    (kopia robocza)
  429. @@ -548,9 +548,9 @@
  430.      //go there
  431.      mainform.frmLuaTableScript.Show;
  432.  
  433. -    mainform.frmLuaTableScript.assemblescreen.SelStart:=integer(methodlist.Objects[i])+1;
  434. -    mainform.frmLuaTableScript.assemblescreen.SelEnd:=integer(methodlist.Objects[i])+1;
  435. -    mainform.frmLuaTableScript.assemblescreen.CaretY:=mainform.frmLuaTableScript.assemblescreen.CaretY+1;
  436. +    //mainform.frmLuaTableScript.assemblescreen.SelStart:=integer(methodlist.Objects[i])+1;
  437. +    //mainform.frmLuaTableScript.assemblescreen.SelEnd:=integer(methodlist.Objects[i])+1;
  438. +    //mainform.frmLuaTableScript.assemblescreen.CaretY:=mainform.frmLuaTableScript.assemblescreen.CaretY+1;
  439.  
  440.      mainform.frmLuaTableScript.assemblescreen.SetFocus;
  441.    end;
  442. @@ -563,7 +563,7 @@
  443.    c: integer;
  444.    wp: tpoint;
  445.  begin
  446. -  UpdateMethodListIfNeeded;
  447. +{  UpdateMethodListIfNeeded;
  448.  
  449.    //check if this method exists
  450.    i:=methodlist.IndexOf(name);
  451. @@ -578,7 +578,7 @@
  452.      mainform.frmLuaTableScript.assemblescreen.CaretXY:=wp;
  453.      mainform.frmLuaTableScript.assemblescreen.SelectWord;
  454.    end;
  455. -
  456. +}
  457.  end;
  458.  
  459.  function TFormDesigner.ogm(const Method: TMethod; CheckOwner: TObject): String;
  460. @@ -602,7 +602,7 @@
  461.    sd: TSysCharSet;
  462.    fn: string;
  463.  begin
  464. -  sd:=WordDelimiters-['_'];
  465. +{  sd:=WordDelimiters-['_'];
  466.  
  467.    if lastupdate<MainForm.frmLuaTableScript.assemblescreen.ChangeStamp then
  468.    begin
  469. @@ -627,6 +627,7 @@
  470.  
  471.      until z=nil;
  472.    end;
  473. +}
  474.  end;
  475.  
  476.  procedure TFormDesigner.OnGetMethods(TypeData: PTypeData; Proc: TGetStrProc);
  477. Index: formFoundcodeListExtraUnit.pas
  478. ===================================================================
  479. --- formFoundcodeListExtraUnit.pas  (wersja 2198)
  480. +++ formFoundcodeListExtraUnit.pas  (kopia robocza)
  481. @@ -7,7 +7,7 @@
  482.  uses
  483.    windows, LResources, LCLIntf, Messages, SysUtils, Variants, Classes, Graphics,
  484.    Controls, Forms, Dialogs, StdCtrls, Menus,Clipbrd, ExtCtrls, Buttons,
  485. -  frmFloatingPointPanelUnit, NewKernelHandler,cefuncproc, frmStackViewUnit;
  486. +  frmFloatingPointPanelUnit, NewKernelHandler,cefuncproc{, frmStackViewUnit};
  487.  
  488.  type
  489.  
  490. @@ -62,7 +62,7 @@
  491.      { Private declarations }
  492.      fprobably: ptrUint;
  493.      fpp:       TfrmFloatingPointPanel;
  494. -    stackview: TfrmStackView;
  495. +    //stackview: TfrmStackView;
  496.      procedure setprobably(address:ptrUint);
  497.    public
  498.      { Public declarations }
  499. @@ -106,8 +106,8 @@
  500.  procedure TFormFoundCodeListExtra.FormClose(Sender: TObject;
  501.    var Action: TCloseAction);
  502.  begin
  503. -  if Stackview<>nil then
  504. -    freeandnil(Stackview);
  505. +  //if Stackview<>nil then
  506. +    //freeandnil(Stackview);
  507.  
  508.    if fpp<>nil then
  509.      freeandnil(fpp);
  510. @@ -166,8 +166,8 @@
  511.  
  512.  procedure TFormFoundCodeListExtra.FormDestroy(Sender: TObject);
  513.  begin
  514. -  if stackview<>nil then
  515. -    stackview.free;
  516. +  //if stackview<>nil then
  517. +    //stackview.free;
  518.  
  519.    if fpp<>nil then
  520.      fpp.Free;
  521. @@ -262,11 +262,11 @@
  522.  begin
  523.    if stack.stack=nil then exit;
  524.  
  525. -  if Stackview=nil then
  526. -    stackview:=TfrmStackView.create(self);
  527. +  //if Stackview=nil then
  528. +    //stackview:=TfrmStackView.create(self);
  529.  
  530. -  stackview.SetContextPointer(@context, stack.stack, stack.savedsize);
  531. -  stackview.show;
  532. +  //stackview.SetContextPointer(@context, stack.stack, stack.savedsize);
  533. +  //stackview.show;
  534.  end;
  535.  
  536.  procedure TFormFoundCodeListExtra.sbShowFloatsClick(Sender: TObject);
  537. Index: FoundCodeUnit.pas
  538. ===================================================================
  539. --- FoundCodeUnit.pas   (wersja 2198)
  540. +++ FoundCodeUnit.pas   (kopia robocza)
  541. @@ -218,8 +218,8 @@
  542.      li.SubItems.add(opcode);
  543.      li.data:=coderecord;
  544.  
  545. -    if miFindWhatAccesses.Checked then //add it
  546. -      coderecord.formChangedAddresses:=debuggerthread.FindWhatCodeAccesses(address, self);
  547. +    //if miFindWhatAccesses.Checked then //add it
  548. +      //coderecord.formChangedAddresses:=debuggerthread.FindWhatCodeAccesses(address, self);
  549.    end;
  550.  end;
  551.  
  552. @@ -1024,7 +1024,7 @@
  553.        begin
  554.          coderecord:=TCodeRecord(foundcodelist.items[i].data);
  555.          coderecord.diffcount:=0;
  556. -        coderecord.formChangedAddresses:=debuggerthread.FindWhatCodeAccesses(coderecord.address, self);
  557. +        //coderecord.formChangedAddresses:=debuggerthread.FindWhatCodeAccesses(coderecord.address, self);
  558.        end;
  559.  
  560.        if FoundCodeList.Column[0].Width<FoundCodeList.Canvas.TextWidth('9999 (8)') then //make sure it's displayed
  561. Index: frmautoinjectunit.pas
  562. ===================================================================
  563. --- frmautoinjectunit.pas   (wersja 2198)
  564. +++ frmautoinjectunit.pas   (kopia robocza)
  565. @@ -7,9 +7,9 @@
  566.  uses
  567.    windows, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  568.    StdCtrls, ExtCtrls, Menus, CEFuncProc, StrUtils, types, ComCtrls, LResources,
  569. -  NewKernelHandler, SynEdit, SynHighlighterCpp, SynHighlighterAA, LuaSyntax, disassembler,
  570. -  MainUnit2, Assemblerunit, autoassembler, symbolhandler, SynEditSearch,
  571. -  MemoryRecordUnit, tablist, customtypehandler, registry, SynGutterBase, SynEditMarks,
  572. +  NewKernelHandler, {SynEdit, SynHighlighterCpp, SynHighlighterAA, LuaSyntax,} disassembler,
  573. +  MainUnit2, Assemblerunit, autoassembler, symbolhandler, //SynEditSearch,
  574. +  MemoryRecordUnit, tablist, customtypehandler, registry, //SynGutterBase, SynEditMarks,
  575.    luahandler, memscan, foundlisthelper, ProcessHandlerUnit;
  576.  
  577.  
  578. @@ -151,11 +151,11 @@
  579.    private
  580.      { Private declarations }
  581.  
  582. -    AAHighlighter: TSynAASyn;
  583. -    CPPHighlighter: TSynCppSyn;
  584. -    LuaHighlighter: TSynLuaSyn;
  585. +    //AAHighlighter: TSynAASyn;
  586. +    //CPPHighlighter: TSynCppSyn;
  587. +    //LuaHighlighter: TSynLuaSyn;
  588.  
  589. -    assembleSearch: TSynEditSearch;
  590. +    //assembleSearch: TSynEditSearch;
  591.  
  592.      oldtabindex: integer;
  593.      scripts: TScripts;
  594. @@ -169,14 +169,14 @@
  595.      procedure injectscript(createthread: boolean);
  596.      procedure tlistOnTabChange(sender: TObject; oldselection: integer);
  597.      procedure setCustomTypeScript(x: boolean);
  598. -    procedure gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  599. +    //procedure gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  600.      procedure assemblescreenchange(sender: TObject);
  601.      function GetUniqueAOB(mi: TModuleInfo; address: ptrUint; codesize: Integer; var resultOffset: Integer) : string;
  602.  
  603.    public
  604.      { Public declarations }
  605.  
  606. -    assemblescreen: TSynEdit;
  607. +    assemblescreen: TMemo;
  608.      tlist: TTablist;
  609.  
  610.      editscript: boolean;
  611. @@ -201,7 +201,7 @@
  612.  implementation
  613.  
  614.  
  615. -uses frmAAEditPrefsUnit,MainUnit,memorybrowserformunit,APIhooktemplatesettingsfrm;
  616. +uses {frmAAEditPrefsUnit,}MainUnit,memorybrowserformunit,APIhooktemplatesettingsfrm;
  617.  
  618.  resourcestring
  619.    rsExecuteScript = 'Execute script';
  620. @@ -233,7 +233,7 @@
  621.    fluamode:=state;
  622.    if state then
  623.    begin
  624. -    assemblescreen.Highlighter:=LuaHighlighter;
  625. +    //assemblescreen.Highlighter:=LuaHighlighter;
  626.  
  627.      //change gui to lua style
  628.      button1.Caption:=rsExecuteScript;
  629. @@ -249,7 +249,7 @@
  630.    end
  631.    else
  632.    begin
  633. -    assemblescreen.Highlighter:=AAHighlighter;
  634. +    //assemblescreen.Highlighter:=AAHighlighter;
  635.  
  636.  
  637.      //change gui to autoassembler style
  638. @@ -286,7 +286,7 @@
  639.    if luamode then
  640.    begin
  641.      //execute
  642. -    LUA_DoScript(assemblescreen.Text);
  643. +    LUA_DoScript(assemblescreen.Lines.Text);
  644.      modalresult:=mrok; //not modal anymore, but can still be used to pass info
  645.      if editscript2 or CustomTypeScript then close;
  646.    end
  647. @@ -345,7 +345,7 @@
  648.      assemblescreen.Lines.Clear;
  649.      assemblescreen.Lines.LoadFromFile(opendialog1.filename);
  650.      savedialog1.FileName:=opendialog1.filename;
  651. -    assemblescreen.AfterLoadFromFile;
  652. +    //assemblescreen.AfterLoadFromFile;
  653.  
  654.    end;
  655.  {$endif}
  656. @@ -375,10 +375,10 @@
  657.  
  658.    f:=tfilestream.Create(savedialog1.filename,fmcreate);
  659.    try
  660. -    s:=assemblescreen.text;
  661. -    f.Write(s[1],length(assemblescreen.text));
  662. +    s:=assemblescreen.Lines.Text;
  663. +    f.Write(s[1],length(assemblescreen.Lines.Text));
  664.  
  665. -    assemblescreen.MarkTextAsSaved;
  666. +    //assemblescreen.MarkTextAsSaved;
  667.  
  668.    finally
  669.      f.Free;
  670. @@ -408,9 +408,9 @@
  671.          //call finish routine with script
  672.  
  673.          if modalresult=mrok then
  674. -          callbackroutine(memrec, assemblescreen.text,true)
  675. +          callbackroutine(memrec, assemblescreen.Lines.Text,true)
  676.          else
  677. -          callbackroutine(memrec, assemblescreen.text,false);
  678. +          callbackroutine(memrec, assemblescreen.Lines.Text,false);
  679.  
  680.          action:=cafree;
  681.        end
  682. @@ -419,9 +419,9 @@
  683.        begin
  684.  
  685.          if modalresult=mrok then
  686. -          CustomTypeCallback(customtype, assemblescreen.text,true,luamode)
  687. +          CustomTypeCallback(customtype, assemblescreen.Lines.Text,true,luamode)
  688.          else
  689. -          CustomTypeCallback(customtype, assemblescreen.text,false,luamode);
  690. +          CustomTypeCallback(customtype, assemblescreen.Lines.Text,false,luamode);
  691.  
  692.          action:=cafree;
  693.        end;
  694. @@ -666,7 +666,7 @@
  695.         autoassemble(assemblescreen.lines,false,false,true,false,aa,registeredsymbols) then
  696.      begin
  697.        //add a entry with type 255
  698. -      mainform.AddAutoAssembleScript(assemblescreen.text);
  699. +      mainform.AddAutoAssembleScript(assemblescreen.Lines.Text);
  700.  
  701.  
  702.      end
  703. @@ -1077,7 +1077,7 @@
  704.    if editscript then
  705.      button1.Caption:=strOK;
  706.  
  707. -  assemblescreen.SetFocus;
  708. +  //assemblescreen.SetFocus;
  709.  end;
  710.  
  711.  procedure TfrmAutoInject.assemblescreenKeyDown(Sender: TObject;
  712. @@ -1352,14 +1352,14 @@
  713.  begin
  714.  {$ifndef standalonetrainerwithassembler}
  715.  
  716. -  scripts[length(scripts)-1].script:=assemblescreen.Text;
  717. +  scripts[length(scripts)-1].script:=assemblescreen.Lines.Text;
  718.    setlength(scripts,length(scripts)+1);
  719.  
  720.    scripts[length(scripts)-1].script:='';
  721.    scripts[length(scripts)-1].undoscripts[0].oldscript:='';
  722.    scripts[length(scripts)-1].currentundo:=0;
  723.  
  724. -  assemblescreen.Text:='';
  725. +  assemblescreen.Lines.Text:='';
  726.  
  727.  
  728.    if length(scripts)=2 then //first time new
  729. @@ -1378,20 +1378,20 @@
  730.  begin
  731.  {$ifndef standalonetrainerwithassembler}
  732.  
  733. -  scripts[oldselection].script:=assemblescreen.text;
  734. +  scripts[oldselection].script:=assemblescreen.Lines.Text;
  735.    scripts[oldselection].filename:=opendialog1.FileName;
  736.  
  737. -  assemblescreen.text:=scripts[tlist.SelectedTab].script;
  738. +  assemblescreen.Lines.Text:=scripts[tlist.SelectedTab].script;
  739.    opendialog1.FileName:=scripts[tlist.SelectedTab].filename;
  740.  
  741.    oldtabindex:=tlist.SelectedTab;
  742.  
  743. -  assemblescreen.ClearUndo;
  744. +  //assemblescreen.ClearUndo;
  745.  
  746.  {$endif}
  747.  end;
  748.  
  749. -procedure tfrmAutoInject.gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  750. +{procedure tfrmAutoInject.gutterclick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);
  751.  begin
  752.    if assemblescreen.Lines.Count>line then
  753.    begin
  754. @@ -1400,6 +1400,7 @@
  755.      assemblescreen.SelectLine(true);
  756.    end;
  757.  end;
  758. +}
  759.  
  760.  
  761.  
  762. @@ -1418,11 +1419,11 @@
  763.    assemblescreen.SelLength:=0; }
  764.  
  765.  
  766. -  AAHighlighter:=TSynAASyn.Create(self);
  767. -  CPPHighlighter:=TSynCppSyn.create(self);
  768. -  LuaHighlighter:=TSynLuaSyn.Create(self);
  769. +  //AAHighlighter:=TSynAASyn.Create(self);
  770. +  //CPPHighlighter:=TSynCppSyn.create(self);
  771. +  //LuaHighlighter:=TSynLuaSyn.Create(self);
  772.  
  773. -  assembleSearch:=TSyneditSearch.Create;
  774. +  //assembleSearch:=TSyneditSearch.Create;
  775.  
  776.    tlist:=TTablist.Create(self);
  777.    tlist.height:=20;
  778. @@ -1433,28 +1434,29 @@
  779.    tlist.Parent:=panel2;
  780.  
  781.  
  782. -  assemblescreen:=TSynEdit.Create(self);
  783. -  assemblescreen.Highlighter:=AAHighlighter;
  784. -  assemblescreen.Options:=SYNEDIT_DEFAULT_OPTIONS - [eoScrollPastEol]+[eoTabIndent];
  785. +  assemblescreen:=TMemo.Create(self);
  786. +  //assemblescreen.Highlighter:=AAHighlighter;
  787. +  //assemblescreen.Options:=SYNEDIT_DEFAULT_OPTIONS - [eoScrollPastEol]+[eoTabIndent];
  788.    assemblescreen.Font.Quality:=fqDefault;
  789. -  assemblescreen.WantTabs:=true;
  790. -  assemblescreen.TabWidth:=4;
  791. +  //assemblescreen.WantTabs:=true;
  792. +  //assemblescreen.TabWidth:=4;
  793. +  assemblescreen.WordWrap:=false;
  794. +  assemblescreen.ScrollBars:=ssAutoBoth;
  795. +  //assemblescreen.Gutter.MarksPart.Visible:=false;
  796. +  //assemblescreen.Gutter.Visible:=true;
  797. +  //assemblescreen.Gutter.LineNumberPart.Visible:=true;
  798. +  //assemblescreen.Gutter.LeftOffset:=1;
  799. +  //assemblescreen.Gutter.RightOffset:=1;
  800.  
  801.  
  802. -  assemblescreen.Gutter.MarksPart.Visible:=false;
  803. -  assemblescreen.Gutter.Visible:=true;
  804. -  assemblescreen.Gutter.LineNumberPart.Visible:=true;
  805. -  assemblescreen.Gutter.LeftOffset:=1;
  806. -  assemblescreen.Gutter.RightOffset:=1;
  807. -
  808.    assemblescreen.Align:=alClient;
  809.    assemblescreen.PopupMenu:=PopupMenu1;
  810.    assemblescreen.Parent:=panel2;
  811.  
  812. -  assemblescreen.Gutter.OnGutterClick:=gutterclick;
  813. +  //assemblescreen.Gutter.OnGutterClick:=gutterclick;
  814.  
  815.    assemblescreen.name:='Assemblescreen';
  816. -  assemblescreen.Text:='';
  817. +  assemblescreen.Lines.Text:='';
  818.  
  819.    assemblescreen.OnChange:=assemblescreenchange;
  820.  
  821. @@ -1474,20 +1476,20 @@
  822.        if reg.valueexists('Font.quality') then
  823.          assemblescreen.Font.quality:=TFontQuality(reg.ReadInteger('Font.quality'));
  824.  
  825. -      if reg.valueexists('Show Line Numbers') then
  826. -        assemblescreen.Gutter.linenumberpart.visible:=reg.ReadBool('Show Line Numbers');
  827. +      //if reg.valueexists('Show Line Numbers') then
  828. +        //assemblescreen.Gutter.linenumberpart.visible:=reg.ReadBool('Show Line Numbers');
  829.  
  830. -      if reg.valueexists('Show Gutter') then
  831. -        assemblescreen.Gutter.Visible:=reg.ReadBool('Show Gutter');
  832. +      //if reg.valueexists('Show Gutter') then
  833. +        //assemblescreen.Gutter.Visible:=reg.ReadBool('Show Gutter');
  834.  
  835. -      if reg.valueexists('smart tabs') then
  836. -        if reg.ReadBool('smart tabs') then assemblescreen.Options:=assemblescreen.options+[eoSmartTabs];
  837. +      //if reg.valueexists('smart tabs') then
  838. +        //if reg.ReadBool('smart tabs') then assemblescreen.Options:=assemblescreen.options+[eoSmartTabs];
  839.  
  840. -      if reg.valueexists('tabs to spaces') then
  841. -        if reg.ReadBool('tabs to spaces') then assemblescreen.Options:=assemblescreen.options+[eoTabsToSpaces];
  842. +      //if reg.valueexists('tabs to spaces') then
  843. +        //if reg.ReadBool('tabs to spaces') then assemblescreen.Options:=assemblescreen.options+[eoTabsToSpaces];
  844.  
  845. -      if reg.valueexists('tab width') then
  846. -        assemblescreen.tabwidth:=reg.ReadInteger('tab width');
  847. +      //if reg.valueexists('tab width') then
  848. +        //assemblescreen.tabwidth:=reg.ReadInteger('tab width');
  849.      end;
  850.  
  851.    finally
  852. @@ -1505,13 +1507,13 @@
  853.  procedure TfrmAutoInject.Syntaxhighlighting1Click(Sender: TObject);
  854.  begin
  855.  {$ifndef standalonetrainerwithassembler}
  856. -
  857. +{
  858.    Syntaxhighlighting1.checked:=not Syntaxhighlighting1.checked;
  859.    if Syntaxhighlighting1.checked then //enable
  860.      assemblescreen.Highlighter:=AAHighlighter
  861.    else //disabl
  862.      assemblescreen.Highlighter:=nil;
  863. -
  864. +}
  865.  {$endif}
  866.  end;
  867.  
  868. @@ -1530,7 +1532,7 @@
  869.  
  870.    if messagedlg(Format(rsAreYouSureYouWantToClose, [tlist.TabText[selectedtab]]), mtConfirmation, [mbyes, mbno], 0)=mryes then
  871.    begin
  872. -    scripts[oldtabindex].script:=assemblescreen.text; //save current script
  873. +    scripts[oldtabindex].script:=assemblescreen.Lines.Text; //save current script
  874.      tlist.RemoveTab(selectedtab);
  875.  
  876.      for i:=selectedtab to length(scripts)-2 do
  877. @@ -1542,7 +1544,7 @@
  878.      begin
  879.        oldtabindex:=length(scripts)-1;
  880.        tlist.SelectedTab:=oldtabindex;
  881. -      assemblescreen.text:=scripts[oldtabindex].script;
  882. +      assemblescreen.Lines.Text:=scripts[oldtabindex].script;
  883.        assemblescreen.OnChange(assemblescreen);
  884.      end;
  885.  
  886. @@ -1582,7 +1584,7 @@
  887.   obsolete
  888.    //this will inject the script dll and generate a assembler script the user can use to call the script
  889.    //first set the environment var for uc_home
  890. -  s:=assemblescreen.text;
  891. +  s:=assemblescreen.Lines.Text;
  892.    if not symhandler.getmodulebyname('undercdll.dll',mi) then
  893.    begin
  894.      //dll was not loaded yet
  895. @@ -1641,7 +1643,7 @@
  896.    end else hasjustloadedundercdll:=false;
  897.  
  898.    //now allocate memory for the script and write it to there
  899. -  totalmem:=length(assemblescreen.text);
  900. +  totalmem:=length(assemblescreen.Lines.Text);
  901.    address:=VirtualAllocEx(processhandle,nil,totalmem+512,mem_commit,page_execute_readwrite);
  902.    if address=nil then raise exception.create('Failed allocating memory for the script');
  903.    if not WriteProcessMemory(processhandle,address,@s[1],totalmem,totalwritten) then
  904. @@ -1721,17 +1723,17 @@
  905.  
  906.  procedure TfrmAutoInject.Cut1Click(Sender: TObject);
  907.  begin
  908. -  assemblescreen.CutToClipboard;
  909. +  //assemblescreen.CutToClipboard;
  910.  end;
  911.  
  912.  procedure TfrmAutoInject.Copy1Click(Sender: TObject);
  913.  begin
  914. -  assemblescreen.CopyToClipboard;
  915. +  //assemblescreen.CopyToClipboard;
  916.  end;
  917.  
  918.  procedure TfrmAutoInject.Paste1Click(Sender: TObject);
  919.  begin
  920. -  assemblescreen.PasteFromClipboard;
  921. +  //assemblescreen.PasteFromClipboard;
  922.  end;
  923.  
  924.  procedure TfrmAutoInject.Find1Click(Sender: TObject);
  925. @@ -1744,7 +1746,7 @@
  926.  procedure TfrmAutoInject.FindDialog1Find(Sender: TObject);
  927.  begin
  928.    //scan the text for the given text
  929. -  assemblescreen.SearchReplace(finddialog1.FindText,'',[]);
  930. +  //assemblescreen.SearchReplace(finddialog1.FindText,'',[]);
  931.  
  932.    FindDialog1.close;
  933.  end;
  934. @@ -1753,7 +1755,7 @@
  935.  procedure TfrmAutoInject.AAPref1Click(Sender: TObject);
  936.  var reg: tregistry;
  937.  begin
  938. -  with TfrmAAEditPrefs.create(self) do
  939. +{  with TfrmAAEditPrefs.create(self) do
  940.    begin
  941.      try
  942.        if execute(assemblescreen) then
  943. @@ -1786,6 +1788,7 @@
  944.        free;
  945.      end;
  946.    end;
  947. +}
  948.  end;
  949.  
  950.  procedure TfrmAutoInject.FormDestroy(Sender: TObject);
  951. @@ -1799,7 +1802,7 @@
  952.  
  953.  procedure TfrmAutoInject.Undo1Click(Sender: TObject);
  954.  begin
  955. -  assemblescreen.Undo;
  956. +  //assemblescreen.Undo;
  957.  end;
  958.  
  959.  // \/   http://forum.cheatengine.org/viewtopic.php?t=566415 (jgoemat and some mods by db)
  960. Index: frmExeTrainerGeneratorUnit.pas
  961. ===================================================================
  962. --- frmExeTrainerGeneratorUnit.pas  (wersja 2198)
  963. +++ frmExeTrainerGeneratorUnit.pas  (kopia robocza)
  964. @@ -202,7 +202,7 @@
  965.    if tiny then
  966.    begin
  967.      //temporarily insert this in front of the lua script
  968. -    MainForm.frmLuaTableScript.assemblescreen.BeginUpdate;
  969. +    //MainForm.frmLuaTableScript.assemblescreen.BeginUpdate;
  970.      MainForm.frmLuaTableScript.assemblescreen.Lines.Insert(0, 'RequiredCEVersion='+floattostr(ceversion));
  971.      MainForm.frmLuaTableScript.assemblescreen.Lines.Insert(1, 'if (getCEVersion==nil) or (getCEVersion()<RequiredCEVersion) then');
  972.      MainForm.frmLuaTableScript.assemblescreen.Lines.Insert(2, '  messageDialog(''Please install Cheat Engine ''..RequiredCEVersion, mtError, mbOK)');
  973. @@ -220,7 +220,7 @@
  974.        for i:=0 to 4 do
  975.          MainForm.frmLuaTableScript.assemblescreen.Lines.Delete(0);
  976.  
  977. -      MainForm.frmLuaTableScript.assemblescreen.EndUpdate;
  978. +      //MainForm.frmLuaTableScript.assemblescreen.EndUpdate;
  979.      end;
  980.    end;
  981.  
  982. Index: frmMemoryAllocHandlerUnit.pas
  983. ===================================================================
  984. --- frmMemoryAllocHandlerUnit.pas   (wersja 2198)
  985. +++ frmMemoryAllocHandlerUnit.pas   (kopia robocza)
  986. @@ -10,7 +10,7 @@
  987.  uses
  988.    windows, LCLIntf, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  989.    Dialogs, StdCtrls, symbolhandler, CEFuncProc,NewKernelHandler, autoassembler,
  990. -  ExtCtrls, ComCtrls, stacktrace2, math, Menus, syncobjs, Contnrs, circularbuffer, LResources;
  991. +  ExtCtrls, ComCtrls, {stacktrace2,} math, Menus, syncobjs, Contnrs, circularbuffer, LResources;
  992.  
  993.  
  994.  const
  995. Index: frmModifyRegistersUnit.pas
  996. ===================================================================
  997. --- frmModifyRegistersUnit.pas  (wersja 2198)
  998. +++ frmModifyRegistersUnit.pas  (kopia robocza)
  999. @@ -243,13 +243,13 @@
  1000.    if tempregedit.change_of then tempregedit.new_of:=cbOF.checked;
  1001.  
  1002.    //set a breakpoint at this spot
  1003. -  if startdebuggerifneeded then
  1004. +  {if startdebuggerifneeded then
  1005.    begin
  1006.      if debuggerthread<>nil then
  1007.        debuggerthread.setChangeRegBreakpoint(@tempregedit);
  1008.  
  1009.  
  1010. -  end;
  1011. +  end;}
  1012.  
  1013.    memorybrowser.disassemblerview.Update;
  1014.    modalresult:=mrok;
  1015. Index: frmRegistersunit.pas
  1016. ===================================================================
  1017. --- frmRegistersunit.pas    (wersja 2198)
  1018. +++ frmRegistersunit.pas    (kopia robocza)
  1019. @@ -7,7 +7,7 @@
  1020.  uses
  1021.    windows, LCLIntf, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  1022.    Dialogs, Buttons, ExtCtrls, StdCtrls, frmFloatingPointPanelUnit, NewKernelHandler,
  1023. -  cefuncproc, LResources,Clipbrd, frmStackViewunit;
  1024. +  cefuncproc, LResources,Clipbrd{, frmStackViewunit};
  1025.  
  1026.  type
  1027.  
  1028. @@ -54,7 +54,7 @@
  1029.        stack: pbyte;
  1030.      end;
  1031.  
  1032. -    stackview: TfrmStackView;
  1033. +    //stackview: TfrmStackView;
  1034.  
  1035.      function TagToValue(tag: integer): ptrUint;
  1036.    public
  1037. @@ -298,11 +298,11 @@
  1038.    end;
  1039.  
  1040.  
  1041. -  if stackview<>nil then
  1042. +  {if stackview<>nil then
  1043.    begin
  1044.      stackview.close;
  1045.      stackview.close;
  1046. -  end;
  1047. +  end;}
  1048.  
  1049.    if stack.stack<>nil then
  1050.      freemem(stack.stack);
  1051. @@ -350,11 +350,12 @@
  1052.  begin
  1053.    if stack.stack=nil then exit;
  1054.  
  1055. -  if Stackview=nil then
  1056. +  {if Stackview=nil then
  1057.      stackview:=TfrmStackView.create(self);
  1058.  
  1059.    stackview.SetContextPointer(context, stack.stack, stack.savedsize);
  1060.    stackview.show;
  1061. +}
  1062.  end;
  1063.  
  1064.  initialization
  1065. Index: frmsnapshothandlerUnit.pas
  1066. ===================================================================
  1067. --- frmsnapshothandlerUnit.pas  (wersja 2198)
  1068. +++ frmsnapshothandlerUnit.pas  (kopia robocza)
  1069. @@ -87,7 +87,7 @@
  1070.  {$R *.lfm}
  1071.  
  1072.  uses mainunit, frmSaveSnapshotsUnit, d3dhookUnit, frmD3DHookSnapshotConfigUnit,
  1073. -  StructuresFrm2, frmSelectionlistunit, frmStackViewUnit;
  1074. +  StructuresFrm2, frmSelectionlistunit{, frmStackViewUnit};
  1075.  
  1076.  destructor TSnapshot.destroy;
  1077.  begin
  1078. Index: frmThreadlistunit.pas
  1079. ===================================================================
  1080. --- frmThreadlistunit.pas   (wersja 2198)
  1081. +++ frmThreadlistunit.pas   (kopia robocza)
  1082. @@ -48,7 +48,7 @@
  1083.  
  1084.  implementation
  1085.  
  1086. -uses debugeventhandler, frmstacktraceunit, DebuggerInterfaceAPIWrapper,
  1087. +uses debugeventhandler, {frmstacktraceunit,} DebuggerInterfaceAPIWrapper,
  1088.    ProcessHandlerUnit;
  1089.  
  1090.  resourcestring
  1091. @@ -99,8 +99,8 @@
  1092.  
  1093.      tid:=strtoint('$'+s.Text);
  1094.  
  1095. -    if frmstacktrace=nil then
  1096. -      frmstacktrace:=tfrmstacktrace.create(application);
  1097. +    //if frmstacktrace=nil then
  1098. +      //frmstacktrace:=tfrmstacktrace.create(application);
  1099.  
  1100.  
  1101.      if debuggerthread<>nil then
  1102. @@ -156,9 +156,9 @@
  1103.      end;
  1104.  
  1105.  
  1106. -    frmstacktrace.stacktrace(th, c);
  1107. +    //frmstacktrace.stacktrace(th, c);
  1108.  
  1109. -    frmstacktrace.Show;
  1110. +    //frmstacktrace.Show;
  1111.    end;
  1112.  
  1113.  
  1114. Index: KernelDebugger.pas
  1115. ===================================================================
  1116. --- KernelDebugger.pas  (wersja 2198)
  1117. +++ KernelDebugger.pas  (kopia robocza)
  1118. @@ -12,7 +12,7 @@
  1119.  
  1120.  implementation
  1121.  
  1122. -uses frmProcessWatcherUnit,formchangedaddresses,memorybrowserformunit, frmstacktraceunit;
  1123. +uses frmProcessWatcherUnit,formchangedaddresses,memorybrowserformunit{, frmstacktraceunit};
  1124.  
  1125.  
  1126.  end.
  1127. Index: LuaHandler.pas
  1128. ===================================================================
  1129. --- LuaHandler.pas  (wersja 2198)
  1130. +++ LuaHandler.pas  (kopia robocza)
  1131. @@ -59,7 +59,7 @@
  1132.  
  1133.  implementation
  1134.  
  1135. -uses mainunit, mainunit2, luaclass, frmluaengineunit, plugin, pluginexports, MemoryRecordUnit,
  1136. +uses mainunit, mainunit2, luaclass, {frmluaengineunit,} plugin, pluginexports, MemoryRecordUnit,
  1137.    debuggertypedefinitions, symbolhandler, frmautoinjectunit, simpleaobscanner,
  1138.    addresslist, memscan, foundlisthelper, cesupport, DBK32functions, sharedMemory,
  1139.    disassemblerComments, disassembler, LuaCanvas, LuaPen, LuaFont, LuaBrush, LuaPicture, LuaMenu,
  1140. @@ -123,7 +123,7 @@
  1141.      end;
  1142.    end;
  1143.  
  1144. -  if (result=LUA_ERRRUN) and (errf=0) then //an error occured and no error handler was specified
  1145. +{  if (result=LUA_ERRRUN) and (errf=0) then //an error occured and no error handler was specified
  1146.    begin
  1147.      if GetCurrentThreadId=MainThreadID then
  1148.      begin
  1149. @@ -155,6 +155,7 @@
  1150.        end;
  1151.      end;
  1152.    end;
  1153. +}
  1154.  end;
  1155.  
  1156.  function lua_dostring(L: Plua_State; const str: PChar): Integer;
  1157. @@ -894,7 +895,7 @@
  1158.  function print2(param: pointer): pointer;
  1159.  var usesluaengineform: boolean;
  1160.  begin
  1161. -  usesluaengineform:=false;
  1162. +{  usesluaengineform:=false;
  1163.  
  1164.    if printoutput=nil then
  1165.    begin
  1166. @@ -914,6 +915,7 @@
  1167.      printoutput:=nil;
  1168.  
  1169.    result:=nil;
  1170. +}
  1171.  end;
  1172.  
  1173.  function print(L: PLua_State): integer; cdecl;
  1174. @@ -2101,7 +2103,7 @@
  1175.      else
  1176.        method:=bpmDebugRegister;
  1177.  
  1178. -    try
  1179. +    {try
  1180.  
  1181.        if startdebuggerifneeded(false) then
  1182.        begin
  1183. @@ -2116,7 +2118,7 @@
  1184.        end;
  1185.  
  1186.      except
  1187. -    end;
  1188. +    end;}
  1189.    end;
  1190.  
  1191.    lua_pop(L, lua_gettop(L)); //clear the stack
  1192. Index: MainUnit.pas
  1193. ===================================================================
  1194. --- MainUnit.pas    (wersja 2198)
  1195. +++ MainUnit.pas    (kopia robocza)
  1196. @@ -861,9 +861,9 @@
  1197.    FoundCodeUnit, advancedoptionsunit,
  1198.    frmProcessWatcherUnit, formPointerOrPointeeUnit, OpenSave, formmemoryregionsunit,
  1199.    formProcessInfo
  1200. -  , PasteTableentryFRM, pointerscannerfrm, PointerscannerSettingsFrm,
  1201. +  , PasteTableentryFRM, {pointerscannerfrm, PointerscannerSettingsFrm,}
  1202.    frmFloatingPointPanelUnit,
  1203. -  pluginexports, DBK32functions, frmUltimapUnit, frmSetCrosshairUnit, StructuresFrm2,
  1204. +  pluginexports, DBK32functions, {frmUltimapUnit,} frmSetCrosshairUnit, StructuresFrm2,
  1205.    frmMemoryViewExUnit, frmD3DHookSnapshotConfigUnit, frmSaveSnapshotsUnit, frmsnapshothandlerUnit;
  1206.  
  1207.  resourcestring
  1208. @@ -1132,7 +1132,7 @@
  1209.  
  1210.      FreeAndNil(changescript1);
  1211.  
  1212. -    frmLuaTableScript.assemblescreen.ClearAll;
  1213. +    frmLuaTableScript.assemblescreen.Lines.Clear;
  1214.  
  1215.      frmLuaTableScript.Free;
  1216.    end;
  1217. @@ -7347,9 +7347,9 @@
  1218.    i: integer;
  1219.    findpointeroffsets: boolean;
  1220.  
  1221. -  frmPointerScanner: TfrmPointerScanner;
  1222. +  //frmPointerScanner: TfrmPointerScanner;
  1223.    memrec: TMemoryRecord;
  1224. -begin
  1225. +begin{
  1226.    if addresslist.selectedRecord <> nil then
  1227.    begin
  1228.      memrec := addresslist.selectedRecord;
  1229. @@ -7387,7 +7387,7 @@
  1230.        frmPointerScanner.Method3Fastspeedandaveragememoryusage1.Click;
  1231.      end;
  1232.  
  1233. -  end;
  1234. +  end;}
  1235.  end;
  1236.  
  1237.  procedure testx(arg1: pointer; arg2: pointer; arg3: pointer); stdcall;
  1238. Index: MemoryBrowserFormUnit.pas
  1239. ===================================================================
  1240. --- MemoryBrowserFormUnit.pas   (wersja 2198)
  1241. +++ MemoryBrowserFormUnit.pas   (kopia robocza)
  1242. @@ -9,7 +9,7 @@
  1243.    Controls, Forms, Dialogs, frmMemoryAllocHandlerUnit, math, StdCtrls, Spin,
  1244.    ExtCtrls,CEFuncProc,symbolhandler,Clipbrd, Menus,plugin,CEDebugger,KernelDebugger,
  1245.    Assemblerunit,disassembler,addressparser, Buttons,imagehlp, Contnrs,
  1246. -  disassemblerviewunit, peinfofunctions ,dissectcodethread,stacktrace2,
  1247. +  disassemblerviewunit, peinfofunctions ,dissectcodethread,//stacktrace2,
  1248.    NewKernelHandler, ComCtrls, LResources, byteinterpreter, StrUtils, hexviewunit,
  1249.    debughelper, debuggertypedefinitions,frmMemviewPreferencesUnit, registry,
  1250.    scrollboxex, disassemblercomments, multilineinputqueryunit, frmMemoryViewExUnit,
  1251. @@ -510,7 +510,7 @@
  1252.    debugeventhandler,
  1253.  
  1254.    findwindowunit,
  1255. -  frmstacktraceunit,
  1256. +  //frmstacktraceunit,
  1257.    frmBreakThreadUnit,
  1258.    FormDebugStringsUnit,
  1259.    frmDissectWindowUnit,
  1260. @@ -536,28 +536,28 @@
  1261.    frmSelectionlistunit,
  1262.    symbolconfigunit,
  1263.    frmFloatingPointPanelUnit,
  1264. -  frmTracerUnit,
  1265. +  //frmTracerUnit,
  1266.    dissectcodeunit,
  1267.    driverlist,
  1268.    formChangedAddresses,
  1269.    peINFOunit,
  1270.    frmGDTunit,
  1271.    frmIDTunit,
  1272. -  frmDisassemblyscanunit,
  1273. +  //frmDisassemblyscanunit,
  1274.    ServiceDescriptorTables,
  1275.    frmReferencedStringsUnit,
  1276.    Structuresfrm,
  1277.    Structuresfrm2,
  1278. -  pointerscannerfrm,
  1279. +  //pointerscannerfrm,
  1280.    frmDebugEventsUnit,
  1281.    frmPagingUnit,
  1282. -  frmluaengineunit,
  1283. +  //frmluaengineunit,
  1284.    disassemblerviewlinesunit,
  1285.    frmBreakpointConditionunit,
  1286. -  frmStringMapUnit,
  1287. -  frmStringpointerscanUnit,
  1288. +  //frmStringMapUnit,
  1289. +  //frmStringpointerscanUnit,
  1290.    frmFilePatcherUnit,
  1291. -  frmUltimapUnit,
  1292. +  //frmUltimapUnit,
  1293.    frmAssemblyScanUnit;
  1294.  
  1295.  
  1296. @@ -794,12 +794,12 @@
  1297.  
  1298.  procedure TMemoryBrowser.miLuaEngineClick(Sender: TObject);
  1299.  begin
  1300. -  //start lua engine window
  1301. +{  //start lua engine window
  1302.    if frmLuaEngine=nil then
  1303.      frmLuaEngine:=TfrmLuaEngine.create(MemoryBrowser); //main mb
  1304.  
  1305.    frmLuaEngine.show;
  1306. -
  1307. +}
  1308.  end;
  1309.  
  1310.  procedure TMemoryBrowser.miPagingClick(Sender: TObject);
  1311. @@ -941,21 +941,23 @@
  1312.  
  1313.  procedure TMemoryBrowser.MenuItem10Click(Sender: TObject);
  1314.  begin
  1315. -  if frmStringMap=nil then
  1316. +{  if frmStringMap=nil then
  1317.      frmStringMap:=TfrmStringMap.Create(application);
  1318.  
  1319.    frmStringMap.show;
  1320. +}
  1321.  end;
  1322.  
  1323.  procedure TMemoryBrowser.MenuItem11Click(Sender: TObject);
  1324.  begin
  1325. -  if frmStringPointerscan=nil then
  1326. +{  if frmStringPointerscan=nil then
  1327.      frmStringpointerscan:=Tfrmstringpointerscan.create(MemoryBrowser);
  1328.  
  1329.    frmStringpointerscan.rbStringscan.Checked:=true;
  1330.    frmStringpointerscan.edtBase.text:=inttohex(hexview.address,8);
  1331.  
  1332.    frmStringpointerscan.show;
  1333. +}
  1334.  end;
  1335.  
  1336.  procedure TMemoryBrowser.MenuItem12Click(Sender: TObject);
  1337. @@ -968,10 +970,11 @@
  1338.  
  1339.  procedure TMemoryBrowser.MenuItem14Click(Sender: TObject);
  1340.  begin
  1341. -  if frmUltimap=nil then
  1342. +  {if frmUltimap=nil then
  1343.      frmUltimap:=TfrmUltimap.create(application);
  1344.  
  1345.    frmUltimap.show;
  1346. +}
  1347.  end;
  1348.  
  1349.  procedure TMemoryBrowser.MenuItem17Click(Sender: TObject);
  1350. @@ -985,9 +988,9 @@
  1351.  end;
  1352.  
  1353.  procedure TMemoryBrowser.MenuItem20Click(Sender: TObject);
  1354. -var t: Tfrmtracer;
  1355. +//var t: Tfrmtracer;
  1356.  begin
  1357. -  t:=TFrmTracer.create(self,false,true);
  1358. +  {t:=TFrmTracer.create(self,false,true);
  1359.  
  1360.    try
  1361.      t.miLoad.Click;
  1362. @@ -1000,7 +1003,7 @@
  1363.    end;
  1364.  
  1365.    t.show;
  1366. -
  1367. +}
  1368.  end;
  1369.  
  1370.  
  1371. @@ -1060,13 +1063,14 @@
  1372.  
  1373.  procedure TMemoryBrowser.miPointerSpiderClick(Sender: TObject);
  1374.  begin
  1375. -  if frmStringPointerscan=nil then
  1376. +{  if frmStringPointerscan=nil then
  1377.      frmStringpointerscan:=Tfrmstringpointerscan.create(application);
  1378.  
  1379.    frmStringpointerscan.rbDatascan.Checked:=true;
  1380.    frmStringpointerscan.edtBase.text:=inttohex(hexview.address,8);
  1381.  
  1382.    frmStringpointerscan.show;
  1383. +}
  1384.  end;
  1385.  
  1386.  procedure TMemoryBrowser.MenuItem2Click(Sender: TObject);
  1387. @@ -1247,7 +1251,7 @@
  1388.  
  1389.  procedure TMemoryBrowser.MenuItem8Click(Sender: TObject);
  1390.  begin
  1391. -  TFrmTracer.create(self,true).show;
  1392. +  //TFrmTracer.create(self,true).show;
  1393.  end;
  1394.  
  1395.  procedure TMemoryBrowser.MenuItem9Click(Sender: TObject);
  1396. @@ -1993,10 +1997,11 @@
  1397.  
  1398.  procedure TMemoryBrowser.Stacktrace1Click(Sender: TObject);
  1399.  begin
  1400. -  if frmstacktrace=nil then
  1401. +  {if frmstacktrace=nil then
  1402.      frmstacktrace:=tfrmstacktrace.create(application);
  1403.  
  1404.    frmstacktrace.Show;
  1405. +}
  1406.  end;
  1407.  
  1408.  procedure TMemoryBrowser.Threadlist1Click(Sender: TObject);
  1409. @@ -2664,11 +2669,12 @@
  1410.  
  1411.  procedure TMemoryBrowser.miTogglebreakpointClick(Sender: TObject);
  1412.  begin
  1413. -  if startdebuggerifneeded(true) then
  1414. +  {if startdebuggerifneeded(true) then
  1415.    begin
  1416.      DebuggerThread.ToggleOnExecuteBreakpoint(disassemblerview.SelectedAddress);
  1417.      disassemblerview.Update;
  1418.    end;
  1419. +}
  1420.  end;
  1421.  
  1422.  procedure TMemoryBrowser.Breakpointlist1Click(Sender: TObject);
  1423. @@ -2696,8 +2702,8 @@
  1424.  begin
  1425.  
  1426.  {$ifndef net}
  1427. -  with tfrmpointerscanner.create(self) do
  1428. -    show;
  1429. +  //with tfrmpointerscanner.create(self) do
  1430. +    //show;
  1431.  {$endif}
  1432.  end;
  1433.  
  1434. @@ -2814,13 +2820,14 @@
  1435.    if frmAssemblyScan.ShowModal=mrok then
  1436.    begin
  1437.      if frmAssemblyScan.mAssemblerSearch.lines.Count=0 then exit;
  1438. -    with TfrmDisassemblyscan.create(self) do
  1439. +    {with TfrmDisassemblyscan.create(self) do
  1440.      begin
  1441.        startaddress:=frmAssemblyScan.startaddress;
  1442.        stopaddress:=frmAssemblyScan.stopaddress;
  1443.        stringstofind:=frmAssemblyScan.mAssemblerSearch.lines;
  1444.        show;
  1445.      end;
  1446. +    }
  1447.  
  1448.    end;
  1449.  end;
  1450. @@ -2920,7 +2927,7 @@
  1451.  
  1452.  procedure TMemoryBrowser.Breakandtraceinstructions1Click(Sender: TObject);
  1453.  begin
  1454. -  TFrmTracer.create(self).show;
  1455. +  //TFrmTracer.create(self).show;
  1456.  end;
  1457.  
  1458.  procedure TMemoryBrowser.debuggerpopupPopup(Sender: TObject);
  1459. @@ -3196,9 +3203,10 @@
  1460.  procedure TMemoryBrowser.FindwhatThiscodeAccesses(address: ptrUint);
  1461.  var i: integer;
  1462.  begin
  1463. -  if not startdebuggerifneeded then exit;
  1464. +  {if not startdebuggerifneeded then exit;
  1465.    if debuggerthread<>nil then
  1466.      debuggerthread.FindWhatCodeAccesses(address);
  1467. +}
  1468.  end;
  1469.  
  1470.  procedure TMemoryBrowser.Findoutwhataddressesthisinstructionaccesses1Click(
  1471. @@ -3331,11 +3339,11 @@
  1472.          end;
  1473.        end;
  1474.  
  1475. -      if frmstacktrace=nil then
  1476. -        frmstacktrace:=tfrmstacktrace.create(self);
  1477. +      //if frmstacktrace=nil then
  1478. +        //frmstacktrace:=tfrmstacktrace.create(self);
  1479.  
  1480.  
  1481. -      lvstacktracedata.Items.Count:=frmstacktrace.ListView1.Items.Count;
  1482. +      //lvstacktracedata.Items.Count:=frmstacktrace.ListView1.Items.Count;
  1483.      end
  1484.      else
  1485.      begin
  1486. @@ -3377,7 +3385,7 @@
  1487.            readprocessmemory(processhandle, pointer(lastdebugcontext.{$ifdef cpu64}rsp{$else}esp{$endif}),s, FStacktraceSize,x);
  1488.            strace.Clear;
  1489.  
  1490. -          ce_stacktrace(lastdebugcontext.{$ifdef cpu64}rsp{$else}esp{$endif}, lastdebugcontext.{$ifdef cpu64}rbp{$else}ebp{$endif}, lastdebugcontext.{$ifdef cpu64}rip{$else}eip{$endif}, pbytearray(s),x, strace,false,Nonsystemmodulesonly1.checked or modulesonly1.Checked,Nonsystemmodulesonly1.checked,0,miAddEBP.checked);
  1491. +          //ce_stacktrace(lastdebugcontext.{$ifdef cpu64}rsp{$else}esp{$endif}, lastdebugcontext.{$ifdef cpu64}rbp{$else}ebp{$endif}, lastdebugcontext.{$ifdef cpu64}rip{$else}eip{$endif}, pbytearray(s),x, strace,false,Nonsystemmodulesonly1.checked or modulesonly1.Checked,Nonsystemmodulesonly1.checked,0,miAddEBP.checked);
  1492.  
  1493.            lvstacktracedata.Items.Count:=strace.Count;
  1494.          finally
  1495. @@ -3478,14 +3486,14 @@
  1496.  
  1497.    //do a stacktrace and find the return address
  1498.  
  1499. -  if frmstacktrace=nil then
  1500. -    frmstacktrace:=tfrmstacktrace.create(self);
  1501. +  //if frmstacktrace=nil then
  1502. +    //frmstacktrace:=tfrmstacktrace.create(self);
  1503.  
  1504. -  if frmStacktrace.ListView1.Items.Count>0 then
  1505. +  {if frmStacktrace.ListView1.Items.Count>0 then
  1506.    begin
  1507.      result:=symhandler.getAddressFromName(frmStacktrace.ListView1.Items[0].SubItems[2], false,haserror);
  1508.      if haserror then result:=0;
  1509. -  end;
  1510. +  end;}
  1511.  
  1512.    if result=0 then
  1513.    begin
  1514. @@ -3531,7 +3539,7 @@
  1515.  
  1516.    if stacktrace2.checked then
  1517.    begin
  1518. -
  1519. +    {
  1520.      //show frmstacktrace
  1521.      if frmStacktrace=nil then
  1522.      begin
  1523. @@ -3542,7 +3550,7 @@
  1524.      begin
  1525.        item.Caption:=frmStacktrace.ListView1.Items[item.index].SubItems[2]; //returnaddress
  1526.        item.SubItems.Add(frmStacktrace.ListView1.Items[item.index].SubItems[3]); //subitems address
  1527. -    end;
  1528. +    end;}
  1529.    end
  1530.    else
  1531.    if all1.checked then
  1532. @@ -3606,7 +3614,7 @@
  1533.      begin
  1534.        if item.index<strace.count then
  1535.        begin
  1536. -        seperatestacktraceline(strace[item.index], address,bytes,details);
  1537. +        //seperatestacktraceline(strace[item.index], address,bytes,details);
  1538.          item.Caption:=address;
  1539.          item.SubItems.Add(bytes);
  1540.          item.SubItems.Add(details);
  1541. @@ -3879,8 +3887,8 @@
  1542.  
  1543.    caption:=Format(rsMemoryViewerCurrentlyDebuggingThread, [inttohex(threadid, 1)]);
  1544.  
  1545. -  if frmstacktrace<>nil then
  1546. -    frmstacktrace.stacktrace(threadhandle, lastdebugcontext);
  1547. +  //if frmstacktrace<>nil then
  1548. +    //frmstacktrace.stacktrace(threadhandle, lastdebugcontext);
  1549.  
  1550.    if processhandler.SystemArchitecture=archX86 then
  1551.      disassemblerview.SelectedAddress:=lastdebugcontext.{$ifdef CPU64}rip{$else}eip{$endif}
  1552. Index: OpenSave.pas
  1553. ===================================================================
  1554. --- OpenSave.pas    (wersja 2198)
  1555. +++ OpenSave.pas    (kopia robocza)
  1556. @@ -1095,7 +1095,7 @@
  1557.    begin
  1558.      luascript:=CheatTable.AppendChild(doc.CreateElement('LuaScript'));
  1559.      luascript.TextContent:=Utf8ToAnsi(mainform.frmLuaTableScript.assemblescreen.text);
  1560. -    mainform.frmLuaTableScript.assemblescreen.MarkTextAsSaved;
  1561. +    //mainform.frmLuaTableScript.assemblescreen.MarkTextAsSaved;
  1562.    end;
  1563.  
  1564.    //disassemblercomments
  1565. Index: plugin.pas
  1566. ===================================================================
  1567. --- plugin.pas  (wersja 2198)
  1568. +++ plugin.pas  (kopia robocza)
  1569. @@ -873,7 +873,7 @@
  1570.  
  1571.  implementation
  1572.  
  1573. -uses MainUnit,memorybrowserformunit,formsettingsunit, pluginexports, SynHighlighterAA, DBK32functions, luahandler;
  1574. +uses MainUnit,memorybrowserformunit,formsettingsunit, pluginexports, {SynHighlighterAA,} DBK32functions, luahandler;
  1575.  
  1576.  resourcestring
  1577.    rsErrorEnabling = 'Error enabling %s';
  1578. @@ -1798,8 +1798,8 @@
  1579.    exportedfunctions.disassembleEx:=@ce_disassemble;
  1580.    exportedfunctions.loadModule:=@ce_loadModule;
  1581.  
  1582. -  exportedfunctions.aa_AddExtraCommand:=@aa_AddExtraCommand;
  1583. -  exportedfunctions.aa_RemoveExtraCommand:=@aa_RemoveExtraCommand;
  1584. +  //exportedfunctions.aa_AddExtraCommand:=@aa_AddExtraCommand;
  1585. +  //exportedfunctions.aa_RemoveExtraCommand:=@aa_RemoveExtraCommand;
  1586.  
  1587.    //version 4 init
  1588.    exportedfunctions.createTableEntry:=@ce_createTableEntry;
  1589. Index: StructuresFrm2.pas
  1590. ===================================================================
  1591. --- StructuresFrm2.pas  (wersja 2198)
  1592. +++ StructuresFrm2.pas  (kopia robocza)
  1593. @@ -525,7 +525,7 @@
  1594.  {$R *.lfm}
  1595.  
  1596.  uses MainUnit, mainunit2, frmStructures2ElementInfoUnit, MemoryBrowserFormUnit,
  1597. -  frmStructureLinkerUnit, frmgroupscanalgoritmgeneratorunit, frmStringPointerScanUnit;
  1598. +  frmStructureLinkerUnit, frmgroupscanalgoritmgeneratorunit{, frmStringPointerScanUnit};
  1599.  
  1600.  resourcestring
  1601.    rsAddressValue = 'Address: Value';
  1602. @@ -2001,10 +2001,10 @@
  1603.  
  1604.  procedure TStructColumn.SpiderClick(sender: TObject);
  1605.  //Opens the structure spider on the current address
  1606. -var f: Tfrmstringpointerscan;
  1607. +var //f: Tfrmstringpointerscan;
  1608.    ss: ptruint;
  1609.  begin
  1610. -  f:=Tfrmstringpointerscan.create(application);
  1611. +{  f:=Tfrmstringpointerscan.create(application);
  1612.  
  1613.    f.rbDatascan.Checked:=true;
  1614.    f.edtBase.text:=edtAddress.Text;
  1615. @@ -2020,6 +2020,7 @@
  1616.  
  1617.  
  1618.    f.show;
  1619. +}
  1620.  end;
  1621.  
  1622.  procedure TStructColumn.SetCaptionClick(sender: TObject);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!