чтобы контур флажка был красный

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

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

---

---