纸牌控件的编写(下)[3]

  cdtdraw(canvas.handle, 0, 0, fcardid, ord(fcardmode), clwhite);

  if fglyph <> nil then

  begin

    canvas.stretchdraw(rect(12, 11, 59, 85), fglyph);

  end;

end;

procedure tzfplaycard.setcardid(const value: tcardid);