Changeset 113 for trunk/NewView/SettingsUnit.pas

Timestamp:

Apr 25, 2007, 10:29:18 AM (18 years ago)

Author:

RBRi

Message:

changed to use StringUtilsUnit

File:

• trunk/NewView/SettingsUnit.pas (modified) (6 diffs)

trunk/NewView/SettingsUnit.pas

@@ -97 +97 @@
     FileDialogSplit: real;
 
-    // COlours
+    // Colours
     Colors: array[ 0..NumColorSettings - 1 ] of TColor;
 
@@ -141 +141 @@
   FileUtilsUnit,
   ACLUtility,
-  ACLStringUtility,
+  StringUtilsUnit,
   ControlsUtility;
 
@@ -267 +267 @@
           MRUItem := TMRUItem.Create;
           MRUItem.Title := MRUFileTitle;
-          StringToList( MRUFilename,
-                        MRUItem.Filenames,
-                        '+' );
+
+          StrExtractStrings(MRUItem.Filenames, MRUFilename, ['+'], #0);
           MRUList.Add( MRUItem );
         end;
@@ -345 +344 @@
       // Index style
       SettingString := ReadString( GeneralSection, 'IndexStyle', 'Full' );
-      if StringsSame( SettingString, 'FileOnly' ) then
+      if StrEqualIgnoringCase( SettingString, 'FileOnly' ) then
         IndexStyle := isFileOnly
-      else if StringsSame( SettingString, 'Alphabetical' ) then
+      else if StrEqualIgnoringCase( SettingString, 'Alphabetical' ) then
         IndexStyle := isAlphabetical
       else
@@ -361 +360 @@
       SettingString := ReadString( GeneralSection, 'ToolbarStyle', 'ImagesAndText' );
 
-      if StringsSame( SettingString, 'None' ) then
+      if StrEqualIgnoringCase( SettingString, 'None' ) then
         ToolbarStyle := tsNone
-      else if StringsSame( SettingString, 'Images' ) then
+      else if StrEqualIgnoringCase( SettingString, 'Images' ) then
         ToolbarStyle := tsImages
-      else if StringsSame( SettingString, 'Text' ) then
+      else if StrEqualIgnoringCase( SettingString, 'Text' ) then
         ToolbarStyle := tsText
       else
@@ -389 +388 @@
                                    'Location',
                                    'HelpPaths' );
-      if StringsSame( SettingString, 'HelpPaths' ) then
+      if StrEqualIgnoringCase( SettingString, 'HelpPaths' ) then
         GlobalSearchLocation := gsHelpPaths
-      else if StringsSame( SettingString, 'FixedDrives' ) then
+      else if StrEqualIgnoringCase( SettingString, 'FixedDrives' ) then
         GlobalSearchLocation := gsFixedDrives
-      else if StringsSame( SettingString, 'SelectedHelpPaths' ) then
+      else if StrEqualIgnoringCase( SettingString, 'SelectedHelpPaths' ) then
         GlobalSearchLocation := gsSelectedHelpPaths
       else