Websikre farver

Jeg er desværre ikke skrap til Delphi (TColor og den slags).

Men algoritmen må være som:

type
  Color = record
              r,g,b : integer;
          end;

function NearOne(col : integer) : integer;

begin
  NearOne := ((col + ($33 div 2)) div $33) * $33;
end;

function Near(col : Color) : Color;

var
  res : Color;

begin
  res.r := NearOne(col.r);
  res.g := NearOne(col.g);
  res.b := NearOne(col.b);
  Near := res;
end;

Arne_V -> Læg et svar, lidt point skal du have :-)

function GetNearestWebSafeColor(aColor: TColor): TColor;
var
  I: Integer;
  RGB: Array [0..2] of Byte;
  RGBColor: TColorRef;
begin
  RGBColor := ColorToRGB(aColor);
  RGB[0] := GetRValue(RGBColor);
  RGB[1] := GetGValue(RGBColor);
  RGB[2] := GetBValue(RGBColor);
  for I := 0 to 2 do
  begin
    if (RGB[I] mod $33) > ($33 div 2) then
      RGB[I] := RGB[I] + $33 - (RGB[I] mod $33)
    else
      RGB[I] := RGB[I] - (RGB[I] mod $33);
  end;
  Result := Windows.RGB(RGB[0], RGB[1], RGB[2]);
end;

ok

Pis, der var jeg lidt for hurtig... Det var dig der skulle have 45!

http://www.eksperten.dk/spm/397650

Jeg synes da iøvrigt at min formel er pænere.

:-)

(du kunne godt bruge den i din for løkke)