idSpadesJack = 50;

  idSpadesQueen = 51;

  idSpadesKing = 52;

  RankFirst = idClubsAce;

  RankLast = idClubsKing;

  RankCount = RankLast - RankFirst + 1;

  idFaceFirst = idClubsAce;

  idFaceLast = idSpadesKing;

  FaceCount = idFaceLast - idFaceFirst;

  SuitCount = 4;

  idDeckEmpty = 53; { $35  }

  idDeckPattern1 = 54; { $36  }

  idDeckPattern2 = 55; { $37  }

  idDeckRobot = 56; { $38  }

  idDeckRoses = 57; { $39  }

  idDeckFlowers1 = 58; { $3A  }

  idDeckFlowers2 = 59; { $3B  }

  idDeckFishes = 60; { $3C  }

  idDeckAquarium = 61; { $3D  }

  idDeckShell = 62; { $3E  }

  idDeckCastle = 63; { $3F  }

  idDeckPalmbeach = 64; { $40  }

  idDeckCardhand = 65; { $41  }

  { there is no card# 66 }

  idDeckCross = 67; { $43  }

  idDeckCircle = 68; { $44  }

  idDeckFirst = idDeckEmpty;

  idDeckLast = idDeckCardhand;

  DeckCount = idDeckLast - idDeckFirst + 1;

  idDeckSpecialFirst = idDeckCross;

  idDeckSpecialLast = idDeckCircle;

  DeckSpecialCount = idDeckSpecialLast - idDeckSpecialFirst + 1;

  idAnimateCardhand1 = 678; { $02A6 }

  idAnimateCardhand2 = 679; { $02A7 }

  idAnimateCastle = 680; { $02A8 }

  idAnimateSunSmile = 681; { $02A9 }

  idAnimateSunSmileTongue = 682; { $02AA }

  idAnimateRobot1 = 683; { $02AB }

  idAnimateRobot2 = 684; { $02AC }

type

  TCardId = Cardinal; { Win32 - 31-bit unsigned integer

  Win16 - 16-bit unsigned integer }

  TCardMode = (mode1, mode2, mode3, mode4, mode5, mode6, mode7, mode8, mode9);

  { Win32 - 31-bit unsigned integer

Win16 - 16-bit unsigned integer }

  TCoordinate = Integer; { Win32 - 32-bit signed integer

  Win16 - 16-bit signed integer }

上一页  [1] [2]