* Updated the Bevel example so it compiles again. * Updated the EventTest example.

2 files changed, 12 insertions, 14 deletions

diff --git a/examples/corelib/eventtest/eventtest.lpi b/examples/corelib/eventtest/eventtest.lpi
index e2c02519..e0cd91bf 100644
--- a/examples/corelib/eventtest/eventtest.lpi
+++ b/examples/corelib/eventtest/eventtest.lpi
@@ -1,15 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
-    <Version Value="6"/>
+    <PathDelim Value="\"/>
+    <Version Value="5"/>
     <General>
       <Flags>
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -23,7 +23,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -42,6 +42,7 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <CodeGeneration>
       <Optimizations>
         <OptimizationLevel Value="0"/>
diff --git a/examples/corelib/eventtest/eventtest.lpr b/examples/corelib/eventtest/eventtest.lpr
index 3f01bb21..bdd69c68 100644
--- a/examples/corelib/eventtest/eventtest.lpr
+++ b/examples/corelib/eventtest/eventtest.lpr
@@ -100,7 +100,7 @@ end;
 
 procedure TMainForm.MsgDeActivate(var msg: TfpgMessageRec);
 begin
-  Writeln('Window is Deactivate message');
+  Writeln('Window Deactivate message');
 end;
 
 procedure TMainForm.MsgClose(var msg: TfpgMessageRec);
@@ -127,19 +127,16 @@ end;
 
 procedure TMainForm.MsgResize(var msg: TfpgMessageRec);
 begin
-  Writeln('Resize');
+  Writeln('Resize message');
   FWidth  := msg.Params.rect.Width;
   FHeight := msg.Params.rect.Height;
-
-  WriteLn('Window has been resized. New width: ',
-    Width, ' x ', Height);
-//    '; new client width: ', ClientWidth, ' x ', ClientHeight);
-
+  WriteLn('  Window has been resized. New size: ', Width, ' x ', Height);
 end;
 
 procedure TMainForm.MsgMove(var msg: TfpgMessageRec);
 begin
-  WriteLn('Window has been moved to ', msg.Params.rect.Left, '/', msg.Params.rect.Top);
+  Writeln('Move message');
+  WriteLn('  Window has been moved to (', msg.Params.rect.Left, ',', msg.Params.rect.Top, ')');
 end;
 
 procedure TMainForm.MsgKeyChar(var msg: TfpgMessageRec);
@@ -192,7 +189,7 @@ end;
 
 procedure TMainForm.MsgDoubleClick(var msg: TfpgMessageRec);
 begin
-  Writeln('Mouse doubleclick');
+  Writeln('Mouse doubleclick message');
 end;
 
 procedure TMainForm.MsgMouseEnter(var msg: TfpgMessageRec);
@@ -207,7 +204,7 @@ end;
 
 procedure TMainForm.MsgScroll(var msg: TfpgMessageRec);
 var
-  delta: smallint;
+  delta: Integer;
 begin
   delta := msg.Params.mouse.delta;
   Writeln('Mouse scroll delta=' + IntToStr(delta) + ' button=' + IntToStr(msg.Params.mouse.Buttons));