Class TMRUManager (unit MRUList)

Inherits from

TComponent

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;



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;