farve ændring på pixel

Det er ikke så svært en TColor er en 4 byte værdi, og du skal \"bare\" læse/skrive de enkelte bytes. Her har du 2 funktioner du kan bruge:

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;

Vha. ColorToRGB(), GetRValue, GetGValue og GetBValue


Eks.

var
  R,G,B : Longint;
begin
  ...
  R := GetRValue(ColorToRGB(ClAqua));
  G := GetGValue(ColorToRGB(ClAqua));
  B := GetBValue(ColorToRGB(ClAqua));
  ...
end;

God fornøjelse
J

Beklager min fejltagelse!

Stryg ColorToRGB()!!!

Altså
Eks.

var
  R,G,B : Longint;
begin
  ...
  R := GetRValue(ClAqua);
  G := GetGValue(ClAqua);
  B := GetBValue(ClAqua);
  ...
end;

God fornøjelse
J

delphij>>

Du skal ikke stryge ColorToRGB!!!

Hvis f.eks. at du som i dit eksempel har brugt de forud-definerede farver (clAqua osv..) kan den ikke lave dem om til RGB hvis du ikke bruger ColorToRGB først.

så geek>>

Brug ColorToRGB, den er ikke altid nødvendig, men det er den nogle gange. Så for en sikkerheds skyld. Brug den :))

/SpEeDy

Den det med ColorToRGB kam man helt udelade hvis ellers man selv skriver sine funktioner til at splitte en TColor af i tre dele.

Jeg foreslår det følgende

Function RGB(r, g ,b : byte) : TColor;
asm
  and eax, $ff
  and edx, $ff
  shl edx, $08
  or eax, edx
  xor edx,edx
  mov dl,cl
  shl edx,$10
  or eax,edx
end;

Function GetRed(Color : TColor) : Byte;
asm
  lea eax, [eax]
end;

Function GetGreen(Color : TColor) : Byte;
asm
  shr eax, $8
end;

Function GetBlue(Color : TColor) : Byte;
asm
  shr eax, $10
end;

De funktioner virker også selvom at du stopper en
pre defineret farve ind i dem ...

Jens B

borrisholt>  Ro på \"mulde\", Assembler og så på en mandag  :-)

mandag morgen, tilmed FØR klokken 7 !

Jens B

Ja hvis det er SÅ TIDELIGT så må du sku\' hellere gå direkte til doktoren :-)

Jeg sidder lige og roder med noget C++ Jeg ikke rigtig kan få til at virke ... Kunne du ikke lige kigge på det ?

#Define SneVejr Skrammel
#Define SolSkin Godt


void * be_pissed()
{
  wirte_assemblerCode_in_Eksperten();
}


void main()
{
  if (Day == Mandag  && Tidspunkt == Morgen)
  {
    while (Vejr == SeeVejr)
    {
      be_pissed();
      try
      {
        do_some_thing_about_it()
      }
      except
      {
        be_pissed();
      }       
    }
    smile();
  } 
}

Jens B

Mange tak for svarende

Borris>> Genialt svar!!!  Lige noget der kan mundre lidt op en helt anden mandag..

Munter = Munder  ;>  (Den er sgu svær at tale sig fra - der er ellere ret langt fra D til T på mit tastatur..)