[StudentMarat]

Как нарисовать в Delphi трехцветную окружность. Знаю, что окружность рисуется вот так: Form1.Canvas.Ellipse(x1, y1, x2, y2). А как сделать, чтобы она была трехцветной??

[angvelem]

Это как понимать? По окружности цвет меняется или по толщине линии?

[StudentMarat]

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

Это как понимать? По окружности цвет меняется или по толщине линии?

На форме просто нужно нарисовать окружность, но чтобы три ее сектора были разными цветами. Какие цвета будут у этих секторов значения не имеет

[angvelem]

Тогда нужна не окружность, а Arc, ArcTo.

[Pyro]

что-то на тему цветового круга

[StudentMarat]

Вот условие задачи

Трехцветный мяч начальным диаметром 100 пикселей поднимается вверх со скоростью 5 пикселей/сек. и уменьшается на каждом шаге в диаметре на 1 пиксель.

Вот пока только не догоняю, как мяч (пусть будет окружность) сделать трехцветной. Остальное то реализую, там не сложно

[NumLock]

3 сектора в 120 градусов разного цвета составят окружность

[NumLock]

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
begin
  R:=GetClientRect;    
  Canvas.Pen.Color:=clBlue;
  Canvas.Brush.Color:=clRed;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Right, R.Top, R.Left, R.Top);
  Canvas.Brush.Color:=clGreen;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Left, R.Bottom, R.Right, R.Bottom);
  Canvas.Brush.Color:=clYellow;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Left, R.Top, R.Left, R.Bottom);
  Canvas.Brush.Color:=clAqua;
  Canvas.Pie(R.Left, R.Top, R.Right, R.Bottom,
    R.Right, R.Bottom, R.Right, R.Top);
end;

углы для 3-х секторов сам высчитывай)

[StudentMarat]

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

3 сектора в 120 градусов разного цвета составят окружность

Если не затруднит, можете код написать