Changeset 366

Timestamp:

May 22, 2012, 1:45:06 PM (12 years ago)

Author:

chronos

Message:

• Modified: More clear TLastOpenedList implementation using OnChange event and exteranally called method LoadToMenuItem.

File:

• Common/ULastOpenedList.pas (modified) (5 diffs)

Common/ULastOpenedList.pas

@@ -13 +13 @@
 
   TLastOpenedList = class(TStringList)
+  private
+    FOnChange: TNotifyEvent;
   public
     MaxCount: Integer;
-    MenuItem: TMenuItem;
     ClickAction: TNotifyEvent;
     constructor Create;
     destructor Destroy; override;
-    procedure ReloadMenu;
+    procedure LoadToMenuItem(MenuItem: TMenuItem);
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
     procedure AddItem(FileName: string);
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
 
@@ -40 +42 @@
 end;
 
-procedure TLastOpenedList.ReloadMenu;
+procedure TLastOpenedList.LoadToMenuItem(MenuItem: TMenuItem);
 var
   NewMenuItem: TMenuItem;
@@ -60 +62 @@
   I: Integer;
   Registry: TRegistryEx;
+  FileName: string;
 begin
   Registry := TRegistryEx.Create;
@@ -69 +72 @@
     I := 0;
     while ValueExists('File' + IntToStr(I)) and (I < MaxCount) do begin
-      inherited Add(UTF8Encode(ReadStringWithDefault('File' + IntToStr(I), '')));
+      FileName := UTF8Encode(ReadStringWithDefault('File' + IntToStr(I), ''));
+      if Trim(FileName) <> '' then inherited Add(FileName);
       Inc(I);
     end;
-    ReloadMenu;
+    if Assigned(FOnChange) then
+      FOnChange(Self);
   finally
     Free;
@@ -101 +106 @@
     Delete(Count - 1);
 
-  ReloadMenu;
+  if Assigned(FOnChange) then
+    FOnChange(Self);
 end;