--- ibx/trunk/design/IBDBReg.pas 2018/01/22 16:21:31 126 +++ ibx/trunk/design/IBDBReg.pas 2018/02/23 12:11:21 143 @@ -27,7 +27,7 @@ { IBX For Lazarus (Firebird Express) } { Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } { Portions created by MWA Software are copyright McCallum Whyman } -{ Associates Ltd 2011 } +{ Associates Ltd 2011 - 2018 } {************************************************************************} unit IBDBReg; @@ -447,7 +447,7 @@ begin TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]); if FirebirdAPI.HasServiceAPI then RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService, - TIBRestoreService, TIBValidationService, TIBStatisticalService, + TIBRestoreService, TIBValidationService, TIBOnlineValidationService, TIBStatisticalService, TIBLogService, TIBSecurityService, TIBServerProperties]); @@ -499,6 +499,8 @@ begin RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'TextField', TIBTreeViewFieldProperty); RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ParentField', TIBTreeViewFieldProperty); RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'HasChildField', TIBTreeViewFieldProperty); + RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ImageIndexField', TIBTreeViewFieldProperty); + RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'SelectedIndexField', TIBTreeViewFieldProperty); IBGUIInterface := TIBDSLCLInterface.Create; end;