popup_message_snn.m

来自「神经网络的工具箱, 神经网络的工具箱,」· M 代码 · 共 37 行

function h = popup_message_snn(message, pos)

screensize = get(0, 'ScreenSize');
hsize = 200;
vsize = 100;

if (nargin <2)
   pos = [(screensize(3)-hsize)/2 (screensize(4)-vsize)/2 hsize vsize];
end

if (nargin <1)
   message = '';
end

h = figure('Position', pos, ...
           'Units', 'pixels', ...
           'ToolBar', 'none', ...
	   'MenuBar', 'none');

mes_bgcolor = get(h, 'Color');
mes_pos = [10 50 (hsize-20) (vsize-70)];
mes_uitext = uicontrol('Style', 'text', ...
		       'BackgroundColor', mes_bgcolor, ...
                       'Position', mes_pos, ...
		       'String', message);

ok_hsize = 60; ok_vsize = 20;
ok_pos = [(hsize-ok_hsize)/2 10 ok_hsize ok_vsize];
ok_cb = ['close(' num2str(h) ');'];
ok_uibutton = uicontrol('Style', 'pushbutton', ...
		      'Position', ok_pos, ...
                      'String', 'Ok', ...
		      'Callback', ok_cb);