paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:59:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@64682 -
This commit is contained in:
mattias 2021-02-28 08:51:36 +00:00
parent f45d7ed2c4
commit 388532a797
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/jitforms.pp
View File

@ -1591,6 +1591,8 @@ begin
Pointer(Pointer(NewVMT)+vmtMethodStart)^, Pointer(Pointer(NewVMT)+vmtMethodStart)^,
vmtTailSize); vmtTailSize);
//debugln(['TJITComponentList.CreateNewJITClass AncestorClass=',AncestorClass.ClassName,' NewClassName=',NewClassName,' NewUnitName=',NewUnitName,' vmtTailSize=',vmtTailSize]);
// override 'ValidateRename' for TComponent descendants // override 'ValidateRename' for TComponent descendants
if AncestorClass.InheritsFrom(TComponent) then begin if AncestorClass.InheritsFrom(TComponent) then begin
PPointer(Pointer(NewVMT)+TComponentValidateRenameOffset)^:= PPointer(Pointer(NewVMT)+TComponentValidateRenameOffset)^:=