Class TCheckGroup (unit Chkgroup)

Inherits from

TScrollBox

Constructors


constructor Create(AOwner: TComponent);

****************************************************************************}


Functions

Procedure CheckAllItems;


Procedure CheckItem(NDX : LongInt);


destructor Destroy;


Function ItemChecked(NDX : Integer) : Boolean;

*****************************************************************************)

Procedure UnCheckAllItems;


Procedure UnCheckItem(NDX : LongInt);


function CanModify: Boolean;


procedure ReadState(Reader: TReader);


procedure ArrangeChkBoxes;


procedure ButtonClick(Sender: TObject);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure ItemsChange(Sender: TObject);


procedure SetButtonCount(Value: Integer);


procedure SetDistance(Value: Integer);


procedure SetItems(Value: TStrings);


procedure UpdateChkBoxes;


Properties

property Distance : Integer


property Items : TStrings


Events

event OnCheckBoxClick : TCheckBoxClick


Variables

FChkBoxes : TList;


FDistance : Integer;


FItemIndex : Integer;


FItems : TStrings;


FOnCheckBoxClick : TCheckBoxClick;


FReading : Boolean;


FUpdating : Boolean;



Constructors


constructor Create(AOwner: TComponent);

****************************************************************************}


Functions


Procedure CheckAllItems;


Procedure CheckItem(NDX : LongInt);


destructor Destroy;


Function ItemChecked(NDX : Integer) : Boolean;

*****************************************************************************)


Procedure UnCheckAllItems;


Procedure UnCheckItem(NDX : LongInt);


function CanModify: Boolean;


procedure ReadState(Reader: TReader);


procedure ArrangeChkBoxes;


procedure ButtonClick(Sender: TObject);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure ItemsChange(Sender: TObject);


procedure SetButtonCount(Value: Integer);


procedure SetDistance(Value: Integer);


procedure SetItems(Value: TStrings);


procedure UpdateChkBoxes;


Properties


property Distance : Integer


property Items : TStrings


Events


event OnCheckBoxClick : TCheckBoxClick


Variables


FChkBoxes : TList;


FDistance : Integer;


FItemIndex : Integer;


FItems : TStrings;


FOnCheckBoxClick : TCheckBoxClick;


FReading : Boolean;


FUpdating : Boolean;