Index: AAPClient/UI/InfoLogScherm.pas =================================================================== diff -u -r231 -r235 --- AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 231) +++ AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 235) @@ -22,14 +22,14 @@ btnLaatst: TButton; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); - procedure actSluitenExecute(Sender: TObject); procedure actOngedaanMakenExecute(Sender: TObject); procedure btnEerstClick(Sender: TObject); procedure btnVorigeClick(Sender: TObject); procedure btnVolgendeClick(Sender: TObject); procedure btnLaatstClick(Sender: TObject); procedure actSchermRechtsExecute(Sender: TObject); procedure actSchermLinksExecute(Sender: TObject); + procedure actTerugExecute(Sender: TObject); private function ToeleveringDataOphalen(): ZoekViaToeleveringResponse; procedure VulGridMetToeleveringData(DnaCodes: array of DnaCode); @@ -60,7 +60,7 @@ SwitchGrid() end; -procedure TfmInfoLogScherm.actSluitenExecute(Sender: TObject); +procedure TfmInfoLogScherm.actTerugExecute(Sender: TObject); begin inherited; Self.ModalResult := mrDnaCode; @@ -125,7 +125,7 @@ var Response: ZoekViaToeleveringResponse; begin - btnLinksOnder.Action := actSluiten; + btnLinksOnder.Action := actTerug; btnCentraalOnder.Action := actOngedaanMaken; if UiContext.InfoLogSchermToonGescand then begin btnRechtsOnder.Action := actSchermRechts;