4923
社区成员
请教richedit控件问题！
richedit控件有个功能，就是按下鼠标左键，同时转动鼠标中轮，richedit中所有的字体，可以随着中轮的转动，变大或者变小。我想用其他方式实现这一功能（例如：按钮）。
我试着直接改变richedit中字体字号的方式来实现，如果richedit中的字体是一个字号（同样大小），这一功能可以实现，但是如果richedit中有不同字号的字体，这一功能却无法实现。
请高手指点！
我试着直接改变richedit中字体字号的方式来实现，如果richedit中的字体是一个字号（同样大小），这一功能可以实现，但是如果richedit中有不同字号的字体，这一功能却无法实现。
请高手指点！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
byrdhcl 2008-06-12
也可以说是如何实现richedit的zoom功能
喝口水 2008-06-12
没弄过,路过
byrdhcl 2008-06-12
将源码贴出供大家研究（控件自己添加，4个按钮、1个richedit）：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
function GetZoom: Integer;
procedure SetZoom(Value: Integer);
property Zoom: Integer read GetZoom write SetZoom;
public
{ Public declarations }
end;
const
EM_GETZOOM = (WM_USER + 224);
EM_SETZOOM = (WM_USER + 225);
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Zoom := 100;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Zoom := 200;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Zoom := 300;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Zoom := 400;
end;
function TForm1.GetZoom: Integer; // Added by J.G. Boerema
var wp,lp: Integer;
begin
Result := 100;
SendMessage(Richedit1.Handle, EM_GETZOOM, Integer(@wp), Integer(@lp));
if (lp > 0) then Result := MulDiv(100,wp,lp);
end;
procedure TForm1.SetZoom(Value: Integer);
begin
if Value = 0 then
SendMessage(Richedit1.Handle, EM_SETZOOM, 0, 0)
else
SendMessage(Richedit1.Handle, EM_SETZOOM, Value, 100);
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
function GetZoom: Integer;
procedure SetZoom(Value: Integer);
property Zoom: Integer read GetZoom write SetZoom;
public
{ Public declarations }
end;
const
EM_GETZOOM = (WM_USER + 224);
EM_SETZOOM = (WM_USER + 225);
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Zoom := 100;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Zoom := 200;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Zoom := 300;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Zoom := 400;
end;
function TForm1.GetZoom: Integer; // Added by J.G. Boerema
var wp,lp: Integer;
begin
Result := 100;
SendMessage(Richedit1.Handle, EM_GETZOOM, Integer(@wp), Integer(@lp));
if (lp > 0) then Result := MulDiv(100,wp,lp);
end;
procedure TForm1.SetZoom(Value: Integer);
begin
if Value = 0 then
SendMessage(Richedit1.Handle, EM_SETZOOM, 0, 0)
else
SendMessage(Richedit1.Handle, EM_SETZOOM, Value, 100);
end;
end.
byrdhcl 2008-06-12
呵呵，没有人解决。自己解决了！
CSDN回帖得分大全（近两年） IE内嵌控件窗口焦点切换问题，急 [VC/MFC ATL/ActiveX/COM] √ 什么原因造成的啊？好郁闷！ [VC/MFC 基础类] √ 如何在console程序中调用activex控件 [VC/MFC ATL/ActiveX/COM] ...
VC++中可能遇到的问题 再请教一个问题，就是怎样释放 pThread ,每次创建线程它都指向一个新的线程对象，而它是全局变量，这样只到程序退出前它所指向的线程对象都不会释放，而我想在一个线程结束后就能释放该线程对象，不想让 pThread 在...
VC++中可能遇到的问题收藏 VC++中可能遇到的问题收藏 | 旧一篇: 在VC中动态加载ODBC时的一些小细节 function StorePage(){d=document;t=d.selection?(d.selection.type!=None?d.selection.createRange().text:):(d.getSelection?d....
实用!超强VC/MFC 常见问答收集 答：从CBCGPProp派生一个函数，重载OnEdit并在其中创建一个需要的大小的编辑框。最后Add自定义的prop类对象。具体实现可以参照CBCGPColorProp和CBCGPFontProp类的实现 问：我想实现一个功能，就是检测一个...
实用!超强VC/MFC 常见问答收集(下) 请教如果用IHTMLTable->InsertRow()插入一个新行，并在网页中显示出来，还需要哪些必要步骤？ 答： MSHTML::IHTMLTableRowPtr CDHtmlObjectModel::addTableRow( char *table, char ...
基础 各位兄弟，在SDK编程中如果实现...求助：通过编程DirectX抓屏------>masterz:再麻烦你一下，谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考（100分 献礼！）如何
嵌入开发(WinCE)的一些经验 纵所周知,WindowsCE下编程99%的问题都和Unicode有关.比如文件编辑,一般都保存为Ansi格式;无线通讯中控制Modem需要发送的AT指令,必须是Ansi格式;网络通讯中,PC端一般都是Ansi的,为了和PC上协议兼容,在WindowsCE中必须...
WinCE一些经验 WindowsCE下Unicode和Ansi字符间互相转换的例子纵所周知,WindowsCE下编程99%的问题都和Unicode有关.比如文件编辑,一般都保存为Ansi格式;无线通讯中控制Modem需要发送的AT指令,必须是Ansi格式;网络通讯中,PC端一般都...
Winform继承Control类写实现textbox Winform继承Control类实现textbox好难，没有查到什么有效的资料，一路自己在摸索，截至到写这篇博客的时候，我还是有很多问题没有解决。先记录一下自己测试验证的东西，用鼠标选取文本内容，通过发送windows消息来...
wince开发经验汇总 WindowsCE下Unicode和Ansi字符间互相转换的例子纵所周知,WindowsCE下编程99%的问题都和Unicode有关.比如文件编辑,一般都保存为Ansi格式;无线通讯中控制Modem需要发送的AT指令,必须是Ansi格式;网络通讯中,PC端一般都...
嵌入开发(WinCE)的一些经验[摘录] WindowsCE下Unicode和Ansi字符间互相转换的例子纵所周知,WindowsCE下编程99%的问题都和Unicode有关.比如文件编辑,一般都保存为Ansi格式;无线通讯中控制Modem需要发送的AT指令,必须是Ansi格式;网络通讯中,PC端一般都...
UI和其他 小问题,关于树控件,选中的问题?就是怎么得到当前选中项怎样在标题栏上添加自己的button或其他控件请问显示桌面按钮触发的Windows消息是什么？哪位有像Windows2000任务管理器中性能的那个曲线图的源代码。控件中如何...
Unity3d_NGUI和UGUI的学习 由于之前刚入门的时候，应Unity3d整体发展的要求我们自学...学习UI，基础差的看一些教程，基础好的可以直接查看官方案例，根据案例上的相关功能自己做，有什么不懂的参数或者小知识网上问一下，向他人请教也是可以的。
