unit rxsListEditorForm;

interface

uses
 Classes, Controls, Forms, Dialogs, DesignWindows, DesignIntf, rxsList,
 StdCtrls, ComCtrls, ToolWin;

type
 TListEditorForm = class(TDesignWindow)
   lv_1: TListView;
   tlb_1: TToolBar;
   btn_Add: TToolButton;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure btn_AddClick(Sender: TObject);
 private
   FDesigner: IDesigner;
   FList: TrxsList;
 protected
   procedure Notification(AComponent: TComponent; Operation: TOperation); override;    
 public
   constructor Create(AOwner : TComponent; AList : TrxsList; ADesigner : IDesigner); reintroduce;
   procedure ItemsModified(const Designer: IDesigner); override;
   property List : TrxsList read FList;
 end;

var
 ListEditorForm: TListEditorForm;

implementation

{$R *.dfm}

constructor TListEditorForm.Create(AOwner: TComponent; AList: TrxsList;
 ADesigner: IDesigner);
begin
 inherited Create(AOwner);
 FDesigner := ADesigner;
 FList := AList;
end;

procedure TListEditorForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree;
end;

procedure TListEditorForm.ItemsModified(const Designer: IDesigner);
begin

end;

procedure TListEditorForm.Notification(AComponent: TComponent;
 Operation: TOperation);
begin
 inherited;
 if (Operation = opRemove) and (AComponent = FList) then Free;
end;

procedure TListEditorForm.btn_AddClick(Sender: TObject);
var
 LItem : TrxsItem;
begin
 LItem := TrxsItem.Create(FList.Owner);
 LItem.Name := FDesigner.UniqueName(LItem.ClassName);
 FList.AddItem(LItem);
end;

end.

procedure TrxsListEditor.Edit;
var
 i : Integer;
 LEditForm : TListEditorForm;
 LForm : TCustomForm;
begin
 for i := 0 to Screen.FormCount - 1 do begin
   LForm := Screen.Forms[i];
   if LForm is TListEditorForm then
     if TListEditorForm(LForm).List = Component then begin
       LForm.Show;
       if LForm.WindowState = wsMinimized then
         LForm.WindowState := wsNormal;
       Exit;
     end;
 end;
 LEditForm := TListEditorForm.Create(Application, TrxsList(Component), GetDesigner);
 Component.FreeNotification(LEditForm);
 LEditForm.Show;
end;

procedure TBrCustomEditorFrm.ItemsModified(const Designer: IDesigner);
begin
 if not (csDestroying in ComponentState) then UpdateListCategory(lbCategory.ItemIndex);
end;