summaryrefslogtreecommitdiff
path: root/examples/gui/widgettest
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@users.sourceforge.net>2006-12-27 14:29:56 +0000
committerGraeme Geldenhuys <graemeg@users.sourceforge.net>2006-12-27 14:29:56 +0000
commitee09ef1e02b76c8f6e64e59990739f187748afe0 (patch)
tree7fd0b99e5bca8b3ebf3a978d455d5468dfd26a70 /examples/gui/widgettest
parent95f311fea5b05780a398bd3b9c0a7402cd1cac36 (diff)
downloadfpGUI-ee09ef1e02b76c8f6e64e59990739f187748afe0.tar.xz
* Introduced the Color property to TWidget. Not all widgets take this property
into account yet, but will soon. * Fixed bug where if you call TForm.Show multiple times, it keeps adding the internal Wnd pointer to the GFApplications.Forms list and later causes a AV. * Fixed bug where TCustomForm didn't have the WindowOption woWindow set so TCustomForm decendants never got displayed under Windows. * Amended the TCustomForm, TCustomPanel, TCustomMenu and TCustomLabel to handle the TWidget.Color property correctly. * TComboBox now draws the dropdown window correctly. Scrolling the list of items using the horizontal scrollbar caused strange artifacts to appear. * Horizontal scrolling is now also supported in the TComboBox dropdown window for lengthy items. * Implemented a very basic TRadioButton glyph for now. It looks damn ugly, but it works. Will improve the glyph shortly. * TCustomForm now passes the correct WindowOptions to the TFWindow.Create constructor. * For now I duplicate some functions from the types.pp FPC unit into fpgui.pas
Diffstat (limited to 'examples/gui/widgettest')
-rw-r--r--examples/gui/widgettest/widgettest.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/gui/widgettest/widgettest.pas b/examples/gui/widgettest/widgettest.pas
index 8ba3c5e2..11c2c87c 100644
--- a/examples/gui/widgettest/widgettest.pas
+++ b/examples/gui/widgettest/widgettest.pas
@@ -747,6 +747,7 @@ begin
ComboBox1.Items.Add(Format('Item 1.%d...', [i]));
ComboBox2.Items.Add(Format('Item 2.%d...', [i]));
end;
+ ComboBox2.Items.Add('A long item that should cause a horizontal scrollbar to appear.');
BetaLabel.FontColor := clBlue;
end;