home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Doc / CheckLst.int < prev    next >
Encoding:
Text File  |  2001-05-22  |  3.5 KB  |  116 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {  Copyright (c) 1995-2001 Borland Software Corporation }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit CheckLst;
  11.  
  12. {$T-,H+,X+}
  13.  
  14. interface
  15.  
  16. uses
  17.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  18.   StdCtrls;
  19.  
  20. type
  21.   TCheckListBox = class(TCustomListBox)
  22.   protected
  23.     procedure DrawItem(Index: Integer; Rect: TRect;
  24.       State: TOwnerDrawState); override;
  25.     function InternalGetItemData(Index: Integer): Longint; override;
  26.     procedure InternalSetItemData(Index: Integer; AData: Longint); override;
  27.     procedure SetItemData(Index: Integer; AData: LongInt); override;
  28.     function GetItemData(Index: Integer): LongInt; override;
  29.     procedure KeyPress(var Key: Char); override;
  30.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
  31.       X, Y: Integer); override;
  32.     procedure ResetContent; override;
  33.     procedure DeleteString(Index: Integer); override;
  34.     procedure ClickCheck; dynamic;
  35.     procedure CreateParams(var Params: TCreateParams); override;
  36.     procedure CreateWnd; override;
  37.     procedure DestroyWnd; override;
  38.     function GetCheckWidth: Integer;
  39.   public
  40.     constructor Create(AOwner: TComponent); override;
  41.     destructor Destroy; override;
  42.     property Checked[Index: Integer]: Boolean;
  43.     property ItemEnabled[Index: Integer]: Boolean;
  44.     property State[Index: Integer]: TCheckBoxState;
  45.     property Header[Index: Integer]: Boolean;
  46.   published
  47.     property OnClickCheck: TNotifyEvent;
  48.     property Align;
  49.     property AllowGrayed: Boolean default False;
  50.     property Anchors;
  51.     property AutoComplete;
  52.     property BevelEdges;
  53.     property BevelInner;
  54.     property BevelOuter;
  55.     property BevelKind;
  56.     property BevelWidth;
  57.     property BiDiMode;
  58.     property BorderStyle;
  59.     property Color;
  60.     property Columns;
  61.     property Constraints;
  62.     property Ctl3D;
  63.     property DragCursor;
  64.     property DragKind;
  65.     property DragMode;
  66.     property Enabled;
  67.     property Flat: Boolean default True;
  68.     //property ExtendedSelect;
  69.     property Font;
  70.     property HeaderColor: TColor default clInfoText;
  71.     property HeaderBackgroundColor: TColor default clInfoBk;
  72.     property ImeMode;
  73.     property ImeName;
  74.     property IntegralHeight;
  75.     property ItemHeight;
  76.     property Items;
  77.     //property MultiSelect;
  78.     property ParentBiDiMode;
  79.     property ParentColor;
  80.     property ParentCtl3D;
  81.     property ParentFont;
  82.     property ParentShowHint;
  83.     property PopupMenu;
  84.     property ShowHint;
  85.     property Sorted;
  86.     property Style;
  87.     property TabOrder;
  88.     property TabStop;
  89.     property TabWidth;
  90.     property Visible;
  91.     property OnClick;
  92.     property OnContextPopup;
  93.     property OnData;
  94.     property OnDataFind;
  95.     property OnDataObject;
  96.     property OnDblClick;
  97.     property OnDragDrop;
  98.     property OnDragOver;
  99.     property OnDrawItem;
  100.     property OnEndDock;
  101.     property OnEndDrag;
  102.     property OnEnter;
  103.     property OnExit;
  104.     property OnKeyDown;
  105.     property OnKeyPress;
  106.     property OnKeyUp;
  107.     property OnMeasureItem;
  108.     property OnMouseDown;
  109.     property OnMouseMove;
  110.     property OnMouseUp;
  111.     property OnStartDock;
  112.     property OnStartDrag;
  113.   end;
  114.  
  115. implementation
  116.