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

    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);