мо посилання на скачування (Check == CheckBox10) / / Пам'ятки Марса
Label16-> Visible=true; (Check == CheckBox17) / / Пояс Койпера-> Visible=true; (Check == CheckBox18) / / Динамічна модель атмосфери Юпітера-> Visible= true; (Check == CheckBox61) / / Хмара Оорта-> Visible=true; (Check == CheckBox20) / / Космічний Ліфт
Label15-> Visible=true;
}
}
/ / Збереження налаштувань вкладки Об'єкти і час
void TMainForm :: ObjectSave (String PodFolder, String Folder, TCheckBox * Check)
{path1, path2; (Check-> Checked == true)
{=ExtractFilePath(Application->ExeName)+"temp"+Folder;=ExtractFilePath(Application->ExeName)+PodFolder+Folder;(path1.w_str(), path2.w_str (), MOVEFILE_COPY_ALLOWED | MOVEFILE_REPLACE_EXISTING);
}
{=ExtractFilePath(Application->ExeName)+PodFolder+Folder;=ExtractFilePath(Application->ExeName)+"temp"+Folder;(path1.w_str(), path2.w_str (), MOVEFILE_COPY_ALLOWED | MOVEFILE_REPLACE_EXISTING);
}=NULL;=NULL;
}
/ / Перевірка космічних апаратів
void TMainForm :: EndingProv (String Dir, String Folder, String SSC, TCheckBox * Check)
{(FileExists (ExtractFilePath (Application-> ExeName) + Dir + Folder +" " + SSC))
{* Ending=new TStringList;>LoadFromFile(ExtractFilePath(Application->ExeName)+Dir+Folder+««+SSC);(Ending->Text.Pos(»#Ending»))>Checked=true;>Checked=false;Ending;
}> Enabled=false;
}
/ / Збереження параметрів космічних аппаратовTMainForm :: EndingSave (String Dir, String Folder, String SSC, TCheckBox * Check)
{(Check-> Enabled == true)
{* Ending=new TStringList;>LoadFromFile(ExtractFilePath(Application->ExeName)+Dir+Folder+""+SSC);(Check->Checked==true)
{>Text=StringReplace(Ending->Text,«#Ending»,«Ending»,TReplaceFlags()<< rfReplaceAll);>Text=StringReplace(Ending->Text,«Ending»,«#Ending»,TReplaceFlags()<< rfReplaceAll);
}>Text=StringReplace(Ending->Text,«#Ending»,«Ending»,TReplaceFlags()<< rfReplaceAll);> SaveToFile (ExtractFilePath (Application-> ExeName) + Dir + Folder +" " + SSC);
delete Ending;
}
}
/ / Вибрати всі чекбокси космічних кораблів
void TMainForm :: CheckAll (bool checked)
{->Checked=checked;->Checked=checked;->Checked=checked;->Checked=checked;->Checked=checked;->Checked=checked;->Checked=checked;->Checked=checked;->Checked=checked;
/ / CheckBox30-> Checked=checked; немає інформації про Ending'е
/ / CheckBox31-> Checked=checked; немає інформації ...
