ImageEn

TIEBitmap.Scanline Code Samples


Code samples for Scanline.
Automatically generated by the Every Method demo.
// Automated test of Scanline - Typical Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 30 );
    pPix^.G := imin( 255, pPix^.G + 30 );
    pPix^.B := imin( 255, pPix^.B + 30 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - Alpha Channel - Typical Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 30 );
    pPix^.G := imin( 255, pPix^.G + 30 );
    pPix^.B := imin( 255, pPix^.B + 30 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - 32-Bit RGBA - Typical Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 30 );
    pPix^.G := imin( 255, pPix^.G + 30 );
    pPix^.B := imin( 255, pPix^.B + 30 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - 1-bit - Typical Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 30 );
    pPix^.G := imin( 255, pPix^.G + 30 );
    pPix^.B := imin( 255, pPix^.B + 30 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - Random Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 157 );
    pPix^.G := imin( 255, pPix^.G + 157 );
    pPix^.B := imin( 255, pPix^.B + 157 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - Alpha Channel - Random Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 157 );
    pPix^.G := imin( 255, pPix^.G + 157 );
    pPix^.B := imin( 255, pPix^.B + 157 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - 32-Bit RGBA - Random Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 157 );
    pPix^.G := imin( 255, pPix^.G + 157 );
    pPix^.B := imin( 255, pPix^.B + 157 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Scanline - 1-bit - Random Values
// Scanline - Manually adjust pixel values
for iy := 0 to ImageEnView1.IEBitmap.Height - 1 do
begin
  pPix := ImageEnView1.IEBitmap.ScanLine[ iy ];
  for ix := 0 to ImageEnView1.IEBitmap.Width - 1 do
  begin
    pPix^.R := imin( 255, pPix^.R + 157 );
    pPix^.G := imin( 255, pPix^.G + 157 );
    pPix^.B := imin( 255, pPix^.B + 157 );
    inc( pPix );
  end;
end;
ImageEnView1.Update(); // Show changes in our viewer