anchor.diff:      procedure MenuZNOTClick(SenderPnl:TIdContext; SenderOR:TObject);
       procedure MenuSTITClick(SenderPnl:TIdContext; SenderOR:TObject);
   
  +    procedure UPOUZClick(Sender:TObject);
  +    procedure UPOZUZClick(Sender:TObject);
  +    procedure UPONOTClick(Sender:TObject);
  +    procedure UPOZNOTClick(Sender:TObject);
  +
       // DEBUG volby:
       procedure MenuAdminZAVRENOStartClick(SenderPnl:TIdContext; SenderOR:TObject);
       procedure MenuAdminZAVRENOStopClick(SenderPnl:TIdContext; SenderOR:TObject);
       procedure MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
   
  +    procedure StitUPO(SenderPnl:TIdContext; SenderOR:TObject;
  +        UPO_OKCallback: TNotifyEvent; UPO_EscCallback:TNotifyEvent);
  +
     public
       constructor Create(index:Integer);
       destructor Destroy(); override;
  
positive.code: 
  implementation
  
  uses TBloky, GetSystems, ownStrUtils, TJCDatabase, TCPServerOR, RCS;
  
  constructor TBlkPrejezd.Create(index:Integer);
  begin
  
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;
  