Class TWizardTree (unit WizardTree)

Inherits from

TPanel

Constructors


constructor Create( AOwner : TComponent );



Functions

destructor Destroy;


procedure Click;


procedure Paint;


procedure AllocateRects;


procedure FillBox( Index : Integer; Live : Boolean );


procedure SetBoxColor( Value : TColor );


procedure SetBoxHeight( Value : Integer );


procedure SetBoxWidth( Value : Integer );


procedure SetHorizontalSpace( Value : Integer );


procedure SetItemIndex( Value : Integer );


procedure SetItems( NewItems : TStrings );


procedure SetLeftMargin( Value : Integer );


procedure SetLineColor( Value : TColor );


procedure SetSelectedBoxColor( Value : TColor );


procedure SetTopMargin( Value : Integer );


procedure SetVersion( Value : string );


procedure SetVerticalSpace( Value : Integer );


Properties

property BoxColor : TColor


property BoxHeight : Integer


property BoxWidth : Integer


property HorizontalSpace : Integer


property ItemIndex : Integer


property Items : TStrings


property LeftMargin : Integer


property LineColor : TColor


property SelectedBoxColor : TColor


property TopMargin : Integer


property Version : string


property VerticalSpace : Integer


Events

event OnChange : TOnChange


event OnChanging : TOnChanging


Variables

FBoxColor : TColor;


FBoxHeight : Integer;


FBoxWidth : Integer;


FHorizontalSpace : Integer;


FItemIndex : Integer;


FItems : TStrings;


FLeftMargin : Integer;


FLineColor : TColor;


FOnChange : TOnChange;


FOnChanging : TOnChanging;


FRects : TList;


FSelectedBoxColor : TColor;


FTopMargin : Integer;


FVersion : string;


FVerticalSpace : Integer;



Constructors


constructor Create( AOwner : TComponent );


Functions


destructor Destroy;


procedure Click;


procedure Paint;


procedure AllocateRects;


procedure FillBox( Index : Integer; Live : Boolean );


procedure SetBoxColor( Value : TColor );


procedure SetBoxHeight( Value : Integer );


procedure SetBoxWidth( Value : Integer );


procedure SetHorizontalSpace( Value : Integer );


procedure SetItemIndex( Value : Integer );


procedure SetItems( NewItems : TStrings );


procedure SetLeftMargin( Value : Integer );


procedure SetLineColor( Value : TColor );


procedure SetSelectedBoxColor( Value : TColor );


procedure SetTopMargin( Value : Integer );


procedure SetVersion( Value : string );


procedure SetVerticalSpace( Value : Integer );


Properties


property BoxColor : TColor


property BoxHeight : Integer


property BoxWidth : Integer


property HorizontalSpace : Integer


property ItemIndex : Integer


property Items : TStrings


property LeftMargin : Integer


property LineColor : TColor


property SelectedBoxColor : TColor


property TopMargin : Integer


property Version : string


property VerticalSpace : Integer


Events


event OnChange : TOnChange


event OnChanging : TOnChanging


Variables


FBoxColor : TColor;


FBoxHeight : Integer;


FBoxWidth : Integer;


FHorizontalSpace : Integer;


FItemIndex : Integer;


FItems : TStrings;


FLeftMargin : Integer;


FLineColor : TColor;


FOnChange : TOnChange;


FOnChanging : TOnChanging;


FRects : TList;


FSelectedBoxColor : TColor;


FTopMargin : Integer;


FVersion : string;


FVerticalSpace : Integer;