Реферат: Разработка многопоточных Windows-приложений в среде Borland C Builder
Form3->Shape1->Height+=i;
if (Form3->Shape1->Width==100) {f=1;} ;
};
};
if(f==1)
{
for (k=100;k>=40;k-=5);
{
Form3->Shape1->Width-=i;
Form3->Shape1->Height-=i;
if (Form3->Shape1->Width==40) {f=0;} ;
};
};
}
//---------------------------------------------------------------------------
void __fastcall T3::Execute()
{
for (;;)
{
Synchronize(OutOnForm3);
Sleep(150);
}
}
//---------------------------------------------------------------------------