Hallo Alle!

Wie kann ich die Farben von Delphi nach RGB umrechnen?

hier stehts

meist kann man die Farben direkt übernehmen, ansonsten muss man Tabellenfunktionen bemühen.

Zitat von hboy:

hier stehts

meist kann man die Farben direkt übernehmen, ansonsten muss man Tabellenfunktionen bemühen.

Oh sorry da war ich noch nicht richtig wach!!

In der Code-Library hätten wir auch was: RGB -> TColor -> RGB

zusammenfalten · markieren

Delphi-Quellcode:

type TRGBColor = packed record
  case Integer of
    1 : (col: Cardinal);
    2 : (chans: Array[0..3] of byte);
end;

function AsRGB(color: TColor; DC: HDC = 0): TRGBColor;
var
  rgbc: TRGBColor absolute color;
  entry: PALETTEENTRY;
const
  cpSystemPalette = $00;
  cpActingPalette = $01;
  cpLogicalPalette = $02;
  cpGenericPalette = $08;
  cpNoColor = $1F;
  cpDefaultColor = $20;
  cpSystemColor = $FF;
begin
  case rgbc.chans[3] of
    cpGenericPalette, cpLogicalPalette:
      begin
        result.col := (rgbc.col and $00FFFFFF);
      end;

    cpNoColor, cpDefaultColor :
      begin
        result.col := rgbc.col;
      end;

    cpActingPalette :
      begin
        if (GetDeviceCaps(DC,RASTERCAPS) and RC_PALETTE) <> 0 then
        begin
          if 1 = GetPaletteEntries( GetCurrentObject(DC, OBJ_PAL),
                                    rgbc.chans[0], 1, entry) then
          begin
            result.col := $00000000;
            result.chans[0] := entry.peRed;
            result.chans[1] := entry.peGreen;
            result.chans[2] := entry.peBlue;
          end;
        end
        else
          result.col := PaletteIndex(rgbc.chans[0]);
      end;

    cpSystemPalette :
      begin
        result.col := PaletteIndex(rgbc.chans[0]);
      end;

    cpSystemColor :
      begin
        result.col := GetSysColor(rgbc.chans[0]);
      end;

  end;
end;

Soweit ohne Gewähr. Bitte vervollständigen

ich habe obiges noch etwas aufgeblasen, ich hoffe so stimmt es nun. Wahrscheinlich hab ich die Konstanten durcheinandergebracht... aber es sollte nun auch mit beliebigen Paletten funktionieren.

Vielen Dank an Euch!

Zitat von hboy:

hier stehts

meist kann man die Farben direkt übernehmen, ansonsten muss man Tabellenfunktionen bemühen.

Komisch, aber ich habe immer ein ungutes Gefühl,
wenn ich folgenden Code lese...

markieren

Delphi-Quellcode:

 function xyz(myByte : byte):longint;
         begin
         result:=myByte shl 8;
         end;

...wie auf der gelinkten Seite "hier stehts" zu lesen ist.

Wer kann meine Zweifel ein für alle mal beerdigen?
Ich bin der Meinung, daß es früher mal...

markieren

Delphi-Quellcode:

...
        result:=longint(myByte) shl 8;
        ...

...so richtig gewesen ist.

MfG mz23

Die Zweifel kann ich dir leider nicht nehmen, dazu müsste ich pauschal sagen können, als was das Byte im call stack angelegt wird. Zu meinen guten Zeiten waren das noch Vielfache von 32bit, demnach müsste das so glattgehen. Ich schau es mir eben mal an...

ps:
result:=myByte shl 8; wird zu

markieren

Delphi-Quellcode:

and EAX,$000000FF;
shl EAX, 8

Die Inhalte bleiben nach Standardaufrufkonvention (D7) in EAX...


pps. wie ich deinem Profil entnehme, bist du eher bei C++ zuhause, da bin ich mit derlei castfreien Experimenten schon des öfteren auf die Schnauze gefallen, daher ist deine Skepsis verständlich