diff options
Diffstat (limited to 'UPreferences.pas')
| -rw-r--r-- | UPreferences.pas | 30 |
1 files changed, 27 insertions, 3 deletions
diff --git a/UPreferences.pas b/UPreferences.pas index a9e02e7..82ea5f3 100644 --- a/UPreferences.pas +++ b/UPreferences.pas @@ -77,6 +77,8 @@ type QuickSearchLabel: TGTKLabel; QuickSearchOptionMenu: TGTKOptionMenu; SortDirectoriesLikeFilesCheckBox: TGTKCheckButton; + TempPathLabel, VFSTempPathLabel: TGTKLabel; + VFSTempPathEntry: TGTKEntry; procedure FormCreate(Sender: TObject); override; procedure FormDestroy(Sender: TObject); @@ -425,7 +427,7 @@ begin for i := 1 to Length(ConfViewersApps) do ViewerCombo.Items.Append(ConfViewersApps[i]); ViewerBrowseButton := TGTKButton.Create(Self); - ViewerBrowseButton.Caption := LANGBrowseButton_Caption; + ViewerBrowseButton.Caption := Format(' %s ', [LANGBrowseButton_Caption]); ViewerBrowseButton.OnClick := ViewerBrowseButtonClick; ViewerLabel2 := TGTKLabel.Create(Self); ViewerLabel2.Caption := LANGPreferencesCommandSC; @@ -465,7 +467,7 @@ begin for i := 1 to Length(ConfEditorApps) do EditorCombo.Items.Append(ConfEditorApps[i]); EditorBrowseButton := TGTKButton.Create(Self); - EditorBrowseButton.Caption := LANGBrowseButton_Caption; + EditorBrowseButton.Caption := Format(' %s ', [LANGBrowseButton_Caption]); EditorBrowseButton.OnClick := ViewerBrowseButtonClick; EditorLabel2 := TGTKLabel.Create(Self); EditorLabel2.Caption := LANGPreferencesCommandSC; @@ -502,7 +504,7 @@ begin for i := 1 to Length(ConfTerminalApps) do TerminalCombo.Items.Append(ConfTerminalApps[i]); TerminalBrowseButton := TGTKButton.Create(Self); - TerminalBrowseButton.Caption := LANGBrowseButton_Caption; + TerminalBrowseButton.Caption := Format(' %s ', [LANGBrowseButton_Caption]); TerminalBrowseButton.OnClick := ViewerBrowseButtonClick; TerminalLabel2 := TGTKLabel.Create(Self); TerminalLabel2.Caption := LANGPreferencesCommandSC; @@ -515,6 +517,26 @@ begin Table1.AddControlEx(2, 13, 3, 1, TerminalCombo, [taoExpand, taoFill], [taoShrink, taoExpand, taoFill], 10, 2); Table1.AddControlEx(4, 14, 1, 1, TerminalBrowseButton, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 10, 2); + TempPathLabel := TGTKLabel.Create(Self); + TempPathLabel.XAlign := 0; + TempPathLabel.XPadding := 10; + TempPathLabel.Caption := Format('<span weight="ultrabold">%s</span>', ['Temporary files']); + TempPathLabel.UseMarkup := True; + Table1.AddControlEx(0, 15, 5, 1, TGTKVBox.Create(Self), [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 13); + Table1.AddControlEx(0, 16, 5, 1, TempPathLabel, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 0); + Table1.AddControlEx(0, 17, 5, 1, TGTKVBox.Create(Self), [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 2); + + VFSTempPathLabel := TGTKLabel.Create(Self); + VFSTempPathLabel.Caption := '_VFS temp files:'; + VFSTempPathLabel.XAlign := 0; + VFSTempPathLabel.UseUnderline := True; + VFSTempPathEntry := TGTKEntry.Create(Self); + VFSTempPathEntry.Tooltip := 'Location of temporary files used by VFS subsystem, e.g. when opening files directly from archives. All temporary files are cleaned on exit.'; + VFSTempPathLabel.FocusControl := VFSTempPathEntry; + Table1.AddControlEx(0, 18, 1, 1, TGTKVBox.Create(Self), [taoShrink], [taoShrink, taoExpand, taoFill], 12, 2); + Table1.AddControlEx(1, 18, 1, 1, VFSTempPathLabel, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 2); + Table1.AddControlEx(2, 18, 4, 1, VFSTempPathEntry, [taoExpand, taoFill], [taoShrink, taoExpand, taoFill], 10, 2); + // ********* PAGE Fonts @@ -891,6 +913,7 @@ begin DateTimeFormatOptionMenu.ItemIndex := ConfDateTimeFormat; QuickSearchOptionMenu.ItemIndex := ConfQuickSearchActivationKey; SortDirectoriesLikeFilesCheckBox.Checked := ConfSortDirectoriesLikeFiles; + VFSTempPathEntry.Text := StrToUTF8(ConfTempPath); DefaultFontCheckBoxToggled(Self); ColorButtonDefaultsToggled(Self); @@ -962,6 +985,7 @@ begin ConfDateTimeFormat := DateTimeFormatOptionMenu.ItemIndex; ConfQuickSearchActivationKey := QuickSearchOptionMenu.ItemIndex; ConfSortDirectoriesLikeFiles := SortDirectoriesLikeFilesCheckBox.Checked; + ConfTempPath := UTF8ToStr(VFSTempPathEntry.Text); end; (********************************************************************************************************************************) |