Class TGradientCaption (unit GradCapt)

Inherits from

TComponent

Constructors


constructor Create(Owner: TComponent);



Functions

procedure DoMessage(var Message: TMessage);

adjust up to ensure overlap

procedure FindColours(Str : String; var OutR : Integer; var OutG : Integer; var OutB : Integer);


procedure GetFromReg(const Col : String; var R_G_B : String);


procedure LoadColors(Mode: TLoadColorsMode);

precalculated Brush.

procedure PaintTitle(Mode: TLoadColorsMode);

fix the end colour

procedure SetCaptionColor(Value: TColor);


procedure SetCaptionFontStyle(Value: TFontStyles);


procedure SetGradColor(Value: TColor);


procedure SetProductCaption(Value: string);


procedure SetProductCaptionColor(Value: TColor);


procedure SetProductCaptionFontStyle(Value: TFontStyles);


Properties

property CaptionColor : TColor


property CaptionFontStyle : TFontStyles


property GradientColor : TColor

Published declarations

property ProductCaption : string


property ProductCaptionColor : TColor


property ProductCaptionFontStyle : TFontStyles


Events

Variables

TitleCanvas : TCanvas;

Public declarations

ActiveColor : TColor;


ActiveTable : array[0..255] of Longint;


ButtonWidth : integer;


DC : HDC;


FrameHeight : integer;


FrameWidth : integer;

Protected declarations

IconHeight : Integer;


IconWidth : Integer;


InActiveColor : TColor;


InactiveTable : array[0..255] of Longint;

precalculated Brush.

TitleHeight : integer;


FCaptionColor : TColor;


FCaptionFontStyle : TFontStyles;


FGradColor : TColor;

Private declarations

FProductCaption : string;


FProductCaptionColor : TColor;


FProductCaptionFontStyle : TFontStyles;



Constructors


constructor Create(Owner: TComponent);


Functions


procedure DoMessage(var Message: TMessage);

adjust up to ensure overlap


procedure FindColours(Str : String; var OutR : Integer; var OutG : Integer; var OutB : Integer);


procedure GetFromReg(const Col : String; var R_G_B : String);


procedure LoadColors(Mode: TLoadColorsMode);

precalculated Brush.Colors for inactive title


procedure PaintTitle(Mode: TLoadColorsMode);

fix the end colour


procedure SetCaptionColor(Value: TColor);


procedure SetCaptionFontStyle(Value: TFontStyles);


procedure SetGradColor(Value: TColor);


procedure SetProductCaption(Value: string);


procedure SetProductCaptionColor(Value: TColor);


procedure SetProductCaptionFontStyle(Value: TFontStyles);


Properties


property CaptionColor : TColor


property CaptionFontStyle : TFontStyles


property GradientColor : TColor

Published declarations


property ProductCaption : string


property ProductCaptionColor : TColor


property ProductCaptionFontStyle : TFontStyles


Events


Variables


TitleCanvas : TCanvas;

Public declarations


ActiveColor : TColor;


ActiveTable : array[0..255] of Longint;


ButtonWidth : integer;


DC : HDC;


FrameHeight : integer;


FrameWidth : integer;

Protected declarations


IconHeight : Integer;


IconWidth : Integer;


InActiveColor : TColor;


InactiveTable : array[0..255] of Longint;

precalculated Brush.Colors for active title


TitleHeight : integer;


FCaptionColor : TColor;


FCaptionFontStyle : TFontStyles;


FGradColor : TColor;

Private declarations


FProductCaption : string;


FProductCaptionColor : TColor;


FProductCaptionFontStyle : TFontStyles;