procedure TDR_QM_ZP_Form.btn_ZXClick(Sender: TObject);
//图像左旋
begin
screen.Cursor := crhourglass;
my_int3 := my_int3 + 1;
FL_bmp_rotate( Original_Bmp1 , Image1.Picture.Bitmap, my_int3);
screen.Cursor := crdefault; //把鼠标指针恢复成缺省状态。
end;
my_int3 := my_int3-1; 为右旋;
|
请发表评论