Einzelnen Beitrag anzeigen

cyberblast

Registriert seit: 17. Jun 2005
19 Beiträge
 
Delphi 7 Enterprise
 
#23

Re: 8 bit Color Byte zu 24 bit Farbe umrechnen

  Alt 27. Sep 2005, 16:05
Habe ich schon probiert, dabei werden die orangen vierecke blau respektive grün, die reihenfolge stimmt also...

Ich habe noch dieses probiert:

Delphi-Quellcode:

     r := ((AColor and $07) shl 1) * 16;
     g := ((AColor and $38) shr 2) * 16;
     b := ((AColor and $C0) shr 4) * 16;
     result := RGB(r, g, b);
Resultat siehe bild...
Miniaturansicht angehängter Grafiken
untitled3_507.jpg  
  Mit Zitat antworten Zitat