View previous topic :: View next topic |
Author |
Message |
Dark Byte Site Admin Reputation: 458
Joined: 09 May 2003 Posts: 25296 Location: The netherlands
|
Posted: Sun Mar 05, 2017 7:37 pm Post subject: Lazarus 1.6.4 |
|
|
Lazarus 1.6.4 is out, has anyone tried that version yet ?
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.
Like my help? Join me on Patreon so i can keep helping |
|
Back to top |
|
|
backspace7410 How do I cheat? Reputation: 0
Joined: 15 Jun 2016 Posts: 2
|
Posted: Mon Mar 06, 2017 10:21 pm Post subject: Re: Lazarus 1.6.4 |
|
|
lazarus 1.6.4
fpc 3.0.2
svn Revision :54278
formdisignerunit.pas compile error
(x64 lazarus build)
GlobalDesignHook.AddHandlerGetMethodName(ogm);
formdesignerunit.pas(581,47) Error: Incompatible type for arg no. 1: Got "TFormDesigner.ogm(const TMethod;TObject):AnsiString;", expected "<procedure variable type of function(const TMethod;TObject;TPersistent):AnsiString of object;Register>"
/////////////////////////////////////////////
forum.cheatengine.org/viewtopic.php?t=586710
How to compile the DLL version of the Cheat Engine?
Someone inquired
I tried it myself and Lazarus does not have DLLPROC and can not find the main thread
and cheatengine.lpr
uses code
/*first...
LuaCustomType*/
It is possible to call a simple message box in the DLL after annotating the uses clause
I do not have a DLLPROC in my Lazarus source
I do not know how to create a mainthread class
If you have a cheat engine source compiled for the DLL, it will be very easy to bypass the cheat engine
|
|
Back to top |
|
|
Exeter Master Cheater Reputation: 1
Joined: 03 Feb 2010 Posts: 398
|
Posted: Tue Mar 07, 2017 5:28 am Post subject: |
|
|
I might be doing something wrong, but I get an error when compiling CE in this version.
Code: | Compile Project, Mode: debug-nomt 64-bit, Target: bin\cheatengine-x86_64.exe: Exit code 1, Errors: 1
formdesignerunit.pas(581,47) Error: Incompatible type for arg no. 1: Got "TFormDesigner.ogm(const TMethod;TObject):AnsiString;", expected "<procedure variable type of function(const TMethod;TObject;TPersistent):AnsiString of object;Register>"
|
_________________
|
|
Back to top |
|
|
Dark Byte Site Admin Reputation: 458
Joined: 09 May 2003 Posts: 25296 Location: The netherlands
|
Posted: Tue Mar 07, 2017 5:35 am Post subject: |
|
|
see if you can fix it. I haven't changed to it so no idea (that's why I asked)
(Probably a function header change)
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.
Like my help? Join me on Patreon so i can keep helping |
|
Back to top |
|
|
mgr.inz.Player I post too much Reputation: 218
Joined: 07 Nov 2008 Posts: 4438 Location: W kraju nad Wisla. UTC+01:00
|
Posted: Tue Mar 07, 2017 1:26 pm Post subject: |
|
|
https://docs.google.com/uc?authuser=0&id=0BwMAnE6mjogMdXU4ZGx4NjJ3SHc&export=download
Compiled with vanilla Lazarus 1.6.4 and this patch:
Code: | Index: formdesignerunit.pas
===================================================================
--- formdesignerunit.pas (wersja 2902)
+++ formdesignerunit.pas (kopia robocza)
@@ -160,7 +160,7 @@
procedure onRenameMethod(const CurName, NewName: String);
procedure onShowMethod(const Name: String);
function onCreateMethod(const Name: ShortString; ATypeInfo: PTypeInfo; APersistent: TPersistent; const APropertyPath: string): TMethod;
- function ogm(const Method: TMethod; CheckOwner: TObject): String;
+ function ogm(const Method: TMethod; CheckOwner: TObject; APersistent: TPersistent): String;
procedure OnGetMethods(TypeData: PTypeData; Proc: TGetStrProc);
procedure OnGetCompatibleMethods(InstProp: PInstProp; const Proc: TGetStrProc);
@@ -851,7 +851,7 @@
end;
-function TFormDesigner.ogm(const Method: TMethod; CheckOwner: TObject): String;
+function TFormDesigner.ogm(const Method: TMethod; CheckOwner: TObject; APersistent: TPersistent): String;
begin
if method.code=nil then
result:=''
|
Noticed bugs:
- lazarus 1.6.4 doesn't contain patch from revision 53721 (http://bugs.freepascal.org/view.php?id=30826)
_________________
|
|
Back to top |
|
|
mgr.inz.Player I post too much Reputation: 218
Joined: 07 Nov 2008 Posts: 4438 Location: W kraju nad Wisla. UTC+01:00
|
Posted: Sat Mar 11, 2017 4:00 am Post subject: |
|
|
Pray tell, how can I check other issue that is present in Lazarus 1.6.0. I meant this one: "treeview selected node visibility".
_________________
|
|
Back to top |
|
|
Dark Byte Site Admin Reputation: 458
Joined: 09 May 2003 Posts: 25296 Location: The netherlands
|
Posted: Sat Mar 11, 2017 4:47 am Post subject: |
|
|
no idea. see if this one needs extra patches to be usable like 1.6.0 does (flashes, multiple screen crashes, popup issues, header control mouse locks, minimizing form issues, etc...)
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.
Like my help? Join me on Patreon so i can keep helping |
|
Back to top |
|
|
mgr.inz.Player I post too much Reputation: 218
Joined: 07 Nov 2008 Posts: 4438 Location: W kraju nad Wisla. UTC+01:00
|
Posted: Sat Mar 11, 2017 11:23 am Post subject: |
|
|
I meant your patch for treeview.inc
Dark Byte wrote: | and treeview.inc also has a small patch so that shift selecting won't call makevisible for every selected entry |
Code: | Index: treeview.inc
===================================================================
--- treeview.inc (wersja 53818)
+++ treeview.inc (kopia robocza)
@@ -4282,7 +4282,8 @@
if Assigned(Value) then
begin
Value.Selected := True;
- Value.MakeVisible;
+ if FSelectionChangeEventLock = 0 then
+ Value.MakeVisible;
end;
InternalSelectionChanged;
end;
@@ -4450,6 +4451,9 @@
lAccessibleObject.AccessibleValue := lSelectedText;
if Assigned(OnSelectionChanged) then OnSelectionChanged(Self);
+
+ if (FSelectedNode<>nil) and (not FSelectedNode.IsVisible) then
+ FSelectedNode.MakeVisible;
end;
function TCustomTreeView.IsInsertMarkVisible: boolean; |
How can I check it's not needed anymore? Any steps to reproduce?
- flashes - fixed
- multiple screen crashes - not tested (anyway, this patch is missing)
- popup issues - fixed
- header control mouse locks - REMAINS (patch is missing)
- minimizing form issues - REMAINS (patch is missing)
- "won't call makevisible for every selected entry" - I do not know...
_________________
|
|
Back to top |
|
|
Dark Byte Site Admin Reputation: 458
Joined: 09 May 2003 Posts: 25296 Location: The netherlands
|
Posted: Sun Mar 12, 2017 4:04 am Post subject: |
|
|
i kinda forgot what the makevisible is about, but i think it has to do with structure dissect and multiselections when it has scrolled vertical. (+deleting things)
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.
Like my help? Join me on Patreon so i can keep helping |
|
Back to top |
|
|
mgr.inz.Player I post too much Reputation: 218
Joined: 07 Nov 2008 Posts: 4438 Location: W kraju nad Wisla. UTC+01:00
|
Posted: Sun Mar 12, 2017 6:28 am Post subject: |
|
|
I think I know what the issue was.
- when you select first entry, then scroll down (so this entry is not visible) and select last entry (with left click and SHIFT key pressed) treeview will scroll vertical automatically so last entry will be at the bottom.
- when you select first entry, then scroll up (so this entry is not visible) and select last entry (with left click and SHIFT key pressed) treeview will scroll vertical automatically so last entry will be at the top.
It's not fixed in Lazarus 1.6.4.
_________________
|
|
Back to top |
|
|
|