| Class TGradientCaption (unit GradCapt) |
TComponent
| Constructors |
constructor Create(Owner: TComponent);| Functions |
procedure DoMessage(var Message: TMessage);
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);
procedure PaintTitle(Mode: TLoadColorsMode);
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
property ProductCaption : string
property ProductCaptionColor : TColor
property ProductCaptionFontStyle : TFontStyles| Events |
| Variables |
TitleCanvas : TCanvas;
ActiveColor : TColor;
ActiveTable : array[0..255] of Longint;
ButtonWidth : integer;
DC : HDC;
FrameHeight : integer;
FrameWidth : integer;
IconHeight : Integer;
IconWidth : Integer;
InActiveColor : TColor;
InactiveTable : array[0..255] of Longint;
TitleHeight : integer;
FCaptionColor : TColor;
FCaptionFontStyle : TFontStyles;
FGradColor : TColor;
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 : TColorPublished 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;