不得不说,捕获“扫雷”窗口以及取得它的数据,是本程序的一个难点。现在这个难点已经解决,接下来,完成接口层已经不是问题了。那么,来看接口层的两个核心过程:
=================================================================
//取得整个雷区每个方块的状态,填入Cells中供分析。
procedure FetchCells;
var
i, j: Integer;
begin
//扫描每个方块,根据指定像素的颜色判断该方块的性质。
//特定像素的颜色与方块性质的对应关系归纳自“扫雷”程序本身的资源。
for i:=0 to AreaWidth-1 do
for j:=0 to AreaHeight-1 do
//首先判断(0, 0)点的像素
case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH, TOP_MARGIN + j*CELL_HEIGHT)) of
clWhite...[ 查看全文 ]