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

begin

  fcardid := value;

  redraw;

end;

procedure tzfplaycard.setcardmode(const value: tcardmode);

begin

  fcardmode := value;

  redraw;

end;

procedure tzfplaycard.setglyph(const value: tbitmap);

begin