www.pudn.com > Closid30.rar > CLSETCOL.M, change:1997-04-30,size:1139b


function [frm,txt,edi,psh,rad,axs,c7,... 
c8,c9,c10,mod,edt,pub,put,chb,cht,txb,pst]=clsetcol(clr) 
% [frm,txt,edi,psh,rad,axs,c7,c8,c9,c10,... 
%     mod,edt,pub,put,chb,cht,txb,pst]=clsetcol(clr) 
% 
% Set colors for frames, windows and other texts 
 
% 27-04-1996 
% (c) Paul Van den Hof, Douwe de Vries 
% Mechanical Engineering Systems and Control Group 
% Delft University of Technology 
% Last update: 30-04-1997 
 
if nargin<1 
   global CLIDcols 
   clr=CLIDcols; 
end 
 
frm=clr(1,:);       % frame 
txt=clr(2,:);       % text 
edi=clr(3,:);       % edit-backgr 
psh=clr(4,:);       % push buttons -backgr 
rad=clr(5,:);       % radio buttons 
axs=clr(6,:);       % axis 
c7=clr(7,:);        % still undefined 
c8=clr(8,:);        % still undefined 
c9=clr(9,:);        % still undefined 
c10=clr(10,:);      % still undefined 
mod=clr(11:22,:);   % Model 1:12 
edt=clr(23,:);      % Edit-text 
pub=clr(24,:);      % Pop-up backgr 
put=clr(25,:);      % Pop-up text 
chb=clr(26,:);      % Checkbox - backgr 
cht=clr(27,:);      % Checkbox - text 
txb=clr(28,:);      % textfield - backgr 
pst=clr(29,:);      % pushbutton - text