From 30a547b8f4f9f01b8270d653c7ac3784a8ce981c Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Wed, 11 Jun 2008 21:01:51 +0200
Subject: Allow optional sorting directories like files

---
 UConfig.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'UConfig.pas')

diff --git a/UConfig.pas b/UConfig.pas
index d4eae70..0b2565b 100644
--- a/UConfig.pas
+++ b/UConfig.pas
@@ -25,8 +25,8 @@ uses Classes, ULocale;
 
 resourcestring
   ConstAppTitle = 'Tux Commander';
-  ConstAboutVersion = '0.6.41-dev';
-  ConstAboutBuildDate = '2008-06-10';
+  ConstAboutVersion = '0.6.42-dev';
+  ConstAboutBuildDate = '2008-06-11';
   
 {$IFDEF __FPC__}
   {$INCLUDE fpcver.inc}
@@ -95,7 +95,7 @@ var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems,
     ConfLinkItemDefaultColors, ConfDotFileItemDefaultColors, ConfLynxLikeMotion, ConfSizeGroupRequestZeroDigits,
     ConfDisableFileTips, ConfInsMoveDown, ConfSpaceMovesDown, ConfShowFuncButtons, ConfSelectAllDirs, ConfOctalPerm: boolean;
     ConfMounterUseFSTab, ConfShowTextUIDs, ConfMounterPushDown, ConfSavePanelTabs, ConfDuplicateTabWarning,
-    ConfOpenConnectionsWarning: boolean;
+    ConfOpenConnectionsWarning, ConfSortDirectoriesLikeFiles: boolean;
 
     ConfShowMounterBar: integer;
     ConfColumnSizes, ConfColumnIDs: array[1..ConstNumPanelColumns] of integer;
@@ -243,6 +243,7 @@ begin
   ConfCustomDateFormat := '%x';
   ConfCustomTimeFormat := '%X';
   ConfQuickSearchActivationKey := 0;
+  ConfSortDirectoriesLikeFiles := False;
 
 
   //  Setup default values for colors
@@ -466,7 +467,7 @@ begin
     ConfCustomDateFormat := IniFile.ReadString(ConfProfileName, 'CustomDateFormat', ConfCustomDateFormat);
     ConfCustomTimeFormat := IniFile.ReadString(ConfProfileName, 'CustomTimeFormat', ConfCustomTimeFormat);
     ConfQuickSearchActivationKey := IniFile.ReadInteger(ConfProfileName, 'QuickSearchActivationKey', ConfQuickSearchActivationKey);
-
+    ConfSortDirectoriesLikeFiles := IniFile.ReadBool(ConfProfileName, 'SortDirectoriesLikeFiles', ConfSortDirectoriesLikeFiles);
 
 
     SearchForDefaultApps;
@@ -555,6 +556,7 @@ begin
     IniFile.WriteString(ConfProfileName, 'CustomDateFormat', ConfCustomDateFormat);
     IniFile.WriteString(ConfProfileName, 'CustomTimeFormat', ConfCustomTimeFormat);
     IniFile.WriteInteger(ConfProfileName, 'QuickSearchActivationKey', ConfQuickSearchActivationKey);
+    IniFile.WriteBool(ConfProfileName, 'SortDirectoriesLikeFiles', ConfSortDirectoriesLikeFiles);
 
 
   except
-- 
cgit v1.2.3