[WR3.0]Copyメソッドについて

[鈴木]

いつもお世話になっております。

Delphi6からWingReport3.0のOCXを利用しているのですが、
Copyメソッドを使用しようとすると、第２引数の指定を
求められてしまいます。

以前にVB6で同様のことを行った際には、第１引数の指定
のみでよかったのですが・・・

CopyしたObjectをFrameに配置したいわけではありません。
どうすればよろしいでしょうか？

よろしくお願いします

[中嶋]

お世話様になっております。

Frameオブジェクトは省略可能な引数なのですが自動生成したファイルでは
そのままでは指定することができません。
簡単な方法では下記方法にて実現することが可能です。

通常
C:\Program Files\Borland\Delphi6\Imports
にあります WR3AXCLLib_TLB.pas ファイルをエディタで開き

//追加
function Copy2(const SrcObject: IWRObject): IWRObject; dispid 502;

//修正前
function Copy(const SrcObject: IWRObject): IWRObject; overload;
//修正後
function Copy2(const SrcObject: IWRObject): IWRObject; overload;

//修正前
function TWRLayer.Copy(const SrcObject: IWRObject): IWRObject;
begin
Result := DefaultInterface.Copy(SrcObject, EmptyParam);
end;

//修正後
function TWRLayer.Copy2(const SrcObject: IWRObject): IWRObject;
begin
Result := DefaultInterface.Copy(SrcObject, EmptyParam);
end;

オブジェクトのみではCopy2を使用する。

上記修正をお願いします。

以上　よろしくお願いします。

[鈴木]

ありがとうございます。

お陰様で無事目的を達せました。

今後ともよろしくお願いいたします。

[投稿者]

投稿