paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 20:19:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: open designer: nested classes: todo

Browse Source 
git-svn-id: trunk@40023 -
This commit is contained in:
mattias 2013-01-29 13:58:07 +00:00
parent 314c442ef8
commit d834d99ca1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/customformeditor.pp
View File

@ -2072,11 +2072,14 @@ begin
for i:=0 to AnUnitInfo.ComponentFallbackClasses.Count-1 do begin for i:=0 to AnUnitInfo.ComponentFallbackClasses.Count-1 do begin
if SysUtils.CompareText(AnUnitInfo.ComponentFallbackClasses[i],ComponentClassName)=0 if SysUtils.CompareText(AnUnitInfo.ComponentFallbackClasses[i],ComponentClassName)=0
then begin then begin
{$IFDEF EnableNestedComponentsWithoutLFM}
ComponentClass:=TComponentClass(Pointer(AnUnitInfo.ComponentFallbackClasses.Objects[i])); ComponentClass:=TComponentClass(Pointer(AnUnitInfo.ComponentFallbackClasses.Objects[i]));
if ComponentClass<>nil then begin if ComponentClass<>nil then begin
// ToDo: create or share a jitclass
debugln(['TCustomFormEditor.JITListFindClass searched "',ComponentClassName,'", found fallback class "',DbgSName(ComponentClass),'" of unitinfo ',AnUnitInfo.Filename]); debugln(['TCustomFormEditor.JITListFindClass searched "',ComponentClassName,'", found fallback class "',DbgSName(ComponentClass),'" of unitinfo ',AnUnitInfo.Filename]);
exit; exit;
end; end;
{$ENDIF}
end; end;
end; end;
end; end;