RxRichEdit的问题，如何居中，如何粗体、斜体 (100分)

K

kifo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #1

1、用RxRichEdit做商业软件是否有版权问题？
2、用RxRichEdit装四幅图片，大约1.5M，到Access数据库中用了15秒，数据库的体积增大了13M
如何去除水份呢？(Word装这四幅图片再存成文件用了2秒，1.5M多点)
3、RxRichEdit中如何控制加粗，斜体，下划线，居中，居右等。
在RichEdit中我是通过ActionManager1控制的。
算了，就第三个问题吧。一定得详细些。

 

K

kifo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #2

.

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #3

我可以帮你删除！

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #4

1、没有把，我看过很多商业软件都用RX呀
2、用JPEG压缩再装
3、好象是用SelAttributes属性

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-23

• #5

rxlib for d5
RX/Demo/RICHED2/Richedit.dpr,提供详细代码可参考。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-24

• #6

to kifo
怎么还没解决？你看了那个例子吗？

 

K

kifo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-24

• #7

linsb
我用的是D6，哪有什么例子啊。
不过，我已解决了，写了一个下午的代码。
还有一个问题，用findtext找到了某个子串，如何像word中使它们处在被选定的状态呢？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-24

• #8

to kifo
我写的很清楚，是for d5 ,d6没有例子！
procedure TForm1.Button2Click(Sender: TObject);
var
FoundAt: LongInt;
ToEnd，StartPos: integer;
begin
StartPos：＝0；
ToEnd := Length(richedit1.Text) -StartPos;
FoundAt := richedit1.FindText(Edt_FindCon1.text, StartPos, ToEnd, []);
if FoundAt <> -1 then begin
richedit1.SetFocus;
richedit1.SelStart := FoundAt;
richedit1.SelLength := Length(Edt_FindCon1.text);
Richedit1.SelAttributes.Color:=clRed;//如不想改变颜色可去掉
end;
end;

 

K

kifo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-25

• #9

To linsb
你的这段代码混了不少分啊。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-25

• #10

to kifo
多查查，省不少分。