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

Checked=false; -> Checked=false;

}

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

{-> Checked=false; -> Checked=false;

}

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

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

}

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

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

}

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

{[0]=S [3]; (SelectDirectory (StringsLocale [7]. c_str (), L «», S [0])) -> Text=S [0] ;

}

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

{[1]=S [3]; (SelectDirectory (StringsLocale [7]. c_str (), L «», S [1])) -> Text=S [1] ;

}

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

{[2]=S [3]; (SelectDirectory (StringsLocale [7]. c_str (), «», S [2]))

EditDir3-> Text=S [2];

}

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

/ / Обробка кліка по картинках курсорів

void __ fastcall TMainForm :: Image2Click (TObject * Sender)

{-> Checked=true;

}

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

{-> Checked=true;

}

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

{-> Checked=true;

}

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

/ / Заборона редагування полів папок

void __ fastcall TMainForm :: Label10MouseLeave (TObject * Sender)

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

}

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

int Y)

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

}

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

{(Handle, NULL, LinkLocale [8]. c_str (), NULL, NULL, S...