IDL_GUI

菜单栏设计
PRO IDLGui;构建界面;显示;添加事件tlb=WIDGET_BASE(xsize=400,ysize=400,/column,mbar=mbar);实现基类file=WIDGET_BUTTON(mbar, $  ；新建button，value='文件')open=widget_button(file,value='打开',/menu)jpg=widget_button(open,value='jpg')exist=widget_button(file,value='退出',/SEPARATOR)WIDGET_CONTROL,tlb,/realize
END
效果------------------------------------》定义一个界面并赋予事件过程idlgui.pro
PRO IDLGui_event,event  ;_event:程序关联
if(tag_names(event,/STRUCTURE_NAME) eq 'WIDGET_KILL_REQUEST') then beginresult=DIALOG_MESSAGE("是否关闭",/QUESTION)CASE (result) OF'Yes': BEGINWIDGET_CONTROL,event.TOP,/DESTROYreturnEND'No': BEGINRETURNENDELSE: BEGINENDENDCASE
endif;print,'now here'uname=WIDGET_INFO(event.ID,/uname);help,event,PRINT,'Now, you clicked '+uname;获取变量WIDGET_CONTROL,event.TOP,GET_UVALUE=ptrCASE (uname) OF'open': BEGINfile=DIALOG_PICKFILE(FILTER='*.jpg',path=(*ptr).path,GET_PATH=path2);;get_path：记住当前选中的路径然后赋值给path(*ptr).path=path2WIDGET_CONTROL,(*ptr).BTTEXT,SET_VALUE=file;设置值bttextEND'show': BEGINWIDGET_CONTROL,(*ptr).BTTEXT,GET_VALUE=file;READ_JPEG,file,datawset,(*ptr).wind;设置当前窗口TVSCL,data,/true;tv只认当前窗口END'exit': BEGINwidget_control,event.top,/DESTROY;销毁ENDENDCASEENDPRO IDLGui;构建界面;显示;添加事件COMPILE_OPT idl2tlb=WIDGET_BASE(/column,mbar=mbar,/TLB_KILL_REQUEST_EVENTS);实现基类  xsize=400,ysize=400,file=WIDGET_BUTTON(mbar, $  ；新建button，value='文件')open=WIDGET_BUTTON(file,value='打开',/menu,uname='open')jpg=WIDGET_BUTTON(open,value='jpg',uname='open')exist=WIDGET_BUTTON(file,value='退出',/SEPARATOR,uname='exit');工具栏---带有系统图标的，如果是外部的图片用绝对路径btbase=WIDGET_BASE(tlb,/row)btOpen=WIDGET_BUTTON(btbase,value='open.bmp',/BITMAP,uname='open')btshow=WIDGET_BUTTON(btbase,value='advanced.bmp',/BITMAP,uname='show');文本框bttext=WIDGET_TEXT(btbase,XSIZE=70)dbase=WIDGET_BASE(tlb,/row)draw=WIDGET_DRAW(dbase,xsize=500,ysize=500);居中DEVICE,GET_SCREEN_SIZE=screen_size;得到屏幕大小result=WIDGET_INFO(tlb,/geometry);得到窗体的几何信息;help,result;计算窗体两边的偏移量offset=[screen_size[0]-result.SCR_XSIZE,screen_size[1]-result.SCR_YSIZE]/2;将得到的偏移量应用到应用程序WIDGET_CONTROL,tlb,xoffset=offset[0],yoffset=offset[1],/realizewidget_control,draw,GET_VALUE=wind;传递变量---结构体+指针pstate={bttext:bttext,$wind:wind,  $path:''}ptr=PTR_NEW(pstate,/NO_COPY)WIDGET_CONTROL,tlb,SET_UVALUE=ptr;事件Xmanager,'IDLGui',tlb ,/no_block;no_block----idl命令行失效,xmanager在最上面定义event
END
效果