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;