Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r126 -r128
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 126)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 128)
@@ -26,10 +26,10 @@
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
-    procedure btnInfoClick(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
     procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
     procedure FormCreate(Sender: TObject);
+    procedure imgInfoClick(Sender: TObject);
   private
     fImagesScherm: TImagesScherm;
     procedure MeldDnaCodeAf();
@@ -82,15 +82,6 @@
   end;
 end;
 
-procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject);
-begin
-  inherited;
-  if UiContext.Toelevering = '' then
-    Self.ModalResult := mrDnaCode
-  else
-    Self.ModalResult := mrInfoLog;
-end;
-
 procedure TfmDnaCodeScherm.edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
 begin
   inherited;
@@ -122,6 +113,15 @@
   inherited;
 end;
 
+procedure TfmDnaCodeScherm.imgInfoClick(Sender: TObject);
+begin
+  inherited;
+  if UiContext.Toelevering = '' then
+    Self.ModalResult := mrDnaCode
+  else
+    Self.ModalResult := mrInfoLog;
+end;
+
 procedure TfmDnaCodeScherm.MeldDnaCodeAf;
 var
   Service: DnaCodeServiceSoap;