图片放大镜


<body onload="init()">
<div id="snapDiv">
<img src="Lighthouse.jpg" />
<span id="zoomSpan" style="display: none;"></span>
<div id="mask" class="show"></div>
</div>
<div style="display: none;" id="viewDiv">
<img id="bigImg" src="Lighthouse.jpg" />
</div>
</body>


#snapDiv { width:300px; height:300px; position:relative; margin:30px;}
#snapDiv img{width:300px;/* height:300px;*/}
#snapDiv span {
width:100px; height:100px;
background:#f00;
left:0px;top:0px;
position:absolute;
display:none;
filter:alpha(opacity:20); opacity:0.2;

}
.show {
width:100%;
height:100%;
position:absolute;
z-index:10;
cursor:move;
left:0px; top:0px;
filter:alpha(opacity:1);
opacity:0.01;
/*IE 下必须添加background属性或者 border属性,否则不会触发onmouseover事件*/
background-color:#fff;
}
#viewDiv {
width:300px; height:300px;
border:1px solid #000;
top:10px;right:10px;
position:absolute; display:none; overflow:hidden;}
#viewDiv img { position:absolute;}


function init() {

var oDiv = document.getElementById('snapDiv');
var oShow = document.getElementById('mask');
var oSpan = document.getElementById('zoomSpan');
var oImg = document.getElementById('bigImg');
var snapPic = oDiv.getElementsByTagName('img')[0];

var viewDiv = document.getElementById('viewDiv');

/*重新计算遮盖层长宽*/
oShow.style.width = snapPic.width + 'px';
oShow.style.height = snapPic.height + 'px';


oShow.onmouseover = function() {
oSpan.style.display = 'block';
viewDiv.style.display = 'block';

/* 重新定义长宽,可以确保视图里面放大的区域是一致的。
* 如果oSpan的长宽一致,则viewDiv的长宽也一致。即viewDiv.style.width = viewDiv.style.height*/
viewDiv.style.width = oSpan.offsetWidth*oImg.offsetWidth/snapPic.width + 'px';
viewDiv.style.height = oSpan.offsetHeight*oImg.offsetHeight/snapPic.height + 'px';

};
oShow.onmouseout = function() {
oSpan.style.display = 'none';
viewDiv.style.display = 'none';
};
oShow.onmousemove = function(ev) {
var oEvent = ev || event;
var x = oEvent.clientX - oDiv.offsetLeft - oSpan.offsetWidth / 2;
var y = oEvent.clientY - oDiv.offsetTop - oSpan.offsetHeight / 2;

if (x < 0) {
x = 0;
} else if (x > oShow.offsetWidth - oSpan.offsetWidth) {
x = oShow.offsetWidth - oSpan.offsetWidth;
}
if (y < 0) {
y = 0;
} else if (y > oShow.offsetHeight - oSpan.offsetHeight) {
y = oShow.offsetHeight - oSpan.offsetHeight;
}

oSpan.style.left = x + 'px';
oSpan.style.top = y + 'px';

var percentX = x / (oShow.offsetWidth - oSpan.offsetWidth);
var percentY = y / (oShow.offsetHeight - oSpan.offsetHeight);
oImg.style.left = -percentX
* (oImg.offsetWidth - viewDiv.offsetWidth) + 'px';
oImg.style.top = -percentY
* (oImg.offsetHeight - viewDiv.offsetHeight) + 'px';
};
}
Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值