TColorToRGB/de

From Lazarus wiki
Revision as of 07:23, 25 August 2013 by Olaf (talk | contribs)
Jump to navigationJump to search

Deutsch (de)


Wandelt Datentyp TColor in RGB-Farbwerte um.

Die maximalen Werte von RGB sind 255, 255, 255. Das Ergebnis ist die Farbe Weiss.
Die minimalen Werte von RGB sind 0, 0, 0. Das Ergebnis ist die Farbe Schwarz.

uses
  Graphics, Windows, ...;

...

procedure subTColorToRGB(Color: TColor; out bytR: byte; out bytG: byte; out bytB: byte);
begin
  if Color shr 24 = $FF then
    Color := GetSysColor(Color and $FF)
  else if Color shr 24 > $02 then
    Color := 0;

  bytR := Color;
  bytG := (Color shr 8);
  bytB := (Color shr 16);
end; 

...



--Olaf 16:44, 30 April 2013 (UTC)Template:Translate category