procedure TForm1.Button3Click(Sender: TObject);
var I, J: Integer; B: TBitmap;
begin
B := TBitmap.Create;
for I := 0 to Image1.Picture.Bitmap.Height - 1 do
for J := 0 to Image1.Picture.Bitmap.Width - 1 do
B.Canvas.Pixels[J, I] :=
RGB(
GetRValue(Image1.Picture.Bitmap.Canvas.Pixels[J, I]) div 2,
GetGValue(Image1.Picture.Bitmap.Canvas.Pixels[J, I]) div 2,
GetBValue(Image1.Picture.Bitmap.Canvas.Pixels[J, I]) div 2
);
Image1.Picture.Bitmap := B;
B.Free;
end;
Jak wywołam to obrazek znika. Chodzi mi o to żeby obrazek był bledszy. Czemu to nie działa?