dmsgfun.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:3k
- function figdmsg = dmsgfun(option,in2,in3)
- %DMSGFUN Message function for demos in the Wavelet Toolbox.
- % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
- % Last Revision: 12-Apr-2001.
- % Copyright 1995-2004 The MathWorks, Inc.
- % $Revision: 1.17.4.2 $
- % Tag property of objects.
- %------------------------
- tag_dmsgfig = 'Wdmsgfig';
- tag_txtinfo = 'Axe_info';
- figdmsg = wfindobj('figure','tag',tag_dmsgfig);
- switch option
- case 'create'
- % Get Globals.
- %-------------
- if isempty(figdmsg)
- Def_Btn_Height = mextglob('get','Def_Btn_Height');
- win_units = 'pixels';
- win_height = 6*Def_Btn_Height;
- pos_win = zeros(1,4);
- if nargin==3 , win_view = in3; else, win_view = NaN; end
- Screen_Size = get(0,'ScreenSize');
- defFigPos = get(0,'DefaultfigurePosition');
- if ishandle(win_view)
- old_u = get(win_view,'units');
- set(win_view,'units',win_units);
- pos_call_win = get(win_view,'Position');
- win_width = 4.5*defFigPos(3)/5;
- xleft = pos_call_win(1)+(pos_call_win(3)-win_width)/4;
- set(win_view,'units',old_u);
- pos_win = [xleft, pos_call_win(2), win_width, win_height];
- else
- win_width = defFigPos(3);
- pos_win = [ Screen_Size(3)-5-win_width ,...
- 0 ,...
- win_width ,...
- win_height ...
- ];
- end
- % if Screen_Size(4)<800 , pos_win(2) = 20; end
- axe_col = 'w';
- figdmsg = colordef('new','none');
- set(figdmsg,...
- 'MenuBar','none',...
- 'Name','Information window',...
- 'Visible','off',...
- 'Unit',win_units,...
- 'Position',pos_win,...
- 'Color',axe_col,...
- 'NumberTitle','off',...
- 'Tag',tag_dmsgfig...
- );
- bord = 10;
- p_text = [bord bord/5 win_width-2*bord win_height-2*bord/5];
- txt_Hdl = uicontrol(...
- 'Parent',figdmsg, ...
- 'Style','edit', ...
- 'Visible','off', ...
- 'Units',win_units, ...
- 'Position',p_text, ...
- 'FontWeight','bold', ...
- 'FontSize',8, ...
- 'Max',40, ...
- 'HorizontalAlignment','left',...
- 'BackgroundColor',[1 1 1], ...
- 'ForegroundColor',[0 0 0], ...
- 'Tag',tag_txtinfo ...
- );
- set([figdmsg,txt_Hdl],'units','normalized','Visible','on');
- set(figdmsg,'Name',['Message window']);
- else
- hidegui(figdmsg,'on');
- txt_Hdl = findobj(figdmsg,'Tag',tag_txtinfo);
- figure(figdmsg);
- end
- set(txt_Hdl,'String',in2);
- hidegui(figdmsg,'off');
- case 'close'
- delete(figdmsg);
- end