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

function cdtinit(var cardwidth, cardheight: tcoordinate): bool; {$ifdef

win32}stdcall;

{$endif win32}

function cdtdraw(adc: hdc; x, y: tcoordinate; card: tcardid;

  mode: cardinal; color: tcolorref): bool;

{$ifdef win32}stdcall; {$endif

win32}

function cdtdrawext(adc: hdc; x, y, width, height: tcoordinate; card: tcardid;

  mode: cardinal; color: tcolorref): bool;

{$ifdef win32}stdcall; {$endif

win32}