{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
 Mit dem folgenden Code kann die Werte der einzelnen Farbkanale 
 (Rot, Grun, Blau) verandern. 
 So lassen sich leicht fantastische Effekte erzielen. 

 Parameter: 
 - Bitmap: TBitmap 
 Erwartet ein TBitmap auf dem die Anderungen 
 vollzogen werden sollen. 

 - Red: Integer 
 Erwartet einen Integer der den neuen Farbwert bestimmt. 
 Der Wert wird zu dem alten Farbwert addiert. 
 Betragt der Wert 0, wird keine Anderung am Farbkanal 
 vorgenommen. 

 - Green: Integer; 
 Erwartet einen Integer der den neuen Farbwert bestimmt. 
 Der Wert wird zu dem alten Farbwert addiert. 
 Betragt der Wert 0, wird keine Anderung am Farbkanal 
 vorgenommen. 

 - Blue: Integer; 
 Erwartet einen Integer der den neuen Farbwert bestimmt. 
 Der Wert wird zu dem alten Farbwert addiert. 
 Betragt der Wert 0, wird keine Anderung am Farbkanal 
 vorgenommen. 

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

 The following Code allows you to change the value of the 
 RGB-Colorchannels (Red, Green, Blue). 
 So you can simply create fantastic effects on your pictures. 

 Parameters: 
 - Bitmap: TBitmap 
 Needs a TBitmap with a picture to read the old values 
 and draw the changes. 

 - Red: Integer 
 A Integer which set the new value of the Color-channel. 
 The value will be add to the old value. 
 If the value is 0, there will be no change in the 
 Color-channel. 

 - Green: Integer; 
 A Integer which set the new value of the Color-channel. 
 The value will be add to the old value. 
 If the value is 0, there will be no change in the 
 Color-channel. 

 - Blue: integer; 
 A Integer which set the new value of the Color-channel. 
 The value will be add to the old value. 
 If the value is 0, there will be no change in the 
 Color-channel. 

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
 Saturday, 2002-09-07 
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
}


 function SetRGBChannelValue(Bitmap: TBitmap; Red, Green, Blue: Integer): Boolean;
 var
 i, j: Integer;
 rgbc: array[0..2] of Byte;
 c: TColor;
 r, g, b: Byte;
 begin
 //Wenn keine Anderungen vorgenommen werden, Vorgang beenden: 
 //If there is no change, exit: 
 if (Red = 0) and (Green = 0) and (Blue = 0) then
 begin
 Result := False;
 Exit;
 end;

 for i := 0 to Bitmap.Height do
 begin
 for j := 0 to Bitmap.Width do
 begin
 // Get the old Color 
 c := Bitmap.Canvas.Pixels[j, i];
 // Splitt the old color into the different colors: 
 rgbc[0] := GetRValue(c);
 rgbc[1] := GetGValue(c);
 rgbc[2] := GetBValue(c);

 //Check that there is no "new" color while the addition 
 //of the values: 
 if not (rgbc[0] + Red < 0) and not (rgbc[0] + Red > 255) then
 rgbc[0] := rgbc[0] + Red;
 if not (rgbc[1] + Green < 0) and not (rgbc[1] + Green > 255) then
 rgbc[1] := rgbc[1] + Green;
 if not (rgbc[2] + Blue < 0) and not (rgbc[2] + Blue > 255) then
 rgbc[2] := rgbc[2] + Blue;

 r := rgbc[0];
 g := rgbc[1];
 b := rgbc[2];

 //set the new color back to the picture: 
 Bitmap.Canvas.Pixels[j, i] := RGB(r, g, b);
 end;
 end;

 Result := True;
 end;

 //Beispiel, wie man die Funktion benutzen kann: 
//Example, how to use it: 
procedure TForm1.Button1Click(Sender: TObject);
 begin
 SetColorValue(Image1.picture.Bitmap, Spinedit1.Value, Spinedit2.Value,
 Spinedit3.Value);
 end;