рисует мину void __faatcall

Листинг 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);
}

Содержание раздела

---

---