//---------------------------------------------------------------------------
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;
}
