纸牌控件的编写(下)

2016-02-19 12:37 7 1 收藏

今天图老师小编要跟大家分享纸牌控件的编写(下),精心挑选的过程简单易学,喜欢的朋友一起来学习吧!

【 tulaoshi.com - 编程语言 】

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;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

destructor TZFPlayCard.Destroy;

begin

  FGlyph.Free;

  inherited;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

procedure TZFPlayCard.Paint;

begin

  inherited;

  ReDraw;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

procedure TZFPlayCard.ReDraw;

begin

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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  if FGlyph nil then

  begin

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

  end;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

procedure TZFPlayCard.SetCardId(const Value: TCardId);

begin

  FCardId := Value;

  ReDraw;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

procedure TZFPlayCard.SetCardMode(const Value: TCardMode);

begin

  FCardMode := Value;

  ReDraw;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

procedure TZFPlayCard.SetGlyph(const Value: TBitMap);

begin

  if value FGlyph then

    begin

      FGlyph.Assign(value);

      Invalidate;

    end;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

procedure TZFPlayCard.WMEraseBkgnd(var Message: TWMEraseBkgnd);

begin

  Message.Result:=1;

end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

 

end.

来源:http://www.tulaoshi.com/n/20160219/1601324.html

延伸阅读
标签: Web开发
在某些特殊的应用场合,我们很想要一个类似IE功能的模块,定制自己的功能。 HTML控件现在向我们张开了怀抱。稍稍奇怪的是,它并不完全支持WAP协议。看来,IE还是做了自己的解析。 首先,我们要注册一下控件。把Htmlctrl.h包含进来,调用InitHTMLControl()函数,里面的参数为应用程序句柄。以下代码在MFC中使用: VERIFY(InitH...
三、CGI编程实例 本节将用VB编写一个处理主页客户留言簿的CGI程序。除了要调用本文前面所介绍的Win32API函数外,程序中还调用了Win32API函数GetTempFileName()来获得一个唯一的临时文件名。程序中的函数UrlDecode()用来对客户端的输入进行URL译码。函数GetCgiValue()则用来分解字符串,根据表单元素的NAME属性获取其VALUE值,并调用Ur...
在.NET下编写中文代码程序 郑佐2005-3-9 一年前,有一次在用Access数据库编程的时候,通过VS.NET数据设计器向导生成数据层代码,查看生成的代码,发现有许多中文,原来数据库中的表名和字段名用的就是中文,程序正常运行,查看相关文档才知道原来VS.NET默认的编码是UTF-8。不久前在一篇blog上看到讲易语言,所以干脆用VS.NET写一些中文代码来...
    DBGrid数据表格控件以其短小精悍而深受大家的喜爱,但其如何在Visual C++中使用却很少有文章提及,本文将VC下使用DBGrid的具体步骤简要地介绍给大家。 一.前期准备 为了实现DBGrid控件的自动捆绑,我们需要建立一个数据库和与之关联的数据源,本例中我们用Access建立数据库mydata.mdb,在数据库中新建一张表users,包...
一、序言 Visual C#.NET是微软公司出品的一种新的编程语言(以下简称C#),它继承了C语言的一些特性,也加入了一些新的元素。以前用过Delphi开发程序的人可能刚开始使用C#的时候,对其有一种似曾相识的感觉(至少包括我)。是的,C#语言的创始人正是以前在Borland公司开发出Delphi语言的Anders Hejlsberg。在我开始使用C#开发程序时,就...

经验教程

734

收藏

29
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部