From f6f974e79df0b3cc43b905b8bb1b68388907d819 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 8 May 2013 17:14:37 +0100 Subject: edittest: define the height of ComboBox widgets to match height of Edit widgets --- prototypes/fpgui2/tests/edittest.lpr | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'prototypes') 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])); -- cgit v1.2.3-70-g09d2