ObjectVos (String PodFolder, String Folder, String SSC, TCheckBox * Check, bool extras); EndingProv (String Dir, String Folder, String SSC, TCheckBox * Check); EndingSave (String Dir, String Folder, String SSC, TCheckBox * Check); EndingVos (String Dir, String Folder, String SSC, TCheckBox * Check); CheckAll (bool checked); HSatRingsProv (String Path, TCheckBox * Check); HSatRingsSave (String Path, TCheckBox * Check);
};
/ / --------------------------------------------------------------------------- PACKAGE TMainForm * MainForm;
/ / ---------------------------------------------------------------------------
# endif.cpp
/ / ---------------------------------------------------------------------------
# include
# pragma hdrstop
# include «Unit1.h»
# include «FileCtrl.hpp»
# include «IniFiles.hpp»
/ / ---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource «*. dfm» * EP; * Settings; * Links; * Lang; startfolder, AutoSave; S [7], sl;LuaAdr;Link[4];CelestiaVersion;Language,LanguageFile;LinkLocale[15];StringsLocale[15];MessegesLocale[15];
TMainForm * MainForm;
/ / ---------------------------------------------------------------------------
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
/ / ПЕРЕВІРКИ ПРИ СТАРТІ / /
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
__fastcall TMainForm :: TMainForm (TComponent * Owner)
: TForm (Owner)
{
/ / ЗАВАНТАЖЕННЯ ЛОКАЛІЗАЦІІ_t charlang [255]; lc=GetSystemDefaultLCID (); (lc, LOCALE_SENGLANGUAGE, charlang, sizeof (charlang));=charlang;=ExtractFilePath(Application->ExeName)+«managerlanguage«+Language+».lng«;= new TMemIniFile(LanguageFile);>Title=Lang->ReadString(»Strings«,»AppName«,»Celestia Config Manager «) +» v »+ GetVer (Application-> ExeName);> Caption=Application-> Title;
/ / Вкладка «Основные»->Caption=Lang->ReadString(«Main»,«Label19»,«You are using: ») +« »; -> Caption=Lang-> ReadString (« Main »,« Label32 »,« Download new version»);[1]=Lang->ReadString(«Links»,«Link1»,«#»justify«>//Вкладка »Об'єкти і время«>Caption=Lang->ReadString(»ObjectsTime«,»ObjectTab«,»Objects and time«);->Caption=Lang->ReadString(»ObjectsTime«,»GroupBox2«,»Show«);->Caption=Lang->ReadString(&a...
