bmp.vb

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

'**************************
' FastScript v1.0          
' Bitmap demo              
'**************************

sub MakePattern(b)
  dim i, j
  for i = 0 to b.Width - 1
    for j = 0 to b.Height - 1
      if ((i + j) mod 3) = 0 then
        b.Canvas.Pixels[i, j] = clWhite 
      else
        b.Canvas.Pixels[i, j] = clBlack
      end if
    next
  next
end sub


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