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



             

Листинг 10 8



Листинг 10.8.

Функция Mina рисует мину // рисует мину void __faatcall TForml::Mina(int x,   int y) { Canvas->Brush->Color = clGreen; Canvas->Pen->Color = clBlack; // корпус Canvas->Rectangle(x+16,y+26,x+24,y+30); Canvas->Rectangle(x+8,y+30,x+32,y+34) ; Canvas->Pie(x+б,y+28,x+34,y+44,x+34,y+36,x+6,y+36); // полоса на корпусе Canvas->MoveTo(x+12,y+32); Canvas->LineTo(x+28,y+32); // основание Canvas->MoveTo(x+8,y+36);  Canvas->LineTo(x+32,y+36); // вертикальный "ус" Canvas->MoveTo(x+20,y+22); Canvas->LineTo(x+20,y+26); // боковые "усы" Canvas->MoveTo(x+8, y+30); Canvas->LineTo(x+6,y+28); Canvas->MoveTo(х+32,y+30); Canvas->LineTo(х+34, у+28); }
 











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