script_resize.m

由VB6.0 gui生成matlab的m文件

function script_resize(fig)
%   Resizes the objects within the window, keeping their original size and position
%   relative to upper left corner.

%   Martin Dale, July 2002
%   Copyright 2002   All Rights Reserved.
%   Version 1.00   9 June 2002
%   Contact [e-mail]

handles=get(0,'userdata');
names=fieldnames(handles);
for a=1:length(names)
    eval([names{a},'=handles.',names{a},';']);
end

kids=get(fig,'children');
kids=sort(kids);
for i=1:length(kids)
   data=get(kids(i),'userdata');
   if (isfield(data,'left'))
      formsize=get(eval(data.virtualparent),'position')*20; % get the position of the virtual parent
      %get position relative to virtual parent
   	if isempty([findstr(data.virtualparent,'form') findstr(data.virtualparent,'frm')])
         % set the position of the control relative to its virtual parent i.e. a frame
         pos=[formsize(1) + str2num(data.left), formsize(2)+ formsize(4) - str2num(data.top) - str2num(data.height), str2num(data.width), str2num(data.height)]/20;
      else
         % set the position of the control relative to its parent i.e. a figure window
         pos=[str2num(data.left), formsize(4)- str2num(data.top) - str2num(data.height), str2num(data.width), str2num(data.height)]/20;
      end
      
      set(eval(data.handle),'position',pos);

      if isfield(data,'framelabel');
         ext=get(eval(data.framelabel),'extent');
         set(eval(data.framelabel),'Position',[pos(1)+9, pos(2)+pos(4)-0.5*ext(4), ext(3), ext(4)]);
      end
   end
end