function cdtInit(var CardWidth, CardHeight: TCoordinate): Bool; {$ifdef
Win32}stdcall;
{$ENDIF Win32}
function cdtDraw(aDC: HDC; X, Y: TCoordinate; Card: TCardId;
Mode: Cardinal; Color: TColorRef): Bool;
{$IFDEF Win32}stdcall; {$endif
Win32}
function cdtDrawExt(aDC: HDC; X, Y, Width, Height: TCoordinate; Card: TCardId;
Mode: Cardinal; Color: TColorRef): Bool;
{$IFDEF Win32}stdcall; {$endif
Win32}
procedure cdtTerm;
{$IFDEF Win32}stdcall;
{$ENDIF Win32}
function cdtAnimate(aDC: HDC; Card: TCardId; X, Y: TCoordinate;
AnimateIndex: Word): Bool;
{$IFDEF Win32}stdcall;
{$ENDIF Win32}
type
TZFPlayCard = class(TGraphicControl)
private
FCardId: TCardId;
FDragging: Boolean;
FDragMove: Boolean;
FX, FY: Integer;
FCardMode: TCardMode;
FGlyph: TBitmap;
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
procedure ReDraw;
procedure SetCardId(const Value: TCardId);
procedure SetCardMode(const Value: TCardMode);
procedure SetGlyph(const Value: TBitMap);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property CardMode: TCardMode read FCardMode write SetCardMode;
property CardID: TCardId read FCardId write SetCardId default 1;
property Glyph: TBitmap read FGlyph write SetGlyph;
property Enabled;
property Visible;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
end;
procedure Register;
implementation
const
{$IFDEF win32}
sCardsDLL = 'CARDS.DLL';
{$ELSE}
sCardsDLL = 'CARDS';
{$ENDIF win32}
{$IFDEF win32}
function cdtInit; external sCardsDLL name 'cdtInit';
function cdtDraw; external sCardsDLL name 'cdtDraw';
function cdtDrawExt; external sCardsDLL name 'cdtDrawExt';
procedure cdtTerm; external sCardsDLL name 'cdtTerm';
function cdtAnimate; external sCardsDLL name 'cdtAnimate';
{$ELSE}
function cdtInit; external sCardsDLL index 1;
function cdtDraw; external sCardsDLL index 2;
function cdtDrawExt; external sCardsDLL index 3;
procedure cdtTerm; external sCardsDLL index 4;
function cdtAnimate; external sCardsDLL index 5;
{$ENDIF win32}
procedure Register;
begin
RegisterComponents('Standard', [TZFPlayCard]);
end;
{ TZFPlayCard }
{procedure TZFPlayCard.Click;
begin
inherited;
end;
}
未完，请看下一章。
