From a0f1e0e9db4b0edee45018c47a08761916af0ce6 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 7 Jun 2008 20:40:48 +0200 Subject: Revised UTF-8 filenames support --- UPreferences.pas | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'UPreferences.pas') 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; -- cgit v1.2.3