diff --git a/examples/multithreading/waitforexample1.lpi b/examples/multithreading/waitforexample1.lpi index adba17cd7b..7fdd5f7d74 100644 --- a/examples/multithreading/waitforexample1.lpi +++ b/examples/multithreading/waitforexample1.lpi @@ -1,23 +1,24 @@ - + - + + - + @@ -42,8 +43,9 @@ + - + diff --git a/examples/multithreading/waitforunit1.lfm b/examples/multithreading/waitforunit1.lfm index 7c0e6ad244..0d9774d267 100644 --- a/examples/multithreading/waitforunit1.lfm +++ b/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 diff --git a/examples/multithreading/waitforunit1.lrs b/examples/multithreading/waitforunit1.lrs index 68fdba2831..0b6532fea7 100644 --- a/examples/multithreading/waitforunit1.lrs +++ b/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' - +#12'ClientHeight'#3'g'#1#11'ClientWidth'#3#138#1#8'OnCreate'#7#10'FormCreate' - +#9'OnDestroy'#7#11'FormDestroy'#13'PixelsPerInch'#2'K'#18'HorzScrollBar.Page' - +#3#137#1#18'VertScrollBar.Page'#3'f'#1#4'Left'#3#30#1#6'Height'#3'g'#1#3'Top' - +#3#202#0#5'Width'#3#138#1#0#7'TButton'#7'Button1'#25'BorderSpacing.InnerBord' - +'er'#2#4#7'Caption'#6#5'Start'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0 - +#4'Left'#2' '#6'Height'#2#25#3'Top'#2#16#5'Width'#2'K'#0#0#5'TMemo'#5'Memo1' - +#5'Align'#7#8'alBottom'#8'TabOrder'#2#1#6'Height'#3'/'#1#3'Top'#2'8'#5'Width' - +#3#138#1#0#0#0 + 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#30#1#6'Height'#3'g'#1#3'Top'#3#202#0#5'Wi' + +'dth'#3#138#1#18'HorzScrollBar.Page'#3#137#1#18'VertScrollBar.Page'#3'f'#1#13 + +'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3'g'#1#11 + +'ClientWidth'#3#138#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDes' + +'troy'#0#7'TButton'#7'Button1'#4'Left'#2' '#6'Height'#2#25#3'Top'#2#16#5'Wid' + +'th'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'Start'#7'OnClick' + +#7#12'Button1Click'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#6'Height'#3'/'#1#3 + +'Top'#2'8'#5'Width'#3#138#1#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#1#0 + +#0#0 ]); diff --git a/examples/multithreading/waitforunit1.pas b/examples/multithreading/waitforunit1.pas index e73a764fda..aae20809ee 100644 --- a/examples/multithreading/waitforunit1.pas +++ b/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);