Fixed a bug in the settings with Paths

Villavu · Aug 31, 2014 · 0ea0e5d · 0ea0e5d
1 parent d0ba25e
commit 0ea0e5d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Projects/Simba/newsimbasettings.pas b/Projects/Simba/newsimbasettings.pas
@@ -111,6 +111,8 @@     TPathSetting = class(TFileSetting)
     private
       procedure SetValue(val: string);
     public
+      function GetDefValue(val: string): string; virtual;
+
       property Value: string read GetValue write SetValue;
     end;
 
@@ -638,6 +640,14 @@ procedure TFileSetting.SetValue(val: string);
     OnChange(Self);
 end;
 
+function TPathSetting.GetDefValue(val: String): String;
+begin
+  if (not (FValueSet)) then
+    Value := val;
+
+  Result := Value;
+end;
+
 procedure TPathSetting.SetValue(val: string);
 begin
   {$IFNDEF NOTPORTABLE}