diff options
| author | Jean-Marc Levecque <jmarc.levecque@bbox.fr> | 2015-07-25 11:08:34 +0200 |
|---|---|---|
| committer | Jean-Marc Levecque <jmarc.levecque@bbox.fr> | 2015-07-25 11:08:34 +0200 |
| commit | ecf6652bfe7080597271d1984038c74783b0aebf (patch) | |
| tree | 97b787ec1d2170433c20175f6e540a4e6d3ca49a /examples | |
| parent | 45b8d2fc9c0ce79ccec1fc610b3c3467f5cccee1 (diff) | |
| download | fpGUI-ecf6652bfe7080597271d1984038c74783b0aebf.tar.xz | |
Anchors label "Height" in case of resizing
Signed-off-by: Jean-Marc Levecque <jmarc.levecque@bbox.fr>
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/tabtest/tabtest.lpr | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index bea86f8c..d5bac5b9 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -22,6 +22,7 @@ type btn2, btn3: TfpgButton; chkSort: TfpgCheckBox; cbTabPos: TfpgComboBox; + lblHeight: TfpgLabel; edtHeight: TfpgEditInteger; lbl: TfpgLabel; procedure TabSheet4Painting(Sender: TObject); @@ -161,7 +162,8 @@ begin cbTabPos.Hint := 'Tab position'; cbTabPos.OnChange := @cbTabPosChanged; - CreateLabel(self, 390, 325, 'Height:'); + lblHeight := CreateLabel(self, 390, 325, 'Height:'); + lblHeight.Anchors := [anBottom, anLeft]; edtHeight := CreateEditInteger(self, 435, 320, 30, 24, False); edtHeight.Value := 0; edtHeight.Anchors := [anBottom, anLeft]; |