was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

34 Visitors Online


 
...die Farbkanäle einer Bitmap ändern?
Autor: Horst Kniebusch
Homepage: http://www.the-admin.de.vu
[ Tip ausdrucken ]  

Tip Bewertung (11):  
     


{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 Mit dem folgenden Code kann die Werte der einzelnen Farbkanäle
 (Rot, Grün, Blau) verändern.
 So lassen sich leicht fantastische Effekte erzielen.

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

   - Red: Integer
      Erwartet einen Integer der den neuen Farbwert bestimmt.
      Der Wert wird zu dem alten Farbwert addiert.
      Beträgt der Wert 0, wird keine Änderung am Farbkanal
      vorgenommen.

    - Green: Integer;
       Erwartet einen Integer der den neuen Farbwert bestimmt.
       Der Wert wird zu dem alten Farbwert addiert.
       Beträgt der Wert 0, wird keine Änderung am Farbkanal
       vorgenommen.

     - Blue: Integer;
        Erwartet einen Integer der den neuen Farbwert bestimmt.
        Der Wert wird zu dem alten Farbwert addiert.
        Beträgt der Wert 0, wird keine Änderung 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 Änderungen 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;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners