Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r114 -r117
--- AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 114)
+++ AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 117)
@@ -9,7 +9,6 @@
 
 type
   TfmDrieKnoppenScherm = class(TForm)
-    lblGebruiker: TLabel;
     alKnoppenOnder: TActionList;
     actLinksOnder: TAction;
     actCentraalOnder: TAction;
@@ -28,8 +27,19 @@
     btnRechtsOnder: TButton;
     actSchermRechts: TAction;
     actSchermLinks: TAction;
+    pnlTop: TPanel;
+    lblGebruiker: TLabel;
+    pnlLinksOnder: TPanel;
+    pnlCentraalOnder: TPanel;
+    pnlRechtsOnder: TPanel;
+    imgLinksOnder: TImage;
+    imgCentraalOnder: TImage;
+    imgRechtsOnder: TImage;
     procedure FormShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure imgLinksOnderClick(Sender: TObject);
+    procedure imgCentraalOnderClick(Sender: TObject);
+    procedure imgRechtsOnderClick(Sender: TObject);
   private
     fImagesScherm: TImagesScherm;
     fUiContext: TUiContext;
@@ -68,15 +78,18 @@
   btnLinksOnder.Images := fImagesScherm.ilAlgemeen48;
   btnCentraalOnder.Images := fImagesScherm.ilAlgemeen48;
   btnRechtsOnder.Images := fImagesScherm.ilAlgemeen48;
-  
+
   if btnLinksOnder.Action <> nil then begin
-    btnLinksOnder.Visible := true;
+    fImagesScherm.ilAlgemeen64.GetIcon(btnLinksOnder.ImageIndex, imgLinksOnder.Picture.Icon);
+    //btnLinksOnder.Visible := true;
   end;
   if btnCentraalOnder.Action <> nil then begin
-    btnCentraalOnder.Visible := true;
+    fImagesScherm.ilAlgemeen64.GetIcon(btnCentraalOnder.ImageIndex, imgCentraalOnder.Picture.Icon);
+    //btnCentraalOnder.Visible := true;
   end;
   if btnRechtsOnder.Action <> nil then begin
-    btnRechtsOnder.Visible := true;
+    fImagesScherm.ilAlgemeen128.GetIcon(btnRechtsOnder.ImageIndex, imgRechtsOnder.Picture.Icon);
+    //btnRechtsOnder.Visible := true;
   end;
 
   lblGebruiker.Caption := UiContext.Initialen;
@@ -87,6 +100,30 @@
   
 end;
 
+procedure TfmDrieKnoppenScherm.imgCentraalOnderClick(Sender: TObject);
+begin
+  if btnLinksOnder.Action<>nil then begin
+    btnLinksOnder.Action.Execute;
+    CloseModal;
+  end;
+end;
+
+procedure TfmDrieKnoppenScherm.imgLinksOnderClick(Sender: TObject);
+begin
+  if btnCentraalOnder.Action<>nil then begin
+    btnCentraalOnder.Action.Execute;
+    CloseModal;
+  end;
+end;
+
+procedure TfmDrieKnoppenScherm.imgRechtsOnderClick(Sender: TObject);
+begin
+  if btnRechtsOnder.Action<>nil then begin
+    btnRechtsOnder.Action.Execute;
+    CloseModal;
+  end;
+end;
+
 function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''): TModalResult;
 var
   PopupScherm: TfmPopupScherm;