Листинг 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; }
Содержание Назад Вперед