Changeset 11 for trunk/UKConfig.pas

Timestamp:

May 3, 2014, 12:09:24 AM (10 years ago)

Author:

chronos

Message:

• Added: Common package for support of LastOpenedList.

File:

• trunk/UKConfig.pas (modified) (2 diffs)

trunk/UKConfig.pas

@@ -97 +97 @@
     procedure CompareStringLists(List1, List2: TStringList; Missing1,
       Missing2: TStrings);
-    procedure LoadFromDir(Dir: string; Arch: string);
+    procedure LoadFromDir(Dir: string);
     property OnLog: TOnLogEvent read FOnLog write FOnLog;
     constructor Create;
@@ -721 +721 @@
 end;
 
-procedure TConfigMenu.LoadFromDir(Dir: string; Arch: string);
+procedure TConfigMenu.LoadFromDir(Dir: string);
 var
   Moves: TObjectMoves;
   I: Integer;
 begin
-  Self.Arch := Arch;
+  Self.Arch := 'x86';
   BaseDir := Dir;
   ParseMakeFile;