/*

* Copyright (c) 2002 - 2006 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description:

*

*/

// INCLUDE FILES

#include <barsread.h>

#include <eikenv.h>

#include <AknPanic.h>

#include <avkon.hrh>

#include <avkon.rsg>

#include <aknmessagequerycontrol.h>

#include <aknmessagequerydialog.h>

#include <eiksbfrm.h>

#include <eikscrlb.h>

#include <eikappui.h>

#include <frmlaydt.h>

#include "aknconsts.h"

#include <AknsDrawUtils.h>

#include <applayout.cdl.h>

#include "aknappui.h"

#include <eikrted.h>

#include <txtrich.h> 

#include <txtfrmat.h>

#include <layoutmetadata.cdl.h>

#include <aknlayoutscalable_avkon.cdl.h>

#include <eikdialg.h>

#include <eikdialogext.h>

#include <eikedwob.h>

#include <AknTasHook.h> // for testability hooks

class CAknMessageQueryControlExtension: public CBase, public MEikEdwinObserver

    {

public:

    CAknMessageQueryControlExtension( CAknMessageQueryControl* aParent ): iParent( aParent ) {}

    /**

    * From MEikEdwinObserver. Handles edwin events.

    * On the scroll event, any selected link is dehighlighted.

    */

    void HandleEdwinEventL( CEikEdwin* /*aEdwin*/, TEdwinEvent aEventType )

        {

    	if( aEventType == MEikEdwinObserver::EEventScroll )

    	    {

    		iParent->DehighlightLink();

    		}

        }

    ~CAknMessageQueryControlExtension()

        {    

        if( iDestroyedPtr )

            {

            // Mark the object as destroyed.

            *iDestroyedPtr = ETrue;

            iDestroyedPtr = NULL;

            }

        }

    public:

    CAknMessageQueryControl* iParent;

    /**

    * @c iDestroyedPtr is used for the object destruction check.

    * If it has non-null value, the destruction check is turned on, and

    * the value points to a local boolean variable that keeps the destroyed state.

    */

    TBool* iDestroyedPtr;

    };

CAknMessageQueryControl::CAknMessageQueryControl() :

    iTopLine( 0 ), iLinksCount( 0 ), iVisibleLinksCount( 0 ),

    iFirstVisibleLink( -1 ), iCurPos( 0 ), iFullMessage( NULL )

    {

    iLinesPerPage = AknLayoutScalable_Avkon::popup_info_list_pane_t1_ParamLimits().LastRow() + 1;

    AKNTASHOOK_ADD( this, "CAknMessageQueryControl" );

    }

CAknMessageQueryControl::~CAknMessageQueryControl()

    {

    AKNTASHOOK_REMOVE();

    AknsUtils::DeregisterControlPosition( iEdwin );

    delete iEdwin;

    iLinkTextLocationArray.Close();

    iLinkTextArray.Close();

    delete iFullMessage;

    delete iExtension;

    }

EXPORT_C void CAknMessageQueryControl::ConstructFromResourceL( TResourceReader& aReader )

    {

    CEikDialog* dlg;

    MopGetObject( dlg );

    if ( dlg )

        {

        dlg->Extension()->iPublicFlags.Set( CEikDialogExtension::EClipChildControlRect );

        }

    TPtrC messageLabel = aReader.ReadTPtrC();

    SetMessageTextL( &messageLabel );

    }

EXPORT_C void CAknMessageQueryControl::SetMessageTextL( TDesC* aMessage )

    {

    CreateEditorL();

    iEdwin->TextLayout()->SetAmountToFormat( CTextLayout::EFFormatAllText );

    if ( aMessage->Length() > iEdwin->UpperFullFormattingLength() )

        iEdwin->SetUpperFullFormattingLength( aMessage->Length() ); 

    iEdwin->SetTextL( aMessage );

    LayoutEditorL(); 

    HBufC* msgBuf = aMessage->AllocLC();

    TPtr message( msgBuf->Des() );

    if( iListQLayout )

        {

        TruncateTextForListQLayoutL( message );

        iEdwin->SetTextL( &message );

        LayoutEditorL(); 

        }

    if ( message.Locate('\n') != KErrNotFound )

        {

        iEdwin->SetCursorPosL( 1, EFalse );

        SEdwinFindModel findModel;

        _LIT( KNChar,"\n" ); 

        _LIT( KFChar,"\f" );

        TBuf<1> text( KNChar );

        TBuf<1> replaceText( KFChar );

        findModel.iFlags = 0;

        findModel.iText = text;

        findModel.iReplaceText = replaceText;

        findModel.iReplaceOption = EReplaceAll;

        iEdwin->ReplaceAllL( &findModel );

        }

    CleanupStack::PopAndDestroy( msgBuf );  // After all usages of message        

    iNumberOfLines = iEdwin->TextLayout()->NumFormattedLines();

    iTopLine = 0;

    UpdateScrollIndicatorL();    

    }           

void CAknMessageQueryControl::CreateEditorL()

    {

    delete iEdwin;

    iEdwin = NULL;

    iSBFrame = NULL;

    iEdwin = new ( ELeave ) CEikRichTextEditor( TGulBorder::ENone );

    iEdwin->SetContainerWindowL( *this );

    AknEditUtils::ConstructEditingL( iEdwin, R_AVKON_MESSAGE_QUERY_EDITOR );

    if ( !iExtension )

        {

        iExtension = new (ELeave) CAknMessageQueryControlExtension( this );

        }

    iEdwin->SetEdwinObserver( iExtension );

    iEdwin->SetAvkonWrap( ETrue );                                  

    iEdwin->SetFocus( EFalse );

    iEdwin->SetNonFocusing();

    iEdwin->EnableKineticScrollingL(ETrue);

    }    

void CAknMessageQueryControl::LayoutEditorL()

    {

    TInt lines = 1;

    RArray<TAknTextComponentLayout> textComponentLayoutArray;

    for ( TInt rowIndex = 0; rowIndex < lines; rowIndex++)

        {

        TRAPD(error, textComponentLayoutArray.AppendL(AknLayoutScalable_Avkon::popup_info_list_pane_t1(rowIndex)));

        if (error != KErrNone)

            {

            textComponentLayoutArray.Close();

            User::Leave(error);

            }

        }

    TRect parentRect = LayoutRect();

    TAknLayoutRect listScrollPopupInfoPane;

    listScrollPopupInfoPane.LayoutRect(parentRect, AknLayoutScalable_Avkon::listscroll_popup_info_pane());

    TAknLayoutRect listPopupInfoPane;

    listPopupInfoPane.LayoutRect(listScrollPopupInfoPane.Rect(), AknLayoutScalable_Avkon::list_popup_info_pane( 0 ));  // Variety with scroll bar

    /** The edwin rect is set totally from layout list_popup_info_pane. But

      * AknLayoutUtils::LayoutEdwin() is still used for setting its text color and font. 

     **/ 

    AknLayoutUtils::LayoutEdwin( iEdwin, listPopupInfoPane.Rect(),

        TAknTextComponentLayout::Multiline(textComponentLayoutArray), EAknsCIQsnTextColorsCG19 );

    iEdwin->SetSuppressFormatting(ETrue);

    iEdwin->SetRect( listPopupInfoPane.Rect() );

    iEdwin->SetSuppressFormatting(EFalse);

    textComponentLayoutArray.Close();

    }    

TKeyResponse CAknMessageQueryControl::OfferKeyEventL( const TKeyEvent& aKeyEvent, TEventCode /*aModifiers*/ )

    {

    TInt key( aKeyEvent.iCode );

    if( !(key == EKeyDownArrow || key == EKeyUpArrow) )

        return EKeyWasConsumed;

    TBool moveDown = key == EKeyDownArrow; // Moving down?

    /* 4 transitions are possible:

    Text   -> *Link*

    *Link* -> *Link*

    *Link* -> Text

    Text   -> >>Scroll page>>

    */

    // If the editor was scrolled with pen, synchronize the query's and editor's states

    TInt editorTopLine = iEdwin->TextLayout()->FirstLineInBand();

    if( editorTopLine != iTopLine )

        {

        if( LinkHighLighted() ) // Standing on a link?

            {

            // Synchronize to the query's position

            iEdwin->TextView()->SetViewLineAtTopL( iTopLine + 1 );    // Uses 1-based line numbers

            }

        else

            {

            // Synchronize to the editor's position

            iTopLine = editorTopLine;

            UpdatePageInfo();

            }

        }

    SetHighlightOnL( EFalse );  // Dehighlight the old link    

    // Move to the following position    

    iCurPos += moveDown? 1 : -1;

    if( iCurPos < 1 || iPositionsCount -1  <= iCurPos ) // Beyond the allowed range

        {

        if( CanScrollPage( moveDown ) )

            {

            iTopLine += moveDown? iLinesPerPage - 1 : 1 - iLinesPerPage;

            if( iTopLine >= iNumberOfLines - iLinesPerPage)

                {

                iTopLine = iNumberOfLines - iLinesPerPage;

                }

            if( iTopLine < 0)

                {

                iTopLine = 0;

                }

            iEdwin->MoveDisplayL( moveDown? TCursorPosition::EFPageDown : TCursorPosition::EFPageUp );

            int lastPageLink = -1;

            if( iFirstVisibleLink > -1 )

            	lastPageLink = moveDown?

            	    (iFirstVisibleLink + iVisibleLinksCount - 1): iFirstVisibleLink;

            UpdatePageInfo();

            if( lastPageLink > -1 && iFirstVisibleLink > -1 )

                {

                if( moveDown )

                    {

                	iCurPos = 1;

                	while( lastPageLink-- >= iFirstVisibleLink )

                	    {

                		iCurPos++;

                	    }

                    }

                else

                    {

                    iCurPos = iPositionsCount - 2;

                    while( lastPageLink++ <= iFirstVisibleLink + iVisibleLinksCount - 1 )

                        {

                    	iCurPos--;

                        }	

                    }

                }

            else

                {

            	iCurPos = moveDown? 1 : iPositionsCount - 2;   // Proceed to top or bottom of the following page

                }

            }

        else

            {

            iCurPos = moveDown? iPositionsCount - 1 : 0;    // Return to bottom or top of the current page

            }

        }

    SetHighlightOnL( ETrue );   // Highlight the new link

    UpdateScrollIndicatorL();

    return( EKeyWasConsumed );

    }

void CAknMessageQueryControl::SizeChanged()

    {

    TRAP_IGNORE( DoSizeChangedL() );

    }

TSize CAknMessageQueryControl::MinimumSize()

    {

    const TRect rect( LayoutRect() );

    TAknLayoutRect listScrollPopupInfoPane;

    listScrollPopupInfoPane.LayoutRect(rect, AknLayoutScalable_Avkon::listscroll_popup_info_pane());

    if ( AknLayoutUtils::PenEnabled() )

        {

        return TSize( rect.Width(), listScrollPopupInfoPane.Rect().Height() );

        }

    else

        {

        return listScrollPopupInfoPane.Rect().Size();

        }

    } 

TRect CAknMessageQueryControl::LayoutRect() const

    {

    TInt lines = iNumberOfLines > iLinesPerPage ? iLinesPerPage : iNumberOfLines;

    lines--;

    if ( lines < 0 ) 

        {

        lines = 0;    

        }

    TInt variety = 0;

    AknLayoutUtils::TAknCbaLocation cbaLocation = AknLayoutUtils::CbaLocation();

    if (cbaLocation == AknLayoutUtils::EAknCbaLocationRight)

        { // Variety numbers for right CBA are 6-11

        variety = lines + 6;

        }

    else if (cbaLocation == AknLayoutUtils::EAknCbaLocationLeft)

        { // Variety numbers for left CBA are 12-17

        variety = lines + 12;

        }

    else // bottom

        {

        variety = lines;

        }

    TRect appRect = iAvkonAppUi->ApplicationRect();

    TAknLayoutRect applicationWindow;

    applicationWindow.LayoutRect(appRect, AknLayoutScalable_Avkon::application_window(0));    

    TRect mainPane;

    AknLayoutUtils::LayoutMetricsRect( AknLayoutUtils::EPopupParent, mainPane );

    TAknLayoutRect layout;

    layout.LayoutRect( mainPane, AknLayoutScalable_Avkon::popup_query_sat_info_window( variety ) );

    TRect rect( layout.Rect() );

    return TRect( TPoint(0, 0), rect.Size() );

    }

// Get component controls into a table

const TInt KMaxMessageQueryControls = 2;

static TInt ComponentControls(CCoeControl* aEditor,

    CEikScrollBarFrame* aScrollBarFrame,

    CCoeControl* aControls[KMaxMessageQueryControls])

    {

    TInt i = 0;

    if (aEditor)

        {

        aControls[i++] = aEditor;

        }

    // Non-window owning acroll bar

    if (aScrollBarFrame && aScrollBarFrame->TypeOfVScrollBar() == CEikScrollBarFrame::EDoubleSpan)

        {

        aControls[i++] = aScrollBarFrame->GetScrollBarHandle(

            CEikScrollBar::EVertical);

        }

    return i;

    }

TInt CAknMessageQueryControl::CountComponentControls() const

    {

     CCoeControl* unused[KMaxMessageQueryControls];

     return ComponentControls(iEdwin, iSBFrame, unused);

    }

CCoeControl* CAknMessageQueryControl::ComponentControl( TInt aIndex ) const

    {

     CCoeControl* controls[KMaxMessageQueryControls];

     TInt cnt = ComponentControls(iEdwin, iSBFrame, controls);

     if (aIndex < cnt)

        {

        return controls[aIndex];

        }

    else

        {

        return NULL;

        }

    }         

// This method is needed to set correct initial value to scroll indicator.

void CAknMessageQueryControl::ActivateL()

    {

    CCoeControl::ActivateL();

    UpdateScrollIndicatorL();

    }

void CAknMessageQueryControl::UpdateScrollIndicatorL()

    {

    if ( iNumberOfLines <= iLinesPerPage )

        {

        return;

        }

    if ( !iSBFrame )

        {

        // edwin will make scrollbar and also observe it

        iSBFrame = iEdwin->CreateScrollBarFrameL();

        // Check which type of scrollbar is to be shown

        iSBFrame->CreateDoubleSpanScrollBarsL(EFalse, EFalse, ETrue, EFalse );

        iSBFrame->SetTypeOfVScrollBar( CEikScrollBarFrame::EDoubleSpan );

        iSBFrame->DrawBackground( EFalse, EFalse );

        iSBFrame->SetScrollBarVisibilityL( CEikScrollBarFrame::EOff,

                CEikScrollBarFrame::EAuto );

        }

    iEdwin->UpdateScrollBarsL();    

    }

EXPORT_C void CAknMessageQueryControl::Draw( const TRect& /*aRect*/ ) const

    {

    if ( iListQLayout )

    	{

        return;

        }

    CWindowGc& gc=SystemGc(); 

    TRect messageQueryControlRect( Rect() );

    TRect popupRect(LayoutRect());

    TRect backgroundRect(messageQueryControlRect.iTl, popupRect.iBr);    

    MAknsSkinInstance* skin = AknsUtils::SkinInstance();

    MAknsControlContext* cc = AknsDrawUtils::ControlContext( this );

    TRegionFix<4> clipReg;

    clipReg.AddRect( backgroundRect );

    if ( iEdwin )

        {

        clipReg.SubRect( iEdwin->Rect() );

        }

    gc.SetClippingRegion( clipReg );

    AknsDrawUtils::Background( skin, cc, this, gc, backgroundRect, 

            KAknsDrawParamNoClearUnderImage );

    gc.CancelClippingRegion();

    }

TInt CAknMessageQueryControl::CurrentLink() const

    {

    if( 0 < iCurPos && iCurPos < iPositionsCount - 1 ) // The current position is on a link

        {

        return iCurPos - 1 + iFirstVisibleLink;

        }

    else    // No link is active

        {

        return -1;

        }

    }

EXPORT_C TBool CAknMessageQueryControl::LinkHighLighted() const

    {

    return CurrentLink() > -1;

    }

void CAknMessageQueryControl::SetHighlightOnL( TBool aOn )

    {

    if( !LinkHighLighted() )

        return;

    iCharFormatMask.ClearAll();

    if ( iEdwin && iEdwin->TextLength() > 0 &&

        iLinkTextArray.Count() > 0 && iLinkTextArray[CurrentLink()]->Length() > 0 )

        {

        iCharFormatMask.SetAttrib( EAttFontHighlightStyle );

        iCharFormatMask.SetAttrib( EAttFontHighlightColor );

        if ( aOn )

            {

            iCharFormat.iFontPresentation.iHighlightStyle = TFontPresentation::EFontHighlightNormal;

            TRgb color = AKN_LAF_COLOR( 244 );

            AknsUtils::GetCachedColor( AknsUtils::SkinInstance(), color, KAknsIIDQsnHighlightColors, EAknsCIQsnHighlightColorsCG1 ); 

            iCharFormat.iFontPresentation.iHighlightColor = color;

            color = AKN_LAF_COLOR( 210 );

            AknsUtils::GetCachedColor( AknsUtils::SkinInstance(), color, KAknsIIDQsnHighlightColors, EAknsCIQsnHighlightColorsCG3 );                    

	        iCharFormat.iFontPresentation.iTextColor = color;           

            }

        else

            {

            iCharFormat.iFontPresentation.iHighlightStyle = TFontPresentation::EFontHighlightNone;

            }

        if ( iLinksCount > 0 )

            {

            iEdwin->RichText()->ApplyCharFormatL( iCharFormat, iCharFormatMask, ( iLinkTextLocationArray )[CurrentLink()], ( iLinkTextArray )[CurrentLink()]->Length() );

            }

        iEdwin->DrawNow();

        }

    }

TBool CAknMessageQueryControl::CanScrollPage( TBool aMoveDown )

    {

    if( iNumberOfLines <= iLinesPerPage )    // Only one page