Return to mainunit.cpp CVS log

Up to [Synchronet] / sbbs / src / xpdev / clx / threadcreate

Annotation of sbbs/src/xpdev/clx/threadcreate/mainunit.cpp, revision 1.1.1.1

1.1       root        1: //---------------------------------------------------------------------------
                      2: 
                      3: #include <clx.h>
                      4: #pragma hdrstop
                      5: 
                      6: #include "MainUnit.h"
                      7: #include "ThreadUnit.h"
                      8: 
                      9: //---------------------------------------------------------------------------
                     10: #pragma package(smart_init)
                     11: #pragma resource "*.xfm"
                     12: TForm1 *Form1;
                     13: //---------------------------------------------------------------------------
                     14: __fastcall TForm1::TForm1(TComponent* Owner)
                     15:        : TForm(Owner)
                     16: {
                     17:        CriticalSection = new TCriticalSection();
                     18:     List = new TList();
                     19: }
                     20: //---------------------------------------------------------------------------
                     21: void __fastcall TForm1::CreateButtonClick(TObject *Sender)
                     22: {
                     23:        TMyThread* NewThread = new TMyThread(true);
                     24: 
                     25:     NewThread->List=List;
                     26:     NewThread->Log=Log;
                     27:     NewThread->CriticalSection = CriticalSection;
                     28:     ListBox->Items->AddObject(NewThread->ThreadID, NewThread);
                     29:     NewThread->Resume();
                     30: }
                     31: //---------------------------------------------------------------------------
                     32: void __fastcall TForm1::KillButtonClick(TObject *Sender)
                     33: {
                     34:        for(int i=0;i<ListBox->Items->Count;i++)
                     35:        if(ListBox->Selected[i]) {
                     36:                TMyThread* MyThread = (TMyThread*)ListBox->Items->Objects[i];
                     37:             MyThread->FreeOnTerminate = true;
                     38:             MyThread->Terminate();
                     39:             ListBox->Items->Delete(i);
                     40:         }
                     41: }
                     42: //---------------------------------------------------------------------------
                     43: void __fastcall TForm1::TimerTick(TObject *Sender)
                     44: {
                     45:        StatusBar->SimpleText = AnsiString(List->Count);
                     46: }
                     47: //---------------------------------------------------------------------------
                     48: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.