Class TTips (unit Tips)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TTips


Functions

destructor Destroy;

Initialize

procedure ShowTip;

Load the tips from the registry

procedure DoShowTip;

Show the tip dialog by calling DoShowTip

procedure Loaded;


procedure LoadRegTips;

If not in Design mode, load the strings from the registry if necessary

procedure DialogCheckBoxClick(Sender: TObject);

Draw the memory bitmap to the paintbox canvas

procedure DialogCloseButtonClick(Sender: TObject);

Increase FCurrentTip

procedure DialogNextButtonClick(Sender: TObject);

Set property to the state of the check box

procedure DialogPaintBoxPaint(Sender: TObject);


procedure SetCurrentTip(Value: Integer);

Insert "Close" button

procedure SetGlyph(Value: TIcon);


procedure SetGlyphStyle(Value: TGlyphStyle);


procedure SetRegParentKey(Value: String);


procedure SetRegSubKey(Value: String);


procedure SetShowOnStartUp(Value: Boolean);


procedure SetTips(Value: TStringList);


procedure SetUseRegistry(Value: Boolean);


Properties

property CurrentTip : Integer


property Glyph : TIcon


property GlyphStyle : TGlyphStyle


property RegParentKey : String


property RegSubKey : String


property ShowOnStartup : Boolean


property Tips : TStringList


property UseRegistry : Boolean


Events

event OnCloseDialog : TNotifyEvent


event OnNextTip : TNotifyEvent


Variables

FCurrentTip : Integer;


FDialog : TTipDialog;


FGlyph : TIcon;


FGlyphStyle : TGlyphStyle;


FOnCloseDialog : TNotifyEvent;


FOnNextTip : TNotifyEvent;


FRegParentKey : String;


FRegSubKey : String;


FShowOnStartup : Boolean;


FTips : TStringList;


FUseRegistry : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TTips


Functions


destructor Destroy;

Initialize


procedure ShowTip;

Load the tips from the registry


procedure DoShowTip;

Show the tip dialog by calling DoShowTip


procedure Loaded;


procedure LoadRegTips;

If not in Design mode, load the strings from the registry if necessary


procedure DialogCheckBoxClick(Sender: TObject);

Draw the memory bitmap to the paintbox canvas


procedure DialogCloseButtonClick(Sender: TObject);

Increase FCurrentTip


procedure DialogNextButtonClick(Sender: TObject);

Set property to the state of the check box


procedure DialogPaintBoxPaint(Sender: TObject);


procedure SetCurrentTip(Value: Integer);

Insert "Close" button


procedure SetGlyph(Value: TIcon);


procedure SetGlyphStyle(Value: TGlyphStyle);


procedure SetRegParentKey(Value: String);


procedure SetRegSubKey(Value: String);


procedure SetShowOnStartUp(Value: Boolean);


procedure SetTips(Value: TStringList);


procedure SetUseRegistry(Value: Boolean);


Properties


property CurrentTip : Integer


property Glyph : TIcon


property GlyphStyle : TGlyphStyle


property RegParentKey : String


property RegSubKey : String


property ShowOnStartup : Boolean


property Tips : TStringList


property UseRegistry : Boolean


Events


event OnCloseDialog : TNotifyEvent


event OnNextTip : TNotifyEvent


Variables


FCurrentTip : Integer;


FDialog : TTipDialog;


FGlyph : TIcon;


FGlyphStyle : TGlyphStyle;


FOnCloseDialog : TNotifyEvent;


FOnNextTip : TNotifyEvent;


FRegParentKey : String;


FRegSubKey : String;


FShowOnStartup : Boolean;


FTips : TStringList;


FUseRegistry : Boolean;