📄 wzjh39.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基 于Delphi 的 图 像 漫 游 向 晖 在 开 发 多 媒 体 应 用 中</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body style="font-size: 9pt" background="../../res/back.JPG">
<table border="0" width="100%" style="font-size: 9pt">
<tr>
<td width="100%" align="center"><strong>基 于Delphi 的 图 像 漫 游</strong></td>
</tr>
<tr>
<td width="100%" align="center">文/向晖 录入/江湖小子</td>
</tr>
<tr>
<td width="100%" align="center">1999.08.07</td>
</tr>
<tr>
<td width="100%" align="center"></td>
</tr>
</table>
<p>在 开 发 多 媒 体 应 用 中， 经 常 会 遇 到 需 要 在 有 限 区 域
内 显 示 大 图 像 的 情 况， 有 不 少 文 章 对 此 提 出 过 解 决 方
法， 如 通 过 调 用Windows 的API 函 数， 直 接 读 写 内 存 等。 这 些
方 法 有 一 定 优 点， 但 实 现 起 来 较 为 复 杂， 且 易 出 错。
笔 者 在 实 践 中 通 过 仔 细 摸 索， 利 用Delphi 的 强 大 的 面 向
对 象 可 视 化 开 发 环 境 开 发 了 一 种 交 互 式 图 像 漫 游 方
法。 <br>
<br>
Delphi 中， 鼠 标 的 消 息 响 应 是 通 过 元 件 的OnMouseDown,OnMouseUp 和OnMouseMove
事 件 实 现 的， 通 过 对 此 三 个 事 件 编 程， 可 控 制 图 像 在
有 限 区 域 内 移 动。 考 虑 到 所 移 动 的 图 像 的 边 界 应 总 在
该 区 域 外， 因 此 图 像 的 左 上 角 坐 标 应 小 于 该 区 域 对 应
坐 标， 图 像 右 下 角 坐 标 应 大 于 该 区 域 对 应 坐 标（ 除 非
图 像 大 小 比 该 区 域 小）。 <br>
<br>
具 体 方 法 为： <br>
<br>
1、 新 建 一 工 程Project1， 在Form1 中 依 次 放 入Panel1,Panel2 和Image1
元 件， 注 意Panel2 和Image1 分 别 在Panel1 和Panel2 上， 再 将 一Label1
元 件 加 入Panel2 中， 调 整Panel1 尺 寸 为 适 当 大 小， 并 修 改 各
元 件 属 性 为： <br>
<br>
元 件 属 性 名 属 性 值<br>
Panel1 BevelInner: bvRaised<br>
BevelOuter: bvNone<br>
BorderStyle: bsSingle<br>
Panel2 Align:
alClient<br>
Image1 AutoSize: True<br>
Picture: "Apple.bmp"<br>
Label1 Align:
alClient<br>
Transparent: True<br>
注 意： 此 处Label1 的 作 用 不 是 显 示 字 符， 而 是 利 用 它 响
应 鼠 标 消 息， 如 果 不 用Label1 而 直 接 利 用Image1 的 鼠 标 事 件
响 应， 则 会 由 于 其OnMouseDown 事 件 的 激 活 与Image1 的 自 身 坐
标 移 动 事 件 相 冲 突 而 使 图 象 发 生 闪 烁 甚 至 不 能 移 动。
<br>
2、 在implementation 后 加 入 变 量 声 明： <br>
<br>
origin:Tpoint;<br>
image_left:integer;<br>
image_top:integer;<br>
visa1:Tpoint; ( 鼠 标 当 前 位 置 相 对 图 象 右 下 角 的 坐 标)<br>
visa2:Tpoint; ( 鼠 标 当 前 位 置 相 对 图 象 左 上 角 的 坐 标)<br>
canmove:boolean;<br>
<br>
编 写Label1 鼠 标 响 应 事 件：<br>
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;<br>
Shift: TShiftState; X, Y: Integer);<br>
begin<br>
if Button=mbLeft then<br>
begin<br>
origin.x:=X;<br>
origin.y:=Y;<br>
image_left:=image1.left;<br>
image_top:=image1.top;<br>
visa1.x:=X-(image1.width-panel2.width+image1.left);<br>
visa1.y:=Y-(image1.height-panel2.height+image1.top);<br>
visa2.x:=X-image1.left;<br>
visa2.y:=Y-image1.top;<br>
canmove:=true;<br>
end;<br>
end;<br>
<br>
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,<br>
Y: Integer);<br>
begin<br>
if canmove then<br>
begin<br>
if Xvisa2.x then X:=visa2.x;<br>
if Yvisa2.y then Y:=visa2.y;<br>
image1.left:=image_left+(X-origin.x);<br>
image1.top:=image_top+(Y-origin.y);<br>
end;<br>
end;<br>
<br>
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;<br>
Shift: TShiftState; X, Y: Integer);<br>
begin<br>
canmove:=false;<br>
end;<br>
上 述 程 序 在Delphi 2.0 中 编 译 通 过， 经 过 扩 充 和 修 改 还 可
应 用 于 多 媒 体 数 据 库 的 图 像 显 示， 对 于 开 发 用 户 友 好
界 面 有 一 定 借 鉴 作 用。 <br>
<br>
</p>
</body>
</html>
<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {
var endstr = document.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie.length;
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -