Designer: OI: objectinspector.pp get image index

x2nie · May 23, 2014 · 68f9b3f · 68f9b3f
1 parent 322d63c
commit 68f9b3f
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/components/ideintf/objectinspector.pp b/components/ideintf/objectinspector.pp
@@ -565,6 +565,8 @@   TCustomPropertiesGrid = class(TOICustomPropertyGrid)
 
   TOnAddAvailablePersistent = procedure(APersistent: TPersistent;
     var Allowed: boolean) of object;
+  //copy of TGetPersistentImageIndexEvent
+  TOnOINodeGetImageEvent = procedure(APersistent: TPersistent; var AImageIndex: integer) of object;
 
   TOIFlag = (
     oifRebuildPropListsNeeded
@@ -635,6 +637,7 @@   TObjectInspectorDlg = class(TForm)
     procedure OnShowStatusBarPopupMenuItemClick(Sender: TObject);
     procedure OnShowOptionsPopupMenuItemClick(Sender: TObject);
     procedure OnMainPopupMenuPopup(Sender: TObject);
+    procedure OnVTNodeGetImageIndex(APersistent: TPersistent; var AIndex: integer);
     procedure RestrictedPageShow(Sender: TObject);
     procedure WidgetSetRestrictedPaint(Sender: TObject);
     procedure ComponentRestrictedPaint(Sender: TObject);
@@ -672,6 +675,7 @@   TObjectInspectorDlg = class(TForm)
     FUpdateLock: integer;
     FUpdatingAvailComboBox: Boolean;
     FComponentEditor: TBaseComponentEditor;
+    FOnNodeGetImageIndex: TOnOINodeGetImageEvent;
     function GetGridControl(Page: TObjectInspectorPage): TOICustomPropertyGrid;
     procedure SetComponentEditor(const AValue: TBaseComponentEditor);
     procedure SetFavorites(const AValue: TOIFavoriteProperties);
@@ -774,6 +778,7 @@   TObjectInspectorDlg = class(TForm)
     property OnUpdateRestricted: TNotifyEvent read FOnUpdateRestricted
                                          write FOnUpdateRestricted;
     property OnViewRestricted: TNotifyEvent read FOnViewRestricted write FOnViewRestricted;
+    property OnNodeGetImageIndex : TOnOINodeGetImageEvent read FOnNodeGetImageIndex write FOnNodeGetImageIndex;
     property PropertyEditorHook: TPropertyEditorHook
                            read FPropertyEditorHook write SetPropertyEditorHook;
     property RestrictedProps: TOIRestrictedProperties read FRestricted write SetRestricted;
@@ -4089,6 +4094,7 @@ constructor TObjectInspectorDlg.Create(AnOwner: TComponent);
     OnDblClick := @ComponentTreeDblClick;
     OnKeyDown := @ComponentTreeKeyDown;
     OnSelectionChanged := @ComponentTreeSelectionChanged;
+    OnNodeGetImageIndex := @OnVTNodeGetImageIndex;
     OnModified := @DoModified;
     Scrollbars := ssAutoBoth;
     PopupMenu := MainPopupMenu;
@@ -5508,6 +5514,14 @@ procedure TObjectInspectorDlg.SetFavorites(const AValue: TOIFavoriteProperties);
   FavoriteGrid.Favorites:=FFavorites;
 end;
 
+procedure TObjectInspectorDlg.OnVTNodeGetImageIndex(
+  APersistent: TPersistent; var AIndex: integer);
+begin
+  //ask TMediator
+  if assigned(FOnNodeGetImageIndex) then
+    FOnNodeGetImageIndex(APersistent, AIndex);
+end;
+
 { TCustomPropertiesGrid }
 
 function TCustomPropertiesGrid.GetTIObject: TPersistent;