自编扫雷程序详解(Delphi 版)
2001-03-30 09:26 作者:LittleFan 出处:yesky 责任编辑:
看了很多杂志上有
很多关于编程的文章,作者似乎
都只热衷于给出长长的源代码,然后稍加一点的注释。就我自己读这些文章的感受就是没
有实质的东西,读者很难感受到作者的编程思路,有时候兴趣好就按源程序输一遍,而往
往结果都会这儿出错那儿不行,从而就这样失去了兴趣。所以这类文章很难帮助读者提高
编程能力。
我所推崇的是作者能够写出它编程过程中的思路,其实按照这样的思路我们完全可以
编写出自己的代码(只要不是完全不懂得编程的朋友),从而能按照自己所理解的思路加
以修改和补充。写了这么多,应该到了写程序思路的时候了。
有很多文章介绍过怎样写一个扫雷程序,但好像都用 Button 数组来做雷区的方格的,
其实笔者经过实践,无论是 VB 还是 Delphi 都很难用 Button 数组来实现和 Windows 中的
扫雷一样的界面和功能(除非自己再写一个能实现差不多功能的控件)。我的方法是直接
在窗体上绘出 Windows 扫雷程序中的 Bmp。具体如下:
1、 利用 ExeScope 工具(华军软件园可以下载)打开 Windows 中的扫雷程序,导出其中
资源文件中的位图,另存到硬盘上,以备程序使用;
如图: 256 * 16 = 16 * (16 * 16 )
图 1
156* 23 = 12 * (13 * 23)
图 2
120 * 24 = 5 * (24 * 24)
图 3
2、 建一个 Delphi 工程,添加三个 ImageList 控件,按照上面的各个小图像的长和宽设好
ImageList 的 Height 和 Width,即:
ImageList1.Height = 16 ImageList1.Width=16