【IDL】鼠标信息显示界面（同理可实现鹰眼图等）

合集 - 地理遥感生态网地理数据集5(100)
1.利用SuperView数据基于ENVI深度学习进行建筑物提取2.ENVI发布深度学习产品：ENVI Deep Learning Module3.澳大利亚市政局利用ENVI深度学习进行树木调查4.ENVI软件系列产品体系结构5.ENVI新机器学习：ENVITask 使用说明6.ENVI新机器学习：随机森林遥感分类工具操作手册7.ENVI新机器学习：异常探测分类工具操作手册8.新机器学习遥感分类工具9.ENVI深度学习2.0新特性10.IDL封装百度翻译API实现自动翻译和语种识别11.使用IDL进行氚羽流监测（五）—绘制污染物扩散带等值线图12.使用DL进行氚羽流监测（四）——绘制预期氚衰变图13.使用IDL进行氚羽流监测（三）——绘制含水层相对流速14.使用IDL进行氚羽流监测（二）——绘制3D地形和地下水位15.使用IDL进行氚羽流监测（一）——对研究区和环境进行建模16.【IDL】IDL8.8 安装中文语言包方法17.【IDL】IDL 8.7.1机器学习框架18.【IDL】IDL 8.7.1 新特性19.【IDL】获取參边形的最小外接矩形20.【IDL】图形保存图片时文字变黑块的临时解决方法21.【IDL】控制台使用Alt+/代码补全快捷键的方法22.【IDL】IDL 8.6新功能23.【IDL】 程序发布exe清晰步骤24.【IDL） 64位IDL中调用32位功能的方法25.【IDL】 去掉黄色警告图标的方法26.【IDL】 重写HDF文件中数据集的方法27.【IDL】无法使用格式快捷键的解决办法（Ctrl+ Shift+F）28.【IDL】IDL 8.5 中的颜色选择对话框29.【IDL】IDL 8.5 中的 Python Bridge30.【IDL】 开发环境（工作台）的语言切换万法31.【IDL】IDL8.4 文件监视系统体验32.【IDL】 批处理遇到错误时处理方法33.【IDL】开发游戏"2048"34.【IDL】IDL 8.4新特性介绍35.【IDL】IDL中乱码问题的解决方法36.【IDL】 自动构建泰森多边形（Voronoi Polygon）37.【IDL】 IDL 8.3 的新特性与新功能38.【IDL】 IDL 8.3 新功館39.2013开发竞赛ENV/IDL组作品欣赏——“伪装目标识别系统”40.【IDL】多元线性回归计算方法41.【IDL】 关键字继承42.【IDL】调用6S.exe生成查找表源码43.【IDL】使用WIDGET_TIMER进行动画控制44.【IDL】路径相关函数和方法汇总45.【IDL】绘图组件打开鼠标拖拽文件的方法46.【IDL】遠取文本中三維数組的方法47.【IDL】 IDL 8.2.2（SP2）新特性48.【IDL】IDL程序发布方法总结49.【IDL】宏命令菜单（Macros）的用处50.【IDL】 使用SPAWN启动路径中带有空格的文件51.【IDL】 实现双重排序功能（更新降序）52.【IDL】 C#调用ENVL_FX_SEGMENTONLY_DOIT需要注意的地方53.【IDL】 IDL 8.2 新增视频对象IDLffVideoWrite用法示例54.【IDL】生成等差/等比数列的方法55.【IDL】 判断双精度变量是合EQ56.【IDL】 File_Search函数用法详解57.【IDL】坐标轴中文标题乱码问题58.【IDL】C#调用IDL编写界面（含事件）的问题59.《IDL程序设计—数据可视化与ENV二次开发》目录60.《IDL程序设计—数据可视化与ENVI二次开发》已由高等教育出版社正式出版61.IDL Viewer 应用模版介绍（版本号更新为1.2）62.【IDL】日期和时间函数63.【IDL】数组求交集、并集和差集的函数64.【IL】IDL 8.2 新特性65.【IDL】 气象可视化程序配置（idL_guide5）66.【转】几个IDL在线教程网址67.【IDL】医学中IDL的应用68.【IDL】气象中IDL的应用69.【IDL】SIZE函数使用方法与参数含义详解70.【IDL】 DICOM扩展模块71.【IDL】几何图形数学运算函数72.【IDL】 弹出界面事件响应示例程序
73.【IDL】鼠标信息显示界面（同理可实现鹰眼图等）
74.【IDL】 IDL与C#混合编程技术75.【IDL〕编写程序启动界面76.【IDL】获取n*n数组的对角线元素的方法77.【IDL】同时显示不同分辨率图像的方法78.【IDL】帮助科学家了解太阳系的形成79.【IDL】 Polyval函数（多项式的估值）80.【IDL】 数组下标转换一维坐标索引函数：array_indices_reverse81.【IDL】数据处理时遇到了NAN怎么办82.ENVI二次开发时的波段运算表达式语句合理性检测方法与ENVI检测方法探讨83.【IDL】编写高效率的IDL程序84.【IDL】实现ENVI默认显示效果（线性拉伸算法）85.【IDL】双视图关联示例86.【IDL】图像真彩色、假彩色和伪彩色显示87.【IDL】国外学习与开源网站汇总88.【IDL】 如何保存IDL绘制的图像或图形89.【IDL】学习书籍《Modern IDL》90.【IDL】 读写Excel的方法总结91.【IDL】 绘制颜色棒 （colorbar）92.【IDL】 IDL8.1新功能介绍93.【IDL】 讨论浮点运算精度问题 （IDL与Excef和Matlab相比）94.【IDL】 图像显示程序（直接图形法与对象图形法混合显示）95.【IDL】 IDL Advanced及其详细功能介绍96.【IDL】自定义鼠标光标样式（直接图形法与对象图形法）97.【IDL】多条件判断的另类写法（case代替i）98.2014年IDL培训班素材包及录屏共享99.IDL中开发游戏“2048”100.ENVI 6.0自助试用许可开放申请
收起

IDL实现程序界面时，很多时候需要实现鼠标当前值的显示，即那个鼠标信息时时显示小窗体。

很多时候初学者想不明白，咋着能时时显示那个鼠标信息呢。

参考下面的代码，知识点如下：

1、界面构建（菜单、按钮、文本框、显示区域）

2、界面中鼠标与键盘的事件响应（事件判断）

3、界面由鼠标修改大小（位置计算，组件修改）

4、界面关闭确认（判断关闭事件，确认是否关闭）

5、鼠标信息显示功能（时时显示鼠标位置坐标）

 

附代码：

;+
;2010年7月北京IDL培训班-示例代码
;
;
; Author: DYQ 2010-7-8;
;  Modified By DYQ：2011年12月15日
;          添加鼠标信息显示界面
; BBS： http://bbs.esrichina-bj.cn/ESRI/forum-28-1.html
; E-Mail: dongyq@esrichina-bj.cn
; Blog: http://hi.baidu.com/dyqwrp
;-
 
; 事件响应程序
PRO  TEST_EVENTS_EVENT, event
  ;获得顶base的uvalue，即组件信息指针结构体
  WIDGET_CONTROL,event.TOP,get_uvalue=pstate 
  CASE TAG_NAMES(event,/STRUCTURE_NAME) OF
   ;关闭事件
   'WIDGET_KILL_REQUEST': BEGIN
     tmp = DIALOG_MESSAGE('确认关闭？',$
       title ='关闭系统',/question)
     IF tmp EQ 'Yes' THEN BEGIN
       ;注意销毁之前创建的指针
       WIDGET_CONTROL,event.TOP,get_uValue = pState
       PTR_FREE, pState
       ;销毁界面
       WIDGET_CONTROL,event.TOP,/destroy
       RETURN
     ENDIF
     RETURN
   END
   ;draw区域
   'WIDGET_DRAW': BEGIN   
     CASE event.TYPE OF
       ;注意不同的类型对应的不同的事件
       ;键盘和鼠标等各自事件的结构体内容不一定一致的
       0: BEGIN
         PRINT,event.PRESS
         IF(event.PRESS AND 1) NE 0 THEN BEGIN
           WIDGET_CONTROL,(*pstate).TEXT1,set_value='左键按下'
         ENDIF
         IF(event.PRESS AND 2) NE 0 THEN BEGIN
           WIDGET_CONTROL,(*pstate).TEXT1,set_value='中键按下'
         ENDIF
         IF(event.PRESS AND 4) NE 0 THEN BEGIN
           WIDGET_CONTROL,(*pstate).TEXT1,set_value='右键按下'
         ENDIF
       END
       1: BEGIN
         IF(event.RELEASE AND 1) NE 0 THEN BEGIN
           WIDGET_CONTROL,(*pstate).TEXT1,set_value='左键释放'
         ENDIF
         IF(event.RELEASE AND 2) NE 0 THEN BEGIN
           WIDGET_CONTROL,(*pstate).TEXT1,set_value='中键释放'
         ENDIF
         IF(event.RELEASE AND 4) NE 0 THEN BEGIN
           WIDGET_CONTROL,(*pstate).TEXT1,set_value='右键释放'
         ENDIF
       END
       2: BEGIN
         WIDGET_CONTROL,(*pstate).TEXT1,set_value='鼠标移动'
         ;鼠标位置
         WIDGET_CONTROL,(*pState).WSHOWXY, set_Value = ' 鼠标位置：X'+STRTRIM(event.X,2)+' Y'+STRTRIM(event.Y,2)
       END
       3: BEGIN
       
       END
       
       4: BEGIN
         WIDGET_CONTROL,(*pstate).TEXT1,set_value='暴露事件'
       END
       5: BEGIN
         WIDGET_CONTROL,(*pstate).TEXT1,set_value = 'ch = ' +STRTRIM(STRING(event.CH),2)
       END
       6: BEGIN
         IF event.KEY EQ 1 THEN BEGIN
           PRINT,event.CH
         END
       END
       7: BEGIN
         IF event.CLICKS GT 0 THEN WIDGET_CONTROL,(*pstate).TEXT1,set_value='滚轮前滚' $
         ELSE  WIDGET_CONTROL,(*pstate).TEXT1,set_value='滚轮后滚'
       END
       ELSE: PRINT,event.TYPE
     ENDCASE
   END
   ELSE:
  ENDCASE
  uName = WIDGET_INFO(event.ID,/uname)
 
  IF uName EQ 'button' THEN BEGIN
   ;tmp = DIALOG_MESSAGE('信息', /Info)
   tmp = DIALOG_MESSAGE((*pState).TESTSTR,/Infor)
  ENDIF
  ;设置大小
  IF uName EQ 'tlb' THEN BEGIN
   ;显示组件大小适应程序大小
   drawXSize = event.X -(*pState).DRAWSPACE[0]
   drawYSize = event.Y -(*pState).DRAWSPACE[1]
   ;设置tlb大小(可忽略，因Draw组件后面已经设置了大小)
   WIDGET_CONTROL,event.TOP,xSize = event.X,ySize = event.Y
   ;设置显示组件的大小
   WIDGET_CONTROL,(*pState).MYDRAW,xsize = drawXSize, ySize = drawYSize
   ;适应性显示
   TVSCL,CONGRID(DIST(400),drawXSize,drawYSize)
  ENDIF
END
;
PRO TEST_MOUSE_EVENTS
 
  ; 创建一个主Base窗体
  tlb = WIDGET_BASE(TITLE='窗口事件演示', $
   xoffset =200, $
   yOffset =100, $
   mBar = mBar , $
   uname ='tlb', $
   /COLUMN, $
   ;重设置大小时产生事件
   /TLB_SIZE_EVENTS,$
   ;关闭时产生事件
   /TLB_KILL_REQUEST_EVENTS)
  ;创建系统菜单
  wFile = WIDGET_BUTTON(mbar,value = '文件(&F)')
  ; 创建一个按钮
  base1=WIDGET_BASE(tlb,/row)
  label1=WIDGET_LABEL(base1,$
   value='当前窗口事件：')
  text1=WIDGET_TEXT(base1, $
   xSize =10)
  button = WIDGET_BUTTON(base1,$
   value ='按钮', $
   uName ='button')
  mydraw=WIDGET_DRAW(tlb,$
   retain=1,$
   ;设置大小
   xsize=400,$
   ysize=400,$
   ;滚轮时产生事件
   /wheel_events,$
   ;按钮时产生事件
   /button_events,$
   ;暴露（从遮挡到最前显示时）时产生事件
   /expose_events,$
   ;鼠标移动时产生事件
   /motion_events,$
   ;键盘敲击时事件
   keyboard_events = 2,$
   ;设置组件的uName，及名字，以便组件的区分及调用。
   uname='mydraw')
  WIDGET_CONTROL, tlb, /REALIZE
  ;创建鼠标信息窗体
  wInfoBase = WIDGET_BASE($
   group_leader =tlb,$
   xsize = 200, $
   /floating,$
   title = '信息界面',$
   ySize = 25 )
  wShowXY = WIDGET_LABEL(wInfoBase,$
   xsize = 190,$
   value=' 鼠标位置：')
  ; 初始化它们
  WIDGET_CONTROL, wInfoBase, /REALIZE
  ;获取组件的大小信息
  sz = WIDGET_INFO(tlb,/geom)
  PRINT,sz.XSIZE
  PRINT,sz.YSIZE
  drawSZ = WIDGET_INFO(myDraw,/geom)
  ;显示区域与主界面的边界间隔
  drawSpace = [sz.XSIZE,sz.YSIZE] - [drawSZ.XSIZE,drawSZ.YSIZE]
  ;是否显示伪彩色 
  DEVICE, decomposed =0
  ;载入系统颜色表
  LOADCT,23
  ;显示一个400*400的方形图像
  TVSCL,DIST(400)
  ;创建结构体，包含各个组件ID
  state={label1:label1,$
   text1:text1,$
   drawSpace: drawSpace, $
   testStr  : '程序初始字符串，',$
   wShowXY: wShowXY,$
   mydraw:mydraw}
  ;创建指针
  pstate=PTR_NEW(state,/no_copy)
  ;将指针信息存到tlb的uvalue中保存
  WIDGET_CONTROL,tlb,set_uvalue=pstate
  ;关联产生事件
  XMANAGER, 'test_events', tlb,/NO_BLOCK
;也可用这个方式:直接指定事件程序,event_handler ='abc'
END

 

 

posted @   地理遥感生态网平台  阅读(10)  评论(0)  编辑  收藏  举报
相关博文：
·  【IDL】自定义鼠标光标样式（直接图形法与对象图形法）
·  【IDL】 图像显示程序（直接图形法与对象图形法混合显示）
·  【IDL】鼠标信息显示界面（同理可实现鹰眼图等）
·  【IDL】自定义鼠标光标样式（直接图形法与对象图形法）
·  【IDL】IDL与C#混合编程技术
阅读排行：
· winform 绘制太阳，地球，月球 运作规律
· AI与.NET技术实操系列（五）：向量存储与相似性搜索在 .NET 中的实现
· 超详细：普通电脑也行Windows部署deepseek R1训练数据并当服务器共享给他人
· 【硬核科普】Trae如何「偷看」你的代码？零基础破解AI编程运行原理
· 上周热点回顾（3.3-3.9）
点击右上角即可分享
微信分享提示
AI IDE Trae