53 lines
797 B
ObjectPascal
53 lines
797 B
ObjectPascal
|
unit CmpSwDialog;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
ActnList,
|
||
|
|
Classes,
|
||
|
|
ComCtrls,
|
||
|
|
Controls,
|
||
|
|
ExtCtrls,
|
||
|
|
ImgList,
|
||
|
|
Menus,
|
||
|
|
StdCtrls,
|
||
|
|
|
||
|
|
BaseSwDialog,
|
||
|
|
BaseSwObjects;
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TCmpSwStyleVisitor = class(TBaseSwStyleVisitor)
|
||
|
|
protected
|
||
|
|
procedure VisitItem(const AItem: TBaseSwItem); override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
TfrmCmpSwDialog = class(TfrmBaseSwDialog)
|
||
|
|
protected
|
||
|
|
function CreateStyleVisitor(): TBaseSwStyleVisitor; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
|
||
|
|
{ TCmpSwStyleVisitor }
|
||
|
|
procedure TCmpSwStyleVisitor.VisitItem(const AItem: TBaseSwItem);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
|
||
|
|
ImageIndex := 0;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
{ TfrmCmpSwDialog }
|
||
|
|
function TfrmCmpSwDialog.CreateStyleVisitor(): TBaseSwStyleVisitor;
|
||
|
|
begin
|
||
|
|
Result := TCmpSwStyleVisitor.Create();
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|