Subversion Repositories DevTools

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

#include <vcl.h>
#pragma hdrstop

#include "Login.h"
#include "Registry.hpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLoginForm *LoginForm;
//---------------------------------------------------------------------------
__fastcall TLoginForm::TLoginForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TLoginForm::FormShow(TObject *Sender)
{
    TRegistry   *registry = NULL;

    try
    {
        registry = new TRegistry();
        registry->RootKey = HKEY_CURRENT_USER;

        // True because we want to create it if it doesn't exist
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
        AnsiString  last_user = registry->ReadString("LastUser");

        if (last_user.IsEmpty())
        {
                last_user = "integration";
        }

        UsernameEdit->Text = last_user;
        PasswordEdit->SetFocus();
    }
    __finally
    {
        delete registry;
    }
}
//---------------------------------------------------------------------------
void __fastcall TLoginForm::LoginOKBtnClick(TObject *Sender)
{
    TRegistry   *registry = NULL;

    try
    {
        registry = new TRegistry();
        registry->RootKey = HKEY_CURRENT_USER;

        // True because we want to create it if it doesn't exist
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
        registry->WriteString("LastUser", UsernameEdit->Text);
    }
    __finally
    {
        delete registry;
    }
}
//---------------------------------------------------------------------------