home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Doc / TOOLWIN.INT < prev    next >
Text File  |  1999-08-11  |  2KB  |  60 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1995,99 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ToolWin;
  11.  
  12. {$R-,H+,X+}
  13.  
  14. interface
  15.  
  16. uses Windows, Messages, Classes, Controls, Forms;
  17.  
  18. type
  19.  
  20. { TToolWindow }
  21.  
  22.   TEdgeBorder = (ebLeft, ebTop, ebRight, ebBottom);
  23.   TEdgeBorders = set of TEdgeBorder;
  24.  
  25.   TEdgeStyle = (esNone, esRaised, esLowered);
  26.  
  27.   TToolWindow = class(TWinControl)
  28.   public
  29.     constructor Create(AOwner: TComponent); override;
  30.     property EdgeBorders: TEdgeBorders default [ebLeft, ebTop, ebRight, ebBottom];
  31.     property EdgeInner: TEdgeStyle default esRaised;
  32.     property EdgeOuter: TEdgeStyle default esLowered;
  33.   end;
  34.  
  35. { TToolDragDockObject }
  36.  
  37.   TToolDockObject = class(TDragDockObject)
  38.   protected
  39.     procedure AdjustDockRect(ARect: TRect); override;
  40.     procedure DrawDragDockImage; override;
  41.     procedure EraseDragDockImage; override;
  42.   public
  43.     constructor Create(AControl: TControl); override;
  44.   end;
  45.  
  46. { TToolDockForm }
  47.  
  48.   TSizingOrientation = (soNone, soHorizontal, soVertical);
  49.  
  50.   TToolDockForm = class(TCustomDockForm)
  51.   protected
  52.     function CanResize(var NewWidth, NewHeight: Integer): Boolean; override;
  53.     procedure CreateParams(var Params: TCreateParams); override;
  54.     procedure DoAddDockClient(Client: TControl; const ARect: TRect); override;
  55.   public
  56.     constructor Create(AOwner: TComponent); override;
  57.   end;
  58.  
  59. implementation
  60.