www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavedemo/dmsgfun.m
function figdmsg = dmsgfun(option,in2,in3) %DMSGFUN Message function for examples in the Wavelet Toolbox. % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96. % Last Revision: 23-May-2012. % Copyright 1995-2012 The MathWorks, Inc. % 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; if nargin==3 , win_view = in3; else win_view = NaN; end Screen_Size = getMonitorSize; 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',... 'Visible','off',... 'Units',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',getWavMSG('Wavelet:wavedemoMSGRF:MSG_Win')); else set(figdmsg,'HandleVisibility','on'); txt_Hdl = findobj(figdmsg,'Tag',tag_txtinfo); figure(figdmsg); end set(txt_Hdl,'String',in2); set(figdmsg,'HandleVisibility','off'); case 'close' delete(figdmsg); end