Index: AAPClient/UI/InfoLogScherm.pas =================================================================== diff -u -r77 -r84 --- AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 77) +++ AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 84) @@ -18,7 +18,7 @@ sgToeleveringData: TStringGrid; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); - procedure actHomeExecute(Sender: TObject); + procedure actSluitenExecute(Sender: TObject); procedure actOngedaanMakenExecute(Sender: TObject); procedure actVolgendeExecute(Sender: TObject); private @@ -37,7 +37,7 @@ {$R *.dfm} -procedure TfmInfoLogScherm.actHomeExecute(Sender: TObject); +procedure TfmInfoLogScherm.actSluitenExecute(Sender: TObject); begin inherited; Self.ModalResult := mrDnaCode; @@ -106,7 +106,7 @@ Response: ZoekViaToeleveringResponse; begin inherited; - btnLinksOnder.Action := actHome; + btnLinksOnder.Action := actSluiten; btnCentraalOnder.Action := actOngedaanMaken; btnRechtsOnder.Action := actVolgende; lblToelevering.Caption := UiContext.Toelevering;