Difference between revisions of "TColorToRGB/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{TColorToRGB}} <br> Wandelt Datentyp TColor in RGB-Farbwerte um.<br> <br> Die maximalen Werte von RGB sind 255, 255, 255. Das Ergebnis ist die Farbe Weiss.<br> Die minimalen ...") |
m |
||
Line 1: | Line 1: | ||
{{TColorToRGB}} | {{TColorToRGB}} | ||
+ | <br> | ||
<br> | <br> | ||
Wandelt Datentyp TColor in RGB-Farbwerte um.<br> | Wandelt Datentyp TColor in RGB-Farbwerte um.<br> | ||
Line 29: | Line 30: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 16:44, 30 April 2013 (UTC) | --[[User:Olaf|Olaf]] 16:44, 30 April 2013 (UTC) | ||
− | [[Category:Code Parts/de]] | + | [[Category:Code Parts/de]]{{Translate category}} |
Revision as of 08:23, 25 August 2013
│
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