Index: AAPClient/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r128 -r149
--- AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 128)
+++ AAPClient/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 149)
@@ -9,14 +9,28 @@
 
 type
   TfmBestaandePalletScherm = class(TfmDrieKnoppenScherm)
-    btnExtraToelevering: TButton;
-    btnRework: TButton;
     lblPalletCode: TLabel;
+    pnlAnnuleren: TPanel;
+    imgAnnuleren: TImage;
+    lblAnnuleren: TLabel;
+    pnlExtraToelevering: TPanel;
+    imgExtraToelevering: TImage;
+    lblExtraToelevering: TLabel;
+    pnlHuidigeToelevering: TPanel;
+    imgHuidigeToelevering: TImage;
+    lblHuidigeToelevering: TLabel;
+    pnlRework: TPanel;
+    imgRework: TImage;
+    lblRework: TLabel;
     procedure FormShow(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure btnExtraToeleveringClick(Sender: TObject);
     procedure btnReworkClick(Sender: TObject);
+    procedure imgHuidigeToeleveringClick(Sender: TObject);
+    procedure imgReworkClick(Sender: TObject);
+    procedure imgExtraToeleveringClick(Sender: TObject);
+    procedure imgRechtsOnderClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -29,7 +43,7 @@
 implementation
 
 uses
-  UiContext;
+  UiContext, PopupScherm;
 
 {$R *.dfm}
 
@@ -63,7 +77,35 @@
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := nil;
   lblPalletCode.Caption := UiContext.Pallet;
+  fImagesScherm.ilAlgemeen128.GetIcon(7, imgHuidigeToelevering.Picture.Icon);
+  fImagesScherm.ilAlgemeen128.GetIcon(10, imgRework.Picture.Icon);
+  fImagesScherm.ilAlgemeen128.GetIcon(9, imgExtraToelevering.Picture.Icon);
+  fImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon);
   inherited;
 end;
 
+procedure TfmBestaandePalletScherm.imgExtraToeleveringClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrDnaCode;
+end;
+
+procedure TfmBestaandePalletScherm.imgHuidigeToeleveringClick(Sender: TObject);
+begin
+  inherited;
+  ShowMessage('doet nog niets');
+end;
+
+procedure TfmBestaandePalletScherm.imgRechtsOnderClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrPallet;
+end;
+
+procedure TfmBestaandePalletScherm.imgReworkClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrDnaCode;
+end;
+
 end.