diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-05-08 17:14:37 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-05-08 17:14:37 +0100 |
| commit | f6f974e79df0b3cc43b905b8bb1b68388907d819 (patch) | |
| tree | a452614831773b4b8c636e4e365d9f35c818f554 /prototypes/fpgui2/tests | |
| parent | b062c07f6c80e909eb80d39fbf8d7d0cf3df7b5c (diff) | |
| download | fpGUI-f6f974e79df0b3cc43b905b8bb1b68388907d819.tar.xz | |
edittest: define the height of ComboBox widgets to match height of Edit widgets
Diffstat (limited to 'prototypes/fpgui2/tests')
| -rw-r--r-- | prototypes/fpgui2/tests/edittest.lpr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/prototypes/fpgui2/tests/edittest.lpr b/prototypes/fpgui2/tests/edittest.lpr index df98cc73..e69cfca4 100644 --- a/prototypes/fpgui2/tests/edittest.lpr +++ b/prototypes/fpgui2/tests/edittest.lpr @@ -439,7 +439,7 @@ begin btn.ShowImage := True; btn.Height := 55; - combo1 := CreateComboBox(self, 10, 200, 120, nil); + combo1 := CreateComboBox(self, 10, 200, 120, nil, 22); combo1.BackgroundColor := clYellow; combo1.TextColor := clBlue; combo1.Items.Add('ilImageLeft'); @@ -449,7 +449,7 @@ begin combo1.FocusItem := 0; combo1.OnChange := @Combo1Changed; - combo2 := CreateComboBox(self, 10, 230, 120, nil); + combo2 := CreateComboBox(self, 10, 230, 120, nil, 22); for i := 1 to 20 do combo2.Items.Add(Format('Items %.2d', [i])); |