richview问题

[xinghuang]

我用的是richview1.8版本，如何在页脚中设置页码，这个问题挺急的，希望各位能尽快给予帮忙。

[xinghuang]

都没人知道吗

[zwb666]

ding

[darkliu]

不知道，帮忙顶

[xinghuang]

唉，自己也顶一下

[yueyixing]

没用过，ding

[zzn007]

这是什么控件？不知道
顶顶看吧

[liu925]

算你走运！
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, RichEdit;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;

procedure Button1Click(Sender: TObject);

private
procedure SetSubscript(ARichEdit: TCustomRichEdit; Sub, ASize: Integer);

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.SetSubscript(ARichEdit: TCustomRichEdit; Sub, ASize: Integer);
//Sub: 0:无 1:上标 -1:下标
var
Format: TCharFormat;
procedure InitFormat(var Format: TCharFormat);
begin
FillChar(Format, SizeOf(TCharFormat), 0);
Format.cbSize := SizeOf(TCharFormat);
end;
procedure SetAttributes(var Format: TCharFormat);
begin
if ARichEdit.HandleAllocated then
SendMessage(ARichEdit.Handle, EM_SETCHARFORMAT, SCF_SELECTION, LPARAM(@Format))
end;
begin
InitFormat(Format);
with Format do
case Sub of
0:
begin
dwMask := Integer(CFM_OFFSET + CFM_SIZE);
yHeight := ASize * 20;
Format.yOffset := 0;
end;
1:
begin
dwMask := Integer(CFM_OFFSET + CFM_SIZE);
yHeight := ASize * 2 div 3 * 20;
Format.yOffset := ASize div 4 * 20;
end;
-1:
begin
dwMask := Integer(CFM_OFFSET + CFM_SIZE);
yHeight := ASize * 2 div 3 * 20;
Format.yOffset := -ASize div 4 * 20;
end;
else
Exit;
end;
SetAttributes(Format);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin

SetSubscript(RichEdit1, -1, 12);
end;

[xinghuang]

顶

[xinghuang]

to liu925(liu):老兄，是RichViewEdit呀，你给的是RichEdit,差远啦

[longtusoft]

把你那个控件源码发来吧,帮你看看.

[xinghuang]

只有dcu文件，没有pas文件

[newhxsir]

没有得到自己想要的答案，只好自己收分了。