[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]

{YZ> Does anyone know how to "extract" the foreground and background
YZ> colours from TextAttr?
}

    Foreground := TextAttr and $0f;
    Background := (TextAttr and $f0) shr 4;

{A few days ago, I read a message from someone who was trying to extract
foreground and background colors from one Byte Variable. I have since
lost the mail packet, and forgotten the user's name, but here's a
routine that will do that anyways. Hope it gets to the person who was
asking For it......
}
Procedure GetColors(Color : Byte; Var BackGr : Byte; Var ForeGr : Byte);
begin
  BackGr := Color shr 4;
  ForeGr := Color xor (Background shl 4);
end;

[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]