Farbcodeumwandlung

[Tim-94]

Hallo ich habe drei Fargen, es wäre schön, wenn ihr sie mir noch heute beantworten könntet :-D

Frage1:

Ich benötige einen Code um eine Hexafarbe in RGB umzuwandeln.


Frage2:

Ich benötige einen Code um eine Hexafarbe in eine TColorfarbe umzuwandeln.


Frage3:

Ich benötige einen Code um eine RGBfarbe in eine TColorfarbe umzuwandeln.

[taaktaak]

Was ist eine Hexafarbe?

[Grolle]

Hi,

mit Hilfe der Suche findet man z. B.:
http://www.delphipraxis.net/internal...ght=hextocolor

Viele Grüße ...

[Valle]

Gibt's alles hier. ;-)

@taaktaak: $1973DE4E

Mit freundlichen Grüßen,

Valle

[taaktaak]

Aha, das ist eine Hexafarbe.
Kenne zwar Latexfarbe, Acrylfarbe...
aber Hexafarbe kannte ich noch nicht
:mrgreen:

[Tim-94]

Ja ich kenn mich damit noch nich so aus!

[Tim-94]

jetzt bräuchte ich noch einen code um eine rgb farbe in eine TColorfarbe (für Delphi, z.b.: Panel1.Color) umzuwandeln :-D

[Helmi]

Hallo,

wie wärs mit

Delphi-Quellcode:

Panel1.Color := RGB($FF, $FF, $CC);

?

[Namenloser]

Zitat:

Zitat von Tim-94

jetzt bräuchte ich noch einen code um eine rgb farbe in eine TColorfarbe (für Delphi, z.b.: Panel1.Color) umzuwandeln :-D

Es gibt keinen Unterschied zwischen "RGB-Farbe" und "Hex-Farbe". Das sind nur verschiedene Darstellungsweisen. Beide Darstellungsformen sind 24bit (= 3 Byte) Wertgroß, mit jeweils 8 Bit (=1 byte) für jede Farbkomponente. Der Typ TColor in Delphi ist allerdings 32 Bit groß, weil noch die zusätzliche Information darüber benötigt wird, ob es sich um eine Systemfarbe (wie z.B. clBtnFace) handelt, und weil es einfacher ist, mit 32 Bit großen Werten zu hantieren (auf einem 32-Bit-System).

Wie du das ganze aber darstellst, ist Geschmackssache, denn im Grunde ist alles nur eine Folge aus "Nullen und Einsen" (ich hasse den Ausdruck).

[Tim-94]

Jo danke schonmal ich probier noch ein bisschen rum :-D

[Cyf]

TColor ist wenn ichs grad richtig im Kopf hab auch nur so aufgebaut (wobei es glaube ich sogar fertige Funktionen/Cast zum umwandeln egeben könnte):

Delphi-Quellcode:

TColorRecord = record
  NULL: Byte // ist 0
  Blue: Byte
  Green: Byte
  Red: Byte
end;

Also einfach nur Blau und Rot vertauscht.

[Namenloser]

Ist das nicht

Delphi-Quellcode:

TColorRecord = record
  R,
  G,
  B,
  A: byte;
end;

?

Ich meine da wäre wieder irgendwas mit Endian gewesen... aber ich kann mir das eh nie merken :wall:

Btw, zum ermitteln bestimmter Komponenten gibt es die Funktionen GetRValue, GetGValue und GetBValue: Man sollte aber vorher mit der Funktion ColorToRGB sichergehen, dass man auch wirklich eine RGB-Farbe hat, und keine Systemfarbe (denn die werden eben anders gespeichert, wie ich in meinem letzten beitrag beschrieben habe).

[Cyf]

Ja hast recht, das war falsch von mir.

Kleiner Test:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
type
  ColorBytes = array[0..3] of Byte;

var
  aColor: TColor;

  procedure ShowBytes;
  var
    i: Byte;
  begin
    for i := 0 to 3 do
    begin
      Showmessage(IntToStr(ColorBytes(aColor)[i]));
    end;
    Showmessage('----------------------');
  end;

begin
  aColor:= clRed;
  ShowBytes;
  aColor:= clBlue;
  ShowBytes;
  aColor:= clGreen;
  ShowBytes;
end;