纸牌控件的编写(下)

原创 2004年05月17日 23:01:00

constructor TZFPlayCard.Create(AOwner: TComponent);<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

var

  x, y: integer;

begin

  inherited Create(AOwner);

  FCardId := 1;

  cdtInit(x, y);

  SetBounds(0, 0, x, y);

  ControlStyle := [csClickEvents, csDoubleClicks];

  Enabled := True;

  Canvas.Brush.Style := bsClear;

  FGlyph := TBitMap.Create;

end;

 

destructor TZFPlayCard.Destroy;

begin

  FGlyph.Free;

  inherited;

end;

procedure TZFPlayCard.Paint;

begin

  inherited;

  ReDraw;

end;

 

procedure TZFPlayCard.ReDraw;

begin

  cdtDraw(Canvas.Handle, 0, 0, FCardId, Ord(FCardMode), clWhite);

  if FGlyph <> nil then

  begin

    canvas.StretchDraw(RECT(12, 11, 59, 85), FGlyph);

  end;

end;

 

procedure TZFPlayCard.SetCardId(const Value: TCardId);

begin

  FCardId := Value;

  ReDraw;

end;

 

procedure TZFPlayCard.SetCardMode(const Value: TCardMode);

begin

  FCardMode := Value;

  ReDraw;

end;

 

procedure TZFPlayCard.SetGlyph(const Value: TBitMap);

begin

  if value <> FGlyph then

    begin

      FGlyph.Assign(value);

      Invalidate;

    end;

end;

 

procedure TZFPlayCard.WMEraseBkgnd(var Message: TWMEraseBkgnd);

begin

  Message.Result:=1;

end;

 

end.

纸牌控件的编写(上)

使用了系统自带的纸牌库,无需任何资源,具有边角圆滑的效果,支持Windows 98、Windows 2000系统。效果如下图: 还具有自定义图象功能,如下图所示:unit ZFPlayCard;{20...
  • xzhifei
  • xzhifei
  • 2004年05月21日 18:17
  • 1648

纸牌控件的编写(中)

function cdtInit(var CardWidth, CardHeight: TCoordinate): Bool; {$ifdefWin32}stdcall;{$ENDIF Win32}f...
  • xzhifei
  • xzhifei
  • 2004年05月17日 17:48
  • 1167

开发日记:KBEngine+Unity+php做个扑克小游戏-DAY1

写这篇博客的时候其实我已经开发了一大部分了~php 部分,unity 部分 都已经差不多了 ,由于KBEngine(简称kbe)完全没接触过,其实很多地方php部分的逻辑都可以直接挪到kbe中完成。实...
  • zay109327402
  • zay109327402
  • 2016年11月04日 14:04
  • 3604

用C#做一个简单纸牌游戏的程序

小子不才学C#没多久,想做个窗体纸牌游戏玩,但是窗体应用懂得不多,只能在控制命令台上进行游戏设计,希望有大神能帮我设计这个窗体程序,或者推荐好的窗体设计资料,谢谢了,控制命令台程序如下: names...
  • Karigurashi
  • Karigurashi
  • 2015年07月28日 15:40
  • 2465

【转】Python之美[从菜鸟到高手]--urlparse源码分析

urlparse是用来解析url格式的,url格式如下:protocol :// hostname[:port] / path / [;parameters][?query]#fragment,其中;...
  • acm_cxq
  • acm_cxq
  • 2016年12月16日 14:40
  • 310

蜘蛛纸牌代码分析

#include #include /*     半年前看Moon大师的蜘蛛纸牌教程后,想自己也跟着做。到最后发现,原理XP SP2后的     版本已经大不相同,深受打击。前段时间重要搞定它了,呵呵...
  • weishan521520
  • weishan521520
  • 2010年10月14日 20:53
  • 3842

hdu 2209 翻纸牌游戏 模拟||bfs

C - 翻纸牌游戏 Time Limit:3000MS     Memory Limit:32768KB     64bit IO Format:%I64d & %I64u Submit Statu...
  • HowardEmily
  • HowardEmily
  • 2016年11月03日 16:27
  • 1122

NOip2002均分纸牌

题目描述 有 N 堆纸牌,编号分别为 1,2,…, N。每堆上有若干张,但纸牌总数必为 N 的倍数。可以在任一堆上取若于张纸牌,然后移动。 移牌规则为:在编号为 1 堆上取的纸牌,只能移到编号...
  • yyyds
  • yyyds
  • 2016年08月15日 20:36
  • 844

hdu 2209 翻纸牌游戏

Problem Description 有一种纸牌游戏,很有意思,给你N张纸牌,一字排开,纸牌有正反两面,开始的纸牌可能是一种乱的状态(有些朝正,有些朝反),现在你需要整理这些纸牌。但是麻烦的是...
  • xcd1997
  • xcd1997
  • 2017年04月13日 21:53
  • 176

一个纸牌游戏的算法

扑克牌A-K,按一定排序后,先把上面一张的置于桌面,然后翻开一张牌。循环到最后一张牌,这时桌面牌是按顺序排列的。 直接上Java实现算法 /** * 纸牌算法 */ private s...
  • SJZYLC
  • SJZYLC
  • 2015年11月22日 22:44
  • 1570
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:纸牌控件的编写(下)
举报原因:
原因补充:

(最多只允许输入30个字)