home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / D3TRIAL / INSTALL / DATA.Z / CHECKLST.INT < prev    next >
Text File  |  1997-03-21  |  3KB  |  88 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Delphi Visual Component Library                 }
  4. {                                                       }
  5. {       Copyright (c) 1997 Borland International        }
  6. {                                                       }
  7. {*******************************************************}
  8.  
  9. unit checklst;
  10.  
  11. interface
  12.  
  13. uses
  14.   Windows, Messages, SysUtils, Classes, Graphics, Controls, 
  15.   StdCtrls;
  16.  
  17. type
  18.   TCheckListBox = class(TCustomListBox)
  19.   protected
  20.     procedure DrawItem(Index: Integer; Rect: TRect;
  21.       State: TOwnerDrawState); override;
  22.     procedure SetItemData( Index: Integer; AData: LongInt ); override;
  23.     function GetItemData( Index: Integer ): LongInt; override;
  24.     procedure KeyPress(var Key: Char); override;
  25.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
  26.       X, Y: Integer); override;
  27.     procedure ResetContent; override;
  28.     procedure DeleteString(Index: Integer); override;
  29.     procedure ClickCheck; dynamic;
  30.     procedure CreateParams(var Params: TCreateParams); override;
  31.     procedure CreateWnd; override;
  32.     procedure DestroyWnd; override;
  33.     function GetCheckWidth: Integer;
  34.   public
  35.     destructor Destroy; override;
  36.     property Checked[Index: Integer]: Boolean;
  37.     property State[Index: Integer]: TCheckBoxState;
  38.   published
  39.     property OnClickCheck: TNotifyEvent;
  40.     property Align;
  41.     property AllowGrayed: Boolean default False;
  42.     property BorderStyle;
  43.     property Color;
  44.     property Columns;
  45.     property Ctl3D;
  46.     property DragCursor;
  47.     property DragMode;
  48.     property Enabled;
  49.     //property ExtendedSelect;
  50.     property Font;
  51.     property ImeMode;
  52.     property ImeName;
  53.     property IntegralHeight;
  54.     property ItemHeight;
  55.     property Items;
  56.     //property MultiSelect;
  57.     property ParentColor;
  58.     property ParentCtl3D;
  59.     property ParentFont;
  60.     property ParentShowHint;
  61.     property PopupMenu;
  62.     property ShowHint;
  63.     property Sorted;
  64.     property Style;
  65.     property TabOrder;
  66.     property TabStop;
  67.     property TabWidth;
  68.     property Visible;
  69.     property OnClick;
  70.     property OnDblClick;
  71.     property OnDragDrop;
  72.     property OnDragOver;
  73.     property OnDrawItem;
  74.     property OnEndDrag;
  75.     property OnEnter;
  76.     property OnExit;
  77.     property OnKeyDown;
  78.     property OnKeyPress;
  79.     property OnKeyUp;
  80.     property OnMeasureItem;
  81.     property OnMouseDown;
  82.     property OnMouseMove;
  83.     property OnMouseUp;
  84.     property OnStartDrag;
  85.   end;
  86.  
  87. implementation
  88.