logo

.
Thursday 09th of September 2010    

Ankety

Co tu není dobré ?
 

Přihlášení



Provoz stránek

návštěv dnes: 29
návštěv včera: 59
návštěv za měsíc: 515
návštěv celkem: 17819

Home Tipy, triky, návody VZHLED, GRAFIKA Invertování (negativ) obrazu
Invertování (negativ) obrazu Tisk Email
Hodnocení uživatelů: / 0
NejhoršíNejlepší 
Napsal uživatel Administrator   
Úterý, 05 Květen 2009 12:28

function InvertBitmap(MyBitmap: TBitmap): TBitmap;
var
  
x, y: Integer;
  ByteArray: PByteArray;
begin
  
MyBitmap.PixelFormat := pf24Bit;
  for y := 0 to MyBitmap.Height - 1 do
  begin
    
ByteArray := MyBitmap.ScanLine[y];
    for x := 0 to MyBitmap.Width * 3 - 1 do
    begin
      
ByteArray[x] := 255 - ByteArray[x];
    end;
  end;
  Result := MyBitmap;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  
Image1.Picture.Bitmap := InvertBitmap(Image1.Picture.Bitmap);
  Image1.Refresh;
end;

Zdroj: http://www.swissdelphicenter.ch/en/showcode.php?id=1922 

 

Přidejte svůj komentář

Vaše jméno:
Titulek:
Komentář:
bottom

top

kolik vás je ?

Právě připojeni - hostů: 2 

bottom

Založeno na Joomla!. Designed by: Free Joomla 1.5 Template, dns. Valid XHTML and CSS.