Add ide component editor

Author: blikblum

Source/VTIDEEditors.pas

@@ -0,0 +1,57 @@
+unit VTIDEEditors;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  ComponentEditors, PropEdits, VirtualTrees;
+
+type
+
+  // The usual trick to make a protected property accessible in the ShowCollectionEditor call below.
+  TVirtualTreeCast = class(TBaseVirtualTree);
+
+  { TVirtualTreeEditor }
+
+  TVirtualTreeEditor = class(TComponentEditor)
+  public
+    procedure Edit; override;
+    function GetVerbCount: Integer; override;
+    function GetVerb(Index: Integer): string; override;
+    procedure ExecuteVerb(Index: Integer); override;
+  end;
+
+implementation
+
+{ TVirtualTreeEditor }
+
+procedure TVirtualTreeEditor.Edit;
+var
+  Tree: TVirtualTreeCast;
+begin
+  Tree := TVirtualTreeCast(GetComponent);
+  TCollectionPropertyEditor.ShowCollectionEditor(Tree.Header.Columns, Tree, 'Columns');
+end;
+
+function TVirtualTreeEditor.GetVerbCount: Integer;
+begin
+  Result := 1;
+end;
+
+function TVirtualTreeEditor.GetVerb(Index: Integer): string;
+begin
+  case Index of
+    0: Result := 'Edit Columns...';
+  end;
+end;
+
+procedure TVirtualTreeEditor.ExecuteVerb(Index: Integer);
+begin
+  case Index of
+    0: Edit;
+  end;
+end;
+
+end.
+

Source/registervirtualtreeview.pas

@@ -4,15 +4,16 @@
 {$H+}
 
 interface
-
-uses 
-  Classes, SysUtils, LResources, LazarusPackageIntf,
-  VirtualTrees, VTHeaderPopup;
 
 procedure Register;
 
 implementation
 
+uses
+  Classes, SysUtils, LResources, LazarusPackageIntf,
+  VirtualTrees, VTHeaderPopup, VTIDEEditors, ComponentEditors;
+
+
 procedure RegisterUnitVirtualTrees;
 begin
   RegisterComponents('Virtual Controls', [TVirtualDrawTree, TVirtualStringTree]);
@@ -26,9 +27,10 @@ procedure RegisterUnitVTHeaderPopup;
 procedure Register;
 
 begin
+  RegisterComponentEditor([TVirtualDrawTree, TVirtualStringTree], TVirtualTreeEditor);
   RegisterUnit('VirtualTrees', @RegisterUnitVirtualTrees);
   RegisterUnit('VTHeaderPopup', @RegisterUnitVTHeaderPopup);
-end; 
+end;
 
 initialization
 {$i ideicons.lrs}

Source/virtualtreeview_package.lpk

@@ -41,7 +41,7 @@ end;"/>
     <License Value=" Mozilla Public License 1.1 (MPL 1.1) or GNU Lesser General Public License
 "/>
     <Version Major="5" Minor="3" Release="2" Build="1"/>
-    <Files Count="7">
+    <Files Count="8">
       <Item1>
         <Filename Value="VirtualTrees.pas"/>
         <UnitName Value="VirtualTrees"/>
@@ -71,15 +71,22 @@ end;"/>
         <Filename Value="VirtualTrees.res"/>
         <Type Value="Binary"/>
       </Item7>
+      <Item8>
+        <Filename Value="VTIDEEditors.pas"/>
+        <UnitName Value="VTIDEEditors"/>
+      </Item8>
     </Files>
-    <RequiredPkgs Count="2">
+    <RequiredPkgs Count="3">
       <Item1>
-        <PackageName Value="lclextensions_package"/>
-        <MinVersion Minor="5" Valid="True"/>
+        <PackageName Value="IDEIntf"/>
       </Item1>
       <Item2>
-        <PackageName Value="LCL"/>
+        <PackageName Value="lclextensions_package"/>
+        <MinVersion Minor="5" Valid="True"/>
       </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
     </RequiredPkgs>
     <UsageOptions>
       <UnitPath Value="$(PkgOutDir)"/>

Source/virtualtreeview_package.pas

@@ -2,21 +2,22 @@
   This source is only used to compile and install the package.
  }
 
-unit virtualtreeview_package; 
+unit virtualtreeview_package;
 
+{$warn 5023 off : no warning about unused units}
 interface
 
 uses
   VirtualTrees, VTHeaderPopup, registervirtualtreeview, VTGraphics, 
-  LazarusPackageIntf;
+  VTIDEEditors, LazarusPackageIntf;
 
 implementation
 
-procedure Register; 
+procedure Register;
 begin
-  RegisterUnit('registervirtualtreeview', @registervirtualtreeview.Register); 
-end; 
+  RegisterUnit('registervirtualtreeview', @registervirtualtreeview.Register);
+end;
 
 initialization
-  RegisterPackage('virtualtreeview_package', @Register); 
+  RegisterPackage('virtualtreeview_package', @Register);
 end.