home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / D3TRIAL / INSTALL / DATA.Z / STDCTRLS.INT < prev    next >
Text File  |  1997-03-21  |  21KB  |  703 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995,97 Borland International     }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit StdCtrls;
  11.  
  12. {$R-}
  13.  
  14. interface
  15.  
  16. uses Messages, Windows, SysUtils, Classes, Controls, Forms, Menus, Graphics;
  17.  
  18. type
  19.   TCustomGroupBox = class(TCustomControl)
  20.   protected
  21.     procedure AlignControls(AControl: TControl; var Rect: TRect); override;
  22.     procedure CreateParams(var Params: TCreateParams); override;
  23.     procedure Paint; override;
  24.   public
  25.     constructor Create(AOwner: TComponent); override;
  26.   end;
  27.  
  28.   TGroupBox = class(TCustomGroupBox)
  29.   published
  30.     property Align;
  31.     property Caption;
  32.     property Color;
  33.     property Ctl3D;
  34.     property DragCursor;
  35.     property DragMode;
  36.     property Enabled;
  37.     property Font;
  38.     property ParentColor;
  39.     property ParentCtl3D;
  40.     property ParentFont;
  41.     property ParentShowHint;
  42.     property PopupMenu;
  43.     property ShowHint;
  44.     property TabOrder;
  45.     property TabStop;
  46.     property Visible;
  47.     property OnClick;
  48.     property OnDblClick;
  49.     property OnDragDrop;
  50.     property OnDragOver;
  51.     property OnEndDrag;
  52.     property OnEnter;
  53.     property OnExit;
  54.     property OnMouseDown;
  55.     property OnMouseMove;
  56.     property OnMouseUp;
  57.     property OnStartDrag;
  58.   end;
  59.  
  60.   TTextLayout = (tlTop, tlCenter, tlBottom);
  61.   
  62.   TCustomLabel = class(TGraphicControl)
  63.   protected
  64.     function GetLabelText: string; virtual;
  65.     procedure Loaded; override;
  66.     procedure Notification(AComponent: TComponent;
  67.       Operation: TOperation); override;
  68.     procedure Paint; override;
  69.     procedure SetAutoSize(Value: Boolean); virtual;
  70.     property Alignment: TAlignment default taLeftJustify;
  71.     property AutoSize: Boolean default True;
  72.     property FocusControl: TWinControl;
  73.     property ShowAccelChar: Boolean default True;
  74.     property Transparent: Boolean default False;
  75.     property Layout: TTextLayout default tlTop;
  76.     property WordWrap: Boolean default False;
  77.   public
  78.     constructor Create(AOwner: TComponent); override;
  79.     property Canvas;
  80.   end;
  81.  
  82.   TLabel = class(TCustomLabel)
  83.   published
  84.     property Align;
  85.     property Alignment;
  86.     property AutoSize;
  87.     property Caption;
  88.     property Color;
  89.     property DragCursor;
  90.     property DragMode;
  91.     property Enabled;
  92.     property FocusControl;
  93.     property Font;
  94.     property ParentColor;
  95.     property ParentFont;
  96.     property ParentShowHint;
  97.     property PopupMenu;
  98.     property ShowAccelChar;
  99.     property ShowHint;
  100.     property Transparent;
  101.     property Layout;
  102.     property Visible;
  103.     property WordWrap;
  104.     property OnClick;
  105.     property OnDblClick;
  106.     property OnDragDrop;
  107.     property OnDragOver;
  108.     property OnEndDrag;
  109.     property OnMouseDown;
  110.     property OnMouseMove;
  111.     property OnMouseUp;
  112.     property OnStartDrag;
  113.   end;
  114.  
  115.   TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);
  116.  
  117.   TCustomEdit = class(TWinControl)
  118.   protected
  119.     procedure Change; dynamic;
  120.     procedure CreateParams(var Params: TCreateParams); override;
  121.     procedure CreateWnd; override;
  122.     procedure DestroyWnd; override;
  123.     procedure DoSetMaxLength(Value: Integer); virtual;
  124.     function GetSelLength: Integer; virtual;
  125.     function GetSelStart: Integer; virtual;
  126.     function GetSelText: string; virtual;
  127.     procedure SetSelLength(Value: Integer); virtual;
  128.     procedure SetSelStart(Value: Integer); virtual;
  129.     property AutoSelect: Boolean default True;
  130.     property AutoSize: Boolean default True;
  131.     property BorderStyle: TBorderStyle default bsSingle;
  132.     property CharCase: TEditCharCase default ecNormal;
  133.     property HideSelection: Boolean default True;
  134.     property MaxLength: Integer default 0;
  135.     property OEMConvert: Boolean default False;
  136.     property PasswordChar: Char default #0;
  137.     property ParentColor default False;
  138.     property ReadOnly: Boolean default False;
  139.     property OnChange: TNotifyEvent;
  140.   public
  141.     constructor Create(AOwner: TComponent); override;
  142.     procedure Clear; virtual;
  143.     procedure ClearSelection;
  144.     procedure CopyToClipboard;
  145.     procedure CutToClipboard;
  146.     procedure PasteFromClipboard;
  147.     function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer; virtual;
  148.     procedure SelectAll;
  149.     procedure SetSelTextBuf(Buffer: PChar);
  150.     property Modified: Boolean;
  151.     property SelLength: Integer;
  152.     property SelStart: Integer;
  153.     property SelText: string;
  154.     property Text;
  155.   published
  156.     property TabStop default True;
  157.   end;
  158.  
  159.   TEdit = class(TCustomEdit)
  160.   published
  161.     property AutoSelect;
  162.     property AutoSize;
  163.     property BorderStyle;
  164.     property CharCase;
  165.     property Color;
  166.     property Ctl3D;
  167.     property DragCursor;
  168.     property DragMode;
  169.     property Enabled;
  170.     property Font;
  171.     property HideSelection;
  172.     property ImeMode;
  173.     property ImeName;
  174.     property MaxLength;
  175.     property OEMConvert;
  176.     property ParentColor;
  177.     property ParentCtl3D;
  178.     property ParentFont;
  179.     property ParentShowHint;
  180.     property PasswordChar;
  181.     property PopupMenu;
  182.     property ReadOnly;
  183.     property ShowHint;
  184.     property TabOrder;
  185.     property TabStop;
  186.     property Text;
  187.     property Visible;
  188.     property OnChange;
  189.     property OnClick;
  190.     property OnDblClick;
  191.     property OnDragDrop;
  192.     property OnDragOver;
  193.     property OnEndDrag;
  194.     property OnEnter;
  195.     property OnExit;
  196.     property OnKeyDown;
  197.     property OnKeyPress;
  198.     property OnKeyUp;
  199.     property OnMouseDown;
  200.     property OnMouseMove;
  201.     property OnMouseUp;
  202.     property OnStartDrag;
  203.   end;
  204.  
  205.   TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);
  206.  
  207.   TCustomMemo = class(TCustomEdit)
  208.   protected
  209.     procedure CreateParams(var Params: TCreateParams); override;
  210.     procedure CreateWindowHandle(const Params: TCreateParams); override;
  211.     procedure KeyPress(var Key: Char); override;
  212.     procedure Loaded; override;
  213.     procedure SetAlignment(Value: TAlignment);
  214.     procedure SetLines(Value: TStrings);
  215.     procedure SetScrollBars(Value: TScrollStyle);
  216.     procedure SetWordWrap(Value: Boolean);
  217.     property Alignment: TAlignment default taLeftJustify;
  218.     property ScrollBars: TScrollStyle default ssNone;
  219.     property WantReturns: Boolean default True;
  220.     property WantTabs: Boolean default False;
  221.     property WordWrap: Boolean default True;
  222.   public
  223.     constructor Create(AOwner: TComponent); override;
  224.     destructor Destroy; override;
  225.     property Lines: TStrings;
  226.   end;
  227.  
  228.   TMemo = class(TCustomMemo)
  229.   published
  230.     property Align;
  231.     property Alignment;
  232.     property BorderStyle;
  233.     property Color;
  234.     property Ctl3D;
  235.     property DragCursor;
  236.     property DragMode;
  237.     property Enabled;
  238.     property Font;
  239.     property HideSelection;
  240.     property ImeMode;
  241.     property ImeName;
  242.     property Lines;
  243.     property MaxLength;
  244.     property OEMConvert;
  245.     property ParentColor;
  246.     property ParentCtl3D;
  247.     property ParentFont;
  248.     property ParentShowHint;
  249.     property PopupMenu;
  250.     property ReadOnly;
  251.     property ScrollBars;
  252.     property ShowHint;
  253.     property TabOrder;
  254.     property TabStop;
  255.     property Visible;
  256.     property WantReturns;
  257.     property WantTabs;
  258.     property WordWrap;
  259.     property OnChange;
  260.     property OnClick;
  261.     property OnDblClick;
  262.     property OnDragDrop;
  263.     property OnDragOver;
  264.     property OnEndDrag;
  265.     property OnEnter;
  266.     property OnExit;
  267.     property OnKeyDown;
  268.     property OnKeyPress;
  269.     property OnKeyUp;
  270.     property OnMouseDown;
  271.     property OnMouseMove;
  272.     property OnMouseUp;
  273.     property OnStartDrag;
  274.   end;
  275.  
  276.   TComboBoxStyle = (csDropDown, csSimple, csDropDownList, csOwnerDrawFixed,
  277.     csOwnerDrawVariable);
  278.   TOwnerDrawState = set of (odSelected, odGrayed, odDisabled, odChecked,
  279.     odFocused);
  280.  
  281.   TDrawItemEvent = procedure(Control: TWinControl; Index: Integer;
  282.     Rect: TRect; State: TOwnerDrawState) of object;
  283.  
  284.   TMeasureItemEvent = procedure(Control: TWinControl; Index: Integer;
  285.     var Height: Integer) of object;
  286.  
  287.   TCustomComboBox = class(TWinControl)
  288.   protected
  289.     procedure ComboWndProc(var Message: TMessage; ComboWnd: HWnd;
  290.       ComboProc: Pointer); virtual;
  291.     procedure WndProc(var Message: TMessage); override;
  292.     procedure CreateParams(var Params: TCreateParams); override;
  293.     procedure CreateWnd; override;
  294.     procedure DestroyWnd; override;
  295.     procedure DrawItem(Index: Integer; Rect: TRect;
  296.       State: TOwnerDrawState); virtual;
  297.     procedure MeasureItem(Index: Integer; var Height: Integer); virtual;
  298.     procedure Change; dynamic;
  299.     procedure DropDown; dynamic;
  300.     procedure SetStyle(Value: TComboBoxStyle); virtual;
  301.     property DropDownCount: Integer default 8;
  302.     property EditHandle: HWnd;
  303.     property ItemHeight: Integer;
  304.     property ListHandle: HWnd;
  305.     property MaxLength: Integer default 0;
  306.     property ParentColor default False;
  307.     property Sorted: Boolean default False;
  308.     property Style: TComboBoxStyle default csDropDown;
  309.     property OnChange: TNotifyEvent;
  310.     property OnDropDown: TNotifyEvent;
  311.     property OnDrawItem: TDrawItemEvent;
  312.     property OnMeasureItem: TMeasureItemEvent;
  313.   public
  314.     constructor Create(AOwner: TComponent); override;
  315.     destructor Destroy; override;
  316.     procedure Clear;
  317.     procedure SelectAll;
  318.     property Canvas: TCanvas;
  319.     property DroppedDown: Boolean;
  320.     property Items: TStrings;
  321.     property ItemIndex: Integer;
  322.     property SelLength: Integer;
  323.     property SelStart: Integer;
  324.     property SelText: string;
  325.   published
  326.     property TabStop default True;
  327.   end;
  328.  
  329.   TComboBox = class(TCustomComboBox)
  330.   published
  331.     property Style; {Must be published before Items}
  332.     property Color;
  333.     property Ctl3D;
  334.     property DragMode;
  335.     property DragCursor;
  336.     property DropDownCount;
  337.     property Enabled;
  338.     property Font;
  339.     property ImeMode;
  340.     property ImeName;
  341.     property ItemHeight;
  342.     property Items;
  343.     property MaxLength;
  344.     property ParentColor;
  345.     property ParentCtl3D;
  346.     property ParentFont;
  347.     property ParentShowHint;
  348.     property PopupMenu;
  349.     property ShowHint;
  350.     property Sorted;
  351.     property TabOrder;
  352.     property TabStop;
  353.     property Text;
  354.     property Visible;
  355.     property OnChange;
  356.     property OnClick;
  357.     property OnDblClick;
  358.     property OnDragDrop;
  359.     property OnDragOver;
  360.     property OnDrawItem;
  361.     property OnDropDown;
  362.     property OnEndDrag;
  363.     property OnEnter;
  364.     property OnExit;
  365.     property OnKeyDown;
  366.     property OnKeyPress;
  367.     property OnKeyUp;
  368.     property OnMeasureItem;
  369.     property OnStartDrag;
  370.   end;
  371.  
  372.   TButtonControl = class(TWinControl)
  373.   protected
  374.     procedure WndProc(var Message: TMessage); override;
  375.   end;
  376.  
  377.   TButton = class(TButtonControl)
  378.   protected
  379.     procedure CreateParams(var Params: TCreateParams); override;
  380.     procedure CreateWnd; override;
  381.     procedure SetButtonStyle(ADefault: Boolean); virtual;
  382.   public
  383.     constructor Create(AOwner: TComponent); override;
  384.     procedure Click; override;
  385.   published
  386.     property Cancel: Boolean default False;
  387.     property Caption;
  388.     property Default: Boolean default False;
  389.     property DragCursor;
  390.     property DragMode;
  391.     property Enabled;
  392.     property Font;
  393.     property ModalResult: TModalResult default 0;
  394.     property ParentFont;
  395.     property ParentShowHint;
  396.     property PopupMenu;
  397.     property ShowHint;
  398.     property TabOrder;
  399.     property TabStop default True;
  400.     property Visible;
  401.     property OnClick;
  402.     property OnDragDrop;
  403.     property OnDragOver;
  404.     property OnEndDrag;
  405.     property OnEnter;
  406.     property OnExit;
  407.     property OnKeyDown;
  408.     property OnKeyPress;
  409.     property OnKeyUp;
  410.     property OnMouseDown;
  411.     property OnMouseMove;
  412.     property OnMouseUp;
  413.     property OnStartDrag;
  414.   end;
  415.  
  416.   TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed);
  417.  
  418.   TCustomCheckBox = class(TButtonControl)
  419.   protected
  420.     procedure Toggle; virtual;
  421.     procedure Click; override;
  422.     procedure CreateParams(var Params: TCreateParams); override;
  423.     procedure CreateWindowHandle(const Params: TCreateParams); override;
  424.     procedure CreateWnd; override;
  425.     property Alignment: TLeftRight default taRightJustify;
  426.     property AllowGrayed: Boolean default False;
  427.     property Checked: Boolean;
  428.     property State: TCheckBoxState default cbUnchecked;
  429.   public
  430.     constructor Create(AOwner: TComponent); override;
  431.   published
  432.     property TabStop default True;
  433.   end;
  434.  
  435.   TCheckBox = class(TCustomCheckBox)
  436.   published
  437.     property Alignment;
  438.     property AllowGrayed;
  439.     property Caption;
  440.     property Checked;
  441.     property Color;
  442.     property Ctl3D;
  443.     property DragCursor;
  444.     property DragMode;
  445.     property Enabled;
  446.     property Font;
  447.     property ParentColor;
  448.     property ParentCtl3D;
  449.     property ParentFont;
  450.     property ParentShowHint;
  451.     property PopupMenu;
  452.     property ShowHint;
  453.     property State;
  454.     property TabOrder;
  455.     property TabStop;
  456.     property Visible;
  457.     property OnClick;
  458.     property OnDragDrop;
  459.     property OnDragOver;
  460.     property OnEndDrag;
  461.     property OnEnter;
  462.     property OnExit;
  463.     property OnKeyDown;
  464.     property OnKeyPress;
  465.     property OnKeyUp;
  466.     property OnMouseDown;
  467.     property OnMouseMove;
  468.     property OnMouseUp;
  469.     property OnStartDrag;
  470.   end;
  471.  
  472.   TRadioButton = class(TButtonControl)
  473.   protected
  474.     procedure SetChecked(Value: Boolean);
  475.     procedure CreateParams(var Params: TCreateParams); override;
  476.     procedure CreateWindowHandle(const Params: TCreateParams); override;
  477.     procedure CreateWnd; override;
  478.   public
  479.     constructor Create(AOwner: TComponent); override;
  480.   published
  481.     property Alignment: TLeftRight default taRightJustify;
  482.     property Caption;
  483.     property Checked: Boolean default False;
  484.     property Color;
  485.     property Ctl3D;
  486.     property DragCursor;
  487.     property DragMode;
  488.     property Enabled;
  489.     property Font;
  490.     property ParentColor;
  491.     property ParentCtl3D;
  492.     property ParentFont;
  493.     property ParentShowHint;
  494.     property PopupMenu;
  495.     property ShowHint;
  496.     property TabOrder;
  497.     property TabStop;
  498.     property Visible;
  499.     property OnClick;
  500.     property OnDblClick;
  501.     property OnDragDrop;
  502.     property OnDragOver;
  503.     property OnEndDrag;
  504.     property OnEnter;
  505.     property OnExit;
  506.     property OnKeyDown;
  507.     property OnKeyPress;
  508.     property OnKeyUp;
  509.     property OnMouseDown;
  510.     property OnMouseMove;
  511.     property OnMouseUp;
  512.     property OnStartDrag;
  513.   end;
  514.  
  515.   TListBoxStyle = (lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable);
  516.  
  517.   TCustomListBox = class(TWinControl)
  518.   protected
  519.     procedure CreateParams(var Params: TCreateParams); override;
  520.     procedure CreateWnd; override;
  521.     procedure DestroyWnd; override;
  522.     procedure WndProc(var Message: TMessage); override;
  523.     procedure DragCanceled; override;
  524.     procedure DrawItem(Index: Integer; Rect: TRect;
  525.       State: TOwnerDrawState); virtual;
  526.     procedure MeasureItem(Index: Integer; var Height: Integer); virtual;
  527.     function GetItemData(Index: Integer): LongInt; dynamic;
  528.     procedure SetItemData(Index: Integer; AData: LongInt); dynamic;
  529.     procedure ResetContent; dynamic;
  530.     procedure DeleteString(Index: Integer); dynamic;
  531.     property BorderStyle: TBorderStyle default bsSingle;
  532.     property Columns: Integer default 0;
  533.     property ExtendedSelect: Boolean default True;
  534.     property IntegralHeight: Boolean default False;
  535.     property ItemHeight: Integer;
  536.     property MultiSelect: Boolean default False;
  537.     property ParentColor default False;
  538.     property Sorted: Boolean default False;
  539.     property Style: TListBoxStyle default lbStandard;
  540.     property TabWidth: Integer default 0;
  541.     property OnDrawItem: TDrawItemEvent;
  542.     property OnMeasureItem: TMeasureItemEvent;
  543.   public
  544.     constructor Create(AOwner: TComponent); override;
  545.     destructor Destroy; override;
  546.     procedure Clear;
  547.     function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;
  548.     function ItemRect(Index: Integer): TRect;
  549.     property Canvas: TCanvas;
  550.     property Items: TStrings;
  551.     property ItemIndex: Integer;
  552.     property SelCount: Integer;
  553.     property Selected[Index: Integer]: Boolean;
  554.     property TopIndex: Integer;
  555.   published
  556.     property TabStop default True;
  557.   end;
  558.  
  559.   TListBox = class(TCustomListBox)
  560.   published
  561.     property Align;
  562.     property BorderStyle;
  563.     property Color;
  564.     property Columns;
  565.     property Ctl3D;
  566.     property DragCursor;
  567.     property DragMode;
  568.     property Enabled;
  569.     property ExtendedSelect;
  570.     property Font;
  571.     property ImeMode;
  572.     property ImeName;
  573.     property IntegralHeight;
  574.     property ItemHeight;
  575.     property Items;
  576.     property MultiSelect;
  577.     property ParentColor;
  578.     property ParentCtl3D;
  579.     property ParentFont;
  580.     property ParentShowHint;
  581.     property PopupMenu;
  582.     property ShowHint;
  583.     property Sorted;
  584.     property Style;
  585.     property TabOrder;
  586.     property TabStop;
  587.     property TabWidth;
  588.     property Visible;
  589.     property OnClick;
  590.     property OnDblClick;
  591.     property OnDragDrop;
  592.     property OnDragOver;
  593.     property OnDrawItem;
  594.     property OnEndDrag;
  595.     property OnEnter;
  596.     property OnExit;
  597.     property OnKeyDown;
  598.     property OnKeyPress;
  599.     property OnKeyUp;
  600.     property OnMeasureItem;
  601.     property OnMouseDown;
  602.     property OnMouseMove;
  603.     property OnMouseUp;
  604.     property OnStartDrag;
  605.   end;
  606.  
  607.   TScrollCode = (scLineUp, scLineDown, scPageUp, scPageDown, scPosition,
  608.     scTrack, scTop, scBottom, scEndScroll);
  609.  
  610.   TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode;
  611.     var ScrollPos: Integer) of object;
  612.  
  613.   TScrollBar = class(TWinControl)
  614.   protected
  615.     procedure CreateParams(var Params: TCreateParams); override;
  616.     procedure CreateWnd; override;
  617.     procedure Change; dynamic;
  618.     procedure Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer); dynamic;
  619.   public
  620.     constructor Create(AOwner: TComponent); override;
  621.     procedure SetParams(APosition, AMin, AMax: Integer);
  622.   published
  623.     property Ctl3D;
  624.     property DragCursor;
  625.     property DragMode;
  626.     property Enabled;
  627.     property Kind: TScrollBarKind default sbHorizontal;
  628.     property LargeChange: TScrollBarInc default 1;
  629.     property Max: Integer default 100;
  630.     property Min: Integer default 0;
  631.     property ParentCtl3D;
  632.     property ParentShowHint;
  633.     property PopupMenu;
  634.     property Position: Integer default 0;
  635.     property ShowHint;
  636.     property SmallChange: TScrollBarInc default 1;
  637.     property TabOrder;
  638.     property TabStop default True;
  639.     property Visible;
  640.     property OnChange: TNotifyEvent;
  641.     property OnDragDrop;
  642.     property OnDragOver;
  643.     property OnEndDrag;
  644.     property OnEnter;
  645.     property OnExit;
  646.     property OnKeyDown;
  647.     property OnKeyPress;
  648.     property OnKeyUp;
  649.     property OnScroll: TScrollEvent;
  650.     property OnStartDrag;
  651.   end;
  652.  
  653.   TStaticBorderStyle = (sbsNone, sbsSingle, sbsSunken);
  654.  
  655.   TCustomStaticText = class(TWinControl)
  656.   protected
  657.     procedure CreateParams(var Params: TCreateParams); override;
  658.     procedure Loaded; override;
  659.     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  660.     property Alignment: TAlignment default taLeftJustify;
  661.     property AutoSize: Boolean default True;
  662.     property BorderStyle: TStaticBorderStyle default sbsNone;
  663.     property FocusControl: TWinControl;
  664.     property ShowAccelChar: Boolean default True;
  665.   public
  666.     constructor Create(AOwner: TComponent); override;
  667.   end;
  668.  
  669.   TStaticText = class(TCustomStaticText)
  670.   published
  671.     property Align;
  672.     property Alignment;
  673.     property AutoSize;
  674.     property BorderStyle;
  675.     property Caption;
  676.     property Color;
  677.     property DragCursor;
  678.     property DragMode;
  679.     property Enabled;
  680.     property FocusControl;
  681.     property Font;
  682.     property ParentColor;
  683.     property ParentFont;
  684.     property ParentShowHint;
  685.     property PopupMenu;
  686.     property ShowAccelChar;
  687.     property ShowHint;
  688.     property TabOrder;
  689.     property TabStop;
  690.     property Visible;
  691.     property OnClick;
  692.     property OnDblClick;
  693.     property OnDragDrop;
  694.     property OnDragOver;
  695.     property OnEndDrag;
  696.     property OnMouseDown;
  697.     property OnMouseMove;
  698.     property OnMouseUp;
  699.     property OnStartDrag;
  700.   end;
  701.  
  702. implementation
  703.