/examples/multithreading/criticalsectionunit1.lrs

http://github.com/graemeg/lazarus · Unknown · 16 lines · 15 code · 1 blank · 0 comment · 0 complexity · 7ab910bd8a5630cac1265c7cbf47a4f1 MD5 · raw file 

    

  1. { Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei }
    2. 

  2. 

  3. LazarusResources.Add('TForm1','FORMDATA',[
    4. 

  4.   'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3#169#0#11'C'
    5. 

  5.   +'lientWidth'#3'8'#1#13'PixelsPerInch'#2'K'#18'HorzScrollBar.Page'#3'7'#1#18
    6. 

  6.   +'VertScrollBar.Page'#3#168#0#4'Left'#3#30#1#6'Height'#3#169#0#3'Top'#3#202#0
    7. 

  7.   +#5'Width'#3'8'#1#0#6'TLabel'#6'Label1'#7'Caption'#6#6'Label1'#5'Color'#7#6'c'
    8. 

  8.   +'lNone'#11'ParentColor'#8#4'Left'#2'+'#6'Height'#2#17#3'Top'#2'}'#5'Width'#2
    9. 

  9.   +'A'#0#0#7'TButton'#22'CountWithCritSecButton'#8'AutoSize'#9#25'BorderSpacing'
    10. 

  10.   +'.InnerBorder'#2#4#7'Caption'#6#27'Count with critical section'#7'OnClick'#7
    11. 

  11.   +#27'CountWithCritSecButtonClick'#8'TabOrder'#2#0#4'Left'#2'('#6'Height'#2#26
    12. 

  12.   +#3'Top'#2#24#5'Width'#3#158#0#0#0#7'TButton'#25'CountWithoutCritSecButton'#8
    13. 

  13.   +'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#30'Count without'
    14. 

  14.   +' critical section'#7'OnClick'#7#30'CountWithoutCritSecButtonClick'#8'TabOrd'
    15. 

  15.   +'er'#2#1#4'Left'#2'('#6'Height'#2#26#3'Top'#2'@'#5'Width'#3#175#0#0#0#0
    16. 

  16. ]);
    17.