Farbcodeumwandlung

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