0001 function varargout = VisualProp(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010 gui_Singleton = 1;
0011 gui_State = struct('gui_Name', mfilename, ...
0012 'gui_Singleton', gui_Singleton, ...
0013 'gui_OpeningFcn', @VisualProp_OpeningFcn, ...
0014 'gui_OutputFcn', @VisualProp_OutputFcn, ...
0015 'gui_LayoutFcn', [] , ...
0016 'gui_Callback', []);
0017 if nargin && ischar(varargin{1})
0018 gui_State.gui_Callback = str2func(varargin{1});
0019 end
0020
0021 if nargout
0022 [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
0023 else
0024 gui_mainfcn(gui_State, varargin{:});
0025 end
0026
0027
0028
0029
0030 function VisualProp_OpeningFcn(hObject, eventdata, handles, varargin)
0031
0032
0033
0034
0035
0036
0037
0038 handles.output = hObject;
0039
0040
0041 guidata(hObject, handles);
0042
0043
0044
0045
0046
0047
0048 function varargout = VisualProp_OutputFcn(hObject, eventdata, handles)
0049
0050
0051
0052
0053
0054
0055 varargout{1} = handles.output;
0056
0057
0058
0059 function TextColPush_Callback(hObject, eventdata, handles)
0060
0061
0062
0063 if ~isempty (getappdata(0,'TextCol'))
0064 rmappdata (0,'TextCol')
0065 else
0066 waitfor(msgbox({' Choosing text color is optional';...
0067 'You can use default properties simply by closing color panel'},...
0068 'warning','warn'));
0069 end
0070 TextCol=uisetcolor;
0071 if size(TextCol,2) == 3
0072 setappdata(0,'TextCol',TextCol)
0073 end
0074
0075
0076 function TextFontPush_Callback(hObject, eventdata, handles)
0077
0078
0079
0080 if ~isempty (getappdata(0,'TextFont'))
0081 rmappdata (0,'TextFont')
0082 else
0083 waitfor(msgbox({' Choosing text font is optional';...
0084 'You can use default properties simply by closing text panel'},...
0085 'warning','warn'));
0086 end
0087 TextFont=uisetfont;
0088 if isstruct(TextFont);
0089 setappdata(0,'TextFont',TextFont)
0090 end
0091
0092
0093 function BoxColPush_Callback(hObject, eventdata, handles)
0094
0095
0096
0097 if ~isempty (getappdata(0,'BoxtCol'))
0098 rmappdata (0,'BoxtCol')
0099 else
0100 waitfor(msgbox({' Choosing box color is optional';...
0101 'You can use default properties simply by closing color panel'},...
0102 'warning','warn'));
0103 end
0104 BoxCol=uisetcolor;
0105 if size(BoxCol,2) == 3
0106 setappdata(0,'BoxtCol',BoxCol)
0107 end
0108
0109
0110
0111 function Donepushbutton5_Callback(hObject, eventdata, handles)
0112
0113
0114
0115 close(gcf)