Farbexperten: Farbwerte für Segmentierung finden

[Jazzman_Marburg]

Zitat von Popov:

Guck dir den Thread mal an: http://www.delphipraxis.net/88775-fa...eraendern.html

Ja, das sieht ja schon sehr interessant aus -- leider bekomme ich stahlis Projekt nicht zum Laufen:
Mit dem Farbdialog wähle ich eine Farbe, Panel1 übernimmt die Farbe, aber ein Hin-und-Her an der TrackBar verändert nix.

Hat das jamand ans Laufen bekommen?
(Ich mache bestimmt was falsch -- ich zweifle nicht an stahlis Projekt.)

Vielen Dank erstmal -- dieser Hinweis ist vielversprechend!

Gruß
Jazzman

[Popov]

Ja, ich hab es zum laufen gekriegt. Das Ganze ist leicht komplex. Da sind paar Beispiele vereint.

Aber teste mal zuerst mein Beispiel. Vielleicht reicht das schon.

[Jazzman_Marburg]

Zitat von Popov:

Aber teste mal zuerst mein Beispiel. Vielleicht reicht das schon.

Fast!
Das ist ein gutes Beispiel -- vielen Dank -- aber leider nur fast:
Also wenn ich als StartFarbe sowas wie ClYellow, oder ClGreen habe, und als ZielFarbe ClRed funktioniert es ganz wunderbar!
Aber, sobald ich als StartFrabe sowas wie clActiveCaption, oder clGradientInactiveCaption und der gleichen ZielFarbe (ClRed) habe, dann gehts es nimmer so gut: Es startet dann mit Schwarz und geht allmählich ins Rot -- aber ClActiveCaption ist ja nicht Schwarz.
Woher kommt die Farbe Schwarz als StartFarbe sobald es um diese Farben wie clGradientInactiveCaption geht?

Danke!
Jazzman

[Namenloser]

Das liegt daran, dass solche Systemfarben das folgende Format haben:
$XX000000, wobei XX auf den Paletteneintrag verweist.

Wenn du den tatsächlichen Farbwert brauchst, musst du ColorToRGB verwenden. Z.B. ColorToRGB(clActiveCaption);

[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.

[Jazzman_Marburg]

Zitat von Popov:

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

Super!

Das hilft mir prima weiter.

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

Schönen Sonntag noch.

Gruß, Jazzman

[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