首页| JavaScript| HTML/CSS| Matlab| PHP| Python| Java| C/C++/VC++| C#| ASP| 其他|
购买积分 购买会员 激活码充值

您现在的位置是:虫虫源码 > 其他 > Delphi 制作红绿眼镜三维立体画

Delphi 制作红绿眼镜三维立体画

  • 资源大小:37.35 kB
  • 上传时间:2021-06-30
  • 下载次数:0次
  • 浏览次数:1次
  • 资源积分:1积分
  • 标      签: Delphi源码

资 源 简 介

这是一个Delphi色彩控制方面的示例,我看上去更像是Delphi分离出红绿颜色通道,从页形成的一种立体效果,复制和修改颜色模式来实现,相关代码可参考如下:    //设置添充颜色的大小    DBitmap.Width := LBitmap.Width;    DBitmap.Height := LBitmap.Height;    vRect := Rect(0, 0, DBitmap.Width, DBitmap.Height); //获取添充区域    DBitmap.Canvas.Brush.Color := vGreen; //设置画笔颜色    DBitmap.Canvas.FillRect(vRect); //添充颜色    LBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR    LBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制    DBitmap.Canvas.Brush.Color := vRed;    DBitmap.Canvas.FillRect(vRect);    RBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR    RBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制    DBitmap.Canvas.CopyRect(vRect, LBitmap.Canvas, vRect);    DBitmap.Canvas.CopyMode := cmSrcAnd; //将复制模式改为AND    DBitmap.Canvas.CopyRect(vRect, RBitmap.Canvas, vRect);    except    Exit;    end;    Result := True;   end;

文 件 列 表

srcfans.com
Delphi 制作红绿眼镜三维立体画
Project1.cfg
Delphi 制作红绿眼镜三维立体画
Delphi 制作红绿眼镜三维立体画
1.bmp
srcfans.com

相 关 资 源

您 可 能 感 兴 趣 的

同 类 别 推 荐

VIP VIP
0.201318s