Rxrichedit怎么设置行距，字距(100分)

K

kitcause

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-18

• #1

实在找不到，谢谢。

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #2

没用过，帮顶。

 

X

xingxin00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #3

是什么控件啊？打印吗，我用的是QuickReport

 

K

kitcause

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #4

RxLib
控件的一个组件。用于文本显示或图片
系统的组件是Richedit，不能改变字距，行距
在BBS上查到这个可以，但不知道怎么控制

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #5

改变行距：
uses RichEdit;

procedure RE_SetLineSpacing(ARichEdit: TRichEdit;
lineSpacing: Byte);
var
pf2: ParaFormat2;
begin

FillChar(pf2, SizeOf(pf2), 0);
pf2.cbSize := SizeOf(PARAFORMAT2);
pf2.dwMask := PFM_LINESPACING;
pf2.bLineSpacingRule := lineSpacing;
SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;

//示例
procedure TForm1.Button1Click(Sender:TObject);
begin

RE_SetLineSpacing(RichEdit1, 1);
end;

 

K

kitcause

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #6

字距也要用这种方式？

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #7

试试下面的方法：
var
info:_PARAFORMAT;
i:integer;
begin
info.cbSize:=sizeof(info);
info.dwMask:=$FFFFFF;
sendmessage(richedit1.Handle, EM_GETPARAFORMAT ,0,integer(@(info)));
for i:=0 to 31do
info.rgxTabs:=(richedit1.Font.PixelsPerInch-6)*(i+1);
info.dwMask:=PFM_TABSTOPS;
info.cTabCount:=31;
sendmessage(richedit1.Handle, EM_SETPARAFORMAT ,0,integer(@(info)));
end;
************
procedure SetTabstops()
var
TabStops: array[0..3] of word;
begin
TabStops[0]:=10;
TabStops[1]:=20;
TabStops[2]:=30;
TabStops[3]:=40;
TS:=SendMessage(RichEdit.Handle, EM_SETTABSTOPS, 4, LPARAM(@TabStops));
end;

 

K

kitcause

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #8

你这个是TRichEdit吗？
Rxrichedit有没简单点的办法？

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #9

你那个控件我没用过。

 

K

kitcause

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-19

• #10

RichEdit1.Paragraph.LineSpacing:=20;
行距可以这样
但字距还是找不到，没有人用过这个吗？