Changeset 227 for trunk/Core.pas

Timestamp:

Jan 20, 2025, 11:38:55 AM (42 hours ago)

Author:

chronos

Message:

• Modified: Do not reference global Core object if possible.

File:

• trunk/Core.pas (modified) (3 diffs)

trunk/Core.pas

@@ -18 +18 @@
     ImageListSmall: TImageList;
     ImageListLarge: TImageList;
-    JobProgressView1: TJobProgressView;
     MenuItem1: TMenuItem;
     MenuItem19: TMenuItem;
@@ -53 +52 @@
     procedure SaveConfig;
     procedure ScaleDPI;
-    function CompareStrings(Strings1, Strings2: TStrings): Boolean;
     property AlwaysOnTop: Boolean read FAlwaysOnTop write SetAlwaysOnTop;
   end;
@@ -100 +98 @@
   FreeAndNil(StoredDimension);
   FreeAndNil(AcronymDb);
-end;
-
-function TCore.CompareStrings(Strings1, Strings2: TStrings): Boolean;
-var
-  I: Integer;
-begin
-  Result := Strings1.Count = Strings2.Count;
-  if not Result then Exit;
-  for I := 0 to Strings1.Count - 1 do
-    if (Strings1[I] <> Strings2[I]) or (Strings1.Objects[I] <> Strings2.Objects[I]) then begin
-      Result := False;
-      Exit;
-    end;
 end;