| Class TRxGradientCaption (unit RxGrdCpt) |
TComponent
TRxGradientCaption
| Constructors |
constructor Create(AOwner: TComponent);| 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);
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;