C++ Builder - вопросы программирования



             

Листинг 10 5



Листинг 10.5.

Функция KLetka // рисует на экране клетку void __fastcall TForml::Kletka(int row, int col, int status) { int x = LEFT + (col-1)* W; int у = TOP + (row-1)* H; if (status == 0) // начало игры ( // клетка — серый квадрат Canvas->Brush->Color = clLtGray; Canvas->Rectangle (х-1, у-1, x+W, у+Н) ; return; } // во время   (status = 1)- и в конце   (status = 2)  игры if   (   Pole[row][col]   <  100) { // клетка не открыта Canvas->Brush->Color = clLtGray;   // не открытые — серые Canvas->Rectangle(х-1,у-1,x+W,у+Н); if (status == 2 && Pole.frow] [col] == 9) Mina( x, у); // игра закончена, показать мину return; } // клетка открыта Canvas->Brush->Color = clWhite;     // открытые белые Canvas->Rectangle(x-l,y-l,x+W,y+H); if  ( Pole[row][col] == 100) return; // клетка пустая if ( Pole[row][col] >= 101 && Pole[row][col] <= 108) { Canvas->Font->Size = 14; Canvas->Font->Color = clBlue; Canvas->TextOutA(x+3,y+2,IntToStr(Pole[row][col] -100)); return; } if ( Pole[row][col] >= 200) Flag(x, y) ; if (Pole[row][col] == 109) // на этой мине подорвались! { Canvas->Brush->Color = clRed; Canvas->Rectangle(x,y,x+W,y+H); } if  ((  Pole[row][col]% 10 = 9)  && (status = 2)) Mina( x,   y); }
 











Содержание  Назад  Вперед