diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-10-23 18:19:13 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-10-23 18:19:13 +0000 |
commit | d7a148c8fff7808822bb372f6d6e7c6c1da6a68a (patch) | |
tree | 697f88a795e95f12d22ed77ea983daef408d8095 /Source/configureunit.pas | |
parent | 163a66302667158daef63e4a88a32002a5c1831a (diff) |
*** empty log message ***
svn path=/trunk/Framestein/; revision=193
Diffstat (limited to 'Source/configureunit.pas')
-rw-r--r-- | Source/configureunit.pas | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Source/configureunit.pas b/Source/configureunit.pas index b4a1dab..321efc5 100644 --- a/Source/configureunit.pas +++ b/Source/configureunit.pas @@ -67,12 +67,14 @@ begin main.FSPort := StrToInt(EditFsPort.Text); main.EnableFSConns := CBEnableFSConns.Checked; main.DockMain := CBDockMain.Checked; +{$IFDEF FSDLL} if main.FSFolder <> EditFSFolder.Text then begin main.FSFolder := EditFSFolder.Text; main.Plugins.Clear; main.Plugins.ReLoad; main.SearchPath.Add(main.FSFolder); end; +{$ENDIF} try if Reg.OpenKey('\Software\Framestein', True) then begin @@ -82,7 +84,9 @@ begin Reg.WriteInteger('FSPort', main.FSPort); Reg.WriteBool('EnableFSConns', main.EnableFSConns); Reg.WriteBool('DockMain', main.DockMain); +{$IFDEF FSDLL} Reg.WriteString('FSFolder', main.FSFolder); +{$ENDIF} end; except end; @@ -113,6 +117,14 @@ end; procedure Tconfigure.Execute; begin +{$IFDEF FSDLL} + TSFolders.TabVisible := True; + TSFolders.Visible := True; +{$ELSE} + TSFolders.TabVisible := False; + TSFolders.Visible := False; +{$ENDIF} + // load values from main EditPdHost.Text := main.PdHost; if EditPdHost.Text='' then EditPdHost.Text:='localhost'; |