lcl: added protected TCustomTreeView.CreateNodes, issue #31111

git-svn-id: trunk@53660 -

designer/menueditor.pp

@@ -1853,7 +1853,7 @@ begin
   FInitialSelectedMenuItem := aSelect;
   SetInitialBounds(0, 0, aWidth, aHeight);
   Name := 'ShadowMenu';
-  DisableAutoSizing;
+  DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TShadowMenu.Create'){$ENDIF};
   try
     FItemsPopupMenu := TPopupMenu.Create(Self);
     FItemsPopupMenu.Name := 'ItemsPopupMenu';
@@ -1888,7 +1888,7 @@ begin
     AutoSize := False;
     Align := alClient;
   finally
-    EnableAutoSizing;
+    EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TShadowMenu.Create'){$ENDIF};
   end;
 end;
 

examples/lazresexplorer/resexplorer.lpi

@@ -18,10 +18,14 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="1"/>
-      <BuildNr Value="3"/>
+      <BuildNr Value="5"/>
       <CharSet Value="04B0"/>
-      <StringTable Comments="Explore your resources in executables and resource files" CompanyName="Alexey Lagunov" FileDescription="Resource Explorer" InternalName="LazResExplorer" LegalCopyright="Alexey Lagunov" LegalTrademarks="No Trademarks" OriginalFilename="lazresexplorer" ProductName="Lazarus Resource Explorer" ProductVersion=""/>
+      <StringTable Comments="Explore your resources in executables and resource files" CompanyName="Alexey Lagunov" FileDescription="Resource Explorer" InternalName="LazResExplorer" LegalCopyright="Alexey Lagunov" LegalTrademarks="No Trademarks" OriginalFilename="lazresexplorer" ProductName="Lazarus Resource Explorer" ProductVersion="0.1.0.3"/>
     </VersionInfo>
+    <MacroValues Count="2">
+      <Macro1 Name="LCLWidgetType" Value="gtk2"/>
+      <Macro2 Name="LCLWidgetType" Value="gtk2"/>
+    </MacroValues>
     <BuildModes Count="2">
       <Item1 Name="Release" Default="True"/>
       <Item2 Name="Debug">
@@ -121,17 +125,4 @@
       </Options>
     </Linking>
   </CompilerOptions>
-  <Debugging>
-    <Exceptions Count="3">
-      <Item1>
-        <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
-        <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
-        <Name Value="EFOpenError"/>
-      </Item3>
-    </Exceptions>
-  </Debugging>
 </CONFIG>

lcl/comctrls.pp

@@ -3382,6 +3382,7 @@ type
     function CanEdit(Node: TTreeNode): Boolean; virtual;
     function CanExpand(Node: TTreeNode): Boolean; virtual;
     function CreateNode: TTreeNode; virtual;
+    function CreateNodes: TTreeNodes; virtual;
     function CustomDraw(const ARect: TRect;
       Stage: TCustomDrawStage): Boolean; virtual;
     function CustomDrawItem(Node: TTreeNode; State: TCustomDrawState;

lcl/include/treeview.inc

@@ -3178,7 +3178,7 @@ begin
   FDefItemHeight := DefaultTreeNodeHeight;
   FExpandSignType := tvestTheme;
   UpdateExpandSignSize;
-  FTreeNodes := TTreeNodes.Create(Self);
+  FTreeNodes := CreateNodes;
   BorderStyle := bsSingle;
   BorderWidth := 0;
   FMultiSelectStyle := DefaultMultiSelectStyle;
@@ -5329,6 +5329,11 @@ begin
   end;
 end;
 
+function TCustomTreeView.CreateNodes: TTreeNodes;
+begin
+  Result := TTreeNodes.Create(Self);
+end;
+
 procedure TCustomTreeView.ImageListChange(Sender: TObject);
 begin
   Invalidate;