summaryrefslogtreecommitdiff
path: root/examples/gui
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@users.sourceforge.net>2007-03-07 13:19:47 +0000
committerGraeme Geldenhuys <graemeg@users.sourceforge.net>2007-03-07 13:19:47 +0000
commit7e5581b378b48ff731f2d3ea078ff8978f25e8aa (patch)
tree9b1161d1f263499da7c74d060f59ef05c8cd7f58 /examples/gui
parenta78f65fa1c1dc35922205e7cf88ac431aee59bb6 (diff)
downloadfpGUI-7e5581b378b48ff731f2d3ea078ff8978f25e8aa.tar.xz
* Popupu menus now close on item selection.
Diffstat (limited to 'examples/gui')
-rw-r--r--examples/gui/widgettest/widgettest.lpi2
-rw-r--r--examples/gui/widgettest/widgettest.pas4
2 files changed, 3 insertions, 3 deletions
diff --git a/examples/gui/widgettest/widgettest.lpi b/examples/gui/widgettest/widgettest.lpi
index 19413c4a..efbb9314 100644
--- a/examples/gui/widgettest/widgettest.lpi
+++ b/examples/gui/widgettest/widgettest.lpi
@@ -52,7 +52,7 @@
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
- <CustomOptions Value="-FUunits -dTraceEventsX -dDebug
+ <CustomOptions Value="-FUunits -dTraceEventsX -dDebugX
"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
diff --git a/examples/gui/widgettest/widgettest.pas b/examples/gui/widgettest/widgettest.pas
index 4c4f4a32..b70b20a4 100644
--- a/examples/gui/widgettest/widgettest.pas
+++ b/examples/gui/widgettest/widgettest.pas
@@ -267,9 +267,9 @@ end;
procedure TMenuForm.AboutMenuClicked(Sender: TObject);
begin
- writeln('...About menu clicked from <' + Sender.ClassName + '>');
+ writeln(' About menu clicked from <' + Sender.ClassName + '>');
if Sender is TMenuItem then
- writeln('From: ' + TMenuItem(Sender).Text);
+ writeln(' from: ' + TMenuItem(Sender).Text);
end;
constructor TMenuForm.Create(AOwner: TComponent);