TMemo中的字体问题(100分)

M

Marlowe

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在TMamo(或类似构件)中用多种字体或颜色显示,如何实现。

// 不是用Html,是用Delphi.
 

柳五公子

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么非要用TMemo,用TRichEdit不就可以了吗?
 
T

Town

Unregistered / Unconfirmed
GUEST, unregistred user!
一个很土的例子;
var
MyFont TFont;
begin
MyFont:=TFont.Create;
MyFont.Charset:=GB2312_CHARSET;
MyFont.Name:='繁琥珀';
MyFont.Size:=25;
MyFont.Color:=clGreen;
RichEdit1.SelAttributes.Assign(MyFont);
RichEdit1.Lines.Add('这是第一行!');
MyFont.Name:='隶书';
MyFont.Size:=10;
MyFont.Color:=clBlue;
RichEdit1.SelAttributes.Assign(MyFont);
RichEdit1.Lines.Add("试试如何!");
MyFont.Free;
end.
 
T

Town

Unregistered / Unconfirmed
GUEST, unregistred user!
sorry, ''误写成了 "" :cool:
 
B

Blade

Unregistered / Unconfirmed
GUEST, unregistred user!
在TMemo中想要多种字体、颜色没什么戏。
可以使用TRichEdit。简单如town的写法。
或者使用控件TRichEdit98,可以设置多种SelAttribute,
包括字体、颜色、背景色什么的(好象有些Bug)
 
D

DNChen

Unregistered / Unconfirmed
GUEST, unregistred user!
用trichedit ,然后去csdn,有一篇关于写制作控件的例子,就是一个用trichedit彩色代码显示详细教程
 
T

tqz

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi自带的RichEdit不是个好东西,很多第三方控件是可以显示不同色彩和字体的
TMemo
 
M

menxin

Unregistered / Unconfirmed
GUEST, unregistred user!
这可不是什么新问题,到已答问题里找找。
也就是选择一段字(selstart...),用SelAttributes设置属性:color,size...
 
M

menxin

Unregistered / Unconfirmed
GUEST, unregistred user!
忘了说了,tmemo是不能达到你的要求的,要用richedit...
 
M

Marlowe

Unregistered / Unconfirmed
GUEST, unregistred user!
请问DNChen,csdn是什么地方地址是多少?
感谢Town,两个问题都给了我很大帮助。
 
M

menxin

Unregistered / Unconfirmed
GUEST, unregistred user!
请继续讨论或结束此问题。
 
S

SeaSky

Unregistered / Unconfirmed
GUEST, unregistred user!
TO Marlowe : www.csdn.net
 
N

nuke

Unregistered / Unconfirmed
GUEST, unregistred user!
干吗非要用Memo呀!属性不好控制。
内容大小也有限制的说。
好的Trichedit边地都是。搞一个不就行了,还可以插入图片什么的。
不是更好?
 
M

menxin

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 
顶部