Changeset 432 for Common/ULastOpenedList.pas

Timestamp:

Oct 25, 2012, 2:11:47 PM (12 years ago)

Author:

chronos

Message:

• Added: ListViewSort and SyncCounter units.

File:

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

Common/ULastOpenedList.pas

@@ -18 +18 @@
     procedure SetMaxCount(AValue: Integer);
     procedure LimitMaxCount;
+    procedure ItemsChange(Sender: TObject);
+    procedure DoChange;
   public
     Items: TStringList;
@@ -58 +60 @@
 end;
 
+procedure TLastOpenedList.ItemsChange(Sender: TObject);
+begin
+  DoChange;
+end;
+
+procedure TLastOpenedList.DoChange;
+begin
+  if Assigned(FOnChange) then
+    FOnChange(Self);
+end;
+
 constructor TLastOpenedList.Create(AOwner: TComponent);
 begin
   inherited;
   Items := TStringList.Create;
+  Items.OnChange := ItemsChange;
   MaxCount := 10;
 end;
@@ -134 +148 @@
   Items.Insert(0, FileName);
   LimitMaxCount;
-  if Assigned(FOnChange) then
-    FOnChange(Self);
+  DoChange;
 end;