home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibylft1.zip / DOC.DAT / DOC / SPCC / CHECKLB.PAS < prev    next >
Pascal/Delphi Source File  |  1997-04-07  |  1KB  |  36 lines
  1. UNIT CheckLB;
  2.  
  3. INTERFACE
  4.  
  5. USES Messages,Classes,Forms,Graphics,StdCtrls;
  6.  
  7. TYPE
  8.     TCheckListBoxState=(clsUnchecked,clsChecked,cls3State);
  9.  
  10.     TCheckListBox=CLASS(TListBox)
  11.       PRIVATE
  12.          FBitmapList:TBitmapList;
  13.          FOnStateChanged:TNotifyEvent;
  14.       PRIVATE
  15.          FUNCTION GetState(Index:LONGINT):TCheckListBoxState;
  16.          PROCEDURE SetState(Index:LONGINT;Value:TCheckListBoxState);
  17.          PROPERTY Style;
  18.       PROTECTED
  19.          PROCEDURE SetupComponent;OVERRIDE;
  20.          DESTRUCTOR Destroy;OVERRIDE;
  21.          PROCEDURE ItemSelect(Index:LONGINT);OVERRIDE;
  22.          PROCEDURE DrawItem(Index:LONGINT;Rec:TRect;State:TOwnerDrawState);OVERRIDE;
  23.          PROCEDURE CharEvent(VAR Msg:TWMChar;VAR ch:CHAR;RepeatCount:BYTE);OVERRIDE;
  24.       PUBLIC
  25.          PROPERTY State[Index:LONGINT]:TCheckListBoxState read GetState write SetState;
  26.       PUBLISHED
  27.          PROPERTY OnStateChanged:TNotifyEvent read FOnStateChanged write FOnStateChanged;
  28.     END;
  29.  
  30. FUNCTION InsertCheckListBox(Parent:TControl;X,Y,W,H:LONGINT):TCheckListBox;
  31.  
  32.  
  33. IMPLEMENTATION
  34.  
  35.  
  36.