画板相关问题提问

戒卜掉思恋

目前有一个小需求,是针对画板功能的一个

实现功能:
1、通过画板呈现地图,需要有对应的缩放功能。
2、支持在画板上面画矩形,鼠标动态绘制，获取绘制[矩形X坐标,矩形Y坐标,矩形宽度,矩形高度]

需要通过鼠标点击绘制,大小由鼠标控制,大家是否有相关案例~~~~


补充内容 (2025-7-3 13:44):
有相关源码可以找我,RMB哈,非JB (●'◡'●)

补充内容 (2025-7-3 19:24):
抱歉,才发现描述有点问题,是基于图片的呈现,不是地图！

jiesansi

https://bbs.125.la/forum.php?mod ... 5%E7%9C%8B%E5%99%A8
看看这个

designer

h5的可以吗.......有个类似的

80ww

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 地图图片, 字节集
.程序集变量 缩放比例, 小数型
.程序集变量 起始X, 整数型
.程序集变量 起始Y, 整数型
.程序集变量 正在绘制, 逻辑型
.程序集变量 当前X, 整数型
.程序集变量 当前Y, 整数型

.子程序 __启动窗口_创建完毕
    ' 初始化变量
    缩放比例 ＝ 1.0
    正在绘制 ＝ 假
   
    ' 加载地图图片(这里需要替换为你的实际图片路径)
    地图图片 ＝ 读入文件("地图.bmp")
    如果(地图图片 ＝ { })
        信息框("无法加载地图图片!", 0, , )
        结束()
    .如果结束
   
    ' 设置画板属性
    画板1.自动重画 ＝ 真
    画板1.鼠标指针 ＝ #十字光标
   
    ' 绘制初始地图
    绘制地图()

.子程序 绘制地图
    ' 清除画板
    画板1.清除()
   
    ' 绘制地图(缩放后)
    .如果真 (地图图片 ≠ { })
        画板1.画图片(地图图片, 0, 0, 画板1.宽度 × 缩放比例, 画板1.高度 × 缩放比例, , , , )
    .如果真结束
   
    ' 如果正在绘制矩形，则重绘当前矩形
    .如果 (正在绘制)
        画板1.画笔颜色 ＝ #红色
        画板1.画笔宽度 ＝ 2
        画板1.画矩形(起始X, 起始Y, 当前X － 起始X, 当前Y － 起始Y)
    .如果结束

.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
    ' 开始绘制矩形
    起始X ＝ 横向位置
    起始Y ＝ 纵向位置
    当前X ＝ 横向位置
    当前Y ＝ 纵向位置
    正在绘制 ＝ 真
   
    ' 开始绘制
    绘制地图()
   
    返回 (真)

.子程序 _画板1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
    ' 结束绘制矩形
    正在绘制 ＝ 假
   
    ' 计算矩形区域
    变量 矩形宽度, 整数型
    变量 矩形高度, 整数型
   
    矩形宽度 ＝ 横向位置 － 起始X
    矩形高度 ＝ 纵向位置 － 起始Y
   
    ' 确保宽度和高度为正数
    .如果 (矩形宽度 ＜ 0)
        矩形宽度 ＝ 0 － 矩形宽度
        起始X ＝ 起始X － 矩形宽度
    .如果结束
   
    .如果 (矩形高度 ＜ 0)
        矩形高度 ＝ 0 － 矩形高度
        起始Y ＝ 起始Y － 矩形高度
    .如果结束
   
    ' 显示选择的矩形区域信息
    编辑框1.内容 ＝ "X坐标: " ＋ 到文本(起始X ÷ 缩放比例) ＋ #换行符 ＋ "Y坐标: " ＋ 到文本(起始Y ÷ 缩放比例) ＋ #换行符 ＋ "宽度: " ＋ 到文本(矩形宽度 ÷ 缩放比例) ＋ #换行符 ＋ "高度: " ＋ 到文本(矩形高度 ÷ 缩放比例)
   
    ' 重绘地图(清除矩形)
    绘制地图()
   
    返回 (真)

.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
    ' 如果正在绘制，则更新矩形大小
    .如果 (正在绘制)
        当前X ＝ 横向位置
        当前Y ＝ 纵向位置
        绘制地图()
    .如果结束
   
    返回 (真)

.子程序 _按钮放大_被单击
    ' 放大地图
    缩放比例 ＝ 缩放比例 × 1.2
    绘制地图()

.子程序 _按钮缩小_被单击
    ' 缩小地图
    缩放比例 ＝ 缩放比例 ÷ 1.2
    .如果 (缩放比例 ＜ 0.1)
        缩放比例 ＝ 0.1
    .如果结束
    绘制地图()

.子程序 _按钮重置_被单击
    ' 重置缩放比例
    缩放比例 ＝ 1.0
    绘制地图()



’"
代码目前写了
通过"放大"和"缩小"按钮可以调整地图的显示比例
点击"重置"按钮恢复原始大小
在画板上按住鼠标左键拖动可以绘制矩形选择区域
松开鼠标后会显示选择区域的坐标和尺寸信息(已根据缩放比例计算实际值)
然后你需要
地图.bmp"的图片放在程序目录下，也可以给你的雷达绘制直接写到路径。
添加一个画板组件(画板1)
添加三个按钮：放大、缩小、重置
添加一个编辑框(编辑框1)用于显示矩形区域信息

花间一壶酒

https://bbs.125.la/forum.php?mod ... 8%E7%94%BB%E6%9D%BF

看这个