核心提示：代码调用范例：procedure TForm30.Button1Click(Sender: TObject);var bmp: TBitmap; c2g: TColor2Grayscale; ba:...
代码调用范例：
procedure TForm30.Button1Click(Sender: TObject);
var
bmp: TBitmap; c2g: TColor2Grayscale; ba: TBitmapAccess;
begin
bmp := TBitmap.Create;
try
bmp.LoadFromFile('DSC00079.bmp');
Image1.Picture.Assign(bmp);
c2g := TColor2Grayscale(rdgrpAlgorithm.ItemIndex);
ba := TBitmapAccess(rdgrpBmpAccess.ItemIndex);
ToGray(bmp, c2g, ba);
Image2.Picture.Assign(bmp);
finally
bmp.Free;
end;
end;
600) this.width = 600;">
迅雷专用高速下载
