home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Doc / DSGNWNDS.INT < prev    next >
Text File  |  1999-08-11  |  3KB  |  70 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1995,99 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit DsgnWnds;
  11.  
  12. interface
  13.  
  14. uses Messages, SysUtils, Classes, Controls, Forms, LibIntf, DsgnIntf;
  15.  
  16. type
  17.   IDesignWindowActions = interface
  18.     ['{A0BF324F-D5A2-11D2-B726-00C04FA35D12}']
  19.     procedure WindowHide;
  20.     procedure WindowShow;
  21.   end;
  22.  
  23.   IDesignEditQuery = interface
  24.     ['{32501230-D336-11D2-B725-00C04FA35D12}']
  25.     function GetEditState: TEditState;
  26.     procedure EditAction(Action: TEditAction);
  27.   end;
  28.  
  29.   TDesignWindow = class(TForm, IUnknown, IDesignNotification, IDesignEditQuery)
  30.   protected
  31.     procedure Activated; dynamic;
  32.     procedure ActivateInspector(Ch: Char);
  33.     function ClipboardComponents: Boolean;
  34.     procedure CopyComponents(Root: TComponent; Components: TDesignerSelectionList);
  35.     procedure PasteComponents(AOwner, AParent: TComponent;
  36.       Components: TDesignerSelectionList);
  37.     procedure SetSelection(Components: TDesignerSelectionList);
  38.     function UniqueName(Component: TComponent): string; virtual; abstract;
  39.   public
  40.     constructor Create(AOwner: TComponent); override;
  41.     destructor Destroy; override;
  42.  
  43.     // IDesignEditQuery
  44.     function GetEditState: TEditState; virtual;
  45.     procedure EditAction(Action: TEditAction); virtual;
  46.  
  47.     // IDesignNotification
  48.     procedure ItemDeleted(const Item: IPersistent);
  49.     procedure ItemInserted(const Item: IPersistent);
  50.     procedure SelectionChanged(const ASelection: IDesignerSelections); overload;
  51.     procedure DesignerInitialized(const Designer: IUnknown);
  52.     procedure DesignerClosed(const Designer: IUnknown);
  53.     procedure ItemsModified(const Designer: IUnknown);
  54.     // old versions
  55.     procedure ComponentDeleted(Component: IPersistent); virtual;
  56.     procedure ComponentInserted(Component: IPersistent); virtual;
  57.     procedure SelectionChanged(ASelection: TDesignerSelectionList); overload; virtual; 
  58.     procedure FormClosed(AForm: TCustomForm); virtual;
  59.     procedure FormModified; virtual;
  60.  
  61.     // IDesignWindowActions
  62.     procedure WindowHide; virtual;
  63.     procedure WindowShow; virtual;
  64.  
  65.     property Active: Boolean;
  66.     property Designer: IFormDesigner;
  67.   end;
  68.  
  69. implementation
  70.