Class TgToolbar (unit Toolbar)

Inherits from

TPanel

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Resize( Style: TStyles );

-------------------------------------------------------------------------} {PROCEDURE: Reset size of Toolbar.

function GetTop: Integer;


function GetWidth: Integer;


procedure SetBarAlignment( Value: TBarAlignment );


procedure SetStyle( Value: TStyles );


Properties

property About : TAboutToolbar


property BarAlign : TBarAlignment


property BtnBigHeight : Integer


property BtnBigWidth : Integer


property BtnLeftGrpTag : Integer


property BtnSmallSize : Integer


property BtnStyle : TStyles


property Top : Integer


property Width : Integer


Events

Variables

FAboutBox : TAboutToolbar;


FAlign : TBarAlignment;


FBigHeight : Integer;


FBigWidth : Integer;


FLeftGrpTag : Integer;


FSmallSize : Integer;


FStyle : TStyles;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Resize( Style: TStyles );

-------------------------------------------------------------------------} {PROCEDURE: Reset size of Toolbar. } {-------------------------------------------------------------------------


function GetTop: Integer;


function GetWidth: Integer;


procedure SetBarAlignment( Value: TBarAlignment );


procedure SetStyle( Value: TStyles );


Properties


property About : TAboutToolbar


property BarAlign : TBarAlignment


property BtnBigHeight : Integer


property BtnBigWidth : Integer


property BtnLeftGrpTag : Integer


property BtnSmallSize : Integer


property BtnStyle : TStyles


property Top : Integer


property Width : Integer


Events


Variables


FAboutBox : TAboutToolbar;


FAlign : TBarAlignment;


FBigHeight : Integer;


FBigWidth : Integer;


FLeftGrpTag : Integer;


FSmallSize : Integer;


FStyle : TStyles;