Carregar.cpp

//---------------------------------------------------------------------------

#include <fmx.h>
#include <IOUtils.hpp>
#include <shlobj.h>
#pragma hdrstop

#include "Carregar.h"
#include "Principal.h"
#include "Codigo.h"
#include "Configuracoes.h"
#include "Sobre.h"
#include "ImgConf.h"
#include "CriptLib.h"
#include "Cript.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
#pragma comment (lib, "CriptLib.lib")
TfrmCarregar *frmCarregar;
//---------------------------------------------------------------------------
int cont = 0;
bool Existe, estilo = false, borda = false;
//---------------------------------------------------------------------------
__fastcall TfrmCarregar::TfrmCarregar(TComponent* Owner)
	: TForm(Owner)
{
	usarad = true;
	sans = false;
	Existe = false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmCarregar::tmConfigurarTimer(TObject *Sender)
{
	if (cont == 0) {

	lblEstado->Text = "Lendo arquivos...";

	PWSTR pszPath;
	if (SUCCEEDED(SHGetKnownFolderPath(FOLDERID_RoamingAppData, 0, NULL, &pszPath)))
	{
		String NSNPTEMP = System::Ioutils::TPath::Combine(pszPath, L"Nintersoft\\Ninterpres\\TEMP");
		NSNPLOC = System::Ioutils::TPath::Combine(pszPath, L"Nintersoft\\Ninterpres");
		NSNPLOCATL = System::Ioutils::TPath::Combine(NSNPLOC, L"NSNPATL");

		if (!TDirectory::Exists(NSNPTEMP)) TDirectory::CreateDirectory(NSNPTEMP);
		if (!TDirectory::Exists(NSNPLOCATL)) TDirectory::CreateDirectory(NSNPLOCATL);

		String NSNA = System::Ioutils::TPath::Combine(NSNPTEMP, L"NSTEMP.nps");
		String NSNS = System::Ioutils::TPath::Combine(NSNPTEMP, L"NSSTEMP.stl");;

		if (TFile::Exists(NSNA)) TFile::Delete(NSNA);
		if (TFile::Exists(NSNS)) TFile::Delete(NSNS);

		NSNPCONF = System::Ioutils::TPath::Combine(pszPath, L"Nintersoft\\Ninterpres\\Config");
		CoTaskMemFree(pszPath);

		if (!TDirectory::Exists(NSNPCONF)) {
			TDirectory::CreateDirectory(NSNPCONF);
		}

	}
		cont ++;

	}

	else if (cont == 1) {

		lblEstado->Text = "Gerando arquivo inicial...";

		String aprmod = System::Ioutils::TPath::Combine(NSNPLOC, L"NSNV");
		String aprstl = System::Ioutils::TPath::Combine(NSNPLOC, L"NSST");

		if (!TFile::Exists(aprmod + ".nps")) frmCodigo->mmCodigo->Lines->SaveToFile(aprmod + ".nps");
		if (!TFile::Exists(aprstl + ".stl")) frmCodigo->mmEstilo->Lines->SaveToFile(aprstl + ".stl");

		cont++;

	}

	else if (cont == 2) {

		lblEstado->Text = "Aplicando configurações do usuário...";

		String NSNPARQCONF = System::Ioutils::TPath::Combine(NSNPCONF, L"CONF");

		if (TFile::Exists(NSNPARQCONF+".conf")) {

			Existe = true;
			frmConfig->mmConfig->Lines->LoadFromFile(NSNPARQCONF+".conf");

			if (frmConfig->mmConfig->Lines->Count < 15) {
				ShowMessage("ERRO 001000: Arquivo de configuração corrompido excluído.\nConfigurações padrões serão utilizadas.\nOperação de carregamento de configurações cancelada.");
				falha:
				TFile::Delete(NSNPARQCONF+".conf");
			}
			else {
				try {
					TfrmCarregar::AplicarConfig();
				} catch (...) {
					ShowMessage("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
					goto falha;
				}
			}

		}
		else {
			borda = true;
		}

		if (Existe) ReconfiguraCont(5000);
		else ReconfiguraCont(1000);
		if (System::ParamCount() > 0) cont++;
		else cont += 2;

	}

	else if (cont == 3) {
		lblEstado->Text = "Carregando arquivo...";
		frmPrincipal->CarregarAbertura(System::ParamStr(1));
		ReconfiguraCont(1500);
		cont++;
	}

	else if (cont == 4) {
		lblEstado->Text = "Lendo extensões...";

		frmSobre->Height += 33;
		frmSobre->btAtualizar->Position->Y += 33;
		frmSobre->btFacebook->Position->Y += 33;
		frmSobre->btSite->Position->Y += 33;
		frmSobre->lblExt->Visible = true;
		frmSobre->lblExtNome->Visible = true;
		frmSobre->lblExtNome->Text = "CriptLib V" + CriptLib::Info::Ver();

		ReconfiguraCont(1500);
		cont++;
	}

	else if (cont == 5) {
		lblEstado->Text = "Ajustando a interface...";
		if (estilo){
			ReconfiguraCont(3500);
			AplicaEstilos(1);
		}
		else ReconfiguraCont(1500);
		if (!Existe) {
			ReconfiguraCont(3500);
			frmConfig->csEstilo->ItemIndex = 0;
			frmPrincipal->BorderStyle = TFmxFormBorderStyle::Sizeable;
			frmPrincipal->WindowState = TWindowState::wsMaximized;
			frmPrincipal->lblTituloForm->Visible = false;
			frmPrincipal->btMinimizar->Visible = false;
			frmPrincipal->btMaximizar->Visible = false;
			frmPrincipal->btFechar->Visible = false;
			frmPrincipal->btFecharEf->Visible = false;
			AplicaEstilos(1);
		}
		frmPrincipal->AjusteVisual();
		cont++;
	}

	else {

		lblEstado->Text = "Carregando...";
		if (estilo)	AplicaEstilos(2);
		if (!Existe) AplicaEstilos(2);
		frmPrincipal->listaPrevTransp->BeginUpdate();
		frmPrincipal->listaPrevTransp->ItemIndex = 2;
		frmPrincipal->listaPrevTransp->Repaint();
		frmPrincipal->listaPrevTransp->EndUpdate();
		frmPrincipal->listaPrevTransp->Selected->Repaint();
		frmPrincipal->AjusteVisual();
		frmPrincipal->CarregarTransp(frmPrincipal->SelecTransp->Selected->Index);
		frmPrincipal->vsTransp->Repaint();
		cont++;
		frmPrincipal->Show();
		Application->MainForm->WindowState = TWindowState::wsMaximized;
		if (!borda) {
			Application->MainForm->Height -= 40;
			frmPrincipal->corFundo->Stroke->Color = frmPrincipal->corFundo->Fill->Color;
		}
		tmConfigurar->Enabled = false;
		frmCarregar->Hide();
		frmPrincipal->redimencionar = true;
		if (!usarad) frmPrincipal->DefineTemp();
	}
}
//---------------------------------------------------------------------------
void __fastcall TfrmCarregar::btFecharClick(TObject *Sender)
{
	Application->Terminate();
}
//---------------------------------------------------------------------------
void TfrmCarregar::AplicarConfig()
{

	//---------------------------- Editor -----------------------------------

	if (frmConfig->mmConfig->Lines->Strings[0] == "NSEDT") {
		frmConfig->cbAtivarEditor->IsChecked = true;
		frmCodigo->mmCodigo->ReadOnly = false;
		frmCodigo->mmEstilo->ReadOnly = false;
	}
	else if (frmConfig->mmConfig->Lines->Strings[0] == "!NSEDT") {
		frmConfig->cbAtivarEditor->IsChecked = false;
		frmCodigo->mmCodigo->ReadOnly = true;
		frmCodigo->mmEstilo->ReadOnly = false;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	if (frmConfig->mmConfig->Lines->Strings[1] == "NSATC") {
		frmConfig->cbAtualizarCod->IsChecked = true;
		frmCodigo->btAlterar->Enabled = true;
	}
	else if (frmConfig->mmConfig->Lines->Strings[1] == "!NSATC") {
		frmConfig->cbAtualizarCod->IsChecked = false;
		frmCodigo->btAlterar->Enabled = false;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	//-------------------- Tamanho da fonte básica -------------------------

	long double tamFonteBasica = StrToFloat(frmConfig->mmConfig->Lines->Strings[2]);
	frmConfig->cxTamFonte->Value = tamFonteBasica;
	frmPrincipal->lblTranspTexto->TextSettings->Font->Size = tamFonteBasica;
	frmPrincipal->tamFonteBasica = tamFonteBasica;
	frmPrincipal->edtTamFonte->Value = tamFonteBasica;
	frmPrincipal->baTamFonte->Value = tamFonteBasica;
	int LOCLIN = frmPrincipal->LocDet("TAM_FONTE");
	frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "TAM:"+FloatToStr(tamFonteBasica);

	//---------------------- Marcações opcionais ---------------------------

	if (frmConfig->mmConfig->Lines->Strings[3] == "NSMSTR") {
		LOCLIN = frmPrincipal->LocDet("MSTR_TRANSP");
		frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "NSFN";
		frmConfig->cbMostrarTransp->IsChecked = true;
		frmPrincipal->opMostrarNSTransp->IsChecked = true;
	}
	else if (frmConfig->mmConfig->Lines->Strings[3] == "!NSMSTR") {
		LOCLIN = frmPrincipal->LocDet("MSTR_TRANSP");
		frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "!NSFN";
		frmConfig->cbMostrarTransp->IsChecked = false;
		frmPrincipal->opMostrarNSTransp->IsChecked = false;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	if (frmConfig->mmConfig->Lines->Strings[4] == "NSMSLG") {
		LOCLIN = frmPrincipal->LocDet("MSTR_LOGO");
		frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "NSLG";
		frmConfig->cbMostrarLogo->IsChecked = true;
		frmPrincipal->opMostrarLogoNS->IsChecked = true;
	}
	else if (frmConfig->mmConfig->Lines->Strings[4] == "!NSMSLG") {
		LOCLIN = frmPrincipal->LocDet("MSTR_LOGO");
		frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "!NSLG";
		frmConfig->cbMostrarLogo->IsChecked = false;
		frmPrincipal->opMostrarLogoNS->IsChecked = false;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	if (frmConfig->mmConfig->Lines->Strings[5] == "NSMSDT") {
		LOCLIN = frmPrincipal->LocDet("MSTR_DATA");
		frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "NSDT";
		frmConfig->cbMostrarData->IsChecked = true;
		frmPrincipal->opMostrarDataAtual->IsChecked = true;
	}
	else if (frmConfig->mmConfig->Lines->Strings[5] == "!NSMSDT") {
		LOCLIN = frmPrincipal->LocDet("MSTR_DATA");
		frmCodigo->mmEstilo->Lines->Strings[LOCLIN] = "!NSDT";
		frmConfig->cbMostrarData->IsChecked = false;
		frmPrincipal->opMostrarDataAtual->IsChecked = false;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	//--------------------- Aplicação de estilos ---------------------------

	int pos = StrToInt(frmConfig->mmConfig->Lines->Strings[6]);
	if (pos == 0) {
		estilo = true;
		borda = true;
		frmConfig->csEstilo->ItemIndex = pos;
		frmPrincipal->BorderStyle = TFmxFormBorderStyle::Sizeable;
		frmPrincipal->WindowState = TWindowState::wsMaximized;
		frmPrincipal->lblTituloForm->Visible = false;
		frmPrincipal->btMinimizar->Visible = false;
		frmPrincipal->btMaximizar->Visible = false;
		frmPrincipal->btFechar->Visible = false;
		frmPrincipal->btFecharEf->Visible = false;
	}
	else if (pos == 1) {
		frmPrincipal->BorderStyle = TFmxFormBorderStyle::None;
		frmConfig->csEstilo->ItemIndex = pos;
		frmPrincipal->btDeslizarEdtD->StyleLookup = frmPrincipal->btDeslizarVisD->StyleLookup;
		frmPrincipal->btDeslizarEdtE->StyleLookup = frmPrincipal->btDeslizarVisE->StyleLookup;
	}
	else if (pos == 2) {
		borda = true;
		frmConfig->csEstilo->ItemIndex = pos;
		frmPrincipal->BorderStyle = TFmxFormBorderStyle::Sizeable;
		frmPrincipal->WindowState = TWindowState::wsMaximized;
		frmPrincipal->lblTituloForm->Visible = false;
		frmPrincipal->btMinimizar->Visible = false;
		frmPrincipal->btMaximizar->Visible = false;
		frmPrincipal->btFechar->Visible = false;
		frmPrincipal->btFecharEf->Visible = false;
		frmPrincipal->reduc = 16;
	}
	else if (pos == 3) {

		int cor = StrToInt(frmConfig->mmConfig->Lines->Strings[7]);

		frmPrincipal->BorderStyle = TFmxFormBorderStyle::None;
		frmConfig->csEstilo->ItemIndex = pos;
		frmConfig->listaCorTema->BeginUpdate();
		frmConfig->listaCorTema->Color = cor;
		frmConfig->listaCorTema->EndUpdate();

		frmPrincipal->btDeslizarEdtD->StyleLookup = frmPrincipal->btDeslizarVisD->StyleLookup;
		frmPrincipal->btDeslizarEdtE->StyleLookup = frmPrincipal->btDeslizarVisE->StyleLookup;

		frmPrincipal->corAbaAjuda->BeginUpdate();
		frmPrincipal->corAbaAjuda->Fill->Color = cor;
		frmPrincipal->corAbaAjuda->Stroke->Color = cor;
		frmPrincipal->corAbaAjuda->EndUpdate();
		frmPrincipal->corAbaAjuda->Repaint();
		frmPrincipal->CorAbaVisualizar->BeginUpdate();
		frmPrincipal->CorAbaVisualizar->Fill->Color = cor;
		frmPrincipal->CorAbaVisualizar->Stroke->Color = cor;
		frmPrincipal->CorAbaVisualizar->EndUpdate();
		frmPrincipal->CorAbaVisualizar->Repaint();
		frmPrincipal->CorAbaEditar->BeginUpdate();
		frmPrincipal->CorAbaEditar->Fill->Color = cor;
		frmPrincipal->CorAbaEditar->Stroke->Color = cor;
		frmPrincipal->CorAbaEditar->EndUpdate();
		frmPrincipal->CorAbaEditar->Repaint();
		frmPrincipal->FundoAbaSelec->BeginUpdate();
		frmPrincipal->FundoAbaSelec->Fill->Color = cor;
		frmPrincipal->FundoAbaSelec->Stroke->Color = cor;
		frmPrincipal->FundoAbaSelec->EndUpdate();
		frmPrincipal->FundoAbaSelec->Repaint();
		frmConfig->listaCorTema->Enabled = true;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	//-------------------- Salvamento Automático ---------------------------

	if (frmConfig->mmConfig->Lines->Strings[8] == "NSSVSA") {
		frmConfig->cbSalvarAuto->IsChecked = true;

		if (StrToInt(frmConfig->mmConfig->Lines->Strings[10]) >= 0 && StrToInt(frmConfig->mmConfig->Lines->Strings[10]) <= 4 ) {
			frmConfig->lsSelecInter->ItemIndex = StrToInt(frmConfig->mmConfig->Lines->Strings[10]);
			frmPrincipal->tmCopiaSeg->Interval = (StrToInt(frmConfig->lsSelecInter->Selected->Text)*60000);
		}
		else if (StrToInt(frmConfig->mmConfig->Lines->Strings[10]) == 5) {
			int intervalo = StrToInt(frmConfig->mmConfig->Lines->Strings[11]);
			if (intervalo <= 5) {
				frmConfig->lsSelecInter->ItemIndex = StrToInt(frmConfig->mmConfig->Lines->Strings[10]);
				frmConfig->edtTempSeg->Value = 5;
				frmPrincipal->tmCopiaSeg->Interval = 300000;
			}
			else {
				frmConfig->lsSelecInter->ItemIndex = StrToInt(frmConfig->mmConfig->Lines->Strings[10]);
				frmConfig->edtTempSeg->Value = intervalo;
				frmPrincipal->tmCopiaSeg->Interval = intervalo*60000;
			}
		}
		else {
			throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
		}

		//------------------ Salvar apresentações não salvas -------------------

		if (frmConfig->mmConfig->Lines->Strings[9] == "NSSVAT"){
			sans = true;
			frmConfig->btApresTemp->IsChecked = true;
		}
		else if (frmConfig->mmConfig->Lines->Strings[9] != "!NSSVAT") throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");

		//------------------------ Uso de APPDATA ------------------------------

		if (frmConfig->mmConfig->Lines->Strings[12] == "!NSSVAD"){
			usarad = false;
			frmConfig->cbSalvarTemp->IsChecked = false;
		}
		else if (frmConfig->mmConfig->Lines->Strings[12] == "NSSVAD") frmPrincipal->tmCopiaSeg->Enabled = true;
		else throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");

	}
	else if (frmConfig->mmConfig->Lines->Strings[8] == "!NSSVSA"){
		frmConfig->cbSalvarAuto->IsChecked = false;
		frmPrincipal->tmCopiaSeg->Enabled = false;
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	//---------------------------- Nome ------------------------------------

	frmConfig->edtNomeLicen->Text = frmConfig->mmConfig->Lines->Strings[13];
	frmSobre->lblLicencProg->Text = frmConfig->edtNomeLicen->Text;

	//--------------------------- Idioma -----------------------------------

	int Idioma = StrToInt(frmConfig->mmConfig->Lines->Strings[14]);
	frmConfig->cbSelecIdioma->ItemIndex = Idioma;

	if (Idioma == 0) {
		frmPrincipal->Idioma->Lang = "pt";
	}
	else {
		throw Exception ("ERRO 001001: Erro durante a aplicação das configurações.\nAs configurações serão restauradas à seus padrões.");
	}

	//--------------------------- Marcação ---------------------------------

	frmConfig->env = true;
	frmConfig->cbDefPad->IsChecked = true;

}
//---------------------------------------------------------------------------
void TfrmCarregar::ReconfiguraCont (int Tempo)
{
	frmCarregar->tmConfigurar->Enabled = false;
	frmCarregar->tmConfigurar->Interval = Tempo;
	frmCarregar->tmConfigurar->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmCarregar::FormShow(TObject *Sender)
{
	tmConfigurar->Enabled = true;
}
//---------------------------------------------------------------------------

void TfrmCarregar::AplicaEstilos(int Passo)
{

	if (Passo == 1) {

		//--------------------------- Principal ---------------------------------
		frmPrincipal->BeginUpdate();
		frmPrincipal->corAbaAjuda->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmPrincipal->corAbaAjuda->Stroke->Color = TAlphaColor(TAlphaColorRec::Darkgray);
		frmPrincipal->CorAbaEditar->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmPrincipal->CorAbaEditar->Stroke->Color = TAlphaColor(TAlphaColorRec::Darkgray);
		frmPrincipal->CorAbaVisualizar->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmPrincipal->CorAbaVisualizar->Stroke->Color = TAlphaColor(TAlphaColorRec::Darkgray);
		frmPrincipal->CorAbaArquivo->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmPrincipal->CorAbaArquivo->Stroke->Color = TAlphaColor(TAlphaColorRec::Darkgray);
		frmPrincipal->BarraNav->Visible = false;
		frmPrincipal->Abas->TabPosition = TTabPosition::Top;
		frmPrincipal->vpLinha->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha2->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha3->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha4->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha5->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha6->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha7->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpLinha8->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpVisualizar->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->vpApres->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmPrincipal->cbBorda->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->cbFonte->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->cbTodos->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblTamPrevTransp->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblCorTansp->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblListaCorTexto->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblAjudaOnline->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblApreAutor->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblApreTitulo->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->opMostrarDataAtual->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->opMostrarLogoNS->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->opMostrarNSTransp->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblAjustesAdicionais->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblTamFonte->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblTranspTipo->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblEdtTranspCont->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblEdtTranspImg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->lblEdtTranspTitulo->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->btAjudaAutor->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmPrincipal->tbTeste->Visible = false;
		frmPrincipal->Abas->Height = 154;
		frmPrincipal->reduc = 16;
		frmPrincipal->btDeslizarAjdD->StyleLookup = frmPrincipal->btDeslizarEdtD->StyleLookup;
		frmPrincipal->btDeslizarAjdE->StyleLookup = frmPrincipal->btDeslizarEdtE->StyleLookup;
		frmPrincipal->btDeslizarAqvD->StyleLookup = frmPrincipal->btDeslizarEdtD->StyleLookup;
		frmPrincipal->btDeslizarAqvE->StyleLookup = frmPrincipal->btDeslizarEdtE->StyleLookup;
		frmPrincipal->btDeslizarVisD->StyleLookup = frmPrincipal->btDeslizarEdtD->StyleLookup;
		frmPrincipal->btDeslizarVisE->StyleLookup = frmPrincipal->btDeslizarEdtE->StyleLookup;
		frmPrincipal->EndUpdate();

		//----------------------------- Sobre -----------------------------------
		frmSobre->BeginUpdate();
		frmSobre->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmSobre->lblDesenvolvedor->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblDesenvolvedorProg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblEstado->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblLicenc->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblLicencProg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblNomeProg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblProg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblVersao->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblVersaoProg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblExt->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->lblExtNome->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmSobre->EndUpdate();

		//---------------------------- Codigo -----------------------------------
		frmCodigo->BeginUpdate();
		frmCodigo->bmPrincipal->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmCodigo->btAlterar->FontColor = TAlphaColor(TAlphaColorRec::Orange);
		frmCodigo->btEstilo->FontColor = TAlphaColor(TAlphaColorRec::Orange);
		frmCodigo->btVerificar->FontColor = TAlphaColor(TAlphaColorRec::Orange);
		frmCodigo->Linha1->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmCodigo->Linha2->Stroke->Color = TAlphaColor(TAlphaColorRec::Orange);
		frmCodigo->EndUpdate();

		//---------------------------- Config -----------------------------------
		frmConfig->BeginUpdate();
		frmConfig->abasConf->Width -= 10;
		frmConfig->abasConf->Height += 8;
		frmConfig->EndUpdate();

		//------------------------- Img: Config ---------------------------------
		frmImgConf->BeginUpdate();
		frmImgConf->Fill->Color = TAlphaColor(TAlphaColorRec::White);
		frmImgConf->lblImgLeg->FontColor = TAlphaColor(TAlphaColorRec::Black);
		frmImgConf->EndUpdate();

		//---------------------------- Cript ------------------------------------
		frmCript->BeginUpdate();
		frmCript->edtOrig->Width -= 3;
		frmCript->edtSenha->Width -= 3;
		frmCript->cxSenhas->Width -= 8;
		frmCript->EndUpdate();

	}
	else if (Passo == 2){
	   TStyleManager::SetStyle(Estilos->Style);
	}
	else {
		throw Exception ("Parâmetro incorreto!");
	}

}
//---------------------------------------------------------------------------

void __fastcall TfrmCarregar::FormClose(TObject *Sender, TCloseAction &Action)
{
	Application->Terminate();
}
//---------------------------------------------------------------------------