gui_cor_open.html

mri_toolbox是一个工具用来MRI. 来自于SourceForge, 我上传这个软件,希望能结识对医疗软件感兴趣的兄弟.

0097 
0098 <span class="keyword">return</span>
0099 
0100 
0101 
0102 <span class="comment">%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span>
0103 <span class="comment">%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span>
0104 <a name="_sub1" href="#_subfunctions" class="code">function [MRIOpen] = INIT(mri,parent)</a>
0105     <span class="comment">% GUI General Parameters</span>
0106     
0107     GUIwidth  = 500;
0108     GUIheight = 120;
0109     
0110     version = <span class="string">'$Revision: 1.2 $'</span>;
0111     name = sprintf(<span class="string">'FreeSurfer COR File Open [v %s]\n'</span>,version(11:15));
0112     
0113     GUI = figure(<span class="string">'Name'</span>,name,<span class="string">'Tag'</span>,<span class="string">'COR_OPEN'</span>,<span class="keyword">...</span>
0114                  <span class="string">'NumberTitle'</span>,<span class="string">'off'</span>,<span class="keyword">...</span>
0115                  <span class="string">'MenuBar'</span>,<span class="string">'none'</span>,<span class="string">'Position'</span>,[1 1 GUIwidth GUIheight]);
0116     movegui(GUI,<span class="string">'center'</span>);
0117     
0118     Font.FontName   = <span class="string">'Helvetica'</span>;
0119     Font.FontUnits  = <span class="string">'Pixels'</span>;
0120     Font.FontSize   = 12;
0121     Font.FontWeight = <span class="string">'normal'</span>;
0122     Font.FontAngle  = <span class="string">'normal'</span>;
0123     
0124     <span class="comment">%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span>
0125     <span class="comment">% Voltage Data Selection and Parameters</span>
0126 
0127     G.Title_data = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'text'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font, <span class="keyword">...</span>
0128         <span class="string">'Position'</span>,[.01 .75 .17 .2],<span class="keyword">...</span>
0129         <span class="string">'String'</span>,<span class="string">'Data Type:'</span>,<span class="string">'HorizontalAlignment'</span>,<span class="string">'left'</span>);
0130     
0131     mri.type = <span class="string">'FreeSurfer COR'</span>;
0132     G.PmriType = uicontrol(<span class="string">'Tag'</span>,<span class="string">'PmriType'</span>,<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'edit'</span>,<span class="keyword">...</span>
0133         <span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font,  <span class="keyword">...</span>
0134         <span class="string">'Position'</span>,[.20 .75 .25 .2],<span class="keyword">...</span>
0135         <span class="string">'String'</span>,mri.type);
0136     
0137     G.Title_path = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'text'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font, <span class="keyword">...</span>
0138         <span class="string">'Position'</span>,[.01 .50 .17 .2],<span class="keyword">...</span>
0139         <span class="string">'String'</span>,<span class="string">'Path'</span>,<span class="string">'HorizontalAlignment'</span>,<span class="string">'left'</span>);
0140     G.EmriPath = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'edit'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font,  <span class="keyword">...</span>
0141         <span class="string">'Position'</span>,[.20 .50 .58 .2], <span class="string">'String'</span>,mri.path,<span class="keyword">...</span>
0142         <span class="string">'Callback'</span>,strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0143                           <span class="string">'MRIOpen.mri.path = get(MRIOpen.handles.EmriPath,''String'');'</span>,<span class="keyword">...</span>
0144                           <span class="string">'set(gcbf,''Userdata'',MRIOpen); clear MRIOpen;'</span>));
0145     
0146     G.Title_file = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'text'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font, <span class="keyword">...</span>
0147         <span class="string">'Position'</span>,[.01 .25 .17 .2],<span class="keyword">...</span>
0148         <span class="string">'String'</span>,<span class="string">'File'</span>,<span class="string">'HorizontalAlignment'</span>,<span class="string">'left'</span>);
0149     G.EmriFile = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'edit'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font,  <span class="keyword">...</span>
0150         <span class="string">'Position'</span>,[.20 .25 .58 .2], <span class="string">'String'</span>,mri.file,<span class="keyword">...</span>
0151         <span class="string">'Callback'</span>,strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0152                           <span class="string">'MRIOpen.mri.file = get(MRIOpen.handles.EmriFile,''String'');'</span>,<span class="keyword">...</span>
0153                           <span class="string">'set(gcbf,''Userdata'',MRIOpen); clear MRIOpen;'</span>));
0154     
0155     Font.FontWeight = <span class="string">'bold'</span>;
0156     
0157     <span class="comment">% BROWSE: Look for the data</span>
0158     browsecommand = strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0159         <span class="string">'cd(MRIOpen.mri.path);'</span>,<span class="keyword">...</span>
0160         <span class="string">'[file, path] = uigetfile('</span>,<span class="keyword">...</span>
0161         <span class="string">'{''COR*'', ''FreeSurfer COR-??? files'';'</span>, <span class="keyword">...</span>
0162         <span class="string">' ''*.*'',   ''All Files (*.*)''},'</span>, <span class="keyword">...</span>
0163         <span class="string">'''Select first COR File'');'</span>,<span class="keyword">...</span>
0164         <span class="string">'if ~isequal(path,0), MRIOpen.mri.path = path; end;'</span>,<span class="keyword">...</span>
0165         <span class="string">'if ~isequal(file,0), MRIOpen.mri.file = file; end;'</span>,<span class="keyword">...</span>
0166         <span class="string">'set(MRIOpen.handles.EmriPath,''String'',MRIOpen.mri.path);'</span>,<span class="keyword">...</span>
0167         <span class="string">'set(MRIOpen.handles.EmriFile,''String'',MRIOpen.mri.file);'</span>,<span class="keyword">...</span>
0168         <span class="string">'set(gcbf,''Userdata'',MRIOpen); clear MRIOpen file path;'</span>);
0169     G.BmriFile = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'pushbutton'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>,Font, <span class="keyword">...</span>
0170         <span class="string">'Position'</span>,[.01 .01 .17 .2], <span class="string">'String'</span>,<span class="string">'BROWSE'</span>,<span class="keyword">...</span>
0171         <span class="string">'BackgroundColor'</span>,[0.8 0.8 0.0],<span class="keyword">...</span>
0172         <span class="string">'ForegroundColor'</span>, [1 1 1], <span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0173         <span class="string">'Callback'</span>, browsecommand );
0174     
0175     <span class="comment">% PLOT: Load &amp; plot the data!</span>
0176     G.Bplot = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'pushbutton'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>, Font, <span class="keyword">...</span>
0177         <span class="string">'Position'</span>,[.20 .01 .18 .2],<span class="keyword">...</span>
0178         <span class="string">'String'</span>,<span class="string">'PLOT'</span>,<span class="string">'BusyAction'</span>,<span class="string">'queue'</span>,<span class="keyword">...</span>
0179         <span class="string">'TooltipString'</span>,<span class="string">'Plot the MRI data and return p struct.'</span>,<span class="keyword">...</span>
0180         <span class="string">'BackgroundColor'</span>,[0.0 0.5 0.0],<span class="keyword">...</span>
0181         <span class="string">'ForegroundColor'</span>, [1 1 1], <span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0182         <span class="string">'Callback'</span>,strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0183                           <span class="string">'mri = gui_cor_open(MRIOpen.mri,''plot'');'</span>,<span class="keyword">...</span>
0184                           <span class="string">'clear MRIOpen;'</span>));
0185 
0186     <span class="comment">% Save As</span>
0187     G.Bsave = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'pushbutton'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>, Font, <span class="keyword">...</span>
0188         <span class="string">'Position'</span>,[.40 .01 .18 .2],<span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0189         <span class="string">'String'</span>,<span class="string">'SAVE AS'</span>,<span class="string">'TooltipString'</span>,<span class="string">'MRI File Conversion Tool (not implemented yet)'</span>,<span class="keyword">...</span>
0190         <span class="string">'BusyAction'</span>,<span class="string">'queue'</span>,<span class="keyword">...</span>
0191         <span class="string">'Visible'</span>,<span class="string">'on'</span>,<span class="keyword">...</span>
0192         <span class="string">'BackgroundColor'</span>,[0.0 0.0 0.75],<span class="keyword">...</span>
0193         <span class="string">'ForegroundColor'</span>, [1 1 1], <span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0194         <span class="string">'Callback'</span>,strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0195                           <span class="string">'mri = gui_cor_open(MRIOpen.mri,''save'');'</span>,<span class="keyword">...</span>
0196                           <span class="string">'clear MRIOpen;'</span>));
0197 
0198     <span class="comment">% Quit, return file parameters</span>
0199     G.Breturn = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'pushbutton'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>, Font, <span class="keyword">...</span>
0200         <span class="string">'Position'</span>,[.60 .01 .18 .2],<span class="keyword">...</span>
0201         <span class="string">'String'</span>,<span class="string">'RETURN'</span>,<span class="string">'BusyAction'</span>,<span class="string">'queue'</span>,<span class="keyword">...</span>
0202         <span class="string">'TooltipString'</span>,<span class="string">'Return p struct to workspace and parent GUI.'</span>,<span class="keyword">...</span>
0203         <span class="string">'BackgroundColor'</span>,[0.75 0.0 0.0],<span class="keyword">...</span>
0204         <span class="string">'ForegroundColor'</span>, [1 1 1], <span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0205         <span class="string">'Callback'</span>,strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0206                           <span class="string">'mri = gui_cor_open(MRIOpen.mri,''return'');'</span>,<span class="keyword">...</span>
0207                           <span class="string">'clear MRIOpen;'</span>));
0208     
0209     <span class="comment">% Cancel</span>
0210     G.Bcancel = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'pushbutton'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>, Font, <span class="keyword">...</span>
0211         <span class="string">'Position'</span>,[.80 .01 .18 .2],<span class="keyword">...</span>
0212         <span class="string">'String'</span>,<span class="string">'CANCEL'</span>,<span class="string">'BusyAction'</span>,<span class="string">'queue'</span>,<span class="keyword">...</span>
0213         <span class="string">'TooltipString'</span>,<span class="string">'Close, do not return parameters.'</span>,<span class="keyword">...</span>
0214         <span class="string">'BackgroundColor'</span>,[0.75 0.0 0.0],<span class="keyword">...</span>
0215         <span class="string">'ForegroundColor'</span>, [1 1 1], <span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0216         <span class="string">'Callback'</span>,strcat(<span class="string">'MRIOpen = get(gcbf,''Userdata'');'</span>,<span class="keyword">...</span>
0217                           <span class="string">'mri = gui_cor_open(MRIOpen.mri,''cancel'');'</span>,<span class="keyword">...</span>
0218                           <span class="string">'clear MRIOpen;'</span>));
0219     
0220     
0221     <span class="comment">% Help</span>
0222     G.Bhelp = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'pushbutton'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>, Font, <span class="keyword">...</span>
0223         <span class="string">'Position'</span>,[.80 .25 .18 .2],<span class="string">'String'</span>,<span class="string">'Help'</span>,<span class="string">'BusyAction'</span>,<span class="string">'queue'</span>,<span class="keyword">...</span>
0224         <span class="string">'BackgroundColor'</span>,[1 1 0],<span class="keyword">...</span>
0225         <span class="string">'ForegroundColor'</span>,[0 0 0], <span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>,<span class="keyword">...</span>
0226         <span class="string">'Callback'</span>,<span class="string">'doc mri_toolbox;'</span>);
0227     
0228     <span class="comment">% Hold GUI Open checkbox</span>
0229     G.Bhold = uicontrol(<span class="string">'Parent'</span>,GUI,<span class="string">'Style'</span>,<span class="string">'checkbox'</span>,<span class="string">'Units'</span>,<span class="string">'Normalized'</span>, Font, <span class="keyword">...</span>
0230         <span class="string">'Position'</span>,[.80 .50 .18 .2],<span class="string">'String'</span>,<span class="string">'Hold GUI'</span>,<span class="string">'BusyAction'</span>,<span class="string">'queue'</span>,<span class="keyword">...</span>
0231         <span class="string">'TooltipString'</span>,<span class="string">'MRI File Load GUI remains open after ''Plot'' or ''Return'' commands.'</span>,<span class="keyword">...</span>
0232         <span class="string">'Value'</span>,mri.hold,<span class="string">'HorizontalAlignment'</span>, <span class="string">'center'</span>);
0233     
0234     
0235     <span class="comment">% Store userdata</span>
0236     <span class="keyword">if</span> exist(<span class="string">'parent'</span>,<span class="string">'var'</span>), MRIOpen.parent.gui = parent; <span class="keyword">end</span>
0237     MRIOpen.gui = GUI;          
0238     MRIOpen.handles = G;
0239     MRIOpen.mri = mri;
0240     set(GUI,<span class="string">'Userdata'</span>,MRIOpen);
0241     set(GUI,<span class="string">'HandleVisibility'</span>,<span class="string">'callback'</span>);
0242     
0243 <span class="keyword">return</span></pre></div>
<hr><address>Generated on Fri 21-May-2004 12:38:21 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/">m2html</a></strong> &copy; 2003</address>
</body>
</html>