diff options
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); |