Colorpanel berechnen

[Pr0g]

Hallo,

hat jemand einen Code, oder kann mir sagen, wie ich ein solches Colorpanel berechne:

http://pr0g.net/temp/colorpanel.jpg

Habe schon gesucht, aber nichts gefunden, vielleicht suche ich nach falschen Stichwörtern, gibt es einen bestimmten Namen dafür?

MfG Pr0g

[Dax]

Ich denke, von oben nach unten ändert sich die Farbe von Wird die Farbe immer schwärzer, links oben fängst mit weiss an, rechts oben hörts mit blau auf, also gleich zwei Gradiente.. :roll:

Edit: Am einfachsten ist es wohl, so etwas mit einem Bildbearbeitungsprogramm zu erstellen und als Resource einzubinden.

[Pr0g]

Meinst einfach zeilenweise nen Farbverlauf von Weiß nach Blau zeichnen und dann in jeder Zeile einen Farbwert dunkler? Ich werde es mal versuchen.

Dann wäre da aber noch ein kleines Problem. Wie berechne ich die Position des Auswahlrechtecks?

[Dax]

Tu' doch einfach das ganze in ein TImage und setze das OnMouseUp-Ereignis, dort hast du die logischen Koordinaten der Maus und kannst dein Rechteck dorthin zeichnen.

[Pr0g]

Das ist schon klar, doch es soll für ein Farbmixer sein, so wie bspw. der Windows Farbmischer. Es ist also auch möglich, die RGB Werte direkt zu ändern, dann muss erstmal mit der neuen Farbe gezeichnet werden, aber auch das Rechteck an der richtigen Stelle positioniert werden.

[Dax]

Du musst ja den Farbwert jedes einzelnen Pixels berechnen. Während dieser Berechnung checkst du einfach, ob der Farbwert des Pixels gleich dem Farbwert im Auswahlrechteck ist und setzt es dorthin.

[Pr0g]

Stimmt, das sollte gehen. Dann versuch ich jetzt mal das so hinzubekommen. Danke.

[SirThornberry]

Ist ganz einfach das ganze. Dax hasts schon richtig erklärt wies geht:

Delphi-Quellcode:

function GetBlendColor(Basecolor: TColor; Blendcolor: TColor; BlendIntensity: Byte=127): TColor;
function GetValueButMax(AValue: Real; Max: Byte): Byte;
begin
  if AValue > max then result := max else result := trunc(AValue);
end;
type
  TMyColor = record
    red: Byte;
    green: Byte;
    blue: Byte;
  end;
var  LF1, LF2: TMyColor;
begin
  LF1.red := GetRValue(Basecolor);
  LF1.green := GetGValue(Basecolor);
  LF1.blue := GetBValue(Basecolor);
  LF2.red := (LF1.red * (255-BlendIntensity) + GetRValue(Blendcolor) * BlendIntensity) div 255;
  LF2.green := (LF1.green * (255-BlendIntensity) + GetGValue(Blendcolor) * BlendIntensity) div 255;
  LF2.blue := (LF1.blue * (255-BlendIntensity) + GetBValue(Blendcolor) * BlendIntensity) div 255;  result := rgb(LF2.red, LF2.green, LF2.blue);
end;

procedure FillWithColor(ABitmap: TBitmap; ABaseColor: TColor; ADestColor1: TColor = clWhite; ADestColor2: TColor = clBlack);
var LCountX, LCountY: Integer;
    LFactorX, LFactorY: Extended;
    LTmpColor1, LTmpColor2: TColor;
begin
  LFactorX := 255 / ABitmap.Width;
  LFactorY := 255 / ABitmap.Height;
  for LCountX := 0 to ABitmap.Width - 1 do
  begin
    LTmpColor1 := GetBlendColor(ADestColor1, ABaseColor, Trunc(LCountX * LFactorX));
    for LCountY := 0 to ABitmap.Height do
    begin
      LTmpColor2 := GetBlendColor(LTmpColor1, ADestColor2, Trunc(LCountY * LFactorY));
      ABitmap.Canvas.Pixels[LCountX, LCountY] := LTmpColor2;
    end;
  end;
end;

damit das ganze wie in deinem beispiel aussieht das ganze so aufrufen:

Delphi-Quellcode:

  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
  FillWithColor(Image1.Picture.Bitmap, RGB(0, 128, 255));

[Muetze1]

Moin!

Delphi-Quellcode:

    for LCountY := 0 to ABitmap.Height - 1 do  // -1 
    begin
      LTmpColor2 := GetBlendColor(LTmpColor1, ADestColor2, Trunc(LCountY * LFactorY));
      ABitmap.Canvas.Pixels[LCountX, LCountY] := LTmpColor2;
    end;

MfG
Muetze1

[Pr0g]

Danke für den Hinweis, aber ich hatte den Fehler auch schon gesehen und im Code behoben, es nur nciht mehr hier geschrieben ;)

[Mystic]

Dieses Panel ist ein Selektor für die Werte für S (Saturation, Farbsättigung) und B (Brightness, Helligkeit) im HSB-Farbmodell. Du brauchst neben diesem Panel noch einen Balken um H (Hue, Farbton) auszuwählen.

Im Panel:
Links: S = 0%
Rechts: S = 100%
Unten: B = 0%
Oben: B = 100%

Im Balken:
Unten: H = 0°
Oben: H = 359°

Wenn du den Balken zeichnest, nimmst du den entsprechenden H Wert, 100% S und 100% B.

Für das Feld nimmst du den aktuellen H Wert aus dem Balken.

Um HSB in RGB zu konvertieren müsste sich was im Internet finden.

[Pr0g]

Den Selektor (Bild oben) haben ich ja nun schon und den Farbbalken hatte ich vorher schon, trotzdem danke ;)

[Pr0g]

Habs jetzt lang genug probiert, kann mit jemand die Ausgabe mit Hilfe von Scanline machen, bekomme es nicht hin, dass die Farben danach auch stimmen, bzw. die Verläufe sich an den gleichen Positionen befinden.

[mirage228]

Hi,

vielleicht ist das ja was für dich:
http://www.delphipraxis.net/internal...ct.php?t=31506

mfG
mirage228

[Pr0g]

Die sind mir schon wieder etwas zu groß für mein Vorhaben. Danke trotzdem.

Das mit ScanLine hat sich nun auch erledigt.