2015年8月4日
delphi 图像处理 图像左旋右旋
摘要： procedure TDR_QM_ZP_Form.btn_ZXClick(Sender: TObject);//图像左旋begin screen.Cursor := crhourglass; my_int3 := my_int3 + 1; FL_bmp_rotate( Original_Bmp... 阅读全文
posted @ 2015-08-04 16:04 神奇的匹诺曹 阅读(289) 评论(0) 推荐(0) 编辑
delphi 图像处理 图像放大缩小
摘要： procedure TDR_QM_ZP_Form.btn_FDClick(Sender: TObject);//图像放大begin my_int1 := Trunc( my_int1 * 1.1); my_int2 := Trunc( my_int2 * 1.1); ... 阅读全文
posted @ 2015-08-04 15:55 神奇的匹诺曹 阅读(2531) 评论(0) 推荐(0) 编辑
delphi 图像处理 二值化
摘要： procedure TDR_QM_ZP_Form.Image_EZH( Bmp: TBitmap );var p: PByteArray; Gray, x, y: Integer;begin //设置为24位真彩色 Bmp.PixelFormat := pf24Bit; ... 阅读全文
posted @ 2015-08-04 15:54 神奇的匹诺曹 阅读(1040) 评论(0) 推荐(0) 编辑