纸牌控件的编写(中)

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}

procedure cdtTerm;

{$IFDEF Win32}stdcall;

{$ENDIF Win32}

function cdtAnimate(aDC: HDC; Card: TCardId; X, Y: TCoordinate;

  AnimateIndex: Word): Bool;

{$IFDEF Win32}stdcall;

{$ENDIF Win32}

type

  TZFPlayCard = class(TGraphicControl)

  private

    FCardId: TCardId;

    FDragging: Boolean;

    FDragMove: Boolean;

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

  protected

    procedure Paint; override;

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  published

    property CardMode: TCardMode read FCardMode write SetCardMode;

    property CardID: TCardId read FCardId write SetCardId default 1;

    property Glyph: TBitmap read FGlyph write SetGlyph;

    property Enabled;

    property Visible;

    property OnClick;

    property OnDblClick;

    property OnMouseDown;

    property OnMouseMove;

    property OnMouseUp;

  end;

procedure Register;

implementation

const

{$IFDEF win32}

  sCardsDLL = ''''CARDS.DLL'''';

{$ELSE}

  sCardsDLL = ''''CARDS'''';

{$ENDIF win32}

[1] [2]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18