Class TRxGradientCaption (unit RxGrdCpt)

Inherits from

TComponent

TRxGradientCaption

Constructors


constructor Create(AOwner: TComponent);

TRxGradientCaption


Functions

destructor Destroy;


procedure Loaded;


procedure AfterMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean);


procedure BeforeMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean);


procedure CalculateGradientParams(var R: TRect; var Icons: TBorderIcons);


procedure CheckToggleHook;


procedure DrawGradientCaption(DC: HDC);


function GetActive: Boolean;


function GetForm: TForm;


procedure ReleaseHook;


procedure SetActive(Value: Boolean);


procedure SetHook;


procedure SetStartColor(Value: TColor);

Delphi doesn't send WM_SETTEXT to form's window procedure, so we need to handle WM_GETTEXT to redraw non-client area when form's caption changed

procedure Update;


Properties

property Active : Boolean


property StartColor : TColor


property Form : TForm


Events

Variables

FActive : Boolean;


FFormCaption : string;


FRgnChanged : Boolean;


FSaveRgn : HRgn;


FStartColor : TColor;


FWindowActive : Boolean;


FWinHook : TRxWindowHook;



Constructors


constructor Create(AOwner: TComponent);

TRxGradientCaption


Functions


destructor Destroy;


procedure Loaded;


procedure AfterMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean);


procedure BeforeMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean);


procedure CalculateGradientParams(var R: TRect; var Icons: TBorderIcons);


procedure CheckToggleHook;


procedure DrawGradientCaption(DC: HDC);


function GetActive: Boolean;


function GetForm: TForm;


procedure ReleaseHook;


procedure SetActive(Value: Boolean);


procedure SetHook;


procedure SetStartColor(Value: TColor);

Delphi doesn't send WM_SETTEXT to form's window procedure, so we need to handle WM_GETTEXT to redraw non-client area when form's caption changed


procedure Update;


Properties


property Active : Boolean


property StartColor : TColor


property Form : TForm


Events


Variables


FActive : Boolean;


FFormCaption : string;


FRgnChanged : Boolean;


FSaveRgn : HRgn;


FStartColor : TColor;


FWindowActive : Boolean;


FWinHook : TRxWindowHook;