可以设置行间距的QRText控件。(0分)

没有空间可发表，就将源代码在此贴出
//---------------------------------------------------------------------------
//控 件 包：Quickreport附加控件
//控件名称：QrText
//控件作者：along(阿龙)
//Eamil ：longyunqiang@163.com;
longyunqiang@163.net
//发布类型：免费控件
//最后更新：2003.10.29
//---------------------------------------------------------------------------
// 主要功能：
// 改进了QRlabel的换行，可实现文字自动换行，且可设置行间距。
//---------------------------------------------------------------------------
//使用：使用方法与Quickreport的QRlabel相似。
//主要属性：
// text:要打印的文字内容。
// linespace:行间距（单位：点）。
//---------------------------------------------------------------------------
unit QRtext;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Graphics, QuickRpt;
type
TQRtext = class(tqrprintable)
private
Ftext: string;
//要显示的内容（内部用的变量）
Flinespace: integer;
//行间距（内部用的变量）
Fcount: integer;
//一行中的字数
procedure setftext(value: string);
//显示内容（将属性表的数据给内容变量）
procedure setFlinespace(value: integer);
//设置行间距（将属性表的数据给行间距变量）
function FormatLine(const oldLine: string;
const LineLength: integer): string;
//分行函数
{ Private declarations }
protected
procedure Paint;
override;
//显示数据
procedure Print(OfsX, OfsY: integer);
override;
//打印数据
{ Protected declarations }
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
{ Public declarations }
published
property text: string read Ftext write setftext;
//显示内容（将属性表的数据）
property linespace: integer read Flinespace write setFlinespace;
//设置行间距（将属性表的数据）
property font;
//设置字体
{ Published declarations }
end;

procedure Register;
implementation
procedure Register;
begin
RegisterComponents('QReport', [TQRtext]);
end;

{ TQRtext }
constructor TQRtext.Create(AOwner: TComponent);
begin
inherited;
width := 30;
height := 20;
Ftext := 'Text';
font.Name := '宋体';
font.Size := 10;
end;

destructor TQRtext.Destroy;
begin
inherited;
end;

procedure TQRtext.Paint;
var
list1, list2: Tstrings;
i, y, fontheight: integer;
begin
inherited;
//执行父类的动作。画边框
//清除显示
canvas.Brush.Style := bssolid;
canvas.Brush.Color := clwhite;
canvas.FillRect(canvas.ClipRect);
if length(Ftext) <= 0 then
exit;
//无字符要显示则退出
canvas.Font := font;
fontheight := canvas.TextHeight('字');
//求得每行高度
Fcount := width div canvas.TextWidth('字');
//求得每行字数
list1 := Tstringlist.create;
//用于分行
list2 := Tstringlist.create;
//用于显示
list1.Text := text;
//先处理手工分行的字符。
//然后再对每一行进行自动分行。
for i := 0 to list1.Count - 1do
list2.Text:=list2.Text+formatline(list1.Strings, fcount * 2);
//处理显示
y := 0;
for i := 0 to list2.Count - 1do
begin
canvas.TextOut(0, y, list2.Strings);
//显示字符
y := y + fontheight + Flinespace;
//下一行的位置＝上一行的位置+字高+行间距
end;
list1.Free;
list2.Free;
end;

procedure TQRtext.print(OfsX, OfsY: integer);
var
list1, list2: Tstrings;
i, y, fontheight: integer;
begin
inherited;
//执行父类的动作。画边框
with qrprinterdo
begin
if length(Ftext) = 0 then
Ftext := ' ';
canvas.Font := font;
fontheight := canvas.TextHeight('字');
//求得每行高度
Fcount := width div canvas.TextWidth('字');
//求得每行字数
list1 := Tstringlist.create;
//用于分行
list2 := Tstringlist.create;
//用于显示
list1.Text := text;
//先处理手工分行的字符。
//然后再对每一行进行自动分行。
for i := 0 to list1.Count - 1do
list2.Text := list2.Text+formatline(list1.Strings, fcount * 2);
//处理显示
y := ypos(size.Top + ofsy);
for i := 0 to list2.Count - 1do
begin
canvas.TextOut(xpos(size.left + ofsx), y, list2.Strings);
//显示字符
y := y + fontheight + Flinespace;
//下一行的位置＝上一行的位置+字高+行间距
end;
end;
list1.Free;
list2.Free;
end;

procedure TQRtext.setFlinespace(value: integer);
begin
Flinespace := value;
paint;
//值改变后重新显示数据
end;

procedure TQRtext.setftext(value: string);
begin
if Ftext <> value then
begin
Ftext := value;
paint;
//值改变后重新显示数据
end;
end;

function TQRtext.FormatLine(const oldLine: string;
const LineLength: integer): string;
var
Line: string;
NewLine, ReturnLine: string;
cnumber, number, theLength, j: integer;
begin
line := oldLine;
NewLine := '';
ReturnLine := '';
cnumber := 0;
number := 0;
theLength := Length(line);
j := 1;
while (j <= theLength)do
begin
if (LineLength <= number) then
//需要分行了
begin
if ((j > 1) and (line[j - 1] < #$80) and (line[j] < #$80)) then
//这个判断不适合big5码
begin
//前面一个与现在字符都不是中文字符
if (line[j - 1] = ' ') then
begin
if (line[j] <> ' ') then
begin
ReturnLine := ReturnLine + NewLine + #13#10;
NewLine := line[j];
number := 1;
cnumber := 0;
Inc(j);
continue;
end
else
begin
Inc(j);
continue;
end;
end
else
begin
//前面一个字符是英文，现在的字符也是英文或空格，不分段
NewLine := NewLine + line[j];
cnumber := 0;
Inc(j);
continue;
end;
end
else
if (0 = (cnumber mod 2)) then
//有个什么函数可以直接判断的来着
begin
ReturnLine := ReturnLine + NewLine + #13#10;
NewLine := line[j];
number := 1;
if (line[j] >= #$80) then
cnumber := 1;
Inc(j);
continue;
end
else
begin
//是中文字符的后半个字符
NewLine := NewLine + line[j];
cnumber := 0;
Inc(j);
continue;
end;
end
else
//长度小于等于LineLength
begin
NewLine := NewLine + line[j];
if (line[j] >= #$80) then
begin
Inc(cnumber);
Inc(number);
end
else
begin
Inc(number);
cnumber := 0;
if (j < theLength) and (line[j + 1] >= #$80) and (1 = number mod 2) then
begin
//如果下一个是中文，而现在为奇数，则补一个空格
NewLine := NewLine + ' ';
Inc(number);
end;
end;
Inc(j);
continue;
end;
end;
ReturnLine := ReturnLine + NewLine + #13#10;
Result := ReturnLine;
end;

end.

请问老兄，给这个源代码要怎么用亚？
我正好有这样的问题，可是我很菜，刚入门
能不能详细些告诉我？
真是感激万分

在文件菜单中使用新建一个控件文件，然后输入类名TQRText，再选择继承tqrprintable类，最后将本段程序全部拷贝进出，再安装即可。