Есть фигура при движение она должна изменять цвет

[wall33]

цвет не заштрихованной области меняется плавно в процессе движения от желтого в начале траектории до красного, заштрихованный элемент от красного до синего

[WorldMaster]

Хм... смотрел смотрел ... ничего не меняется. Че у меня не так?

[wall33]

о чем ты говоришь????

[WorldMaster]

Сообщение от wall33

о чем ты говоришь????

Ну вы говорите что цвет у фигуры меняется. А я смотрю и он не меняется.

[wall33]

ну так как сделать чтоб менялся ??? помогите с кодом

[WorldMaster]

Сообщение от wall33

ну так как сделать чтоб менялся ??? помогите с кодом

Вы имеете в виду написать с нуля за вас?? Или с чем помочь то?? Сами ничего конечно не сделали?

[wall33]

есть код к другой фигур помогите адаптировать к моей

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
posX = 0; posXv = 12;
posY = 0; posYv = 3;
color1G = 255; color1v = -3;
color2B = 0; color2G = 255; color2v = -3;
R = 100;
r1 = 0; r1v = 0.08;
r2 = 0; r2v = -0.03;
ClientWidth = 394;
Panel6->Anchors << akRight;
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Constraints->MinWidth = Width - ClientWidth + 393;
Constraints->MinHeight = Height - ClientHeight + 217;
}
//---------------------------------------------------------------------------
void TForm1::nextColor(void)
{
color1G += color1v;
if (color1G > 255)
{
color1G = 255 * 2 - color1G;
color1v *= -1;
}
if (color1G < 0)
{
color1G = -color1G;
color1v *= -1;
}
color2B -= color2v;
color2G += color2v;
if (color2B > 255 || color2G < 0)
{
color2B = 255 * 2 - color2B;
color2G = -color2G;
color2v *= -1;
}
if (color2B < 0 || color2G > 255)
{
color2B = -color2B;
color2G = 255 * 2 - color2G;
color2v *= -1;
}
}
//---------------------------------------------------------------------------
void TForm1::nextPos(void)
{
posX += posXv;
if (posX < 0)
{
posX = -posX;
posXv *= -1;
r1v *= -1;
color1v *= -1;
color2v *= -1;
}
if (posX > Panel6->ClientWidth - R)
{
posX = 2 * (Panel6->ClientWidth - R) - posX;
posXv *= -1;
r1v *= -1;
color1v *= -1;
color2v *= -1;
}
posY += posYv;
if (posY < 0)
{
posY = -posY;
posYv *= -1;
r1v *= -1;
color1v *= -1;
color2v *= -1;
}
if (posY > Panel6->ClientHeight - R)
{
posY = 2 * (Panel6->ClientHeight - R) - posY;
posYv *= -1;
r1v *= -1;
color1v *= -1;
color2v *= -1;
}
r1 += r1v;
r2 += r2v;
if (r1 > 2 * pi) r1 -= 2 * pi;
if (r2 > 2 * pi) r2 -= 2 * pi;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
Graphics::TCanvas* a = ((TPaintBox*)Sender)->Canvas;
a->Brush->Style = bsSolid;
a->Pen->Style = psSolid;

a->Brush->Color = RGB(255, color1G, 0);
a->Pen->Color = a->Brush->Color;
a->Ellipse(posX, posY, posX + R, posY + R);

double cx = posX + R / 2;
double cy = posY + R / 2;
double cr = R / 2;
double pi4 = pi / 2;
double pi8 = pi / 4;

a->Brush->Color = RGB(0, color2G, color2B);
a->Pen->Color = a->Brush->Color;
a->PenPos = Point(cx + cos(r1) * cr, cy + sin(r1) * cr);
a->LineTo(cx + cos(r1 + 1 * pi4) * cr, cy + sin(r1 + 1 * pi4) * cr);
a->LineTo(cx + cos(r1 + 2 * pi4) * cr, cy + sin(r1 + 2 * pi4) * cr);
a->LineTo(cx + cos(r1 + 3 * pi4) * cr, cy + sin(r1 + 3 * pi4) * cr);
a->LineTo(cx + cos(r1 + 0 * pi4) * cr, cy + sin(r1 + 0 * pi4) * cr);
a->FloodFill(cx, cy, a->Brush->Color, fsBorder);

cr *= sqrt(2) / 2;

a->Brush->Color = RGB(255, color1G, 0);
a->Pen->Color = a->Brush->Color;
a->PenPos = Point(cx + cos(r2) * cr, cy + sin(r2) * cr);
a->LineTo(cx + cos(r2 + 1 * pi8) * cr, cy + sin(r2 + 1 * pi8) * cr);
a->LineTo(cx + cos(r2 + 2 * pi8) * cr, cy + sin(r2 + 2 * pi8) * cr);
a->LineTo(cx + cos(r2 + 3 * pi8) * cr, cy + sin(r2 + 3 * pi8) * cr);
a->LineTo(cx + cos(r2 + 4 * pi8) * cr, cy + sin(r2 + 4 * pi8) * cr);
a->LineTo(cx + cos(r2 + 5 * pi8) * cr, cy + sin(r2 + 5 * pi8) * cr);
a->LineTo(cx + cos(r2 + 6 * pi8) * cr, cy + sin(r2 + 6 * pi8) * cr);
a->LineTo(cx + cos(r2 + 7 * pi8) * cr, cy + sin(r2 + 7 * pi8) * cr);
a->LineTo(cx + cos(r2 + 0 * pi8) * cr, cy + sin(r2 + 0 * pi8) * cr);
a->FloodFill(cx, cy, a->Brush->Color, fsBorder);
}

[wall33]

помогите пожалуйста!!1

[Евгений7777777]

Сообщение от wall33

помогите пожалуйста!!1

Чел,отпиши в личку https://vk.com/horoshenkiofficialll

[Serge_Bliznykov]

Сообщение от Евгений7777777

Чел,отпиши в личку

кто такой "Чел" ?
если Вы про wall33, так он уже несколько месяцев на форуме не появлялся.