Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r219 -r233
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 219)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 233)
@@ -9,26 +9,19 @@
 
 type
   TfmDnaCodeReedsGescandScherm = class(TfmDrieKnoppenScherm)
-    pnlWegnemen: TPanel;
-    imgWegnemen: TImage;
-    lblWegnemen: TLabel;
-    pnlVerplaatsen: TPanel;
-    imgVerplaatsen: TImage;
-    lblVerplaatsen: TLabel;
-    pnlAnnuleren: TPanel;
-    imgAnnuleren: TImage;
-    lblAnnuleren: TLabel;
     edtPallet: TEdit;
     lblScanPallet: TLabel;
+    btnVerplaatsen: TButton;
+    btnWegnemen: TButton;
+    btnTerug: TButton;
+    lblBestaandeDnaCode: TLabel;
     procedure FormShow(Sender: TObject);
-    procedure imgAnnulerenClick(Sender: TObject);
-    procedure pnlAnnulerenClick(Sender: TObject);
     procedure imgWegnemenClick(Sender: TObject);
-    procedure pnlWegnemenClick(Sender: TObject);
     procedure edtPalletKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
-    procedure pnlVerplaatsenClick(Sender: TObject);
-    procedure imgVerplaatsenClick(Sender: TObject);
+    procedure btnTerugClick(Sender: TObject);
+    procedure btnVerplaatsenClick(Sender: TObject);
+    procedure btnWegnemenClick(Sender: TObject);
   private
     procedure Wegnemen;
     procedure Verplaatsen;
@@ -47,62 +40,46 @@
 
 {$R *.dfm}
 
-procedure TfmDnaCodeReedsGescandScherm.edtPalletKeyUp(Sender: TObject;
-  var Key: Word; Shift: TShiftState);
+procedure TfmDnaCodeReedsGescandScherm.btnTerugClick(Sender: TObject);
 begin
   inherited;
-  if Key = VK_RETURN then begin
-    Verplaatsen;
-    Key := 0;
-  end;
-end;
-
-procedure TfmDnaCodeReedsGescandScherm.FormShow(Sender: TObject);
-begin
-  inherited;
-  edtPallet.Enabled := False;
-  edtPallet.Visible := False;
-  lblScanPallet.Visible := False;
-  UiContext.ImagesScherm.ilAlgemeen128.GetIcon(11, imgWegnemen.Picture.Icon);
-  UiContext.ImagesScherm.ilAlgemeen128.GetIcon(12, imgVerplaatsen.Picture.Icon);
-  UiContext.ImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon);
-end;
-
-procedure TfmDnaCodeReedsGescandScherm.imgAnnulerenClick(Sender: TObject);
-begin
-  inherited;
   Self.ModalResult := mrDnaCode;
 end;
 
-procedure TfmDnaCodeReedsGescandScherm.imgVerplaatsenClick(Sender: TObject);
+procedure TfmDnaCodeReedsGescandScherm.btnVerplaatsenClick(Sender: TObject);
 begin
   inherited;
   SetPalletControlsVisibility(true);
 end;
 
-procedure TfmDnaCodeReedsGescandScherm.imgWegnemenClick(Sender: TObject);
+procedure TfmDnaCodeReedsGescandScherm.btnWegnemenClick(Sender: TObject);
 begin
   inherited;
   SetPalletControlsVisibility(false);
   Wegnemen;
 end;
 
-procedure TfmDnaCodeReedsGescandScherm.pnlAnnulerenClick(Sender: TObject);
+procedure TfmDnaCodeReedsGescandScherm.edtPalletKeyUp(Sender: TObject;
+  var Key: Word; Shift: TShiftState);
 begin
   inherited;
-  Self.ModalResult := mrDnaCode;
+  if Key = VK_RETURN then begin
+    Verplaatsen;
+    Key := 0;
+  end;
 end;
 
-procedure TfmDnaCodeReedsGescandScherm.pnlVerplaatsenClick(Sender: TObject);
+procedure TfmDnaCodeReedsGescandScherm.FormShow(Sender: TObject);
 begin
   inherited;
-  SetPalletControlsVisibility(true);
+  edtPallet.Enabled := False;
+  edtPallet.Visible := False;
+  lblScanPallet.Visible := False;
 end;
 
-procedure TfmDnaCodeReedsGescandScherm.pnlWegnemenClick(Sender: TObject);
+procedure TfmDnaCodeReedsGescandScherm.imgWegnemenClick(Sender: TObject);
 begin
   inherited;
-  SetPalletControlsVisibility(false);
   Wegnemen;
 end;