Delphi2006でLightReport2を使うには

Delphi2006でLightReport2を使うには

http://onigiri.s3.xrea.com:8080/delphi/index.php?Delphi2005%2FTIPSGoogleキャッシュ で見つかった「Delphi2005でLightReport2を使うには」を参考にしました。

DelphiVerに {$IFDEF VER180} の項目を追加する以外は Delphi2005と同じです。

LightRep、ScaledPreviewとTLightRep、StretchDIBDrawで以下を修正

InfoSize: integer; -> InfoSize: longword;
ImageSize: integer; -> ImageSize: longword;

DelphiVerに以下を追加

その1

{
  Delphi Version 判断の定義
    VER80  Delphi1
    VER90  Delphi2
    VER100 Delphi3
    VER120 Delphi4
    VER130 Delphi5
    VER140 Delphi6
    VER150 Delphi7
    VER160 Delphi8
    VER170 Delphi9
}

その2

{$IFDEF VER160}
  {$DEFINE Delphi8Only}
  {$DEFINE Delphi1Over}
  {$DEFINE Delphi2Over}
  {$DEFINE Delphi3Over}
  {$DEFINE Delphi4Over}
  {$DEFINE Delphi5Over}
  {$DEFINE Delphi6Over}
  {$DEFINE Delphi7Over}
  {$DEFINE Delphi8Over}
  {$DEFINE Delphi1-8}
  {$DEFINE Delphi2-8}
  {$DEFINE Delphi3-8}
  {$DEFINE Delphi4-8}
  {$DEFINE Delphi5-8}
  {$DEFINE Delphi6-8}
  {$DEFINE Delphi7-8}
{$ENDIF}
{$IFDEF VER170}
  {$DEFINE Delphi9Only}
  {$DEFINE Delphi1Over}
  {$DEFINE Delphi2Over}
  {$DEFINE Delphi3Over}
  {$DEFINE Delphi4Over}
  {$DEFINE Delphi5Over}
  {$DEFINE Delphi6Over}
  {$DEFINE Delphi7Over}
  {$DEFINE Delphi8Over}
  {$DEFINE Delphi9Over}
  {$DEFINE Delphi1-9}
  {$DEFINE Delphi2-9}
  {$DEFINE Delphi3-9}
  {$DEFINE Delphi4-9}
  {$DEFINE Delphi5-9}
  {$DEFINE Delphi6-9}
  {$DEFINE Delphi7-9}
  {$DEFINE Delphi8-9}
{$ENDIF}
{$IFDEF VER180}
  {$DEFINE Delphi9Only}
  {$DEFINE Delphi1Over}
  {$DEFINE Delphi2Over}
  {$DEFINE Delphi3Over}
  {$DEFINE Delphi4Over}
  {$DEFINE Delphi5Over}
  {$DEFINE Delphi6Over}
  {$DEFINE Delphi7Over}
  {$DEFINE Delphi8Over}
  {$DEFINE Delphi9Over}
  {$DEFINE Delphi1-9}
  {$DEFINE Delphi2-9}
  {$DEFINE Delphi3-9}
  {$DEFINE Delphi4-9}
  {$DEFINE Delphi5-9}
  {$DEFINE Delphi6-9}
  {$DEFINE Delphi7-9}
  {$DEFINE Delphi8-9}
{$ENDIF}

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください