●AmbientBackColorCheckプロパティは使用できません。
●Picture(nPictureNo: Smallint; const Param2: IPictureDisp);プロパティは使用できません。
●DelphiにTilingButtonV3を登録する際、「コンポーネント-ActiveXコントロールの取り込み」により、登録作業を行った場合に以下の作業を行う必要があります。(弊社で用意したパッケージプロジェクト(Samples
for Delphi\Bpl\KnTilingButtonV3.dpk)を使用して登録する場合には以下の作業の必要はありません。弊社用意のパッケージを使用する事をお勧め致します。)
Delphiによりタイプライブラリ xxx.pasファイルが出力されますので以下の修正を行ってください。(「Samples
for Delphi\Bpl\KnTilingButtonLib_TLB.pas」ファイルが以下の作業を既に行ったソースファイルです)
(1)次のパラメータ付プロパティは、コンパイル時、
致命的なコンパイルエラーとなるため、下記のように修正してください。
・Picture
・PictureImageList
・PictureImageListCount
・PictureImageMask
・PictureImageMaskColor
-------- 修正イメージ(getter)
Result := DefaultInterface.Get_Picture(nPictureNo);
Result := DefaultInterface.Get_PictureImageList(nPictureNo);
Result := DefaultInterface.Get_PictureImageListCount(nPictureNo);
Result := DefaultInterface.Get_PictureImageMask(nPictureNo);
Result := DefaultInterface.Get_PictureImageMaskColor(nPictureNo);
⇒
Result := DefaultInterface.Picture[nPictureNo];
Result := DefaultInterface.PictureImageList[nPictureNo];
Result := DefaultInterface.PictureImageListCount[nPictureNo];
Result := DefaultInterface.PictureImageMask[nPictureNo];
Result := DefaultInterface.PictureImageMaskColor[nPictureNo];
-------- 修正イメージ(setter)
DefaultInterface.Set_PictureImageList(nPictureNo) := Param2;
DefaultInterface.Set_PictureImageListCount(nPictureNo) := Param2;
DefaultInterface.Set_PictureImageMask(nPictureNo) := Param2;
DefaultInterface.Set_PictureImageMaskColor(nPictureNo) := Param2;
⇒
DefaultInterface.PictureImageList[nPictureNo] := Param2;
DefaultInterface.PictureImageListCount[nPictureNo] := Param2;
DefaultInterface.PictureImageMask[nPictureNo] := Param2;
DefaultInterface.PictureImageMaskColor[nPictureNo] := Param2;
(2)次のメソッドは、コンパイル時、
警告され、有効に動作しないため、下記のように修正してください。
・Get・・・
・Is・・・
-------- 修正イメージ(Get・・・)
function TKnTilingButton.Get・・・
begin
DefaultInterface.Get・・・
end;
⇒
function TKnTilingButton.Get・・・
begin
Result := DefaultInterface.Get・・・
end;
-------- 修正イメージ(Is・・・)
function TKnTilingButton.Is・・・
begin
DefaultInterface.Is・・・
end;
⇒
function TKnTilingButton.Is・・・
begin
Result := DefaultInterface.Is・・・
end;
--------------------------------------------------