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