纸牌控件的编写(中)[2]

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;