Index: ProScan/UI/InfoLogScherm.pas =================================================================== diff -u -r681 -r684 --- ProScan/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 681) +++ ProScan/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 684) @@ -64,12 +64,8 @@ procedure TfmInfoLogScherm.actTerugExecute(Sender: TObject); begin inherited; - Self.ModalResult := mrDnaCode; - if UiContext.VanuitOnderdelen then - Self.ModalResult := mrDnaCodeVoorOnderdelen; - PostMessage(Self.Handle,WM_Close,0,0); - (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult); + (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode); end; procedure TfmInfoLogScherm.actOngedaanMakenExecute(Sender: TObject);