-- Шаблон создан мастером бланков
-- 13.07.2005 10:38:25
--
БланкСШаблоном "Схема проезда в РПО";
 РисСхема:Объект;
 Xmax:i=int(1390*2.7);
 Ymax:i=int(688*2.7);
 X:i=[1390];
 Y:i=[688];

 Proc ПриНажатии(s:s);
   if s='КнМасштабПлюс' :X=int(X+Xmax/10);Y=int(Y+Ymax/10);if X>Xmax:X=Xmax;fi;if Y>Ymax:Y=Ymax;fi;
    | s='КнМасштабМинус':X=int(X-Xmax/10);Y=int(Y-Ymax/10);if X<int(Xmax/10):X=int(Xmax/10);fi;if Y<int(Ymax/10):Y=int(Ymax/10);fi;
    | s='КнМасштаб100'	:X=Xmax;Y=Ymax;
    | s='КнПечать'	:Print('','','',false,0,0,true);
    | s='КнЗакрыть'	:Close;

   fi;
  РисСхема.Ширина=X;
  РисСхема.Высота=Y;
 end;
 Proc ШаблонПриОткрытии(l:l);
var ИмяНастройки:s;
var Книжная:l;
var Путь:s;
  ИмяНастройки='RPO_Проезд_в_рпо.cfg';
  Путь=PlanVar('НФА')+'\Настройки\';
  if не ЕстьФайл(PlanVar('INI')+'\'+ИмяНастройки):
     CopyFile(Путь+ИмяНастройки,PlanVar('INI')+'\'+ИмяНастройки);
  fi;
  РисСхема.LoadPicture(Путь+'RPO_Проезд_в_рпо.jpg');
  РисСхема.Ширина=X;
  РисСхема.Высота=Y;
 end;
Конец
