1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
{$IFDEF VER120} //delphi 4
{$DEFINE VER120_PLUS}
{$ENDIF}
{$IFDEF VER125} //bcb 4
{$DEFINE VER120_PLUS}
{$ENDIF}
{$IFDEF VER130} //delphi 5
{$DEFINE VER120_PLUS}
{$ENDIF}
{$IFDEF VER135} //bcb 5
{$DEFINE VER120_PLUS}
{$ENDIF}
{$IFDEF VER140} //delphi 6
{$DEFINE VER120_PLUS}
{$DEFINE VER140_PLUS}
{$ENDIF}
{$IFDEF VER150} //delphi 7
{$DEFINE VER120_PLUS}
{$DEFINE VER140_PLUS}
{$ENDIF}
constructor CreateNew(Owner: TComponent
{$IFDEF VER120_PLUS};Dummy: Integer = 0); override;{$ELSE});{$ENDIF} |