paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 22:00:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: better positioning of the Lnaguage Filter combobox @runtime.

Browse Source 
git-svn-id: trunk@46462 -
This commit is contained in:
bart 2014-10-07 14:55:03 +00:00
parent d963695497
commit 869ab94929
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pochecker/pocheckermain.pp
View File

@ -297,9 +297,13 @@ begin
end; end;
procedure TPoCheckerForm.ChildPoListBoxResize(Sender: TObject); procedure TPoCheckerForm.ChildPoListBoxResize(Sender: TObject);
var
ATop, ADiff: Integer;
begin begin
//Can't seem to get this to work with just Anchors //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; end;
procedure TPoCheckerForm.ClearChildBtnClick(Sender: TObject); procedure TPoCheckerForm.ClearChildBtnClick(Sender: TObject);