paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 04:07:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: FindDeclarationOfOIProperty: check for TNestedPropertyEditor

Browse Source 
git-svn-id: trunk@26584 -
This commit is contained in:
mattias 2010-07-10 19:41:36 +00:00
parent b0336c670d
commit 8531e6e0cf
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/objinspext.pas
View File

@ -25,8 +25,8 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, StdCtrls, TypInfo,
ExtCtrls, Dialogs, Menus, ComCtrls, Grids, CustomTimer,
DirectoryCacher, CodeToolManager, CodeCache,
LazIDEIntf, ProjectIntf, ObjectInspector, OIFavouriteProperties, PropEdits,
DirectoryCacher, CodeToolManager, CodeCache, PropEdits,
LazIDEIntf, ProjectIntf, ObjectInspector, OIFavouriteProperties,
DialogProcs, FileUtil, LazConf, BaseIDEIntf, LazConfigStorage,
LazarusIDEStrConsts;
@ -293,11 +293,17 @@ begin
end;
// find the property declaration
PropPath:=APersistent.ClassName+'.'+Row.Name;
if Row.Editor is TNestedPropertyEditor then begin
if Row.Parent=nil then begin
debugln(['FindDeclarationOfOIProperty missing parent row ',PropPath,' in unit ',Code.Filename,' Row.Editor=',DbgSName(Row.Editor)]);
exit;
end;
PropPath:=APersistent.ClassName+'.'+Row.Parent.Name+'.'+Row.Name;
end;
if not CodeToolBoss.FindDeclarationOfPropertyPath(Code,PropPath,NewCode,
NewX,NewY,NewTopLine) then
begin
debugln(['FindDeclarationOfOIProperty failed to find property ',PropPath,' in unit ',Code.Filename]);
LazarusIDE.DoJumpToCodeToolBossError;
exit;
end;
Code:=NewCode;