核心提示:代码调用范例: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;">
迅雷专用高速下载