Delphi-Quellcode:
type
RGBWerte =
record
rot, gruen, blau: int64;
end;
function RGBSplitten(
RGB: int64): RGBWerte;
begin
result.blau := trunc(
RGB / sqr(256));
RGB :=
RGB - result.blau * sqr(256);
result.gruen := trunc(
RGB / 256);
RGB :=
RGB - result.gruen;
result.rot := trunc(
RGB / 256);
end;
Auszug aus meiner Bildbearbeitung, so hab ich das gelöst. Geht wunderbar.
MfG