ide: make ide treeview themed

git-svn-id: trunk@24846 -
2025-11-02 13:19:49 +01:00 · 2010-04-23 07:10:05 +00:00 · 2010-04-23 07:10:05 +00:00 · 8edd29a313
commit 8edd29a313
parent 9dbc4b9de0
16 changed files with 683 additions and 208 deletions
--- a/ide/codebrowser.lfm
+++ b/ide/codebrowser.lfm
@ -148,7 +148,7 @@ object CodeBrowserView: TCodeBrowserView
    TabOrder = 2
    OnMouseDown = BrowseTreeViewMouseDown
    OnShowHint = BrowseTreeViewShowHint
-    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object StatusBar1: TStatusBar
    Left = 0
--- a/ide/codeexplorer.lfm
+++ b/ide/codeexplorer.lfm
@ -44,7 +44,7 @@ object CodeExplorerView: TCodeExplorerView
        OnDblClick = CodeTreeviewDblClick
        OnDeletion = CodeTreeviewDeletion
        OnKeyUp = CodeTreeviewKeyUp
-        Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoNoDoubleClickExpand]
+        Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw, tvoNoDoubleClickExpand]
      end
      object CodeTreeviewButtonPanel: TPanel
        Left = 0
@ -145,7 +145,7 @@ object CodeExplorerView: TCodeExplorerView
        OnDblClick = DirectivesTreeViewDblClick
        OnDeletion = DirectivesTreeViewDeletion
        OnKeyUp = DirectivesTreeViewKeyUp
-        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      end
    end
  end
--- a/ide/codetoolsdefines.lfm
+++ b/ide/codetoolsdefines.lfm
--- a/ide/compileroptionsdlg.lfm
+++ b/ide/compileroptionsdlg.lfm
@ -1139,7 +1139,7 @@ object frmCompilerOptions: TfrmCompilerOptions
        ReadOnly = True
        TabOrder = 0
        OnSelectionChanged = InhTreeViewSelectionChanged
-        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      end
      object InhItemMemo: TMemo
        Left = 6
@ -1747,7 +1747,7 @@ object frmCompilerOptions: TfrmCompilerOptions
    ReadOnly = True
    TabOrder = 2
    OnSelectionChanged = CategoryTreeViewSelectionChanged
-    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object CategorySplitter: TSplitter
    Left = 121
--- a/ide/componentlist.lfm
+++ b/ide/componentlist.lfm
@ -84,7 +84,7 @@ object ComponentListForm: TComponentListForm
          TabOrder = 0
          OnDblClick = TreePalletteDblClick
          OnKeyDown = TreePalletteKeyDown
-          Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowRoot, tvoToolTips, tvoNoDoubleClickExpand]
+          Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowRoot, tvoToolTips, tvoThemedDraw, tvoNoDoubleClickExpand]
        end
      end
    end
@ -114,7 +114,7 @@ object ComponentListForm: TComponentListForm
          TabOrder = 0
          OnDblClick = TreeInheritanceDblClick
          OnKeyDown = TreeInheritanceKeyDown
-          Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoNoDoubleClickExpand]
+          Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw, tvoNoDoubleClickExpand]
        end
      end
    end
--- a/ide/frames/compiler_inherited_options.lfm
+++ b/ide/frames/compiler_inherited_options.lfm
@ -3,11 +3,12 @@ inherited CompilerInheritedOptionsFrame: TCompilerInheritedOptionsFrame
  Width = 576
  ClientHeight = 444
  ClientWidth = 576
+  TabOrder = 0
  DesignLeft = 957
  DesignTop = 308
  object InhNoteLabel: TLabel[0]
    Left = 0
-    Height = 14
+    Height = 16
    Top = 0
    Width = 576
    Align = alTop
@ -17,20 +18,20 @@ inherited CompilerInheritedOptionsFrame: TCompilerInheritedOptionsFrame
  object InhTreeView: TTreeView[1]
    Left = 0
    Height = 247
-    Top = 14
+    Top = 16
    Width = 576
    Align = alTop
-    DefaultItemHeight = 15
+    DefaultItemHeight = 17
    ReadOnly = True
    RightClickSelect = True
    TabOrder = 0
    OnSelectionChanged = InhTreeViewSelectionChanged
-    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object InhItemMemo: TMemo[2]
    Left = 0
-    Height = 178
-    Top = 266
+    Height = 176
+    Top = 268
    Width = 576
    Align = alClient
    ReadOnly = True
@ -41,7 +42,7 @@ inherited CompilerInheritedOptionsFrame: TCompilerInheritedOptionsFrame
    Cursor = crVSplit
    Left = 0
    Height = 5
-    Top = 261
+    Top = 263
    Width = 576
    Align = alTop
    ResizeAnchor = akTop
--- a/ide/frames/editor_color_options.lfm
+++ b/ide/frames/editor_color_options.lfm
@ -530,7 +530,7 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame
      OnAdvancedCustomDrawItem = ColorElementTreeAdvancedCustomDrawItem
      OnChange = ColorElementTreeChange
      OnClick = ColorElementTreeClick
-      Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand]
+      Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowLines, tvoToolTips, tvoThemedDraw, tvoNoDoubleClickExpand]
    end
  end
  object ColorPreview: TSynEdit[8]
--- a/ide/frames/editor_keymapping_options.lfm
+++ b/ide/frames/editor_keymapping_options.lfm
@ -56,7 +56,7 @@ inherited EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
    TabOrder = 1
    OnDblClick = KeyMappingTreeViewDblClick
    OnSelectionChanged = KeyMappingTreeViewSelectionChanged
-    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object KeyMappingFindKeyButton: TButton[3]
    AnchorSideLeft.Control = Owner
--- a/ide/frames/editor_mouseaction_options_advanced.lfm
+++ b/ide/frames/editor_mouseaction_options_advanced.lfm
@ -47,7 +47,7 @@ inherited EditorMouseOptionsAdvFrame: TEditorMouseOptionsAdvFrame
    ShowRoot = False
    TabOrder = 1
    OnChange = ContextTreeChange
-    Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand]
+    Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowLines, tvoToolTips, tvoThemedDraw, tvoNoDoubleClickExpand]
  end
  object Splitter1: TSplitter[2]
    Left = 130
--- a/ide/idecontexthelpedit.lfm
+++ b/ide/idecontexthelpedit.lfm
@ -37,7 +37,7 @@ object ContextHelpEditorDlg: TContextHelpEditorDlg
      DefaultItemHeight = 19
      ReadOnly = True
      TabOrder = 0
-      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    end
    object CreateHelpNodeForControlButton: TButton
      Left = 6
@ -84,7 +84,7 @@ object ContextHelpEditorDlg: TContextHelpEditorDlg
      ReadOnly = True
      TabOrder = 0
      OnSelectionChanged = HelpNodesTreeViewSelectionChanged
-      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    end
    object HelpNodePropertiesGroupBox: TGroupBox
      Left = 6
--- a/ide/msgview.lfm
+++ b/ide/msgview.lfm
@ -24,7 +24,7 @@ inherited MessagesView: TMessagesView
    ShowRoot = False
    TabOrder = 0
    OnExit = MessageViewExit
-    Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoToolTips]
+    Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoToolTips, tvoThemedDraw]
  end
  object MainPopupMenu: TPopupMenu[1]
    OnPopup = MainPopupMenuPopup
--- a/ide/newdialog.lfm
+++ b/ide/newdialog.lfm
@ -3,7 +3,6 @@ object NewOtherDialog: TNewOtherDialog
  Height = 395
  Top = 204
  Width = 476
-  ActiveControl = ItemsTreeView
  BorderIcons = [biSystemMenu]
  Caption = 'NewOtherDialog'
  ClientHeight = 395
@ -29,13 +28,13 @@ object NewOtherDialog: TNewOtherDialog
      Top = 0
      Width = 178
      Align = alClient
-      DefaultItemHeight = 15
+      DefaultItemHeight = 17
      ReadOnly = True
      ScrollBars = ssAutoBoth
      TabOrder = 0
      OnDblClick = OkButtonClick
      OnSelectionChanged = ItemsTreeViewSelectionChanged
-      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    end
    object DescriptionGroupBox: TGroupBox
      AnchorSideLeft.Control = ItemsTreeView
@ -54,7 +53,7 @@ object NewOtherDialog: TNewOtherDialog
      TabOrder = 1
      object DescriptionLabel: TLabel
        Left = 6
-        Height = 14
+        Height = 16
        Top = 6
        Width = 265
        Align = alTop
@ -65,8 +64,8 @@ object NewOtherDialog: TNewOtherDialog
      end
      object InheritableComponentsListView: TListView
        Left = 0
-        Height = 307
-        Top = 26
+        Height = 305
+        Top = 28
        Width = 277
        Align = alClient
        Columns = <        
@ -79,6 +78,7 @@ object NewOtherDialog: TNewOtherDialog
            Width = 250
          end>
        HideSelection = False
+        ItemIndex = -1
        ReadOnly = True
        RowSelect = True
        ScrollBars = ssAutoBoth
--- a/ide/projectinspector.lfm
+++ b/ide/projectinspector.lfm
@ -82,7 +82,7 @@ object ProjectInspectorForm: TProjectInspectorForm
    OnDblClick = ItemsTreeViewDblClick
    OnKeyDown = ItemsTreeViewKeyDown
    OnSelectionChanged = ItemsTreeViewSelectionChanged
-    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object ItemsPopupMenu: TPopupMenu
    OnPopup = ItemsPopupMenuPopup
--- a/ide/restrictionbrowser.lfm
+++ b/ide/restrictionbrowser.lfm
@ -62,6 +62,6 @@ object RestrictionBrowserView: TRestrictionBrowserView
    ShowLines = False
    TabOrder = 2
    OnSelectionChanged = IssueTreeViewSelectionChanged
-    Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
 end
--- a/ide/unitdependencies.lfm
+++ b/ide/unitdependencies.lfm
@ -90,6 +90,6 @@ object UnitDependenciesView: TUnitDependenciesView
    OnCollapsing = UnitTreeViewCollapsing
    OnExpanding = UnitTreeViewExpanding
    OnMouseDown = UnitTreeViewMouseDown
-    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
 end
--- a/ide/unusedunitsdlg.lfm
+++ b/ide/unusedunitsdlg.lfm
@ -22,7 +22,7 @@ object UnusedUnitsDialog: TUnusedUnitsDialog
    ScrollBars = ssAutoBoth
    TabOrder = 0
    OnSelectionChanged = UnitsTreeViewSelectionChanged
-    Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
+    Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
  end
  object Panel1: TPanel
    Left = 0