From 339c0f724270d2ce391a03f561746fbe5beeee5b Mon Sep 17 00:00:00 2001 From: David Laurence Emerson Date: Tue, 28 May 2013 01:07:29 -0700 Subject: Horizontal Scrolling working in X11, basegrid unit updated to use it --- examples/gui/gridtest/gridtest.lpi | 13 +++++++------ examples/gui/gridtest/gridtest.lpr | 3 +++ 2 files changed, 10 insertions(+), 6 deletions(-) (limited to 'examples') diff --git a/examples/gui/gridtest/gridtest.lpi b/examples/gui/gridtest/gridtest.lpi index 8d6de301..06af36d7 100644 --- a/examples/gui/gridtest/gridtest.lpi +++ b/examples/gui/gridtest/gridtest.lpi @@ -1,7 +1,7 @@ - + @@ -9,11 +9,13 @@ - - + + + + @@ -39,15 +41,14 @@ - + - + diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr index 465281b2..9fbce666 100644 --- a/examples/gui/gridtest/gridtest.lpr +++ b/examples/gui/gridtest/gridtest.lpr @@ -219,6 +219,9 @@ procedure TMainForm.AfterCreate; AddColumn('Column 1', 100, taLeftJustify); AddColumn('Col 2', 50, taCenter); AddColumn('Numbers', 150, taRightJustify); + AddColumn('Column 4', 150, taRightJustify); + AddColumn('Column 5', 150, taRightJustify); + AddColumn('Column 6', 150, taRightJustify); FontDesc := '#Grid'; HeaderFontDesc := '#GridHeader'; Hint := ''; -- cgit v1.2.3-54-g00ecf