通过
因此,最简单的解决方法是先重置字符集,然后再更改字体。
注意:应使用 RichEdit (版本 >= 4.1)!
注意:在MSDN的关于Rich Edit控件、Murray Sargent的MSDN博客RichEdit版本和RichEdit版本更新到7.0中可以找到RichEdit版本。后者提到了高于4.1的RichEdit版本。作为一个测试,我将Office 2010附带的RICHED20.DLL与应用程序一起复制到Windows 2000上,一切都运行得很好!
假设在WordPad中编辑一个rtf文档,其中包含一个非文本字符Alt(0149),即
在Windows 2000 SP4或XP SP2中,该圆点的字体只能采用WordPad的默认字体。也就是说,在WordPad中无法交互式地更改该圆点的字体。
然而,在Windows 7 SP1中,可以通过首先将其更改为“Arial Unicode MS”,然后无限次更改为任何所需字体来更改其字体。
TRichEdit(Delphi XE,Windows 7)还可以通过“TRichEdit.Lines.LoadFromFile”正确打开和查看使用Windows 7中的WordPad创建的WordPad文档。 交互式地,TRichEdit(Delphi XE,Windows 7)允许更改“Arial Unicode MS”字体的项目符号。然而,在TRichEdit中无法进一步交互式更改其他字体。
因此,我想知道(1)Windows 7中WordPad不同行为的原因,以及(2)是否可能使TRichEdit表现类似?
PS:在WordPad中需要多次键入Alt(0149)才能获得点。键入2022和Alt + x总是有效的,如here所建议。
Sertac Akyuz
的帮助,似乎直接原因与 \bullet
的字符集有关: 在我的本地化 Windows 中,通过输入 Alt(0149) 输入的 \bullet
总是得到 \fcharset134
,并且尝试通过 EM_SETCHARFORMAT
更改其字体总是失败的 (嗯,颜色、大小、样式确实可以更改,但字体名称不行)。因此,最简单的解决方法是先重置字符集,然后再更改字体。
注意:应使用 RichEdit (版本 >= 4.1)!
注意:在MSDN的关于Rich Edit控件、Murray Sargent的MSDN博客RichEdit版本和RichEdit版本更新到7.0中可以找到RichEdit版本。后者提到了高于4.1的RichEdit版本。作为一个测试,我将Office 2010附带的RICHED20.DLL与应用程序一起复制到Windows 2000上,一切都运行得很好!
procedure TMainForm.ButtonFontClick(Sender: TObject);
var
format: TCharFormat2;
begin
if dlgFontCdxTxt.Execute then
begin
FillChar(format, sizeof(format), 0);
format.cbSize:= Sizeof(format);
format.dwMask:= CFM_CHARSET;
format.bCharSet := 1; // or 0;
redtTextBlock.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Integer(@format));
FillChar(format, sizeof(format), 0);
format.cbSize:= Sizeof(format);
format.dwMask:= CFM_FACE;
StrPLCopy(format.szFaceName, dlgFontCdxTxt.Font.Name, High(format.szFaceName));
redtTextBlock.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Integer(@format));
end;
redtTextBlock.SetFocus;
end;
==================================================
根据维基百科,WordPad
在Windows 95、98和Windows 2000中分别使用Microsoft的RichEdit
控件版本1.0、2.0和3.0。在Windows XP SP1及更高版本中,WordPad使用RichEdit 4.1,包括Windows 7。假设在WordPad中编辑一个rtf文档,其中包含一个非文本字符Alt(0149),即
圆点•
(或U+2022)。在Windows 2000 SP4或XP SP2中,该圆点的字体只能采用WordPad的默认字体。也就是说,在WordPad中无法交互式地更改该圆点的字体。
然而,在Windows 7 SP1中,可以通过首先将其更改为“Arial Unicode MS”,然后无限次更改为任何所需字体来更改其字体。
此外,在Windows 7中使用WordPad创建的包含不同字体点的WordPad文档可以在Windows 2000或XP中打开并正确查看。
TRichEdit(Delphi XE,Windows 7)还可以通过“TRichEdit.Lines.LoadFromFile”正确打开和查看使用Windows 7中的WordPad创建的WordPad文档。 交互式地,TRichEdit(Delphi XE,Windows 7)允许更改“Arial Unicode MS”字体的项目符号。然而,在TRichEdit中无法进一步交互式更改其他字体。
因此,我想知道(1)Windows 7中WordPad不同行为的原因,以及(2)是否可能使TRichEdit表现类似?
PS:在WordPad中需要多次键入Alt(0149)才能获得点。键入2022和Alt + x总是有效的,如here所建议。
提示:如为什么TFontDialog提供的字体比Screen.Fonts少?答案中所述,需要在WordPad中“激活”字体。
提示:在Word中,可以随时将点更改为不同的字体。
sample.rtf(粘贴到纯文本文件中,然后更改扩展名为rtf以使用)
{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fswiss\fprq2\fcharset134 Arial Unicode MS;}{\f1\fnil\fcharset0 Arial Unicode MS;}{\f2\froman\fprq2\fcharset0 Times New Roman;}{\f3\fscript\fprq2\fcharset0 Comic Sans MS;}{\f4\fnil\fcharset0 Comic Sans MS;}{\f5\fmodern\fprq1\fcharset0 Consolas;}{\f6\fnil\fcharset0 Consolas;}{\f7\fmodern\fprq1\fcharset0 Lucida Console;}{\f8\fnil\fcharset0 Lucida Console;}{\f9\froman\fprq2\fcharset2 Symbol;}{\f10\froman\fprq2\fcharset0 Symbol;}{\f11\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\nowidctlpar\sa200\sl276\slmult1\lang2052\f0\fs22 Arial sample text \lang1033\f1\bullet\f2\par
\b\f3 Comic sample text \f4\bullet\f2\par
\b0\f5 Consolas sample text \f6\bullet\f2\par
\f7 Lucida sample text \f8\bullet\f2\par
\pard\nowidctlpar\qj\lang2052\f9 symbl sample text \lang1033\f10\u149?\kerning2\fs21\par
\pard\sa200\sl276\slmult1\lang2052\kerning0\f11\fs22\par
}
使用uMainForm.dfm查看TRichEdit行的格式
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'MainForm'
ClientHeight = 362
ClientWidth = 637
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object pnlBtn: TPanel
Left = 0
Top = 0
Width = 637
Height = 57
Align = alTop
Caption = 'pnlBtn'
TabOrder = 0
object Button1: TButton
Left = 240
Top = 14
Width = 137
Height = 31
Caption = 'Analyze Rich Edit'
TabOrder = 0
OnClick = Button1Click
end
end
object pnlClient: TPanel
Left = 0
Top = 57
Width = 637
Height = 305
Align = alClient
Caption = 'pnlClient'
TabOrder = 1
object redtTextBlock: TRichEdit
Left = 1
Top = 1
Width = 225
Height = 303
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Lines.Strings = (
'redt1')
ParentFont = False
TabOrder = 0
end
object mmo1: TMemo
Left = 226
Top = 1
Width = 410
Height = 303
Align = alClient
Lines.Strings = (
'mmo1')
TabOrder = 1
end
end
object Button2: TButton
Left = 36
Top = 14
Width = 171
Height = 31
Caption = 'Font...'
TabOrder = 2
OnClick = Button2Click
end
object dlgFontCdxTxt: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Left = 480
Top = 16
end
end
MainForm.pas 用于查看 TRichEdit 行的格式。unit uMainForm;
interface
uses
Contnrs,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TCdxmlStyle = class
public
FontName: string;
Str: string;
end;
TCdxmlText = class
public
Styles: TObjectList;
constructor Create;
end;
TMainForm = class(TForm)
redtTextBlock: TRichEdit;
mmo1: TMemo;
pnlBtn: TPanel;
pnlClient: TPanel;
Button1: TButton;
Button2: TButton;
dlgFontCdxTxt: TFontDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure TestLoadFromFile;
procedure AnalyzeRichEdit;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
uses
RichEdit, StrUtils;
{ TCdxmlText }
constructor TCdxmlText.Create;
begin
Styles := TObjectList.Create;
end;
var
l_HiddenRichEdit: TRichEdit;
{ TMainForm }
procedure TMainForm.FormCreate(Sender: TObject);
begin
TestLoadFromFile;
AnalyzeRichEdit;
end;
procedure TMainForm.Button2Click(Sender: TObject);
var
format: TCharFormat2;
begin
if dlgFontCdxTxt.Execute then
begin
FillChar(format, sizeof(format), 0);
format.cbSize:= Sizeof(format);
format.dwMask:= CFM_FACE;
StrPLCopy(format.szFaceName, dlgFontCdxTxt.Font.Name, High(format.szFaceName));
redtTextBlock.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Integer(@format));
end;
redtTextBlock.SetFocus;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
AnalyzeRichEdit;
end;
procedure TMainForm.TestLoadFromFile;
begin
redtTextBlock.Clear;
redtTextBlock.Lines.LoadFromFile('sample.rtf');
end;
procedure TMainForm.AnalyzeRichEdit;
var
l_MemStream: TMemoryStream;
l_Format: TCharFormat2;
I, J: Integer;
l_CdxmlStyle, l_CdxmlStyleWorker: TCdxmlStyle;
l_StyleFont: string;
l_CdxmlText: TCdxmlText;
begin
l_CdxmlStyle := nil;
l_CdxmlStyleWorker := nil;
mmo1.Clear;
l_MemStream := TMemoryStream.Create;
redtTextBlock.Lines.SaveToStream(l_MemStream);
l_MemStream.Seek(0, soFromBeginning);
l_HiddenRichEdit.Lines.LoadFromStream(l_MemStream);
l_CdxmlText := TCdxmlText.Create;
for I := 0 to Length(TrimRight(l_HiddenRichEdit.Text)) - 1 do
begin
l_CdxmlStyleWorker := TCdxmlStyle.Create;
FillChar(l_Format, sizeof(l_Format), 0);
l_Format.cbSize:= Sizeof(l_Format);
l_Format.dwMask:= CFM_FACE;
l_HiddenRichEdit.SelStart := I;
l_HiddenRichEdit.SelLength := 1;
l_HiddenRichEdit.Perform(EM_GETCHARFORMAT, SCF_SELECTION, Integer(@l_Format));
l_CdxmlStyleWorker.FontName := l_Format.szFaceName;
l_CdxmlStyleWorker.Str := AnsiReplaceStr(l_HiddenRichEdit.SelText, #13, #13#10);
if l_CdxmlStyle = nil then
begin
l_CdxmlText.Styles.Add(l_CdxmlStyleWorker);
l_CdxmlStyle := l_CdxmlStyleWorker;
end
else if (l_CdxmlStyleWorker.FontName <> l_CdxmlStyle.FontName ) then
begin
l_CdxmlText.Styles.Add(l_CdxmlStyleWorker);
l_CdxmlStyle := l_CdxmlStyleWorker;
end
else
begin
l_CdxmlStyle.Str := l_CdxmlStyle.Str + l_CdxmlStyleWorker.Str;
end;
end;
for I := 0 to l_CdxmlText.Styles.Count - 1 do
begin
l_CdxmlStyle := TCdxmlStyle(l_CdxmlText.Styles[I]);
mmo1.Lines.Add(l_CdxmlStyle.Str + ':' + l_CdxmlStyle.FontName);
end;
end;
initialization
l_HiddenRichEdit := TRichEdit.CreateParented(HWND_MESSAGE);
end.
François
在这篇博客文章
中写到了如何使用不同版本的富文本控件。你也可以尝试使用它。 - TLama