C++ Builder - вопросы программирования
чтобы контур флажка был красный
Листинг 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; }
