diff --git a/designer/menueditor.pp b/designer/menueditor.pp index ce910f636d..31b7e34246 100644 --- a/designer/menueditor.pp +++ b/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; diff --git a/examples/SynEdit/Completion/SynCompletionSample.res b/examples/SynEdit/Completion/SynCompletionSample.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/SynEdit/Completion/SynCompletionSample.res and b/examples/SynEdit/Completion/SynCompletionSample.res differ diff --git a/examples/SynEdit/SynGutterMarks/SynGutterMarkExample.res b/examples/SynEdit/SynGutterMarks/SynGutterMarkExample.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/SynEdit/SynGutterMarks/SynGutterMarkExample.res and b/examples/SynEdit/SynGutterMarks/SynGutterMarkExample.res differ diff --git a/examples/affinetransforms/project1.res b/examples/affinetransforms/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/affinetransforms/project1.res and b/examples/affinetransforms/project1.res differ diff --git a/examples/canvas_test/canvastest.res b/examples/canvas_test/canvastest.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/canvas_test/canvastest.res and b/examples/canvas_test/canvastest.res differ diff --git a/examples/controlhint/Project1.res b/examples/controlhint/Project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/controlhint/Project1.res and b/examples/controlhint/Project1.res differ diff --git a/examples/customhint/CustomHint1.res b/examples/customhint/CustomHint1.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/customhint/CustomHint1.res and b/examples/customhint/CustomHint1.res differ diff --git a/examples/database/dblookup/project1.res b/examples/database/dblookup/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/database/dblookup/project1.res and b/examples/database/dblookup/project1.res differ diff --git a/examples/database/image_mushrooms/project1.res b/examples/database/image_mushrooms/project1.res index 73c8ea3a59..a7bbde576d 100644 Binary files a/examples/database/image_mushrooms/project1.res and b/examples/database/image_mushrooms/project1.res differ diff --git a/examples/database/sqlite_encryption_pragma/project1.res b/examples/database/sqlite_encryption_pragma/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/database/sqlite_encryption_pragma/project1.res and b/examples/database/sqlite_encryption_pragma/project1.res differ diff --git a/examples/database/tsqlscript/tsqlscriptsample.res b/examples/database/tsqlscript/tsqlscriptsample.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/database/tsqlscript/tsqlscriptsample.res and b/examples/database/tsqlscript/tsqlscriptsample.res differ diff --git a/examples/dbeditmask/project1.res b/examples/dbeditmask/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/dbeditmask/project1.res and b/examples/dbeditmask/project1.res differ diff --git a/examples/docking/project1.res b/examples/docking/project1.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/docking/project1.res and b/examples/docking/project1.res differ diff --git a/examples/dockmanager/easyedit/easyeditor.res b/examples/dockmanager/easyedit/easyeditor.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/dockmanager/easyedit/easyeditor.res and b/examples/dockmanager/easyedit/easyeditor.res differ diff --git a/examples/dockmanager/elasticsite/MakeSite.res b/examples/dockmanager/elasticsite/MakeSite.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/dockmanager/elasticsite/MakeSite.res and b/examples/dockmanager/elasticsite/MakeSite.res differ diff --git a/examples/dockmanager/elasticsite/SiteTest.res b/examples/dockmanager/elasticsite/SiteTest.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/dockmanager/elasticsite/SiteTest.res and b/examples/dockmanager/elasticsite/SiteTest.res differ diff --git a/examples/groupedcontrol/EditButtonDemo.res b/examples/groupedcontrol/EditButtonDemo.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/groupedcontrol/EditButtonDemo.res and b/examples/groupedcontrol/EditButtonDemo.res differ diff --git a/examples/icons/project1.res b/examples/icons/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/icons/project1.res and b/examples/icons/project1.res differ diff --git a/examples/imagelist/project1.res b/examples/imagelist/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/imagelist/project1.res and b/examples/imagelist/project1.res differ diff --git a/examples/imgviewer/imgview.res b/examples/imgviewer/imgview.res index 1fee89b02d..d1524f0d19 100644 Binary files a/examples/imgviewer/imgview.res and b/examples/imgviewer/imgview.res differ diff --git a/examples/lazresexplorer/resexplorer.lpi b/examples/lazresexplorer/resexplorer.lpi index aeee3fe8d2..ab3cf9ef0c 100644 --- a/examples/lazresexplorer/resexplorer.lpi +++ b/examples/lazresexplorer/resexplorer.lpi @@ -18,10 +18,14 @@ - + - + + + + + @@ -121,17 +125,4 @@ - - - - - - - - - - - - - diff --git a/examples/lazresexplorer/resexplorer.res b/examples/lazresexplorer/resexplorer.res index 26b66c034d..a1e7eb59b4 100644 Binary files a/examples/lazresexplorer/resexplorer.res and b/examples/lazresexplorer/resexplorer.res differ diff --git a/examples/levelgraph/lvlgraph_dependencies.res b/examples/levelgraph/lvlgraph_dependencies.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/levelgraph/lvlgraph_dependencies.res and b/examples/levelgraph/lvlgraph_dependencies.res differ diff --git a/examples/motiongraphics/motiongraphics.res b/examples/motiongraphics/motiongraphics.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/motiongraphics/motiongraphics.res and b/examples/motiongraphics/motiongraphics.res differ diff --git a/examples/openurltest/openurltest.res b/examples/openurltest/openurltest.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/openurltest/openurltest.res and b/examples/openurltest/openurltest.res differ diff --git a/examples/propstorage/project1.res b/examples/propstorage/project1.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/propstorage/project1.res and b/examples/propstorage/project1.res differ diff --git a/examples/stock_images/project1.res b/examples/stock_images/project1.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/examples/stock_images/project1.res and b/examples/stock_images/project1.res differ diff --git a/examples/trayicon/wndtray.res b/examples/trayicon/wndtray.res index e66ecf85fe..e1df0e994f 100644 Binary files a/examples/trayicon/wndtray.res and b/examples/trayicon/wndtray.res differ diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp index 34e3d005ac..521f589aa2 100644 --- a/lcl/comctrls.pp +++ b/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; diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc index 8ea231445b..8a7bef739f 100644 --- a/lcl/include/treeview.inc +++ b/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;