examples: fixed waitforexample for fpc 2.3.1

git-svn-id: trunk@11776 -

examples/multithreading/waitforexample1.lpi

@@ -1,23 +1,24 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <PathDelim Value="\"/>
     <Version Value="5"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
     </General>
     <PublishOptions>
       <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
     <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,8 +43,9 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <SearchPaths>
-      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
+      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
     </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>

examples/multithreading/waitforunit1.lfm

@@ -1,32 +1,31 @@
 object Form1: TForm1
+  Left = 286
+  Height = 359
+  Top = 202
+  Width = 394
+  HorzScrollBar.Page = 393
+  VertScrollBar.Page = 358
   ActiveControl = Button1
   Caption = 'Form1'
   ClientHeight = 359
   ClientWidth = 394
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  PixelsPerInch = 75
-  HorzScrollBar.Page = 393
-  VertScrollBar.Page = 358
-  Left = 286
-  Height = 359
-  Top = 202
-  Width = 394
   object Button1: TButton
-    BorderSpacing.InnerBorder = 4
-    Caption = 'Start'
-    OnClick = Button1Click
-    TabOrder = 0
     Left = 32
     Height = 25
     Top = 16
     Width = 75
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Start'
+    OnClick = Button1Click
+    TabOrder = 0
   end
   object Memo1: TMemo
-    Align = alBottom
-    TabOrder = 1
     Height = 303
     Top = 56
     Width = 394
+    ScrollBars = ssAutoBoth
+    TabOrder = 1
   end
 end

examples/multithreading/waitforunit1.lrs

@@ -1,13 +1,13 @@
 { Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei }
 
 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#30#1#6'Height'#3'g'#1#3'Top'#3#202#0#5'Wi'
-  +#12'ClientHeight'#3'g'#1#11'ClientWidth'#3#138#1#8'OnCreate'#7#10'FormCreate'
+  +'dth'#3#138#1#18'HorzScrollBar.Page'#3#137#1#18'VertScrollBar.Page'#3'f'#1#13
-  +#9'OnDestroy'#7#11'FormDestroy'#13'PixelsPerInch'#2'K'#18'HorzScrollBar.Page'
+  +'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3'g'#1#11
-  +#3#137#1#18'VertScrollBar.Page'#3'f'#1#4'Left'#3#30#1#6'Height'#3'g'#1#3'Top'
+  +'ClientWidth'#3#138#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDes'
-  +#3#202#0#5'Width'#3#138#1#0#7'TButton'#7'Button1'#25'BorderSpacing.InnerBord'
+  +'troy'#0#7'TButton'#7'Button1'#4'Left'#2' '#6'Height'#2#25#3'Top'#2#16#5'Wid'
-  +'er'#2#4#7'Caption'#6#5'Start'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0
+  +'th'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'Start'#7'OnClick'
-  +#4'Left'#2' '#6'Height'#2#25#3'Top'#2#16#5'Width'#2'K'#0#0#5'TMemo'#5'Memo1'
+  +#7#12'Button1Click'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#6'Height'#3'/'#1#3
-  +#5'Align'#7#8'alBottom'#8'TabOrder'#2#1#6'Height'#3'/'#1#3'Top'#2'8'#5'Width'
+  +'Top'#2'8'#5'Width'#3#138#1#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#1#0
-  +#3#138#1#0#0#0
+  +#0#0
 ]);

examples/multithreading/waitforunit1.pas

@@ -132,7 +132,7 @@ begin
       Log('.....  ',false);
     end;
     Log('');
-    inc(Counter);
+    Counter := Counter + 1;
     Log('B: Wake A');
     // wake A
     RtlEventSetEvent(Form1.ThreadA.WaitForB);