//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
updatelabels(Form1);
Image1->Canvas->Brush->Color = clWhite;
Image1->Canvas->Pen->Color = clBlack;
StringGrid1->Cells[0][0] = "zmien.";
StringGrid1->Cells[1][0] = "wart.";
StringGrid1->Cells[2][0] = "jedn.";
StringGrid1->Cells[0][1] = "kat f";
StringGrid1->Cells[0][2] = "w=df/dt";
StringGrid1->Cells[0][3] = "E=dw/dt";
StringGrid1->Cells[0][4] = "Ec/m";
StringGrid1->Cells[2][1] = "st.";
StringGrid1->Cells[2][2] = "st./s";
StringGrid1->Cells[2][3] = "st./s2";
StringGrid1->Cells[2][4] = "J/kg";
Button1Click(Sender);
Timer1->Enabled=true;
Timer1->OnTimer = Form1->Timer1Timer;
}
void __fastcall TAuthForm::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if(Key=='\r'){
Button1Click(Button1);
Key=0;
}
}
void __fastcall TLifeForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(FLifeEngine->Running) {
Button1Click(Sender);
}
CanClose = !FLifeEngine->Running;
}
//---------------------------------------------------------------------------
void __fastcall TForm27::Edit2KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==13)
{
Button1Click(Sender);
}
}
void __fastcall TFormTam::edtColsKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==13)
{
Button1Click(NULL);
}
}
//---------------------------------------------------------------------------
void __fastcall TPerimeterDemo::FormCreate(TObject *Sender)
{
Series2->XValues->Order = loNone;
Series2->DataSource = Series1;
Series2->FunctionType = new TPerimeterFunction(this); // StatChar.pas unit
Button1Click(this);
}
void __fastcall TForm1::CSpinEdit1KeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
Key = 0;
Button1Click(Sender);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
DeltaQ = TrackBar1->Position * 3.14 / 180;
DeltaAlfa = TrackBar2->Position * 3.14 / 180;
Label3->Caption = DeltaQ * 180 / 3.14;
Label4->Caption = DeltaAlfa * 180 / 3.14;
Label12->Caption = FloatToStrF(ArcCos(cos(DeltaAlfa)*cos(DeltaQ))*180 / 3.14, ffFixed, 20, 3 );
Label14->Caption = FloatToStrF(Math::ArcTan2(sin(DeltaAlfa), cos(DeltaAlfa)*sin(DeltaQ)) *180 / 3.14, ffFixed, 20, 3 );
Button1Click(Sender);
}
void __fastcall TfrmMain::aPrevStepExecute(TObject *Sender)
{
if ( ListBox1->Items->Count == 0 ) return;
Button1Click(Sender);
if ( ListBox1->ItemIndex <= 0 )
ListBox1->ItemIndex = ListBox1->Items->Count - 1;
else ListBox1->ItemIndex = ListBox1->ItemIndex - 1;
// if ( ActiveControl->Name == "eTempr" ) eTempr->SelectAll();
// if ( ActiveControl->Name == "eTime" ) eTime->SelectAll();
ListBox1Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormRec::edtRecKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
string strNick;
strNick=string(edtRec->Text.c_str());
if(strNick.size()>30)
{
strNick.erase(strNick.size()-1,1);
}
edtRec->Text=AnsiString(strNick.c_str());
if(Key==13)
{
Button1Click(NULL);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BtOkClick(TObject *Sender)
{
Button1Click(this);
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button1Click(Form1);
updatelabels(Form1);
}
