Delphi,C++Builder都懂的大侠(如:Pipi)请进,十万火急!十万火急!!(300分)(300分)

各位大侠:
你们好!
最近,单位有一紧急项目需要打印报表,其中有打斜线的问题,我在"计算机
世界"网站上找到一篇文章,作者以TQShape为父类建立一新的控件,成功地解决
了此问题,我认为确实不错!但由于作者用的是Delphi,而我用的是C++Builder,
对Pascal不熟,又没有制作控件的经验,所以在将Pascal译成C++,以及其他一些
地方总是出错,比如怎样做才能让新的属性出现对象观察器(Object Inspector)
中......
所以,烦劳哪位大侠解决以下问题:
1. 将下面文中的Pascal翻译成C++,请贴出代码
2. 怎样做才能让新的属性出现对象观察器(Object Inspector)中
3. 怎样编译,安装此控件
4. 其他需要注意的地方
谢谢!!!
下面是作者的原文及源代码:
Delphi应用程序中中国式报表的制作
中国空间技术研究院物资部
史宝军
在众多可视化数据库开发工具中, Delphi以其真正的面向对象、高效率、支持多
层结构应用开发、支持多层B/S结构开发等优良特性脱颖而出，成为广大编程人员的
首选开发工具。
在数据库应用程序开发中，系统设计员、程序设计员需要考虑的一个重要问题是
如何设计和输出报表，在Delphi中我们可以采用多种方案来解决这一问题，如运用
OLE自动化技术将数据输出到MS-WORD、MS-EXCEL中等，但其中最直接、最本地化的
还是使用Delphi3.0/40中的QuickReport报表组件，它是挪威QuSoft公司专门为Delphi
编写的，使用QuickReport可以迅速设计出符合西方人习惯的报表。
然而，在设计中国式报表时，笔者发现在QuickReport中设计列与列之间的竖线和斜
线比较困难；虽然QuickReport提供了TQShape控件,使用该控件可以画出列与列之间
的竖线，但如果用户不能正确调整TQShape实例的高度，输出报表中的竖线不是不连
续就是超长，另外如果我们调整了某个Band的高度，我们将不得不调整该Band下的所
有TQShape实例的高度；至于斜线，QuickReport报表组件根本就没有提供这一功能。
笔者认真查找了有关资料，成功地解决以上问题，并愿意将解决方法与大家共享，希
望能对大家有所帮助。
１、 解决思路
以TQShape为父类，建立新的控件，新控件可以画竖线、斜线和反斜线。
重载TQShape 类的Paint方法，这样在设计阶段可以非常直观地画斜线、反斜线和竖线，
用户可以在设计阶段选择线的类型，如果选择直线，控件自动将其高度调整为所属
Band的高度，用户可以调整其横向位置但不能调整其高度；如果选择斜线，用户可以
根据需要调整斜线的长度和倾角。
重载TQShape 类的Print方法，这样可以在运行阶段输出直线和斜线。
说明：该控件只能画直线和斜线，如果读者需要画矩形和园，可以使用TQShape控
件来实现。
２、控件设计步骤
步骤１、使用Delphi提供的控件向导，选择TQShape为父类，建立新类TMyQRShape，并
选择适当的包(Package)，最后生成单元文件。
步骤２、在生成的单元文件中，增加枚举类型，
TLines = ( None,TopBottom,BottomTop ) ;
None、TopBottom、BottomTop三种取值，分别代表直线、斜线 / 和反斜线 / 。
步骤３、在新类TMyQRShape 中增加private 成员 FLineType:TLines ，增加published
属性 LineType:TLines Read FLineType Write SetFLineType 。
步骤４、建立过程SetFLineType 。
procedure TMyQRShape.SetFLineType(Value:TLines);
begin
if Value<>FLineType then
begin
FLineType:=Value ;
Invalidate ;
end ;
end ;
步骤５、重载Paint方法
procedure TMyQRShape.Paint ;
begin
case LineType of
BottomTop:
begin
Canvas.MoveTo(0,Height) ;
Canvas.LineTo(width,0 ) ;
end ;
TopBottom:
begin
Canvas.MoveTo(0,0) ;
Canvas.LineTo(width,Height ) ;
end ;
None:
begin
Height := Parent.Height ;
Top:=0 ;
Width:=4 ;
Shape:=qrsVertLine ;
Inherited Paint ;
end ;
end ;
end ;
步骤６、重载Print方法
procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
with QRPrinterdo
begin
case LineType of
BottomTop:
begin
Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height) ;
Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) ) ;
end ;
TopBottom:
begin
Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)) ;
Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height ) ;
end ;
None:
Inherited Print(OfsX,OfsY ) ;
end ;
end ;
end;
步骤７、保存并安装TMyQRShape控件。
本控件在Delphi40下调试、安装，并成功应用于某数据库管理系统的开发。该控件
的完整代码如下。
--------------------------------------------------------------------------
源程序：
unit MyQRShape;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, Qrctrls;
type
TLines = ( None,TopBottom,BottomTop ) ;
TMyQRShape = class(TQRShape)
private
FLineType:TLines ;
procedure SetFLineType(Value:TLines) ;
protected
procedure Print(OfsX, OfsY : integer);
override;
procedure Paint ;Override ;
public
published
property LineType:TLines Read FLineType Write SetFLineType ;
end;

procedure Register;
implementation
procedure TMyQRShape.SetFLineType(Value:TLines);
begin
if Value<>FLineType then
begin
FLineType:=Value ;
Invalidate ;
end ;
end ;
procedure TMyQRShape.Paint ;
begin
case LineType of
BottomTop:
begin
Canvas.MoveTo(0,Height) ;
Canvas.LineTo(width,0 ) ;
end ;
TopBottom:
begin
Canvas.MoveTo(0,0) ;
Canvas.LineTo(width,Height ) ;
end ;
None:
begin
Height := Parent.Height ;
Top:=0 ;
Width:=4 ;
Shape:=qrsVertLine ;
Inherited Paint ;
end ;
end ;
end ;
procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
with QRPrinterdo
begin
case LineType of
BottomTop:
begin
Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height) ;
Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) ) ;
end ;
TopBottom:
begin
Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)) ;
Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height ) ;
end ;
None:
Inherited Print(OfsX,OfsY ) ;
end ;
end ;
end;

procedure Register;
begin
RegisterComponents('QReport', [TMyQRShape]);
end;
end.

在C++Builder中直接引用Delphi的单元。在builder工程中加入Delphi单元，则会生成
一个与Delphi单元同名的*.HPP文件，在builder中Include这个HPP文件，就可以引用
Delphi中的类和变量。

to Victortim:
不符合我的要求!
to All:
快来人呀!!

>> 1. 将下面文中的Pascal翻译成C++,请贴出代码
不懂
>> 2. 怎样做才能让新的属性出现对象观察器(Object Inspector)中
published 限定
>> 3. 怎样编译,安装此控件
看看 RegisterComponent 用法
>> 4. 其他需要注意的地方
这天太热,中暑了

to All:
有关生计大事,请不要灌水!

1. 将下面文中的Pascal翻译成C++,请贴出代码.
没有太大的必要，CB可以编译*.pas.
2. 怎样做才能让新的属性出现对象观察器(Object Inspector)中.
.......
private:
AnsiString FNewProperty;
protected:
DYNAMIC void __fastcall SetNewProperty(AnsiString Value);
__published:
__property AnsiString NewProperty={read=FNewProperty,write=SetNewProperty};
.......
//---------------------------------------------------------------------
void __fastcall TMyClass::SetNewProperty(AnsiString Value)
{
...
NewProperty=Value;
...
}
3. 怎样编译,安装此控件
MyQRShape.pas copy to .../CBuilder5/source/vcl.
click component/install component.../
click browse
open MyQRShape.pas,
install.
OK!!!
if Can't find *.obj ,设一下路径。
4. 其他需要注意的地方
暂无。

CB可以编译pas?

其实改成C++Builder的版本也不是很难，
我贴个例子给你看一下：
//这是ClockPanel.h文件
//---------------------------------------------------------------------------
#ifndef ClockPanelH
#define ClockPanelH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TClockPanel : public TPanel //从TPanel继承
{
private:
unsigned short FHour;
unsigned short FMinute;
void __fastcall SetHour(unsigned short value);
void __fastcall SetMinute(unsigned short value);
void __fastcall DrawClock();
protected:
virtual void __fastcall Loaded();
public:
__fastcall TClockPanel(TComponent* Owner);
virtual void __fastcall Repaint();
__published: //这里就是在Object Inspector中可以看到的部分
__property unsigned short Hour = { read = FHour, write = SetHour, default = 12 };
__property unsigned short Minute = { read = FMinute, write = SetMinute, default = 12 };
};
//---------------------------------------------------------------------------
#endif
//这是ClockPanel.cpp文件
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ClockPanel.h"
#include <math.h>
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components createddo
not have
// any pure virtual functions.
//
static inline void ValidCtrCheck(TClockPanel *)
{
new TClockPanel(NULL);
}
//---------------------------------------------------------------------------
__fastcall TClockPanel::TClockPanel(TComponent* Owner)
: TPanel(Owner)
{
Caption = "";
}
//---------------------------------------------------------------------------
namespace Clockpanel
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TClockPanel)};
RegisterComponents("Informant", classes, 0);
}
}
//---------------------------------------------------------------------------

void __fastcall TClockPanel::SetHour(unsigned short value)
{
FHour = value;
DrawClock();
}

void __fastcall TClockPanel::SetMinute(unsigned short value)
{
FMinute = value;
DrawClock();
}

void __fastcall TClockPanel:rawClock()
{
constdo
uble PI = 3.14;
unsigned int clockWidth = Width - 10, clockHeight = Height - 10;
Canvas->Ellipse( 10, 10, Width - 10, Height - 10 );
do
uble hourAngle = 2 * PI * (FMinute - 3 * 60) / (12 * 60 );
do
uble minAngle = 2 * PI * (FMinute - 15) / 60;
int cw = ( int ) clockWidth / 2;
int ch = (int ) clockHeight / 2;
Canvas->MoveTo( cw, ch );
Canvas->LineTo( cw + (int) ( 30 * cos( hourAngle ) ),
ch + (int) (30 * sin( hourAngle ) ) );
Canvas->MoveTo( cw, ch );
Canvas->LineTo( cw + (int) (45 * cos( minAngle ) ),
ch + (int) (45 * sin( minAngle ) ) );
}
void __fastcall TClockPanel::Repaint()
{
TPanel::Repaint();
DrawClock();
}
void __fastcall TClockPanel::Loaded()
{
Caption = "";
}
要注意的地方：
1:
static inline void ValidCtrCheck(TClockPanel *)
{
new TClockPanel(NULL);
}
必须有，你可以将TClockPanel改为你自己的类名就可以了。
2:
namespace Clockpanel
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TClockPanel)};
RegisterComponents("Informant", classes, 0);
}
}
这里与Delphi稍有不同，
要加名字空间才能使用，
名字空间中的名称必须是类名去掉"T", 同时只能是第一个字母大写。
其它的安装编译方法与Delphi一样。

to amo:
十分感谢!但还有几个具体细节要请教.
procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
with QRPrinterdo
begin
case LineType of
BottomTop:
begin
Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height) ;
Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) ) ;
end ;
TopBottom:
begin
Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)) ;
Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height ) ;
end ;
None:
Inherited Print(OfsX,OfsY ) ;
end ;
end ;
end;
上面一段怎样翻译?
1.其中, QRPrinter指向哪? 就是说是否应该这样 QRPrinter->LineType
QRPrinter->Canvas->MoveTo(..);
2.XPos()和YPos()是什么意思?在C++Builder中应该用哪个函数
3.Inherited Print(OfsX,OfsY ) ;
这是什么们意思?在C++Builder中怎样
写?
(最好将这一段翻译出来,将代码贴出来)
此问题若能圆满解决,分数少不了你的!
再次感谢!!

我插一句吧：
1. 你的理解是对的；
2. XPos()和YPos()是TQRPrinter的public方法，定位用的，你直接引用就行了；
3. Inherited Print(OfsX,OfsY);是Delphi中调用基类的被重载函数的用法，
在C++中你得显式调用基类的同名函数：TRQShape:rint();

Prinse说得很正确

haha，我爱！

同意Victortim
Delphi的代码，用在CBuilder是最简单的
请问有多少控件是用CBuilder写的？
累死你，累死XXX
Delphi的代码用在CBuilder有多困难？
>1. 将下面文中的Pascal翻译成C++,请贴出代码
？？？
>2. 怎样做才能让新的属性出现对象观察器(Object Inspector)中
bpk+pas
>3. 怎样编译,安装此控件
bpk+pas
>4. 其他需要注意的地方
-----

解决了就早结束！

多人接受答案了。