?? h_inputdlg.m
字號:
function Answer=h_inputdlg(Prompt, Title, NumLines, DefAns,Resize)
%%%%%%%%%%%%%%%%%%%%%
%%% General Info. %%%
%%%%%%%%%%%%%%%%%%%%%
Black =[0 0 0 ]/255;
LightGray =[192 192 192 ]/255;
LightGray2 =[160 160 164 ]/255;
MediumGray =[128 128 128 ]/255;
White =[255 255 255 ]/255;
%%%%%%%%%%%%%%%%%%%%
%%% Nargin Check %%%
%%%%%%%%%%%%%%%%%%%%
if nargin == 1 & nargout == 0,
if strcmp(Prompt,'InputDlgResizeCB'),
LocalResizeFcn(gcbf)
return
end
end
error(nargchk(1,5,nargin));
error(nargoutchk(1,1,nargout));
if nargin==1,
Title=' ';
end
if nargin<=2, NumLines=1;end
if ~iscell(Prompt),
Prompt={Prompt};
end
NumQuest=prod(size(Prompt));
if nargin<=3,
DefAns=cell(NumQuest,1);
for lp=1:NumQuest, DefAns{lp}=''; end
end
WindowStyle='modal';
Interpreter='none';
if nargin<=4,
Resize = 'off';
end
if nargin==5 & isstruct(Resize),
Interpreter=Resize.Interpreter;
WindowStyle=Resize.WindowStyle;
Resize=Resize.Resize;
end
if strcmp(Resize,'on'),
WindowStyle='normal';
end
% Backwards Compatibility
if isstr(NumLines),
warning(['Please see the INPUTDLG help for correct input syntax.' 10 ...
' OKCallback no longer supported.' ]);
NumLines=1;
end
[rw,cl]=size(NumLines);
OneVect = ones(NumQuest,1);
if (rw == 1 & cl == 2)
NumLines=NumLines(OneVect,:);
elseif (rw == 1 & cl == 1)
NumLines=NumLines(OneVect);
elseif (rw == 1 & cl == NumQuest)
NumLines = NumLines';
elseif rw ~= NumQuest | cl > 2,
error('NumLines size is incorrect.')
end
if ~iscell(DefAns),
error('Default Answer must be a cell array in INPUTDLG.');
end
%%%%%%%%%%%%%%%%%%%%%%%
%%% Create InputFig %%%
%%%%%%%%%%%%%%%%%%%%%%%
FigWidth=150;FigHeight=120; %%%%%%%%%change%%%%%%%%%
FigPos(3:4)=[FigWidth FigHeight];
FigColor=get(0,'Defaultuicontrolbackgroundcolor');
TextForeground = Black;
if sum(abs(TextForeground - FigColor)) < 1
TextForeground = White;
end
InputFig=dialog( ...
'Visible' ,'off' , ...
'Name' ,Title , ...
'Pointer' ,'arrow' , ...
'Units' ,'points' , ...
'UserData' ,'' , ...
'Tag' ,Title , ...
'HandleVisibility','on' , ...
'Color' ,FigColor , ...
'NextPlot' ,'add' , ...
'WindowStyle' ,WindowStyle, ...
'Resize' ,Resize ...
);
%%%%%%%%%%%%%%%%%%%%%
%%% Set Positions %%%
%%%%%%%%%%%%%%%%%%%%%
DefOffset=5;
SmallOffset=2;
DefBtnWidth=50;
BtnHeight=20;
BtnYOffset=DefOffset;
BtnFontSize=get(0,'FactoryUIControlFontSize');
BtnWidth=DefBtnWidth;
TextInfo.Units ='points' ;
TextInfo.FontSize =BtnFontSize;
TextInfo.HorizontalAlignment='left' ;
TextInfo.HandleVisibility ='callback' ;
StInfo=TextInfo;
StInfo.Style ='text' ;
StInfo.BackgroundColor =FigColor;
StInfo.ForegroundColor =TextForeground ;
TextInfo.VerticalAlignment='bottom';
EdInfo=StInfo;
EdInfo.Style='edit';
EdInfo.BackgroundColor=White;
BtnInfo=StInfo;
BtnInfo.Style='pushbutton';
BtnInfo.HorizontalAlignment='center';
% Determine # of lines for all Prompts
ExtControl=uicontrol(StInfo, ...
'String' ,'' , ...
'Position' ,[DefOffset DefOffset ...
0.96*(FigWidth-2*DefOffset) BtnHeight ...
] , ...
'Visible' ,'off' ...
);
WrapQuest=cell(NumQuest,1);
QuestPos=zeros(NumQuest,4);
for ExtLp=1:NumQuest,
if size(NumLines,2)==2
[WrapQuest{ExtLp},QuestPos(ExtLp,1:4)]= ...
textwrap(ExtControl,Prompt(ExtLp),NumLines(ExtLp,2));
else,
[WrapQuest{ExtLp},QuestPos(ExtLp,1:4)]= ...
textwrap(ExtControl,Prompt(ExtLp),80);
end
end % for ExtLp
delete(ExtControl);
QuestHeight=QuestPos(:,4);
TxtHeight=QuestHeight(1)/size(WrapQuest{1,1},1);
EditHeight=TxtHeight*NumLines(:,1);
EditHeight(NumLines(:,1)==1)=EditHeight(NumLines(:,1)==1)+4;
FigHeight=(NumQuest+2)*DefOffset + ...
BtnHeight+sum(EditHeight) + ...
sum(QuestHeight);
TxtXOffset=DefOffset;
TxtWidth=FigWidth-2*DefOffset;
QuestYOffset=zeros(NumQuest,1);
EditYOffset=zeros(NumQuest,1);
QuestYOffset(1)=FigHeight-DefOffset-QuestHeight(1);
EditYOffset(1)=QuestYOffset(1)-EditHeight(1);% -SmallOffset;
for YOffLp=2:NumQuest,
QuestYOffset(YOffLp)=EditYOffset(YOffLp-1)-QuestHeight(YOffLp)-DefOffset;
EditYOffset(YOffLp)=QuestYOffset(YOffLp)-EditHeight(YOffLp); %-SmallOffset;
end % for YOffLp
QuestHandle=[];
EditHandle=[];
FigWidth =1;
AxesHandle=axes('Parent',InputFig,'Position',[0 0 1 1],'Visible','off');
for lp=1:NumQuest,
QuestTag=['Prompt' num2str(lp)];
EditTag=['Edit' num2str(lp)];
if ~ischar(DefAns{lp}),
delete(InputFig);
error('Default answers must be strings in INPUTDLG.');
end
QuestHandle(lp)=text('Parent',AxesHandle, ...
TextInfo , ...
'Position' ,[ TxtXOffset QuestYOffset(lp)], ...
'String' ,WrapQuest{lp} , ...
'Color' ,TextForeground , ...
'Interpreter',Interpreter , ...
'Tag' ,QuestTag ...
);
EditHandle(lp)=uicontrol(InputFig ,EdInfo , ...
'Max' ,NumLines(lp,1) , ...
'Position' ,[ TxtXOffset EditYOffset(lp) ...
TxtWidth EditHeight(lp) ...
] , ...
'String' ,DefAns{lp} , ...
'Tag' ,QuestTag ...
);
if size(NumLines,2) == 2,
set(EditHandle(lp),'String',char(ones(1,NumLines(lp,2))*'x'));
Extent = get(EditHandle(lp),'Extent');
NewPos = [TxtXOffset EditYOffset(lp) Extent(3) EditHeight(lp) ];
NewPos1= [TxtXOffset QuestYOffset(lp)];
set(EditHandle(lp),'Position',NewPos,'String',DefAns{lp})
set(QuestHandle(lp),'Position',NewPos1)
FigWidth=max(FigWidth,Extent(3)+2*DefOffset);
else
FigWidth=max(175,TxtWidth+2*DefOffset); %%%%%%%%%%change%%%%%%%%%%
end
end % for lp
FigPos=get(InputFig,'Position');
Temp=get(0,'Units');
set(0,'Units','points');
ScreenSize=get(0,'ScreenSize');
set(0,'Units',Temp);
FigWidth=max(FigWidth,2*(BtnWidth+DefOffset)+DefOffset);
FigPos(1)=(ScreenSize(3)-FigWidth)/2;
FigPos(2)=(ScreenSize(4)-FigHeight)/2;
FigPos(3)=FigWidth/1.1;
FigPos(4)=FigHeight;
set(InputFig,'Position',FigPos);
CBString='set(gcbf,''UserData'',''Cancel'');uiresume';
CancelHandle=uicontrol(InputFig , ...
BtnInfo , ...
'Position' ,[FigWidth-BtnWidth-2.5*DefOffset DefOffset ...
BtnWidth/1.5 BtnHeight/1.05 ...
] , ...
'String' ,'取消' , ...
'Callback' ,CBString , ...
'Tag' ,'Cancel' ...
);
CBString='set(gcbf,''UserData'',''OK'');uiresume';
OKHandle=uicontrol(InputFig , ...
BtnInfo , ...
'Position' ,[ FigWidth-2*BtnWidth-.5*DefOffset DefOffset ...
BtnWidth/1.5 BtnHeight/1.05 ...
] , ...
'String' ,'確定' , ...
'Callback' ,CBString , ...
'Tag' ,'OK' ...
);
Data.OKHandle = OKHandle;
Data.CancelHandle = CancelHandle;
Data.EditHandles = EditHandle;
Data.QuestHandles = QuestHandle;
Data.LineInfo = NumLines;
Data.ButtonWidth = BtnWidth;
Data.ButtonHeight = BtnHeight;
Data.EditHeight = TxtHeight+4;
Data.Offset = DefOffset;
set(InputFig ,'Visible','on','UserData',Data);
% This drawnow is a hack to work around a bug
drawnow
set(findall(InputFig),'Units','normalized','HandleVisibility','callback');
set(InputFig,'Units','points')
try
uiwait(InputFig);
catch
delete(InputFig);
end
TempHide=get(0,'ShowHiddenHandles');
set(0,'ShowHiddenHandles','on');
if any(get(0,'Children')==InputFig),
Answer={};
if strcmp(get(InputFig,'UserData'),'OK'),
Answer=cell(NumQuest,1);
for lp=1:NumQuest,
Answer(lp)=get(EditHandle(lp),{'String'});
end % for
end % if strcmp
delete(InputFig);
else,
Answer={};
end % if any
set(0,'ShowHiddenHandles',TempHide);
function LocalResizeFcn(FigHandle)
Data=get(FigHandle,'UserData');
%Data.ButtonHandles = [ OKHandles CancelHandle];
%Data.EditHandles = EditHandle;
%Data.QuestHandles = QuestHandle;
%Data.LineInfo = NumLines;
%Data.ButtonWidth = BtnWidth;
%Data.ButtonHeight = BtnHeight;
%Data.EditHeight = TxtHeight;
set(findall(FigHandle),'Units','points');
FigPos = get(FigHandle,'Position');
FigWidth = FigPos(3); FigHeight = FigPos(4);
OKPos = [ FigWidth-Data.ButtonWidth-Data.Offset Data.Offset ...
Data.ButtonWidth Data.ButtonHeight ];
CancelPos =[Data.Offset Data.Offset Data.ButtonWidth Data.ButtonHeight];
set(Data.OKHandle,'Position',OKPos);
set(Data.CancelHandle,'Position',CancelPos);
% Determine the height of all question fields
YPos = sum(OKPos(1,[2 4]))+Data.Offset;
QuestPos = get(Data.QuestHandles,{'Extent'});
QuestPos = cat(1,QuestPos{:});
QuestPos(:,1) = Data.Offset;
RemainingFigHeight = FigHeight - YPos - sum(QuestPos(:,4)) - ...
Data.Offset - size(Data.LineInfo,1)*Data.Offset;
Num1Liners = length(find(Data.LineInfo(:,1)==1));
RemainingFigHeight = RemainingFigHeight - ...
Num1Liners*Data.EditHeight;
Not1Liners = find(Data.LineInfo(:,1)~=1);
%Scale the 1 liner heights appropriately with remaining fig height
TotalLines = sum(Data.LineInfo(Not1Liners,1));
% Loop over each quest/text pair
for lp = 1:length(Data.QuestHandles),
CurPos = get(Data.EditHandles(lp),'Position');
NewPos = [Data.Offset YPos CurPos(3) Data.EditHeight ];
if Data.LineInfo(lp,1) ~= 1,
NewPos(4) = RemainingFigHeight*Data.NumLines(lp,1)/TotalLines;
end
set(Data.EditHandles(lp),'Position',NewPos)
YPos = sum(NewPos(1,[2 4]));
QuestPos(lp,2) = YPos;QuestPos(lp,3) = NewPos(3);
set(Data.QuestHandles(lp),'Position',QuestPos(lp,:));
YPos = sum(QuestPos(lp,[2 4]))+Data.Offset;
end
if YPos>FigHeight - Data.Offset,
FigHeight = YPos+Data.Offset;
FigPos(4)=FigHeight;
set(FigHandle,'Position',FigPos);
drawnow
end
set(FigHandle,'ResizeFcn','inputdlg InputDlgResizeCB');
set(findall(FigHandle),'Units','normalized')
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -