| Class TTips (unit Tips) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure ShowTip;
procedure DoShowTip;
procedure Loaded;
procedure LoadRegTips;
procedure DialogCheckBoxClick(Sender: TObject);
procedure DialogCloseButtonClick(Sender: TObject);
procedure DialogNextButtonClick(Sender: TObject);
procedure DialogPaintBoxPaint(Sender: TObject);
procedure SetCurrentTip(Value: Integer);
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;