AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Colorpanel berechnen
Thema durchsuchen
Ansicht
Themen-Optionen

Colorpanel berechnen

Ein Thema von Pr0g · begonnen am 13. Nov 2004 · letzter Beitrag vom 20. Nov 2004
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#1

Colorpanel berechnen

  Alt 13. Nov 2004, 15:09
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
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#2

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:12
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..

Edit: Am einfachsten ist es wohl, so etwas mit einem Bildbearbeitungsprogramm zu erstellen und als Resource einzubinden.
  Mit Zitat antworten Zitat
Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#3

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:16
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?
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#4

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:20
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.
  Mit Zitat antworten Zitat
Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#5

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:24
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.
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#6

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:25
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.
  Mit Zitat antworten Zitat
Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#7

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:30
Stimmt, das sollte gehen. Dann versuch ich jetzt mal das so hinzubekommen. Danke.
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Colorpanel berechnen

  Alt 13. Nov 2004, 15:31
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));
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#9

Re: Colorpanel berechnen

  Alt 18. Nov 2004, 13:51
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
  Mit Zitat antworten Zitat
Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#10

Re: Colorpanel berechnen

  Alt 18. Nov 2004, 14:31
Danke für den Hinweis, aber ich hatte den Fehler auch schon gesehen und im Code behoben, es nur nciht mehr hier geschrieben
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz