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

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "../Protocols/InsideProtocols.h"

#include "OneToOneChatWindow.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_OneChat *Form_OneChat;
//---------------------------------------------------------------------------
__fastcall TForm_OneChat::TForm_OneChat(TComponent* Owner, AnsiString strUserID )
    : TForm(Owner)
{
    m_strUserID = strUserID;

    ComponentInit();
}
//---------------------------------------------------------------------------
void TForm_OneChat::ComponentInit()
{
    // ÇØ´ç ÄÄÆ÷³ÍÆ®ÀÇ ¼Ó¼º º¯°æÀº µðÀÚÀÎÀûÀÎ ¿ä¼Ò¸¦ Á¦¿ÜÇÑ ¼Ó¼ºÀº Á÷Á¢ ÄÚµùÇÏ¿©¾ß È¥µ¿ÀÌ ¾ø´Ù.
    // ¶ÇÇÑ µðÀÚÀÎÀûÀ¸·Î ¾î¿¼ö ¾ø´Â »óȲÀÇ °æ¿ì º¯°æÇÑ ¹æ¹ýÀ» ÀÚ¼¼È÷ Àû´Â´Ù.
    Memo_ChatContents->ReadOnly = true;

    Memo_SendContents->OnKeyPress = Memo_SendContentsKeyPress;
}
//---------------------------------------------------------------------------
/*  ³×Æ®¿÷ Àü¼Û½Ã   */
void TForm_OneChat::SendChatMessage( AnsiString strTargetID, AnsiString strMessage )
{
}
//---------------------------------------------------------------------------
/*  ³×Æ®¿÷ ¼ö½Å½Ã   */
void TForm_OneChat::OnRecvChatMessage( AnsiString strFromUserID, AnsiString strMessage )
{
    AddChatMessage( strFromUserID, strMessage );
}
//---------------------------------------------------------------------------
void TForm_OneChat::AddChatMessage( AnsiString strFromUserID, AnsiString strMessage )
{
    char szText[ CHAT_TEXT_MAX_LENGTH + USER_NICKNAME_MAX_LENGTH ];
    sprintf( szText, "%s :\r\n\t%s", strFromUserID.c_str(), strMessage.c_str() );
    Memo_ChatContents->Lines->Add( szText );
}
//---------------------------------------------------------------------------
void __fastcall TForm_OneChat::Memo_SendContentsKeyPress(TObject *Sender,
      char &Key)
{
    switch( Key )
    {
        case VK_RETURN :
        {
            if( !Memo_SendContents->Text.IsEmpty() )
                SendChatMessage( m_strUserID, Memo_SendContents->Text );

            break;
        }

        case VK_ESCAPE :
        {
            Close();

            break;
        }

        default :
            break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm_OneChat::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;    
}
//---------------------------------------------------------------------------