//--------------------------------------------------------------------------- void __fastcall TGUIConfiguration::SetLocaleInternal(LCID value, bool Safe) { if (Locale != value) { HINSTANCE Module; try { Module = LoadNewResourceModule(value); assert(Module != NULL); } catch(...) { if (Safe) { // ignore any exception while loading locale Module = NULL; } else { throw; } } if (Module != NULL) { FLocale = value; if (CanApplyLocaleImmediately) { FAppliedLocale = value; SetResourceModule(Module); } } } }
//--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "BOOLE-DEUSTO"; resInstance=(void *)LoadNewResourceModule( ( (SUBLANG_ENGLISH_US << 10) | LANG_ENGLISH) ); Application->CreateForm(__classid(TPrincipal), &Principal); Application->CreateForm(__classid(TExprBooleana), &ExprBooleana); Application->CreateForm(__classid(TFormasNormales), &FormasNormales); Application->CreateForm(__classid(TExpresionSimp), &ExpresionSimp); Application->CreateForm(__classid(TNANDyNOR), &NANDyNOR); Application->CreateForm(__classid(TSistemaCombinacionalNuevo), &SistemaCombinacionalNuevo); Application->CreateForm(__classid(TSCFormasCompactas), &SCFormasCompactas); Application->CreateForm(__classid(TTablaVerdadCompleta), &TablaVerdadCompleta); Application->CreateForm(__classid(TTablaVerdadManual), &TablaVerdadManual); Application->CreateForm(__classid(Tap), &ap); Application->CreateForm(__classid(TForm1Boole2), &Form1Boole2); Application->CreateForm(__classid(TForm10), &Form10); Application->CreateForm(__classid(TForm11), &Form11); Application->CreateForm(__classid(TForm12), &Form12); Application->CreateForm(__classid(TForm13), &Form13); Application->CreateForm(__classid(TForm14), &Form14); Application->CreateForm(__classid(TForm15), &Form15); Application->CreateForm(__classid(TForm16), &Form16); Application->CreateForm(__classid(TForm2), &Form2); Application->CreateForm(__classid(TForm3), &Form3); Application->CreateForm(__classid(TForm4), &Form4); Application->CreateForm(__classid(TForm5), &Form5); Application->CreateForm(__classid(TForm6), &Form6); Application->CreateForm(__classid(TForm8), &Form8); Application->CreateForm(__classid(TForm9), &Form9); Application->CreateForm(__classid(TFormR), &FormR); Application->CreateForm(__classid(TFormI), &FormI); Application->CreateForm(__classid(TfAyuda), &fAyuda); Application->CreateForm(__classid(TfSimulacion), &fSimulacion); Application->CreateForm(__classid(TfLog), &fLog); Application->CreateForm(__classid(TfTextoAsoc), &fTextoAsoc); Application->CreateForm(__classid(TfKarnaugh), &fKarnaugh); Application->Run(); } catch(Exception & exception) { Application->ShowException(&exception); } return 0; }