ResetObjectImages();
The ResetObjectImages method sets system icons for classes.
To execute the example add a link to the Metabase system assembly. Create a form and place a button on it. The example is an event handler for the following button:
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MB: IMetabase;
Extender: IMetabaseCustomExtender;
Begin
MB := MetabaseClass.Active;
Extender := MB.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
Extender.ResetObjectImages;
(Extender As IMetabaseObject).Save;
End Sub Button1OnClick;
After executing the example the system icons will be used for the classes.
See also: