Farve

Du samler den med

farve := rgb (red,green,blue)

hvor red,green,blue er byte værdier

Hvordan skiller jeg dem ad???

Procedure GetRGBValue(rgbColor : TColor; Var uiRed, uiGreen, uiBlue : Byte);
begin
  uiBlue := rgbColor and $FF;
  rgbColor := rgbColor shr 8;
  uiGreen := rgbColor and $FF;
  rgbColor := rgbColor shr 8;
  uiRed := rgbColor and $FF;
end;

Function  SetRGBValue(uiRed, uiGreen, uiBlue : Byte) : TColor;
begin
  Result := $00;  // Flag
  Result := Result shl 8;
  Result := Result or uiRed;
  Result := Result shr 8;
  Result := Result or uiGreen;
  Result := Result shr 8;
  Result := Result or uiBlue;
end;

jeg tror der er en bedre metode for hvis jeg bare skiller ad og samler igen bliver det meget rødt

Prøv at eksperimentere med den første værdi i SetRGBValue. Den kan være $00, $01 eller $02.

Du kan også udtrække den fra
GetRGBValue(...., uiFlag...);
begin
  ...
  rgbColor := rgbColor shr 8;
  uiFlag := rgbColor;
end;

Vi prøver igen (de 2 \"shr\" skulle være \"shl\")

<SNIP>
Function  SetRGBValue(uiRed, uiGreen, uiBlue : Byte) : TColor;
begin
  Result := $00;  // Flag
  Result := Result shl 8;
  Result := Result or uiRed;
  Result := Result shl 8;
  Result := Result or uiGreen;
  Result := Result shl 8;
  Result := Result or uiBlue;
end;
</SNIP>

Hvis du kombinerer de 2 svar, så virker det for mig.

Dvs.:

Procedure GetRGBValue(rgbColor : TColor; Var uiRed, uiGreen, uiBlue : Byte);
begin
  uiBlue := rgbColor and $FF;
  rgbColor := rgbColor shr 8;
  uiGreen := rgbColor and $FF;
  rgbColor := rgbColor shr 8;
  uiRed := rgbColor and $FF;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
r,g,b : byte;

farve : tcolor;
begin

farve := rgb (0,255,0);

GetRGBValue (farve,r,g,b);

form1.shape1.brush.color := rgb (r,g,b);

end;

>> pellelil - Ja så virker det også hos mig

Her har du dem begge to i en anden (måske mere læsbar) version:

procedure GetRGBValue(const Color: TColor; var Red, Green, Blue: Byte);
begin
  Blue := Color and $FF;
  Green := (Color shr 8) and $FF;
  Red := (Color shr 16) and $FF;
end;

function SetRGBValue(Red, Green, Blue: Byte): TColor;
begin
  Result := $00;  // Flag
  Result := (Result shl 8) or Red;
  Result := (Result shl 8) or Green;
  Result := (Result shl 8) or Blue;
end;

Prøve dette:
  blue:=(farve and $FF0000) shr 16;
  green:=(farve and $FF00)shr 8;
  red:=farve and $FF;

Tak for hjælpen