From 869ab94929a70665b0103152ffa0c0784fbecb5a Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Tue, 7 Oct 2014 14:55:03 +0000
Subject: [PATCH] PoChecker: better positioning of the Lnaguage Filter combobox
 @runtime.

git-svn-id: trunk@46462 -
---
 components/pochecker/pocheckermain.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/pochecker/pocheckermain.pp b/components/pochecker/pocheckermain.pp
index af9363993a..ad9e2a3097 100644
--- a/components/pochecker/pocheckermain.pp
+++ b/components/pochecker/pocheckermain.pp
@@ -297,9 +297,13 @@ begin
 end;
 
 procedure TPoCheckerForm.ChildPoListBoxResize(Sender: TObject);
+var
+  ATop, ADiff: Integer;
 begin
   //Can't seem to get this to work with just Anchors
-  LangFilter.Top := ChildPoListBox.Top + ChildPoListBox.Height + 10;
+  ATop := ChildPoListBox.Top + ChildPoListBox.Height;
+  ADiff := MasterPoListBox.Top + MasterPoListBox.Height - ATop;
+  LangFilter.Top := ATop + (ADiff - LangFilter.Height);
 end;
 
 procedure TPoCheckerForm.ClearChildBtnClick(Sender: TObject);