Class TTest_Form (unit APComps)

Inherits from

TForm

Constructors



Functions

procedure But_ActiveClick(Sender: TObject);

capbut02.

procedure But_ExitClick(Sender: TObject);


procedure But_GradientClick(Sender: TObject);


procedure But_TestClick(Sender: TObject);


procedure CB_ShowButtonsClick(Sender: TObject);


procedure CB_ShowCaptionClick(Sender: TObject);


procedure CB_SwapGradientClick(Sender: TObject);


procedure ColorClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Pnl_CaptionClick(Sender: TObject);


procedure RG_AlignClick(Sender: TObject);


procedure Scroll_StepsChange(Sender: TObject);


procedure Scroll_WavesChange(Sender: TObject);


procedure swapClick(Sender: TObject);


procedure TitleBarDisable(Sender: TObject);


procedure TitleBarEnable(Sender: TObject);


Properties

Events

Variables

But_Active : TSpeedButton;


But_Exit : TSpeedButton;


But_Gradient : TTitleButton;


CapBut01 : TTitleButton;


CapBut03 : TTitleButton;


CB_ShowButtons : TCheckBox;


CB_ShowCaption : TCheckBox;


CB_SwapGradient : TCheckBox;


ColorDialog : TColorDialog;


FontDialog : TFontDialog;


Label1 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Lbl_Steps : TLabel;


Lbl_Waves : TLabel;


MainMenu : TMainMenu;


Mnu_Info : TMenuItem;


Pnl_Caption : TPanel;


Pnl_From : TPanel;


Pnl_Grad : TPanel;


Pnl_To : TPanel;


RG_Align : TRadioGroup;


Scroll_Steps : TScrollBar;


Scroll_Waves : TScrollBar;


TitleBar : TTitleBar;



Constructors


Functions


procedure But_ActiveClick(Sender: TObject);

capbut02.caption:='Full Size';


procedure But_ExitClick(Sender: TObject);


procedure But_GradientClick(Sender: TObject);


procedure But_TestClick(Sender: TObject);


procedure CB_ShowButtonsClick(Sender: TObject);


procedure CB_ShowCaptionClick(Sender: TObject);


procedure CB_SwapGradientClick(Sender: TObject);


procedure ColorClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Pnl_CaptionClick(Sender: TObject);


procedure RG_AlignClick(Sender: TObject);


procedure Scroll_StepsChange(Sender: TObject);


procedure Scroll_WavesChange(Sender: TObject);


procedure swapClick(Sender: TObject);


procedure TitleBarDisable(Sender: TObject);


procedure TitleBarEnable(Sender: TObject);


Properties


Events


Variables


But_Active : TSpeedButton;


But_Exit : TSpeedButton;


But_Gradient : TTitleButton;


CapBut01 : TTitleButton;


CapBut03 : TTitleButton;


CB_ShowButtons : TCheckBox;


CB_ShowCaption : TCheckBox;


CB_SwapGradient : TCheckBox;


ColorDialog : TColorDialog;


FontDialog : TFontDialog;


Label1 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Lbl_Steps : TLabel;


Lbl_Waves : TLabel;


MainMenu : TMainMenu;


Mnu_Info : TMenuItem;


Pnl_Caption : TPanel;


Pnl_From : TPanel;


Pnl_Grad : TPanel;


Pnl_To : TPanel;


RG_Align : TRadioGroup;


Scroll_Steps : TScrollBar;


Scroll_Waves : TScrollBar;


TitleBar : TTitleBar;