summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJean-Marc.Levecque <jmarc.levecque@bbox.fr>2015-07-06 22:54:13 +0200
committerJean-Marc.Levecque <jmarc.levecque@bbox.fr>2015-07-06 22:54:13 +0200
commit54ecf26800ee3a818d77dc1bb4173b771ae83c2b (patch)
treeeb6f8177e3da86e2e7cdd22404064a881ea7a298
parentbfad32122a462c6f8dbb154c5cdf239c86f55645 (diff)
downloadfpGUI-54ecf26800ee3a818d77dc1bb4173b771ae83c2b.tar.xz
Anchors edtHeight in case of resizing
Signed-off-by: Jean-Marc.Levecque <jmarc.levecque@bbox.fr>
-rw-r--r--examples/gui/tabtest/tabtest.lpr1
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr
index 75d23dfe..52f7ec17 100644
--- a/examples/gui/tabtest/tabtest.lpr
+++ b/examples/gui/tabtest/tabtest.lpr
@@ -162,6 +162,7 @@ begin
CreateLabel(self, 390, 325, 'Height:');
edtHeight := CreateEditInteger(self, 435, 320, 30, 24, False);
edtHeight.Value := 0;
+ edtHeight.Anchors := [anBottom, anLeft];
edtHeight.Hint := 'Tab height';
edtHeight.OnChange := @edtHeightChanged;
end;