Реферат Створення менеджера конфігурації Celestia

W_SHOWNORMAL);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Label14MouseMove (TObject * Sender, TShiftState Shift, int X,

int Y)

{-> Font-> Style=TFontStyles () << fsUnderline;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Label14MouseLeave (TObject * Sender)

{-> Font-> Style=TFontStyles () >> fsUnderline;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Label14Click (TObject * Sender)

{(Handle, NULL, LinkLocale [7]. c_str (), NULL, NULL, SW_SHOWNORMAL);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Label16MouseMove (TObject * Sender, TShiftState Shift, int X,

int Y)

{-> Font-> Style=TFontStyles () << fsUnderline;

}

/ / ---------------------------------------------------------------------------

__fastcall TMainForm :: Label16MouseLeave (TObject * Sender)

{-> Font-> Style=TFontStyles () >> fsUnderline;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Label16Click (TObject * Sender)

{(Handle, NULL, LinkLocale [2]. c_str (), NULL, NULL, SW_SHOWNORMAL);

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Button1Click (TObject * Sender)

{(SelectDirectory (StringsLocale [8]. c_str (), «», S [4]))> Text=S [4];

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Edit5Change (TObject * Sender)

{-> Color=clWindow; -> Font-> Color=clWindowText;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Edit5Click (TObject * Sender)

{-> Color=clWindow; -> Font-> Color=clWindowText;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: Edit5KeyPress (TObject * Sender, char & Key)

{(Key>=«0» && Key <= «9» | | Key == VK_BACK);=0;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: ScrollBar1Change (TObject * Sender)

{-> Text=ScrollBar1-> Position;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: ScrollBar2Change (TObject * Sender)

{pos, tmpp;st;.DecimalSeparator=&laquo;.&raquo;;=ScrollBar2-&gt;Position;=pos/10;=FloatToStrF(tmpp,ffFixed,2,1);-&gt;Text=st;.DecimalSeparat...