anchor.diff:  
   implementation
   
  -uses TBloky, GetSystems, ownStrUtils, TJCDatabase, TCPServerOR, RCS;
  +uses TBloky, GetSystems, ownStrUtils, TJCDatabase, TCPServerOR, RCS, UPO,
  +     Graphics;
   
   constructor TBlkPrejezd.Create(index:Integer);
   begin
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  
negative.code: 
  procedure TBlkPrejezd.MenuUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   if (Self.Stitek <> '') then
     Self.StitUPO(SenderPnl, SenderOR, Self.UPOUZClick, nil)
   else begin
     TTCPOrsRef(SenderPnl.Data).UPO_ref := SenderOR;
     Self.UPOUZClick(SenderPnl);
   end;
  end;
  
  procedure TBlkPrejezd.MenuZUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   if (Self.Stitek <> '') then
     Self.StitUPO(SenderPnl, SenderOR, Self.UPOZUZClick, nil)
   else begin
     TTCPOrsRef(SenderPnl.Data).UPO_ref := SenderOR;
     Self.UPOZUZClick(SenderPnl);
   end;
  end;
  
  procedure TBlkPrejezd.MenuNOTClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   if (Self.Stitek <> '') then
     Self.StitUPO(SenderPnl, SenderOR, Self.UPONOTClick, nil)
   else begin
     TTCPOrsRef(SenderPnl.Data).UPO_ref := SenderOR;
     Self.UPONOTClick(SenderPnl);
   end;
  end;
  
  procedure TBlkPrejezd.MenuZNOTClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   if (Self.Stitek <> '') then
     Self.StitUPO(SenderPnl, SenderOR, Self.UPOZNOTClick, nil)
   else begin
     TTCPOrsRef(SenderPnl.Data).UPO_ref := SenderOR;
     Self.UPOZNOTClick(SenderPnl);
   end;
  end;
  
  procedure TBlkPrejezd.UPOUZClick(Sender:TObject);
  begin
   Self.UZ := true;
  end;
  
  procedure TBlkPrejezd.UPOZUZClick(Sender:TObject);
  begin
   ORTCPServer.Potvr(TIdContext(Sender), Self.PanelZUZCallBack,
      (TTCPORsRef(TIdContext(Sender).Data).UPO_ref as TOR),
      'Zruen uzaven pejezdu', TBlky.GetBlksList(Self), nil);
  end;
  
  procedure TBlkPrejezd.UPONOTClick(Sender:TObject);
  begin
   ORTCPServer.Potvr(TIdContext(Sender), Self.PanelZNOTCallBack,
      (TTCPORsRef(TIdContext(Sender).Data).UPO_ref as TOR),
      'Nouzov oteven pejezdu', TBlky.GetBlksList(Self), nil);
  end;
  
  procedure TBlkPrejezd.UPOZNOTClick(Sender:TObject);
  begin
   Self.NOtevreni := false;
  end;
  