Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Lazarus 1.6.4

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> Cheat Engine Source
View previous topic :: View next topic  
Author Message
Dark Byte
Site Admin
Reputation: 338

Joined: 09 May 2003
Posts: 19894
Location: The netherlands

PostPosted: Sun Mar 05, 2017 7:37 pm    Post subject: Lazarus 1.6.4 Reply with quote

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.
Back to top
View user's profile Send private message MSN Messenger
backspace7410
How do I cheat?
Reputation: 0

Joined: 15 Jun 2016
Posts: 2

PostPosted: Mon Mar 06, 2017 10:21 pm    Post subject: Re: Lazarus 1.6.4 Reply with quote

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
View user's profile Send private message
Exeter
Master Cheater
Reputation: 1

Joined: 03 Feb 2010
Posts: 398

PostPosted: Tue Mar 07, 2017 5:28 am    Post subject: Reply with quote

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
View user's profile Send private message
Dark Byte
Site Admin
Reputation: 338

Joined: 09 May 2003
Posts: 19894
Location: The netherlands

PostPosted: Tue Mar 07, 2017 5:35 am    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message MSN Messenger
mgr.inz.Player
I post too much
Reputation: 148

Joined: 07 Nov 2008
Posts: 4173
Location: W kraju nad Wisla. UTC+01:00

PostPosted: Tue Mar 07, 2017 1:26 pm    Post subject: Reply with quote

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
View user's profile Send private message MSN Messenger
mgr.inz.Player
I post too much
Reputation: 148

Joined: 07 Nov 2008
Posts: 4173
Location: W kraju nad Wisla. UTC+01:00

PostPosted: Sat Mar 11, 2017 4:00 am    Post subject: Reply with quote

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
View user's profile Send private message MSN Messenger
Dark Byte
Site Admin
Reputation: 338

Joined: 09 May 2003
Posts: 19894
Location: The netherlands

PostPosted: Sat Mar 11, 2017 4:47 am    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message MSN Messenger
mgr.inz.Player
I post too much
Reputation: 148

Joined: 07 Nov 2008
Posts: 4173
Location: W kraju nad Wisla. UTC+01:00

PostPosted: Sat Mar 11, 2017 11:23 am    Post subject: Reply with quote

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
View user's profile Send private message MSN Messenger
Dark Byte
Site Admin
Reputation: 338

Joined: 09 May 2003
Posts: 19894
Location: The netherlands

PostPosted: Sun Mar 12, 2017 4:04 am    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message MSN Messenger
mgr.inz.Player
I post too much
Reputation: 148

Joined: 07 Nov 2008
Posts: 4173
Location: W kraju nad Wisla. UTC+01:00

PostPosted: Sun Mar 12, 2017 6:28 am    Post subject: Reply with quote

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
View user's profile Send private message MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> Cheat Engine Source All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites