发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: C++Builder 中大尺寸图象的显示技巧
发信站: 哈工大紫丁香 (Sun Sep  3 07:50:55 2000), 转信

- 在C++Builder 中 利 用TImage 控 件 可 以 轻 松 地 读 入 并 显 示 图 象， 但
TImage 控 件 本 身 不 可 以 接 收 输 入 焦 点， 也 没 带 有 滚 动 条， 在 显
 示 超 出 显 示 区 域 范 围 的 大 图 象 时， 需 要 对TImage 控 件 进 行 加 强
。 本 文 提 出 两 种 最 容 易 实 现 且 有 效 的 方 法， 满 足 不 同 应 用 的
 需 求。
---- 方 法 一： 增 加 滚 动 条。
---- 增 加 滚 动 条 可 以 通 过 将TImage 放 在TScrollBox 控 件 中 来 实 现。
 步 骤 如 下：
---- （1）、 在 窗 体 中 放 置 一 个TScrollBox 控 件， 调 整 好 其 尺 寸。
---- （2）、 设 置TScrollBox 控 件 的AutoScroll 属 性 为True。
---- （3）、 在TScrollBox 控 件 是 放 置 一 个TImage 控 件。
---- （4）、 设 置TImage 控 件 的 属 性：AutoSize 为True，Left 为0，Top 为0。
 经 以 上 增 强 之 后， 如 果TImage 的 图 象 比 显 示 窗 口 大， 滚 动 条 会
 自 动 出 现， 如 果 图 象 小 于 显 示 窗 口， 滚 动 条 自 动 消 失， 实 现 
了 大 图 象 的 浏 览。
---- 方 法 二： 图 象 漫 游。
---- 图 象 漫 游 是 指 不 用 滚 动 条， 通 过 键 盘 或 者 鼠 标 控 制 图 象 
的 移 动， 从 而 在 较 小 的 显 示 区 域 内 可 以 浏 览 图 象 的 任 何 部 分
。 下 面 以 鼠 标 控 制 为 例 说 明。
---- （1）、 在 窗 体 中 放 置 一 个TPanel 控 件， 调 整 好 其 尺 寸。
---- （2）、 在TPanel 控 件 是 放 置 一 个TImage 控 件。
---- （3）、 设 置TImage 控 件 的AutoSize 属 性 为True,Left 属 性 为0，Top 属
 性 为0。
---- （4）、 在TForm1 的 类 定 义 中 加 两 个 私 有 变 量: int iX0,iY0;
---- （5）、 响 应TImage 控 件 的OnMouseDown 和OnMouseMove 事 件。
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   iX0 = X;
   iY0 = Y;
}
void __fastcall TForm1::Image1MouseMove
(TObject *Sender, TShiftState Shift, int X, int Y)
{
   int iDeltaX, iDeltaY;
   if(Shift.Contains(ssLeft))
   {
      iDeltaX = X - iX0;
      iDeltaY = Y- iY0;
      if(iDeltaY)
 Image1->Left += iDeltaX;
      if(iDeltaY)
        Image1->Top += iDeltaY;
   }
}
　
---- （6）、 运 行 时 按 住 鼠 标 左 键 拖 动， 图 象 将 跟 随 移 动。
---- （7）、 如 果 通 过 键 盘 控 制， 只 需 参 考 鼠 标 控 制 的 代 码， 加
 入 键 盘 控 制 即 可。
---- （8）、 实 际 应 用 时， 根 据 需 要 加 入 边 界 限 制， 保 证 图 象 不
 会 被 移 出 显 示 区 域 之 外。
---- 以 上 两 种 方 法 在 本 人 开 发 的 软 件 当 中 多 次 应 用， 效 果 很 
好，。

--
※ 修改:．haojs 于 Sep  3 07:48:32 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]