Changeset 374 for Common

Timestamp:

Jun 13, 2012, 9:38:59 AM (12 years ago)

Author:

chronos

Message:

• Modified: TLastOpenedList transformed to TComponent descendant.

File:

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

Common/ULastOpenedList.pas

@@ -12 +12 @@
   { TLastOpenedList }
 
-  TLastOpenedList = class(TStringList)
+  TLastOpenedList = class(TComponent)
   private
+    FMaxCount: Integer;
     FOnChange: TNotifyEvent;
+    procedure SetMaxCount(AValue: Integer);
+    procedure LimitMaxCount;
   public
-    MaxCount: Integer;
+    Items: TStringList;
     ClickAction: TNotifyEvent;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure LoadToMenuItem(MenuItem: TMenuItem);
@@ -24 +27 @@
     procedure SaveToRegistry(Root: HKEY; Key: string);
     procedure AddItem(FileName: string);
+    property MaxCount: Integer read FMaxCount write SetMaxCount;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
@@ -31 +35 @@
 { TLastOpenedList }
 
-constructor TLastOpenedList.Create;
+procedure TLastOpenedList.SetMaxCount(AValue: Integer);
+begin
+  if FMaxCount = AValue then Exit;
+  FMaxCount := AValue;
+  if FMaxCount < 0 then FMaxCount := 0;
+  LimitMaxCount;
+end;
+
+procedure TLastOpenedList.LimitMaxCount;
+begin
+  while Items.Count > MaxCount do
+    Items.Delete(Items.Count - 1);
+end;
+
+constructor TLastOpenedList.Create(AOwner: TComponent);
 begin
   inherited;
-  MaxCount := 5;
+  Items := TStringList.Create;
+  MaxCount := 10;
 end;
 
 destructor TLastOpenedList.Destroy;
 begin
+  Items.Free;
   inherited;
 end;
@@ -49 +69 @@
   if Assigned(MenuItem) then begin
     MenuItem.Clear;
-    for I := 0 to Count - 1 do begin
+    for I := 0 to Items.Count - 1 do begin
       NewMenuItem := TMenuItem.Create(MenuItem);
-      NewMenuItem.Caption := Strings[I];
+      NewMenuItem.Caption := Items[I];
       NewMenuItem.OnClick := ClickAction;
       MenuItem.Add(NewMenuItem);
@@ -69 +89 @@
     RootKey := Root;
     OpenKey(Key, True);
-    Clear;
+    Items.Clear;
     I := 0;
     while ValueExists('File' + IntToStr(I)) and (I < MaxCount) do begin
       FileName := UTF8Encode(ReadStringWithDefault('File' + IntToStr(I), ''));
-      if Trim(FileName) <> '' then inherited Add(FileName);
+      if Trim(FileName) <> '' then Items.Add(FileName);
       Inc(I);
     end;
@@ -93 +113 @@
     RootKey := Root;
     OpenKey(Key, True);
-    for I := 0 to Count - 1 do
-      WriteString('File' + IntToStr(I), UTF8Decode(Strings[I]));
+    for I := 0 to Items.Count - 1 do
+      WriteString('File' + IntToStr(I), UTF8Decode(Items[I]));
   finally
     Free;
@@ -102 +122 @@
 procedure TLastOpenedList.AddItem(FileName:string);
 begin
-  if IndexOf(FileName) <> -1 then Delete(IndexOf(FileName));
-  Insert(0, FileName);
-  while Count > MaxCount do
-    Delete(Count - 1);
-
+  if Items.IndexOf(FileName) <> -1 then Items.Delete(Items.IndexOf(FileName));
+  Items.Insert(0, FileName);
+  LimitMaxCount;
   if Assigned(FOnChange) then
     FOnChange(Self);