Цвет линии не меняется

[cs12]

Здравствуйте!

Помогите понять, почему цвет линии не меняется, а используется цвет формы?

  for var Gear in Gears do Gear.Canvas.Lock;

  for var Gear in Gears do
    with Gear.Canvas do
    begin
      Brush.Color := Form1.Color;
      Rectangle(0, 0, Gear.ClientWidth, Gear.ClientHeight);
      Brush.Color := clMedGray;
      Pen.Color := Brush.Color;
      Pen.Width := 3;
      Ellipse(0, 0, Gear.ClientWidth, Gear.ClientHeight);
      Pen.Color := clRed;
      Brush.Style := bsClear;
    end;

  for var Gear in Gears do
    with Gear.Canvas do
      LineTo(x,y); // вот здесь цвет формы

  for var Gear in Gears do Gear.Canvas.Unlock;

После запуска программы линия красная, после каждого следующего вызова функции она как будто прорезает дыру в эллипсе, на котором рисуется. Pen.Style и Pen.Mode не дают эффекта. Даже если перед рисованием линии непосредственно задавать цвет.

Полный код процедуры:

procedure TForm1.UpdateGears();
begin
  var Gears := [Image3, Image4, Image5, Image6];

  const ss = String(GearSS.Caption).ToInteger;
  const val = String(GearValue.Caption);
  const angst = 360 div ss;
  const r = 90;

  for var Gear in Gears do Gear.Canvas.Lock;

  for var Gear in Gears do
    with Gear.Canvas do
    begin
      Brush.Color := Form1.Color;
      Rectangle(0, 0, Gear.ClientWidth, Gear.ClientHeight);
      Brush.Color := clMedGray;
      Pen.Color := Brush.Color;
      Pen.Width := 3;
      Ellipse(0, 0, Gear.ClientWidth, Gear.ClientHeight);
      Pen.Color := clMaroon;
      Font.Size := 20;
      Font.Color := clWhite;
      Font.Name := 'Consolas';
      Font.Quality := fqClearType;
      Brush.Style := bsClear;

      const fix = [-8, -15];

      for var i := 1 to ss do
        TextOut(Round(r*cos(DegToRad(90 - angst * (i - 1)))) + 100 + fix[0], round(r*sin(-DegToRad(90 - angst * (i - 1)))) + 100 + fix[1], digits[i]);
    end;

  var x := val;

  for var Gear in Gears do
    with Gear.Canvas do
    begin
      //var i := Max(digits.IndexOf(x.Substring(x.Length - 1)), 0);
      var d := Max(digits.IndexOf(x.Substring(x.Length - 1)), 0);
      // i почему-то остаётся всегда 11, поэтому d (если знаете, почему, тоже поясните, пожалуйста)

      var fix := -15;

      MoveTo(Gear.ClientWidth div 2, Gear.ClientHeight div 2);
      Gear.Canvas.LineTo(Round((r + fix) * cos(DegToRad(90 - angst * d))) + 100, round((r + fix) * sin(-DegToRad(90 - angst * d))) + 100);

      x := x.Remove(x.Length - 1);
    end;

  for var Gear in Gears do Gear.Canvas.Unlock;
end;

P.S. RadStudio 10.4

[macomics]

А вернуть значение Brush.Color/Brush.Style/Pen.Color/Pen.Width не хотите к исходному?
Сохраните исходное сначала, в конце присвойте сохраненные значения.
В функциях Rectangle/Ellipse используются все 4 значения, но вы определяете только одно из них перед вызовом первой и 3 из 4 перед второй, предполагая, что значения недостающих свойств остаются в значениях по умолчанию.

[evg_m]

чтобы что-то рисовать на экране(форме компонентах) существует Canvas.
А чтобы понять(узнать) что пора что-либо делать существуют события(Events)
Чтобы рисовать существуют события OnDraw... внутри которого и используется Canvas

[cs12]

macomics, не помогло. Я же всё равно цвет переопределяю после эллипса, он должен остаться

[macomics]

Но только цвет. Не Brush.Style

[cs12]

Идеи?

[cs12]

апап