bitblt(canvas.handle,0,0,width,height, //画图
cardmap.canvas.handle ,x,y,srccopy);
end;
procedure tcard.setfaceup(flag: bool);//设置牌面朝上还是朝下
begin
ffaceup:=flag;
paint; //重画
end;
function tcard.getvalue: integer;
begin
result:=cardid shr 2; //得到该牌的值
inc(result);
end;
function tcard.getsuit:tcardsuit;
begin
result:=tcardsuit(cardid and 3); //得到该牌的花色
end;
initialization //单元初始化
cardmap:=tbitmap.create ; //创建位图
cardmap.loadfromresourcename(hinstance,'card');//从资源中导入
finalization
cardmap.free ;//清除位图
end.
