Farbexperten: Farbwerte für Segmentierung finden

[Popov]

Teste das:

Delphi-Quellcode:

function ColorMix(Col1, Col2: TColor; PercCol1: Byte): TColor;
var
  R, G, B: Integer;
begin
  if PercCol1 > 100 then PercCol1 := 100;

  Col1 := ColorToRGB(Col1);
  Col2 := ColorToRGB(Col2);

  R := Round(GetRValue(Col1) + ((GetRValue(Col2) - GetRValue(Col1)) * PercCol1 / 100));
  G := Round(GetGValue(Col1) + ((GetGValue(Col2) - GetGValue(Col1)) * PercCol1 / 100));
  B := Round(GetBValue(Col1) + ((GetBValue(Col2) - GetBValue(Col1)) * PercCol1 / 100));

  Result := RGB(R, G, B);
end;

Ich hab beide mit ColorToRGB konvertiert.

[Bummi]

Wie wäre es mit 32 Bit und der Nutzung des Alphakanals, an den Farbe müsste man nichts drehen und sich halt den Bereich suchen ab dem die Darstellung sinnvoll wird z.b: 128 - 255

[Jazzman_Marburg]

Zitat:

Zitat von Popov (Beitrag 1160678)

Teste das: ...
Ich hab beide mit ColorToRGB konvertiert.

Super! :thumb:

Das hilft mir prima weiter.

Vielen Dank auch an die anderen Tipps-und-Hilfe-Geber!

Schönen Sonntag noch.

Gruß, Jazzman