Changeset 144 for MicroThreading/Demo


Ignore:
Timestamp:
Jan 25, 2011, 2:16:25 PM (14 years ago)
Author:
george
Message:
  • Modified: Not finished implementation of multithreaded scheduler.
Location:
MicroThreading/Demo
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • MicroThreading/Demo/Demo.lpi

    r143 r144  
    4242      </Item3>
    4343    </RequiredPackages>
    44     <Units Count="39">
     44    <Units Count="44">
    4545      <Unit0>
    4646        <Filename Value="Demo.lpr"/>
     
    5050        <TopLine Value="1"/>
    5151        <CursorPos X="1" Y="15"/>
    52         <UsageCount Value="40"/>
     52        <UsageCount Value="46"/>
    5353      </Unit0>
    5454      <Unit1>
     
    6060        <EditorIndex Value="0"/>
    6161        <WindowIndex Value="0"/>
    62         <TopLine Value="147"/>
    63         <CursorPos X="29" Y="148"/>
    64         <UsageCount Value="40"/>
     62        <TopLine Value="182"/>
     63        <CursorPos X="28" Y="184"/>
     64        <UsageCount Value="46"/>
    6565        <Loaded Value="True"/>
    6666        <LoadedDesigner Value="True"/>
     
    7070        <UnitName Value="UMicroThreading"/>
    7171        <IsVisibleTab Value="True"/>
    72         <EditorIndex Value="3"/>
    73         <WindowIndex Value="0"/>
    74         <TopLine Value="128"/>
    75         <CursorPos X="36" Y="144"/>
    76         <UsageCount Value="21"/>
     72        <EditorIndex Value="6"/>
     73        <WindowIndex Value="0"/>
     74        <TopLine Value="337"/>
     75        <CursorPos X="17" Y="350"/>
     76        <UsageCount Value="25"/>
    7777        <Loaded Value="True"/>
    7878      </Unit2>
     
    8383        <TopLine Value="1310"/>
    8484        <CursorPos X="15" Y="1327"/>
    85         <UsageCount Value="9"/>
     85        <UsageCount Value="8"/>
    8686      </Unit3>
    8787      <Unit4>
     
    9090        <TopLine Value="346"/>
    9191        <CursorPos X="24" Y="351"/>
    92         <UsageCount Value="9"/>
     92        <UsageCount Value="8"/>
    9393      </Unit4>
    9494      <Unit5>
     
    9797        <TopLine Value="1"/>
    9898        <CursorPos X="1" Y="1"/>
    99         <UsageCount Value="9"/>
     99        <UsageCount Value="8"/>
    100100        <DefaultSyntaxHighlighter Value="XML"/>
    101101      </Unit5>
     
    106106        <TopLine Value="286"/>
    107107        <CursorPos X="1" Y="1"/>
    108         <UsageCount Value="9"/>
     108        <UsageCount Value="8"/>
    109109      </Unit6>
    110110      <Unit7>
     
    114114        <TopLine Value="8"/>
    115115        <CursorPos X="1" Y="1"/>
    116         <UsageCount Value="9"/>
     116        <UsageCount Value="8"/>
    117117        <DefaultSyntaxHighlighter Value="Delphi"/>
    118118      </Unit7>
     
    123123        <TopLine Value="56"/>
    124124        <CursorPos X="24" Y="77"/>
    125         <UsageCount Value="20"/>
     125        <UsageCount Value="19"/>
    126126        <DefaultSyntaxHighlighter Value="Delphi"/>
    127127      </Unit8>
     
    132132        <TopLine Value="264"/>
    133133        <CursorPos X="37" Y="141"/>
    134         <UsageCount Value="20"/>
     134        <UsageCount Value="19"/>
    135135        <DefaultSyntaxHighlighter Value="Delphi"/>
    136136      </Unit9>
     
    141141        <TopLine Value="302"/>
    142142        <CursorPos X="5" Y="33"/>
    143         <UsageCount Value="9"/>
     143        <UsageCount Value="8"/>
    144144      </Unit10>
    145145      <Unit11>
     
    148148        <TopLine Value="886"/>
    149149        <CursorPos X="20" Y="900"/>
    150         <UsageCount Value="9"/>
     150        <UsageCount Value="8"/>
    151151      </Unit11>
    152152      <Unit12>
     
    155155        <TopLine Value="1046"/>
    156156        <CursorPos X="34" Y="1053"/>
    157         <UsageCount Value="18"/>
     157        <UsageCount Value="17"/>
    158158      </Unit12>
    159159      <Unit13>
     
    162162        <TopLine Value="156"/>
    163163        <CursorPos X="21" Y="175"/>
    164         <UsageCount Value="9"/>
     164        <UsageCount Value="8"/>
    165165      </Unit13>
    166166      <Unit14>
     
    169169        <TopLine Value="45"/>
    170170        <CursorPos X="17" Y="62"/>
    171         <UsageCount Value="9"/>
     171        <UsageCount Value="8"/>
    172172      </Unit14>
    173173      <Unit15>
     
    176176        <TopLine Value="2271"/>
    177177        <CursorPos X="4" Y="2274"/>
    178         <UsageCount Value="12"/>
     178        <UsageCount Value="11"/>
    179179      </Unit15>
    180180      <Unit16>
     
    184184        <TopLine Value="290"/>
    185185        <CursorPos X="36" Y="306"/>
    186         <UsageCount Value="21"/>
     186        <UsageCount Value="20"/>
    187187      </Unit16>
    188188      <Unit17>
     
    191191        <TopLine Value="67"/>
    192192        <CursorPos X="10" Y="91"/>
    193         <UsageCount Value="9"/>
     193        <UsageCount Value="8"/>
    194194      </Unit17>
    195195      <Unit18>
     
    198198        <TopLine Value="1368"/>
    199199        <CursorPos X="3" Y="1385"/>
    200         <UsageCount Value="11"/>
     200        <UsageCount Value="10"/>
    201201      </Unit18>
    202202      <Unit19>
     
    205205        <TopLine Value="861"/>
    206206        <CursorPos X="1" Y="878"/>
    207         <UsageCount Value="10"/>
     207        <UsageCount Value="9"/>
    208208      </Unit19>
    209209      <Unit20>
     
    212212        <TopLine Value="32"/>
    213213        <CursorPos X="48" Y="50"/>
    214         <UsageCount Value="10"/>
     214        <UsageCount Value="9"/>
    215215      </Unit20>
    216216      <Unit21>
     
    219219        <TopLine Value="8"/>
    220220        <CursorPos X="11" Y="25"/>
    221         <UsageCount Value="12"/>
     221        <UsageCount Value="11"/>
    222222      </Unit21>
    223223      <Unit22>
     
    227227        <TopLine Value="1"/>
    228228        <CursorPos X="25" Y="9"/>
    229         <UsageCount Value="13"/>
     229        <UsageCount Value="12"/>
    230230      </Unit22>
    231231      <Unit23>
    232232        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
    233         <EditorIndex Value="1"/>
    234233        <WindowIndex Value="0"/>
    235234        <TopLine Value="38"/>
    236235        <CursorPos X="29" Y="50"/>
    237         <UsageCount Value="13"/>
    238         <Loaded Value="True"/>
     236        <UsageCount Value="16"/>
    239237      </Unit23>
    240238      <Unit24>
    241239        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/objpas/sysutils/datih.inc"/>
    242         <EditorIndex Value="2"/>
    243240        <WindowIndex Value="0"/>
    244241        <TopLine Value="161"/>
    245242        <CursorPos X="11" Y="184"/>
    246         <UsageCount Value="13"/>
    247         <Loaded Value="True"/>
     243        <UsageCount Value="16"/>
    248244      </Unit24>
    249245      <Unit25>
     
    252248        <TopLine Value="254"/>
    253249        <CursorPos X="12" Y="258"/>
    254         <UsageCount Value="13"/>
     250        <UsageCount Value="12"/>
    255251      </Unit25>
    256252      <Unit26>
     
    260256        <TopLine Value="581"/>
    261257        <CursorPos X="11" Y="585"/>
    262         <UsageCount Value="13"/>
     258        <UsageCount Value="12"/>
    263259      </Unit26>
    264260      <Unit27>
     
    267263        <TopLine Value="525"/>
    268264        <CursorPos X="11" Y="538"/>
    269         <UsageCount Value="13"/>
     265        <UsageCount Value="12"/>
    270266      </Unit27>
    271267      <Unit28>
    272268        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/packages/fcl-base/src/syncobjs.pp"/>
    273269        <UnitName Value="syncobjs"/>
    274         <EditorIndex Value="11"/>
    275270        <WindowIndex Value="0"/>
    276271        <TopLine Value="57"/>
    277272        <CursorPos X="16" Y="70"/>
    278         <UsageCount Value="10"/>
    279         <Loaded Value="True"/>
     273        <UsageCount Value="13"/>
    280274      </Unit28>
    281275      <Unit29>
    282276        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/threadh.inc"/>
    283         <EditorIndex Value="12"/>
    284277        <WindowIndex Value="0"/>
    285278        <TopLine Value="18"/>
    286279        <CursorPos X="50" Y="31"/>
    287         <UsageCount Value="10"/>
    288         <Loaded Value="True"/>
     280        <UsageCount Value="13"/>
    289281      </Unit29>
    290282      <Unit30>
    291283        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/thread.inc"/>
    292         <EditorIndex Value="14"/>
    293284        <WindowIndex Value="0"/>
    294285        <TopLine Value="109"/>
    295286        <CursorPos X="3" Y="112"/>
    296         <UsageCount Value="10"/>
    297         <Loaded Value="True"/>
     287        <UsageCount Value="13"/>
    298288      </Unit30>
    299289      <Unit31>
    300290        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/win/sysosh.inc"/>
    301         <EditorIndex Value="13"/>
     291        <EditorIndex Value="3"/>
    302292        <WindowIndex Value="0"/>
    303293        <TopLine Value="12"/>
    304294        <CursorPos X="3" Y="25"/>
    305         <UsageCount Value="10"/>
     295        <UsageCount Value="13"/>
    306296        <Loaded Value="True"/>
    307297      </Unit31>
    308298      <Unit32>
    309299        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    310         <EditorIndex Value="6"/>
    311300        <WindowIndex Value="0"/>
    312301        <TopLine Value="1507"/>
    313302        <CursorPos X="3" Y="1469"/>
    314         <UsageCount Value="10"/>
    315         <Loaded Value="True"/>
     303        <UsageCount Value="13"/>
    316304      </Unit32>
    317305      <Unit33>
    318306        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/win/tthread.inc"/>
    319         <EditorIndex Value="8"/>
    320307        <WindowIndex Value="0"/>
    321308        <TopLine Value="96"/>
    322309        <CursorPos X="15" Y="98"/>
    323         <UsageCount Value="10"/>
    324         <Loaded Value="True"/>
     310        <UsageCount Value="13"/>
    325311      </Unit33>
    326312      <Unit34>
    327313        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/win/wininc/func.inc"/>
    328         <EditorIndex Value="10"/>
    329314        <WindowIndex Value="0"/>
    330315        <TopLine Value="130"/>
    331316        <CursorPos X="10" Y="143"/>
    332         <UsageCount Value="10"/>
    333         <Loaded Value="True"/>
     317        <UsageCount Value="13"/>
    334318      </Unit34>
    335319      <Unit35>
    336320        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/win/wininc/defines.inc"/>
    337         <EditorIndex Value="9"/>
    338321        <WindowIndex Value="0"/>
    339322        <TopLine Value="1923"/>
    340323        <CursorPos X="6" Y="1936"/>
    341         <UsageCount Value="10"/>
    342         <Loaded Value="True"/>
     324        <UsageCount Value="13"/>
    343325      </Unit35>
    344326      <Unit36>
    345327        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/objpas/classes/classes.inc"/>
    346         <EditorIndex Value="7"/>
    347328        <WindowIndex Value="0"/>
    348329        <TopLine Value="109"/>
    349330        <CursorPos X="6" Y="115"/>
    350         <UsageCount Value="10"/>
    351         <Loaded Value="True"/>
     331        <UsageCount Value="13"/>
    352332      </Unit36>
    353333      <Unit37>
    354334        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/objpash.inc"/>
    355         <EditorIndex Value="5"/>
    356335        <WindowIndex Value="0"/>
    357336        <TopLine Value="181"/>
    358337        <CursorPos X="21" Y="194"/>
    359         <UsageCount Value="10"/>
    360         <Loaded Value="True"/>
     338        <UsageCount Value="13"/>
    361339      </Unit37>
    362340      <Unit38>
    363341        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/objpas/sysutils/osutilsh.inc"/>
    364         <EditorIndex Value="4"/>
    365342        <WindowIndex Value="0"/>
    366343        <TopLine Value="14"/>
    367344        <CursorPos X="11" Y="27"/>
     345        <UsageCount Value="13"/>
     346      </Unit38>
     347      <Unit39>
     348        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/lcl/include/control.inc"/>
     349        <WindowIndex Value="0"/>
     350        <TopLine Value="2275"/>
     351        <CursorPos X="39" Y="2285"/>
     352        <UsageCount Value="12"/>
     353      </Unit39>
     354      <Unit40>
     355        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/systemh.inc"/>
     356        <EditorIndex Value="1"/>
     357        <WindowIndex Value="0"/>
     358        <TopLine Value="492"/>
     359        <CursorPos X="3" Y="504"/>
    368360        <UsageCount Value="10"/>
    369361        <Loaded Value="True"/>
    370       </Unit38>
     362      </Unit40>
     363      <Unit41>
     364        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/win/syswin.inc"/>
     365        <EditorIndex Value="5"/>
     366        <WindowIndex Value="0"/>
     367        <TopLine Value="197"/>
     368        <CursorPos X="30" Y="208"/>
     369        <UsageCount Value="10"/>
     370        <Loaded Value="True"/>
     371      </Unit41>
     372      <Unit42>
     373        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/system.inc"/>
     374        <EditorIndex Value="4"/>
     375        <WindowIndex Value="0"/>
     376        <TopLine Value="737"/>
     377        <CursorPos X="21" Y="747"/>
     378        <UsageCount Value="10"/>
     379        <Loaded Value="True"/>
     380      </Unit42>
     381      <Unit43>
     382        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/innr.inc"/>
     383        <EditorIndex Value="2"/>
     384        <WindowIndex Value="0"/>
     385        <TopLine Value="96"/>
     386        <CursorPos X="1" Y="1"/>
     387        <UsageCount Value="10"/>
     388        <Loaded Value="True"/>
     389      </Unit43>
    371390    </Units>
    372     <JumpHistory Count="30" HistoryIndex="28">
     391    <JumpHistory Count="30" HistoryIndex="29">
    373392      <Position1>
    374393        <Filename Value="../UMicroThreading.pas"/>
    375         <Caret Line="189" Column="1" TopLine="180"/>
     394        <Caret Line="322" Column="1" TopLine="315"/>
    376395      </Position1>
    377396      <Position2>
    378397        <Filename Value="../UMicroThreading.pas"/>
    379         <Caret Line="190" Column="1" TopLine="180"/>
     398        <Caret Line="328" Column="1" TopLine="315"/>
    380399      </Position2>
    381400      <Position3>
    382401        <Filename Value="../UMicroThreading.pas"/>
    383         <Caret Line="185" Column="1" TopLine="180"/>
     402        <Caret Line="363" Column="3" TopLine="350"/>
    384403      </Position3>
    385404      <Position4>
    386405        <Filename Value="../UMicroThreading.pas"/>
    387         <Caret Line="186" Column="1" TopLine="180"/>
     406        <Caret Line="322" Column="1" TopLine="309"/>
    388407      </Position4>
    389408      <Position5>
    390409        <Filename Value="../UMicroThreading.pas"/>
    391         <Caret Line="191" Column="1" TopLine="180"/>
     410        <Caret Line="326" Column="20" TopLine="309"/>
    392411      </Position5>
    393412      <Position6>
    394413        <Filename Value="../UMicroThreading.pas"/>
    395         <Caret Line="149" Column="1" TopLine="136"/>
     414        <Caret Line="169" Column="1" TopLine="156"/>
    396415      </Position6>
    397416      <Position7>
    398417        <Filename Value="../UMicroThreading.pas"/>
    399         <Caret Line="189" Column="1" TopLine="176"/>
     418        <Caret Line="363" Column="1" TopLine="350"/>
    400419      </Position7>
    401420      <Position8>
    402421        <Filename Value="../UMicroThreading.pas"/>
    403         <Caret Line="190" Column="1" TopLine="176"/>
     422        <Caret Line="322" Column="1" TopLine="309"/>
    404423      </Position8>
    405424      <Position9>
    406425        <Filename Value="../UMicroThreading.pas"/>
    407         <Caret Line="185" Column="1" TopLine="176"/>
     426        <Caret Line="330" Column="1" TopLine="309"/>
    408427      </Position9>
    409428      <Position10>
    410429        <Filename Value="../UMicroThreading.pas"/>
    411         <Caret Line="186" Column="1" TopLine="176"/>
     430        <Caret Line="316" Column="1" TopLine="309"/>
    412431      </Position10>
    413432      <Position11>
    414433        <Filename Value="../UMicroThreading.pas"/>
    415         <Caret Line="191" Column="1" TopLine="176"/>
     434        <Caret Line="169" Column="1" TopLine="156"/>
    416435      </Position11>
    417436      <Position12>
    418437        <Filename Value="../UMicroThreading.pas"/>
    419         <Caret Line="149" Column="1" TopLine="136"/>
     438        <Caret Line="316" Column="1" TopLine="303"/>
    420439      </Position12>
    421440      <Position13>
    422441        <Filename Value="../UMicroThreading.pas"/>
    423         <Caret Line="156" Column="1" TopLine="136"/>
     442        <Caret Line="330" Column="16" TopLine="317"/>
    424443      </Position13>
    425444      <Position14>
    426445        <Filename Value="../UMicroThreading.pas"/>
    427         <Caret Line="157" Column="1" TopLine="136"/>
     446        <Caret Line="363" Column="1" TopLine="350"/>
    428447      </Position14>
    429448      <Position15>
    430         <Filename Value="../UMicroThreading.pas"/>
    431         <Caret Line="158" Column="1" TopLine="136"/>
     449        <Filename Value="UMainForm.pas"/>
     450        <Caret Line="228" Column="1" TopLine="208"/>
    432451      </Position15>
    433452      <Position16>
    434         <Filename Value="../UMicroThreading.pas"/>
    435         <Caret Line="189" Column="1" TopLine="176"/>
     453        <Filename Value="UMainForm.pas"/>
     454        <Caret Line="235" Column="1" TopLine="215"/>
    436455      </Position16>
    437456      <Position17>
    438         <Filename Value="../UMicroThreading.pas"/>
    439         <Caret Line="190" Column="1" TopLine="176"/>
     457        <Filename Value="UMainForm.pas"/>
     458        <Caret Line="184" Column="28" TopLine="182"/>
    440459      </Position17>
    441460      <Position18>
    442         <Filename Value="../UMicroThreading.pas"/>
    443         <Caret Line="409" Column="21" TopLine="387"/>
     461        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/inc/system.inc"/>
     462        <Caret Line="660" Column="22" TopLine="656"/>
    444463      </Position18>
    445464      <Position19>
    446465        <Filename Value="../UMicroThreading.pas"/>
    447         <Caret Line="206" Column="18" TopLine="201"/>
     466        <Caret Line="527" Column="78" TopLine="504"/>
    448467      </Position19>
    449468      <Position20>
    450469        <Filename Value="../UMicroThreading.pas"/>
    451         <Caret Line="21" Column="15" TopLine="7"/>
     470        <Caret Line="531" Column="51" TopLine="513"/>
    452471      </Position20>
    453472      <Position21>
    454         <Filename Value="../UMicroThreading.pas"/>
    455         <Caret Line="123" Column="50" TopLine="110"/>
     473        <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/win/syswin.inc"/>
     474        <Caret Line="208" Column="27" TopLine="194"/>
    456475      </Position21>
    457476      <Position22>
    458477        <Filename Value="../UMicroThreading.pas"/>
    459         <Caret Line="165" Column="29" TopLine="145"/>
     478        <Caret Line="531" Column="46" TopLine="522"/>
    460479      </Position22>
    461480      <Position23>
    462481        <Filename Value="../UMicroThreading.pas"/>
    463         <Caret Line="148" Column="31" TopLine="135"/>
     482        <Caret Line="161" Column="27" TopLine="158"/>
    464483      </Position23>
    465484      <Position24>
    466485        <Filename Value="../UMicroThreading.pas"/>
    467         <Caret Line="165" Column="26" TopLine="152"/>
     486        <Caret Line="195" Column="43" TopLine="180"/>
    468487      </Position24>
    469488      <Position25>
    470489        <Filename Value="../UMicroThreading.pas"/>
    471         <Caret Line="148" Column="31" TopLine="148"/>
     490        <Caret Line="211" Column="43" TopLine="198"/>
    472491      </Position25>
    473492      <Position26>
    474493        <Filename Value="../UMicroThreading.pas"/>
    475         <Caret Line="150" Column="31" TopLine="135"/>
     494        <Caret Line="241" Column="45" TopLine="226"/>
    476495      </Position26>
    477496      <Position27>
    478497        <Filename Value="../UMicroThreading.pas"/>
    479         <Caret Line="80" Column="33" TopLine="68"/>
     498        <Caret Line="542" Column="1" TopLine="524"/>
    480499      </Position27>
    481500      <Position28>
    482501        <Filename Value="../UMicroThreading.pas"/>
    483         <Caret Line="143" Column="12" TopLine="136"/>
     502        <Caret Line="538" Column="39" TopLine="525"/>
    484503      </Position28>
    485504      <Position29>
    486505        <Filename Value="../UMicroThreading.pas"/>
    487         <Caret Line="144" Column="36" TopLine="128"/>
     506        <Caret Line="181" Column="1" TopLine="155"/>
    488507      </Position29>
    489508      <Position30>
    490         <Filename Value="../../../../Programy/Lazarus/0.9.31_2.4.3/fpc/2.4.3/source/rtl/objpas/sysutils/osutilsh.inc"/>
    491         <Caret Line="27" Column="11" TopLine="14"/>
     509        <Filename Value="../UMicroThreading.pas"/>
     510        <Caret Line="350" Column="22" TopLine="337"/>
    492511      </Position30>
    493512    </JumpHistory>
     
    525544      <Item3>
    526545        <Source Value="umainform.pas"/>
    527         <Line Value="58"/>
     546        <Line Value="62"/>
    528547      </Item3>
    529548      <Item4>
  • MicroThreading/Demo/UMainForm.lfm

    r142 r144  
    11object Form1: TForm1
    2   Left = 298
     2  Left = 300
    33  Height = 510
    4   Top = 144
     4  Top = 137
    55  Width = 703
    66  Caption = 'MicroThreading demo'
     
    9898  end
    9999  object Button4: TButton
    100     Left = 136
     100    Left = 120
    101101    Height = 25
    102102    Top = 12
    103     Width = 75
     103    Width = 88
    104104    Caption = 'Start workers'
    105105    OnClick = Button4Click
     
    116116    Value = 20
    117117  end
     118  object Button5: TButton
     119    Left = 168
     120    Height = 25
     121    Top = 48
     122    Width = 131
     123    Caption = 'Get max TThread count'
     124    OnClick = Button5Click
     125    TabOrder = 7
     126  end
     127  object Button6: TButton
     128    Left = 88
     129    Height = 25
     130    Top = 48
     131    Width = 75
     132    Caption = 'Button6'
     133    OnClick = Button6Click
     134    TabOrder = 8
     135  end
    118136  object Timer1: TTimer
    119137    Interval = 100
  • MicroThreading/Demo/UMainForm.pas

    r142 r144  
    2424    Button3: TButton;
    2525    Button4: TButton;
     26    Button5: TButton;
     27    Button6: TButton;
    2628    Label1: TLabel;
    2729    Label2: TLabel;
     
    3436    procedure Button3Click(Sender: TObject);
    3537    procedure Button4Click(Sender: TObject);
     38    procedure Button5Click(Sender: TObject);
     39    procedure Button6Click(Sender: TObject);
    3640    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    3741    procedure FormCreate(Sender: TObject);
     
    157161  for I := 0 to SpinEdit1.Value do
    158162    Scheduler.AddMethod(Worker);
     163end;
     164
     165procedure TForm1.Button5Click(Sender: TObject);
     166var
     167  NewThread: TThread;
     168  I: Integer;
     169begin
     170  try
     171    I := 0;
     172    while True do begin
     173      NewThread := TThread.Create(True);
     174      NewThread.FreeOnTerminate:= False;
     175      Inc(I);
     176    end;
     177  except
     178    ShowMessage('Application can create ' + IntToStr(I) +' TThread instances');
     179  end;
     180end;
     181
     182procedure TForm1.Button6Click(Sender: TObject);
     183begin
     184  ShowMessage(IntToStr(GetThreadID));
    159185end;
    160186
Note: See TracChangeset for help on using the changeset viewer.