Diagramm erstellen, Linienfarbe soll sich ändern

[bitsetter]

Hallo,

das müsste auch mit einer Verhältnisgleichung gehen:

Delphi-Quellcode:

const
  Wert1: TPoint = (X: 40; Y: 130);
  Wert2: TPoint = (X: 90; Y: 90);
var
  P100: TPoint;
begin
  canvas.MoveTo(0, 100);
  canvas.LineTo(self.Width, 100);//Kontrollstrich bei 100 zum Überprüfen

  P100.Y:= 100;
  P100.X:= Wert1.X+ Round((100- Wert1.Y) * (Wert2.X- Wert1.X) / (Wert2.Y- Wert1.Y));

  canvas.MoveTo(Wert1.X, Wert1.Y);
  canvas.LineTo(P100.X, P100.Y);
  
  canvas.Pen.Color:= clRed;
  canvas.MoveTo(P100.X, P100.Y);
  canvas.LineTo(Wert2.X, Wert2.Y);