diff options
Diffstat (limited to 'UPreferences.pas')
| -rw-r--r-- | UPreferences.pas | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/UPreferences.pas b/UPreferences.pas index ca4733f..c1c75b0 100644 --- a/UPreferences.pas +++ b/UPreferences.pas @@ -197,7 +197,7 @@ begin SizeFormatOptionMenu := TGTKOptionMenu.Create(Self); SizeFormatLabel.FocusControl := SizeFormatOptionMenu; miSizeFormat1 := TGTKMenuItem.CreateTyped(Self, itLabel); - miSizeFormat1.Caption := Format('%s %s', [LANGPreferencesmiSizeFormat1, ANSIToUTF8(FormatFloat('(###,###,###)', 123456))]); + miSizeFormat1.Caption := Format('%s %s', [LANGPreferencesmiSizeFormat1, FormatFloat('(###,###,###)', 123456)]); miSizeFormat2 := TGTKMenuItem.CreateTyped(Self, itLabel); miSizeFormat2.Caption := '123456'; miSizeFormat3 := TGTKMenuItem.CreateTyped(Self, itLabel); @@ -704,9 +704,9 @@ begin ClearROAttr.Checked := ConfClearReadOnlyAttr; DisableMouseRename.Checked := ConfDisableMouseRename; ShowFiletypeIcons.Checked := ConfUseFileTypeIcons; - ViewerCombo.Entry.Text := ANSIToUTF8(ConfViewer); - EditorCombo.Entry.Text := ANSIToUTF8(ConfEditor); - TerminalCombo.Entry.Text := ANSIToUTF8(ConfTerminalCommand); + ViewerCombo.Entry.Text := StrToUTF8(ConfViewer); + EditorCombo.Entry.Text := StrToUTF8(ConfEditor); + TerminalCombo.Entry.Text := StrToUTF8(ConfTerminalCommand); DefaultFontCheckBox.Checked := ConfUseSystemFont; if not StringToGDKColor(ConfNormalItemFGColor, AColor) then StringToGDKColor(ConfDefaultNormalItemFGColor, AColor); @@ -774,9 +774,9 @@ begin ConfClearReadOnlyAttr := ClearROAttr.Checked; ConfDisableMouseRename := DisableMouseRename.Checked; ConfUseFileTypeIcons := ShowFiletypeIcons.Checked; - ConfViewer := UTF8ToANSI(ViewerCombo.Entry.Text); - ConfEditor := UTF8ToANSI(EditorCombo.Entry.Text); - ConfTerminalCommand := UTF8ToANSI(TerminalCombo.Entry.Text); + ConfViewer := UTF8ToStr(ViewerCombo.Entry.Text); + ConfEditor := UTF8ToStr(EditorCombo.Entry.Text); + ConfTerminalCommand := UTF8ToStr(TerminalCombo.Entry.Text); ConfUseSystemFont := DefaultFontCheckBox.Checked; if not ConfUseSystemFont then ConfPanelFont := ListFontPreview.Caption; |