Index: ProScan/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r438 -r487
--- ProScan/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 438)
+++ ProScan/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 487)
@@ -45,6 +45,7 @@
     procedure imgRechtsOnderClick(Sender: TObject);
   private
     fUiContext: TUiContext;
+    procedure VerplaatsControls();
   protected
     function ComputerName: String;
     function WUserName: String;
@@ -70,10 +71,18 @@
   actCentraalOnder := nil;
   actRechtsOnder := nil;
   lblGebruiker.Visible := false;
+  if BorderStyle in [bsSingle, bsDialog] then
+  begin
+    if Self.FClientWidth > 0 then ClientWidth := Self.FClientWidth;
+    if Self.FClientHeight > 0 then ClientHeight := Self.FClientHeight;
+  end;
 end;
 
 procedure TfmDrieKnoppenScherm.FormShow(Sender: TObject);
 begin
+  //self.ClientHeight := UiContext.FormHoogte;
+  //self.ClientWidth := UiContext.FormBreedte;
+  VerplaatsControls;
   btnLinksOnder.Visible := false;
   btnCentraalOnder.Visible := false;
   btnRechtsOnder.Visible := false;
@@ -195,6 +204,11 @@
   result := PopupScherm.ShowModal;
 end;
 
+procedure TfmDrieKnoppenScherm.VerplaatsControls;
+begin
+  //
+end;
+
 function TfmDrieKnoppenScherm.WUserName: String;
 var
   nSize: DWord;