Листинг 10 7

Листинг 10.7.

Функция Flag рисует флажок
// рисует флаг void _fastcall TForml::Flag( int x,   int y) { TPoint p[4]; // координаты флажка и нижней точки древка // точки флажка р[0].х=х+4;  р[0].у=у+4; р[1].х=х+30; р[1].у=у+12;  р[2].х=х+4;  р[2].у=у+20; // установим цвет кисти и карандаша Canvas->Brush->Color = clRed; Canvas->Pen->Color = clRed; // чтобы контур флажка был красный Canvas->Polygon(р, 2);  // флажок // древко Canvas->Pen->Color = clBlack; Canvas->MoveTo(p[0].x, p[0].у); Canvas->LineTo(x+4,y+36); TPoint m[5];         // буква М m[0].x=x+8; m[0].y=y+14; m[l].x=x+8; m[l].y=y+8; m[2].x=x+10; m[2].y=y+10; m[3].x=x+12;  m[3].y=y+8; m[4].x=x+12;  m[4].y=y+14; Canvas->Pen->Color = clWhite; Canvas->Polyline(m,4}; Canvas->Pen->Color = clBlack; }








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

---

---

---