diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-03-07 13:19:47 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-03-07 13:19:47 +0000 |
| commit | 7e5581b378b48ff731f2d3ea078ff8978f25e8aa (patch) | |
| tree | 9b1161d1f263499da7c74d060f59ef05c8cd7f58 /examples/gui | |
| parent | a78f65fa1c1dc35922205e7cf88ac431aee59bb6 (diff) | |
| download | fpGUI-7e5581b378b48ff731f2d3ea078ff8978f25e8aa.tar.xz | |
* Popupu menus now close on item selection.
Diffstat (limited to 'examples/gui')
| -rw-r--r-- | examples/gui/widgettest/widgettest.lpi | 2 | ||||
| -rw-r--r-- | examples/gui/widgettest/widgettest.pas | 4 |
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); |