tamaño - ¿Cómo hacer que TRichEdit se comporte como WordPad en Windows 7 al cambiar la fuente de ciertos caracteres que no son de texto?

como cambiar el tamaño de letra en word

Question

Con la ayuda de Sertac Akyuz , parece que la razón directa está relacionada con el conjunto de caracteres de /bullet : en mi Windows localizado, la entrada de /bullet escribiendo Alt (0149) siempre obtiene /fcharset134 , e intenta cambiar su fuente a través de EM_SETCHARFORMAT siempre fallar (bueno, el color, tamaño, estilo puede ser cambiado, pero no el nombre de la fuente).

La solución más simple es, por lo tanto, restablecer primero el juego de caracteres y luego cambiar la fuente.

Nota: ¡RichEdit (versión> = 4.1) debería ser usado!

Nota: las versiones de RichEdit se pueden encontrar en los Controles Rich Edit de MSDN, las versiones RichEdit de MSDN Blog de Murray Sargent y las versiones de RichEdit Update to 7.0 . Las últimas páginas mencionaron versiones de RichEdit superiores a 4.1. Como prueba, copié el RICHED20.DLL con Office 2010 junto con la aplicación a Windows 2000, ¡y todo funciona como un amuleto!

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;

===============================================

Según Wikipedia , WordPad utilizó el control RichEdit de Microsoft, las versiones 1.0, 2.0 y 3.0 en Windows 95, 98 y Windows 2000, respectivamente. En Windows XP SP1 y posterior, WordPad utiliza RichEdit 4.1, incluido Windows 7.

Digamos que un documento rtf, editado en WordPad, contiene un carácter no textual Alt (0149), the bullet dot • . (O U + 2022)

En Windows 2000 SP4 o XP SP2, la fuente de ese punto de viñeta solo puede tomar la fuente predeterminada de WordPad. Es decir, no se puede cambiar la fuente de ese punto de viñeta de forma interactiva en WordPad.

Sin embargo, en Windows 7 SP1, uno podría cambiar su fuente first changing to "Arial Unicode MS" , y luego a cualquier fuente deseada un número ilimitado de veces.

Además, el documento de WordPad creado con WordPad en Windows 7 que contiene diferentes fuentes del punto se puede abrir y visualizar correctamente en WordPad en Windows 2000 o XP.

El TRichEdit (Delphi XE, Windows 7) también puede abrir y ver correctamente el documento de WordPad creado con WordPad en Windows 7 mediante TRichEdit.Lines.LoadFromFile .

Interactivamente, el TRichEdit (Delphi XE, Windows 7) permite que the bullet dot fuente del the bullet dot del the bullet dot sea ​​cambiada a "Arial Unicode MS". Sin embargo, no se puede ir más lejos para cambiar a otras fuentes interactivamente en TRichEdit.

Por lo tanto, me pregunto (1) la razón del comportamiento diferente de WordPad en Windows 7, y (2) si es posible hacer que TRichEdit se comporte de la misma manera.

PD: Es posible que se necesite el tipo Alt (0149) varias veces para obtener el punto en WordPad. Escribir 2022 y Alt + x siempre funciona, como se sugiere here .

PD: hay que "activar" las fuentes en WordPad como se menciona en la respuesta de ¿Por qué TFontDialog da menos fuentes que Screen.Fonts?

PD: siempre se puede cambiar el punto a diferentes fuentes en Word.

sample.rtf (pegue en un archivo de texto plano y luego cambie la extensión a rtf para usar)

{/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 para ver el formato de las líneas de 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

uMainForm.pas para ver el formato de las líneas de 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.

Answer 1

Una cosa para comprobar sería ver si los controles richedit utilizados por WordPad y TRichEdit son los mismos. Le recomendaría que consulte con (Spy ++) Spyxx.exe para asegurarse de que el control tenga la misma clase y los mismos estilos. Si son iguales, yo también verificaría para asegurarse de que los controles reciban los mismos mensajes, nuevamente usando Spy ++. Supongo que los controles NO son los mismos o que no están configurados de la misma manera.

Si no tienen el mismo control, entonces debería poder utilizar el mismo control que WordPad (suponiendo que sea parte de los controles personalizados estándar de Windows). Y use Spy ++ para establecer el estilo de la misma manera que WordPad. Además, es posible que también deba enviarle los mismos mensajes.