Österliche Grüße, Gemeinde!

Vielleicht sind ja nicht alle beim Ostereier Suchen.
Mich plagt folgendes Problem, bei dem ich Hilfe von euch bräuchte:
Nehmen wir an, ich möchte einen Strassenabschnitt (oder irgendein anderes Segement, z.B. Karte) in Abhängigkeit der 'Begehungsanzahl' einfärben. D.h. jedemals wenn zehn Autos über dieses Segement gefahren sind, wird die Farbe geändert.
Sowiet auch kein Problem: Wenn die Straße initial schwarz ist, dann wird bei jedem zehntem Auto der RGB Wert folgender maße erhöht:
Farbe := RGB ( altR+10, altG+10, altB+10). D.h. die zunächst schwarze Strasse wird imm heller (Grauwert wird erhöht) bis sie schließlich weiss ist.
Mein Problem:
Ich suche ein Algorithmus, der für jede beliebige Farbe so funktioniert. D.h. wenn die Strasse initial rot ist (ClRed), dann soll nach jedem zehntem Auto sich der Farbwert so ändern, dass man als Betrachter eine 'Steigerung' sieht. D.h. bei ClRed könnte man nicht einfach alle drei Kanäle 'hochdrehen' -- mehr als R=255 geht ja dann nicht. Schlimmer noch, wenn initial mit 255, 255, 255 (ClWhite) gestartet wird.

Habt ihr eine Idee, wie man da verfahren würde?

Ich hoffe das Problem ist halbwegs klar: Zu jeder Farbe sollen meintegwegen mind. 10 andere 'gesteigerte' Farben gefunden werden. (Mit 'gesteigert' meine ich halt Farben, die sich von der initialen unterscheiden, aber eben 'stufenweise', so dass der Betrachter es als 'Steigerung' empfindet/sieht).

Sorry, etwas langatmig...
Lieben Dank vorab
Gruß, Jazzman

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

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

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.

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

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);

Teste das:

zusammenfalten · markieren

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.

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

Warum soll eine einfache Inkrementierung der Farbkanäle nicht funktionieren? Das einzige, worauf du achten müsstest, ist, dass du den Maximalwert 255 nicht überschreitest...

Edit: Klar, das Inkrementieren der Helligkeit geht in einem anderen System viel einfacher, da nur eine Komponente inkrementiert werden muss.. Aber ich glaube, dass sollte unter RGB auch funktionieren...

Edit2: Wobei blödsinn.. dürfte nicht gehen - (1, 0, 0) (rote Farbe) inkrementiert ergäbe eine ganz andere Farbe.. (und keinen helleren Rot-ton)

Folglich - wandle deine Farbe um, inkrementiere dort die Helligkeit und wandle letztendlich zurück um...

@Aphton

Nur bedingt. Kleiner Trick (ohne Gewähr), wenn man das so nennen darf, zwei Farben prozentual mischen, wobei einer der Farben Weiß ist.

//Edit:

Ich hab meine Aussage getestet und auf die Schnelle eine Funktion geprogt die zwei Farben prozentual mischt. Ist eine davon weiß, wird die Farbe heller. Nimmt man als zweite Farbe schwarz, wird es dunkler. Das Ganze scheint irgendwie zu funktionieren.

zusammenfalten · markieren

Delphi-Quellcode:

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

  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;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Color := ColorMix($000080FF, clWhite, TrackBar1.Position);
end;