bmp.js

脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Basic

//**************************}
//{ FastScript v1.0          }
//{ Bitmap demo              }
//{**************************/

function MakePattern(b)
{ 
  for (var i = 0; i < b.Width; i++)
    for (var j = 0; j < b.Height; j++)
      if (((i + j) % 3) == 0)
        b.Canvas.Pixels[i, j] = clWhite; else
        b.Canvas.Pixels[i, j] = clBlack;
}


  var bmp = new TBitmap;
  bmp.Width = 100;
  bmp.Height = 100;
  MakePattern(bmp);
  bmp.SaveToFile("test.bmp");
  delete bmp;
  ShowMessage("BMP file saved successfully");