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

* Sender)

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

}

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

int Y)

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

}

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

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

}

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

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

}

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

int Y)

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

}

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

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

}

//---------------------------------------------------------------------------TMainForm::HSatRingsProv(String Path, TCheckBox * Check)

{(FileExists (ExtractFilePath (Application-> ExeName) + Path))

{* List=new TStringList;> LoadFromFile (ExtractFilePath (Application-> ExeName) + Path); (List-> Strings [10] == «diffuse 0.46 0.46 0.42» && List-> Strings [11] == «opacity 0.008»)> Checked=false;> Checked=true; List;

}

{> Checked=false;> Enabled=false;

}

} TMainForm :: HSatRingsSave (String Path, TCheckBox * Check)

{(FileExists (ExtractFilePath (Application-> ExeName) + Path))

{* List=new TStringList;&gt;LoadFromFile(ExtractFilePath(Application-&gt;ExeName)+Path);(Check-&gt;Checked==true)

{> Strings [10]=«diffuse 1 0 0»;> Strings [11]=«opacity 0.125»;

}

{> Strings [10]=«diffuse 0.46 0.46 0.42»;> Strings [11]=«opacity 0.008»;

}> SaveToFile (ExtractFilePath (Application-> ExeName) + Path); List;

}

} __fastcall TMainForm :: HlpClick (TObject * Sender)

{HelpFile=ExtractFilePath(Application-&gt;ExeName)+&laquo;managerhelp&laquo;+Language+&raquo;.chm&raquo;;(FileExists(HelpFile))(Handle, NULL, HelpFile.c_str (), NULL, NULL, SW_SHOWNORMAL);

{(Application-> MessageBox (StringsLocale [11]. c_str (), Application-> Title.c_str (), MB_YESNO | MB_ICONQUESTION) == IDYES)

{= ExtractFilePath (Application-> ExeName) + «manager help English.chm»; (Handle, NULL, HelpFile.c_str (), NULL, NULL, SW_SHOWNORM...