jvcllaz: Add new component TDBLookupTreeView with demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6870 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/design/JvDB/JvDBReg.pas

@@ -16,13 +16,13 @@ implementation
 
 uses
   Classes, JvDsgnConsts, //JvDBSearchCombobox,
-  JvDBSearchEdit, JvDBTreeView, JvDBControls, JvDBHTLabel, JvDBLookup;
+  JvDBSearchEdit, JvDBTreeView, JvDBControls, JvDBHTLabel, JvDBLookup, JvDBLookupTreeView;
 
 procedure Register;
 const
 //  cDataField = 'DataField';
-//  cKeyField = 'KeyField';
-//  cListField = 'ListField';
+  cKeyField = 'KeyField';
+  cListField = 'ListField';
 //  cDisplayField = 'DisplayField';
 //  cListKeyField = 'ListKeyField';
   cMasterField = 'MasterField';
@@ -43,13 +43,19 @@ begin
 //    TJvDBSearchCombobox,
     TJvDBTreeView,
     TJvDBHTLabel,
-    TJvDBLookupList, TJvDBLookupCombo
+    TJvDBLookupList, TJvDBLookupCombo, TJvDBLookupTreeView
   ]);
                 
-  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cItemField, TFieldProperty); //TJvDataFieldProperty);
-  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cMasterField, TFieldProperty); //TJvDataFieldProperty);
-  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cDetailField, TFieldProperty); //TJvDataFieldProperty);
-  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cIconField, TFieldProperty); //TJvDataFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cItemField, TFieldProperty); 
+  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cMasterField, TFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cDetailField, TFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cIconField, TFieldProperty);
+
+  RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cKeyField, TLookupFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cListField, TLookupFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cMasterField, TLookupFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cDetailField, TLookupFieldProperty);
+  RegisterPropertyEditor(TypeInfo(string), TJvDBLookupTreeView, cIconField, TLookupFieldProperty);
 end;
 
 end.

components/jvcllaz/design/JvDB/images/images.txt

@@ -3,3 +3,6 @@ tjvdbhtlabel.bmp
 tjvdbsearchcombobox.bmp
 tjvdbsearchedit.bmp
 tjvdbtreeview.bmp
+tjvdblookuptreeview.bmp
+tjvdblookuplist.bmp
+tjvdblookupcombo.bmp