45 lines
1.0 KiB
ObjectPascal
45 lines
1.0 KiB
ObjectPascal
|
unit CmpSwFilters;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
BaseSwFilters,
|
||
|
|
BaseSwObjects;
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TCmpSwComponentClassFilter = class(TBaseSwItemSimpleFilter)
|
||
|
|
protected
|
||
|
|
procedure VisitItem(const AItem: TBaseSwItem); override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
uses
|
||
|
|
SysUtils,
|
||
|
|
|
||
|
|
CmpSwObjects;
|
||
|
|
|
||
|
|
|
||
|
|
{ TCmpSwComponentClassFilter }
|
||
|
|
procedure TCmpSwComponentClassFilter.VisitItem(const AItem: TBaseSwItem);
|
||
|
|
var
|
||
|
|
componentClass: String;
|
||
|
|
|
||
|
|
begin
|
||
|
|
componentClass := TCmpSwComponent(AItem).ComponentClass;
|
||
|
|
|
||
|
|
// #ToDo1 (MvR) 10-12-2007: use a configurable list
|
||
|
|
if SameText(componentClass, 'TMenuItem') or
|
||
|
|
SameText(componentClass, 'TAction') or
|
||
|
|
SameText(componentClass, 'TTBXItem') or
|
||
|
|
SameText(componentClass, 'TTBItem') or
|
||
|
|
SameText(componentClass, 'TTBXSeparatorItem') or
|
||
|
|
SameText(componentClass, 'TTBXNoPrefixItem') or
|
||
|
|
SameText(componentClass, 'TTBXNoPrefixSubmenuItem') or
|
||
|
|
SameText(componentClass, 'TTBXSubmenuItem') or
|
||
|
|
SameText(componentClass, 'TX2GraphicContainerItem') then
|
||
|
|
FilterItem(AItem);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|