Examples: replaced TThread.Resume by TThread.Start in multithreading example, removed LRS file, bug #23346

git-svn-id: trunk@39345 -

.gitattributes

@@ -4399,7 +4399,6 @@ examples/multithreading/criticalsectionunit1.lfm svneol=native#text/plain
 examples/multithreading/criticalsectionunit1.lrs svneol=native#text/pascal
 examples/multithreading/criticalsectionunit1.pas svneol=native#text/plain
 examples/multithreading/mainunit.lfm svneol=native#text/plain
-examples/multithreading/mainunit.lrs svneol=native#text/pascal
 examples/multithreading/mainunit.pas svneol=native#text/plain
 examples/multithreading/multithreadingexample1.lpi svneol=native#text/plain
 examples/multithreading/multithreadingexample1.lpr svneol=native#text/plain

examples/multithreading/mainunit.lfm

@@ -1,13 +1,11 @@
 object Form1: TForm1
-  Caption = 'Form1'
-  ClientHeight = 73
-  ClientWidth = 408
-  OnCreate = FormCreate
-  PixelsPerInch = 112
-  HorzScrollBar.Page = 407
-  VertScrollBar.Page = 72
   Left = 290
   Height = 73
   Top = 163
   Width = 408
+  HorzScrollBar.Page = 407
+  VertScrollBar.Page = 72
+  Caption = 'Form1'
+  OnCreate = FormCreate
+  LCLVersion = '1.1'
 end

examples/multithreading/mainunit.lrs

@@ -1,6 +0,0 @@
-LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#2'I'#11'Clie'
-  +'ntWidth'#3#152#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'p'#18'Hor'
-  +'zScrollBar.Page'#3#151#1#18'VertScrollBar.Page'#2'H'#4'Left'#3'"'#1#6'Heigh'
-  +'t'#2'I'#3'Top'#3#163#0#5'Width'#3#152#1#0#0
-]);

examples/multithreading/mainunit.pas

@@ -31,7 +31,7 @@ unit MainUnit;
 interface
 
 uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs; 
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;
 
 type
 
@@ -60,6 +60,8 @@ var
 
 implementation
 
+{$R *.lfm}
+
 { TForm1 }
 
 procedure TForm1.FormCreate(Sender: TObject);
@@ -72,7 +74,7 @@ begin
       
   // Here the code initialises anything required before the threads starts executing
 
-  MyThread.Resume;
+  MyThread.Start;
 end;
 
 { TMyThread }
@@ -110,8 +112,5 @@ begin
   inherited Create(CreateSuspended);
 end;
 
-initialization
-  {$I mainunit.lrs}
-
 end.
 

examples/multithreading/multithreadingexample1.lpi

@@ -1,18 +1,18 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="9"/>
     <General>
       <Flags>
         <LRSInOutputDirectory Value="False"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <TargetFileExt Value=""/>
+      <ResourceType Value="res"/>
     </General>
-    <VersionInfo>
+    <BuildModes Count="1">
-      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
+      <Item1 Name="default" Default="True"/>
-    </VersionInfo>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@@ -39,16 +39,22 @@
         <Filename Value="mainunit.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="MainUnit"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
     <SearchPaths>
-      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
+      <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
     </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <UseAnsiStrings Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
     <Linking>
       <Options>
         <Win32>