[Instantobjects-cvscommit] SF.net SVN: instantobjects:[868] trunk/Source/Core/InstantExplorer.pas

[<na...@us...>]

Revision: 868
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=868&view=rev
Author:   nandod
Date:     2009-08-28 07:36:34 +0000 (Fri, 28 Aug 2009)

Log Message:
-----------
* Made it easier to plug a custom content editor in TInstantExplorer.

Modified Paths:
--------------
    trunk/Source/Core/InstantExplorer.pas

Modified: trunk/Source/Core/InstantExplorer.pas
===================================================================
--- trunk/Source/Core/InstantExplorer.pas	2009-08-28 07:34:57 UTC (rev 867)
+++ trunk/Source/Core/InstantExplorer.pas	2009-08-28 07:36:34 UTC (rev 868)
@@ -112,10 +112,12 @@
 
   TInstantExplorerContentEditor = class(TPanel)
   private
-    FGrid: TInstantExplorerDBGrid;
-    function GetDataSource: TDataSource;
-    procedure SetDataSource(const AValue: TDataSource);
+    FGrid: TDBGrid;
     function GetGrid: TDBGrid;
+  protected
+    function GetDataSource: TDataSource; virtual;
+    procedure SetDataSource(const AValue: TDataSource); virtual;
+    function CreateGrid: TDBGrid; virtual;
   public
     constructor Create(AOwner: TComponent); override;
     property Grid: TDBGrid read GetGrid;
@@ -1320,11 +1322,16 @@
   BevelInner := bvNone;
   BevelOuter := bvNone;
 
-  FGrid := TInstantExplorerDBGrid.Create(Self);
+  FGrid := CreateGrid;
   FGrid.Parent := Self;
   FGrid.Align := alClient;
 end;
 
+function TInstantExplorerContentEditor.CreateGrid: TDBGrid;
+begin
+  Result := TInstantExplorerDBGrid.Create(Self);
+end;
+
 function TInstantExplorerContentEditor.GetDataSource: TDataSource;
 begin
   Result := FGrid.DataSource;