| Class TMRUManager (unit MRUList) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Add(const RecentName: string; UserData: Longint);
procedure Clear;
destructor Destroy;
procedure LoadFromIni(Ini: TIniFile; const Section: string);
procedure LoadFromRegistry(Ini: TRegIniFile; const Section: string);
procedure Remove(const RecentName: string);
procedure SaveToIni(Ini: TIniFile; const Section: string);
procedure SaveToRegistry(Ini: TRegIniFile; const Section: string);
procedure UpdateRecentMenu;
procedure Change;
procedure DoClick(const RecentName, Caption: string; UserData: Longint);
procedure DoReadItem(Ini: TObject; const Section: string;
Index: Integer; var RecentName: string; var UserData: Longint);
procedure DoWriteItem(Ini: TObject; const Section: string; Index: Integer;
const RecentName: string; UserData: Longint);
procedure GetItemData(var Caption: string; var ShortCut: TShortCut;
UserData: Longint);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure AddMenuItem(Item: TMenuItem);
procedure ClearRecentMenu;
function GetCapacity: Integer;
function GetMode: TRecentMode;
function GetStorage: TFormPlacement;
procedure IniLoad(Sender: TObject);
procedure IniSave(Sender: TObject);
procedure InternalLoad(Ini: TObject; const Section: string);
procedure InternalSave(Ini: TObject; const Section: string);
procedure ListChanged(Sender: TObject);
procedure MenuItemClick(Sender: TObject);
procedure SetAccelDelimiter(Value: TAccelDelimiter);
procedure SetAutoEnable(Value: Boolean);
procedure SetCapacity(Value: Integer);
procedure SetMode(Value: TRecentMode);
procedure SetRecentMenu(Value: TMenuItem);
procedure SetSeparateSize(Value: Word);
procedure SetShowAccelChar(Value: Boolean);
procedure SetStartAccel(Value: Cardinal);
procedure SetStorage(Value: TFormPlacement);| Properties |
property AccelDelimiter : TAccelDelimiter
property AutoEnable : Boolean
property AutoUpdate : Boolean
property Capacity : Integer
property IniStorage : TFormPlacement
property Mode : TRecentMode
property RecentMenu : TMenuItem
property RemoveOnSelect : Boolean
property SeparateSize : Word
property ShowAccelChar : Boolean
property StartAccel : Cardinal
property Strings : TStrings| Events |
event OnChange : TNotifyEvent
event OnClick : TClickMenuEvent
event OnGetItemData : TGetItemEvent
event OnReadItem : TReadItemEvent
event OnWriteItem : TWriteItemEvent| Variables |
FAccelDelimiter : TAccelDelimiter;
FAutoEnable : Boolean;
FAutoUpdate : Boolean;
FIniLink : TIniLink;
FItems : TList;
FList : TStrings;
FOnChange : TNotifyEvent;
FOnClick : TClickMenuEvent;
FOnGetItem : TGetItemEvent;
FOnReadItem : TReadItemEvent;
FOnWriteItem : TWriteItemEvent;
FRecentMenu : TMenuItem;
FRemoveOnSelect : Boolean;
FSeparateSize : Word;
FShowAccelChar : Boolean;
FStartAccel : Cardinal;| Constructors |
constructor Create(AOwner: TComponent);TMRUManager
| Functions |
procedure Add(const RecentName: string; UserData: Longint);
procedure Clear;
destructor Destroy;
procedure LoadFromIni(Ini: TIniFile; const Section: string);
procedure LoadFromRegistry(Ini: TRegIniFile; const Section: string);
procedure Remove(const RecentName: string);
procedure SaveToIni(Ini: TIniFile; const Section: string);
procedure SaveToRegistry(Ini: TRegIniFile; const Section: string);
procedure UpdateRecentMenu;
procedure Change;
procedure DoClick(const RecentName, Caption: string; UserData: Longint);
procedure DoReadItem(Ini: TObject; const Section: string;
Index: Integer; var RecentName: string; var UserData: Longint);
procedure DoWriteItem(Ini: TObject; const Section: string; Index: Integer;
const RecentName: string; UserData: Longint);
procedure GetItemData(var Caption: string; var ShortCut: TShortCut;
UserData: Longint);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure AddMenuItem(Item: TMenuItem);
procedure ClearRecentMenu;
function GetCapacity: Integer;
function GetMode: TRecentMode;
function GetStorage: TFormPlacement;
procedure IniLoad(Sender: TObject);
procedure IniSave(Sender: TObject);
procedure InternalLoad(Ini: TObject; const Section: string);
procedure InternalSave(Ini: TObject; const Section: string);
procedure ListChanged(Sender: TObject);
procedure MenuItemClick(Sender: TObject);
procedure SetAccelDelimiter(Value: TAccelDelimiter);
procedure SetAutoEnable(Value: Boolean);
procedure SetCapacity(Value: Integer);
procedure SetMode(Value: TRecentMode);
procedure SetRecentMenu(Value: TMenuItem);
procedure SetSeparateSize(Value: Word);
procedure SetShowAccelChar(Value: Boolean);
procedure SetStartAccel(Value: Cardinal);
procedure SetStorage(Value: TFormPlacement);| Properties |
property AccelDelimiter : TAccelDelimiter
property AutoEnable : Boolean
property AutoUpdate : Boolean
property Capacity : Integer
property IniStorage : TFormPlacement
property Mode : TRecentMode
property RecentMenu : TMenuItem
property RemoveOnSelect : Boolean
property SeparateSize : Word
property ShowAccelChar : Boolean
property StartAccel : Cardinal
property Strings : TStrings| Events |
event OnChange : TNotifyEvent
event OnClick : TClickMenuEvent
event OnGetItemData : TGetItemEvent
event OnReadItem : TReadItemEvent
event OnWriteItem : TWriteItemEvent| Variables |
FAccelDelimiter : TAccelDelimiter;
FAutoEnable : Boolean;
FAutoUpdate : Boolean;
FIniLink : TIniLink;
FItems : TList;
FList : TStrings;
FOnChange : TNotifyEvent;
FOnClick : TClickMenuEvent;
FOnGetItem : TGetItemEvent;
FOnReadItem : TReadItemEvent;
FOnWriteItem : TWriteItemEvent;
FRecentMenu : TMenuItem;
FRemoveOnSelect : Boolean;
FSeparateSize : Word;
FShowAccelChar : Boolean;
FStartAccel : Cardinal;