
{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{                                                       }
{       Copyright (c) 1995,98 Inprise Corporation       }
{                                                       }
{*******************************************************}

unit DsgnWnds;

interface

uses Messages, SysUtils, Classes, Controls, Forms, LibIntf, DsgnIntf;

type
  TDesignWindow = class(TForm)
  protected
    procedure Activated; dynamic;
    procedure ActivateInspector(Ch: Char);
    function ClipboardComponents: Boolean;
    procedure CopyComponents(Root: TComponent; Components: TComponentList);
    procedure PasteComponents(AOwner, AParent: TComponent;
      Components: TComponentList);
    procedure SetSelection(Components: TComponentList);
    function UniqueName(Component: TComponent): string; virtual; abstract;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ComponentDeleted(Component: IPersistent); virtual;
    function GetEditState: TEditState; virtual;
    procedure EditAction(Action: TEditAction); virtual;
    procedure FormClosed(AForm: TCustomForm); virtual;
    procedure FormModified; virtual;
    procedure SelectionChanged(ASelection: TComponentList); virtual;
    property Active: Boolean;
    property Designer: IFormDesigner;
  end;

implementation
