Changeset 402

Timestamp:

Aug 9, 2012, 9:46:09 AM (12 years ago)

Author:

chronos

Message:

• Modified: Used single TRegistryContext parameter in TLastOpenedList class.

Files:

• Common/ULastOpenedList.pas (modified) (5 diffs)
• CoolTranslator/UCoolTranslator.pas (modified) (2 diffs)

Common/ULastOpenedList.pas

@@ -23 +23 @@
     destructor Destroy; override;
     procedure LoadToMenuItem(MenuItem: TMenuItem; ClickAction: TNotifyEvent);
-    procedure LoadFromRegistry(Root: HKEY; Key: string);
-    procedure SaveToRegistry(Root: HKEY; Key: string);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
     procedure AddItem(FileName: string);
   published
@@ -87 +87 @@
 end;
 
-procedure TLastOpenedList.LoadFromRegistry(Root: HKEY; Key: string);
+procedure TLastOpenedList.LoadFromRegistry(Context: TRegistryContext);
 var
   I: Integer;
@@ -96 +96 @@
   with Registry do
   try
-    RootKey := Root;
-    OpenKey(Key, True);
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
     Items.Clear;
     I := 0;
@@ -112 +112 @@
 end;
 
-procedure TLastOpenedList.SaveToRegistry(Root: HKEY; Key: string);
+procedure TLastOpenedList.SaveToRegistry(Context: TRegistryContext);
 var
   I: Integer;
@@ -120 +120 @@
   with Registry do
   try
-    RootKey := Root;
-    OpenKey(Key, True);
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
     for I := 0 to Items.Count - 1 do
       WriteString('File' + IntToStr(I), UTF8Decode(Items[I]));

CoolTranslator/UCoolTranslator.pas

@@ -43 +43 @@
     procedure ReloadFiles;
     procedure SetPOFilesFolder(const AValue: string);
-    procedure Translate;
     procedure SetLanguage(const AValue: TLanguage);
     procedure TranslateProperty(Component: TPersistent; PropInfo: PPropInfo);
@@ -51 +50 @@
     Languages: TLanguageList;
     procedure LanguageListToStrings(Strings: TStrings);
+    procedure Translate;
     procedure TranslateResourceStrings(PoFileName: string);
     procedure TranslateUnitResourceStrings(UnitName: string; PoFileName: string);