/**************************************************************
 * 
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 * 
 *   http://www.apache.org/licenses/LICENSE-2.0
 * 
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 * 
 *************************************************************/



// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_vcl.hxx"

#include "tools/debug.hxx"
#include "tools/diagnose_ex.h"
#include "tools/time.hxx"

#include "vcl/window.hxx"
#include "vcl/event.hxx"
#include "vcl/svapp.hxx"
#include "vcl/wrkwin.hxx"
#include "vcl/help.hxx"

#include "helpwin.hxx"
#include "svdata.hxx"

// =======================================================================

#define HELPWINSTYLE_QUICK		0
#define HELPWINSTYLE_BALLOON	1

#define HELPTEXTMARGIN_QUICK	3
#define HELPTEXTMARGIN_BALLOON	6

#define HELPDELAY_NORMAL		1
#define HELPDELAY_SHORT 		2
#define HELPDELAY_NONE			3

// =======================================================================

Help::Help()
{
}

Help::~Help()
{
}

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

void Help::OpenHelpAgent( const rtl::OString& )
{
}

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

sal_Bool Help::Start( const XubString&, const Window* )
{
	return sal_False;
}

sal_Bool Help::SearchKeyword( const XubString& )
{
	return sal_False;
}

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

XubString Help::GetHelpText( const String&, const Window* )
{
	return ImplGetSVEmptyStr();
}

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

void Help::EnableContextHelp()
{
	ImplGetSVData()->maHelpData.mbContextHelp = sal_True;
}

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

void Help::DisableContextHelp()
{
	ImplGetSVData()->maHelpData.mbContextHelp = sal_False;
}

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

sal_Bool Help::IsContextHelpEnabled()
{
	return ImplGetSVData()->maHelpData.mbContextHelp;
}

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

sal_Bool Help::StartContextHelp()
{
	ImplSVData* pSVData = ImplGetSVData();

	if ( pSVData->maHelpData.mbContextHelp )
	{
		Window* pWindow = pSVData->maWinData.mpFocusWin;
		if ( pWindow )
		{
			Point		aMousePos = pWindow->OutputToScreenPixel( pWindow->GetPointerPosPixel() );
			HelpEvent	aHelpEvent( aMousePos, HELPMODE_CONTEXT );
			pWindow->RequestHelp( aHelpEvent );
			return sal_True;
		}
	}

	return sal_False;
}

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

void Help::EnableExtHelp()
{
	ImplGetSVData()->maHelpData.mbExtHelp = sal_True;
}

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

void Help::DisableExtHelp()
{
	ImplGetSVData()->maHelpData.mbExtHelp = sal_False;
}

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

sal_Bool Help::IsExtHelpEnabled()
{
	return ImplGetSVData()->maHelpData.mbExtHelp;
}

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

sal_Bool Help::StartExtHelp()
{
	ImplSVData* pSVData = ImplGetSVData();

	if ( pSVData->maHelpData.mbExtHelp && !pSVData->maHelpData.mbExtHelpMode )
	{
		pSVData->maHelpData.mbExtHelpMode = sal_True;
		pSVData->maHelpData.mbOldBalloonMode = pSVData->maHelpData.mbBalloonHelp;
		pSVData->maHelpData.mbBalloonHelp = sal_True;
		if ( pSVData->maWinData.mpAppWin )
			pSVData->maWinData.mpAppWin->ImplGenerateMouseMove();
		return sal_True;
	}

	return sal_False;
}

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

sal_Bool Help::EndExtHelp()
{
	ImplSVData* pSVData = ImplGetSVData();

	if ( pSVData->maHelpData.mbExtHelp && pSVData->maHelpData.mbExtHelpMode )
	{
		pSVData->maHelpData.mbExtHelpMode = sal_False;
		pSVData->maHelpData.mbBalloonHelp = pSVData->maHelpData.mbOldBalloonMode;
		if ( pSVData->maWinData.mpAppWin )
			pSVData->maWinData.mpAppWin->ImplGenerateMouseMove();
		return sal_True;
	}

	return sal_False;
}

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

sal_Bool Help::IsExtHelpActive()
{
	return ImplGetSVData()->maHelpData.mbExtHelpMode;
}

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

void Help::EnableBalloonHelp()
{
	ImplGetSVData()->maHelpData.mbBalloonHelp = sal_True;
}

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

void Help::DisableBalloonHelp()
{
	ImplGetSVData()->maHelpData.mbBalloonHelp = sal_False;
}

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

sal_Bool Help::IsBalloonHelpEnabled()
{
	return ImplGetSVData()->maHelpData.mbBalloonHelp;
}

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

sal_Bool Help::ShowBalloon( Window* pParent,
						const Point& rScreenPos,
						const XubString& rHelpText )
{
	ImplShowHelpWindow( pParent, HELPWINSTYLE_BALLOON, 0,
						rHelpText, ImplGetSVEmptyStr(), rScreenPos );

	return sal_True;
}

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

sal_Bool Help::ShowBalloon( Window* pParent,
						const Point& rScreenPos, const Rectangle& rRect,
						const XubString& rHelpText )
{
	ImplShowHelpWindow( pParent, HELPWINSTYLE_BALLOON, 0,
						rHelpText, ImplGetSVEmptyStr(), rScreenPos, &rRect );

	return sal_True;
}

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

void Help::EnableQuickHelp()
{
	ImplGetSVData()->maHelpData.mbQuickHelp = sal_True;
}

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

void Help::DisableQuickHelp()
{
	ImplGetSVData()->maHelpData.mbQuickHelp = sal_False;
}

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

sal_Bool Help::IsQuickHelpEnabled()
{
	return ImplGetSVData()->maHelpData.mbQuickHelp;
}

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

sal_Bool Help::ShowQuickHelp( Window* pParent,
						  const Rectangle& rScreenRect,
						  const XubString& rHelpText,
						  const XubString& rLongHelpText,
						  sal_uInt16 nStyle )
{
	ImplShowHelpWindow( pParent, HELPWINSTYLE_QUICK, nStyle,
						rHelpText, rLongHelpText,
						pParent->OutputToScreenPixel( pParent->GetPointerPosPixel() ), &rScreenRect );
	return sal_True;
}

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

void Help::HideBalloonAndQuickHelp()
{
	HelpTextWindow const * pHelpWin = ImplGetSVData()->maHelpData.mpHelpWin;
    bool const bIsVisible = ( pHelpWin != NULL ) && pHelpWin->IsVisible();
    ImplDestroyHelpWindow( bIsVisible );
}

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

sal_uIntPtr Help::ShowTip( Window* pParent, const Rectangle& rScreenRect,
					 const XubString& rText, sal_uInt16 nStyle )
{
    sal_uInt16 nHelpWinStyle = ( ( nStyle & QUICKHELP_TIP_STYLE_BALLOON ) != 0 ) ? HELPWINSTYLE_BALLOON : HELPWINSTYLE_QUICK;
	HelpTextWindow* pHelpWin = new HelpTextWindow( pParent, rText, nHelpWinStyle, nStyle );

    sal_uIntPtr nId = reinterpret_cast< sal_uIntPtr >( pHelpWin );
    UpdateTip( nId, pParent, rScreenRect, rText );

	pHelpWin->ShowHelp( HELPDELAY_NONE );
	return nId;
}

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

void Help::UpdateTip( sal_uIntPtr nId, Window* pParent, const Rectangle& rScreenRect, const XubString& rText )
{
    HelpTextWindow* pHelpWin = reinterpret_cast< HelpTextWindow* >( nId );
    ENSURE_OR_RETURN_VOID( pHelpWin != NULL, "Help::UpdateTip: invalid ID!" );

	Size aSz = pHelpWin->CalcOutSize();
	pHelpWin->SetOutputSizePixel( aSz );
	ImplSetHelpWindowPos( pHelpWin, pHelpWin->GetWinStyle(), pHelpWin->GetStyle(),
		pParent->OutputToScreenPixel( pParent->GetPointerPosPixel() ), &rScreenRect );

    pHelpWin->SetHelpText( rText );
    pHelpWin->Invalidate();
}

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

void Help::HideTip( sal_uLong nId )
{
	HelpTextWindow* pHelpWin = (HelpTextWindow*)nId;
	Window* pFrameWindow = pHelpWin->ImplGetFrameWindow();
	pHelpWin->Hide();
	// Update ausloesen, damit ein Paint sofort ausgeloest wird, da
	// wir den Hintergrund nicht sichern
	pFrameWindow->ImplUpdateAll();
	delete pHelpWin;
    ImplGetSVData()->maHelpData.mnLastHelpHideTime = Time::GetSystemTicks();
}

// =======================================================================

HelpTextWindow::HelpTextWindow( Window* pParent, const XubString& rText, sal_uInt16 nHelpWinStyle, sal_uInt16 nStyle ) :
	//FloatingWindow( pParent->ImplGetFrameWindow(), WB_SYSTEMWINDOW ),
	FloatingWindow( pParent, WB_SYSTEMWINDOW|WB_TOOLTIPWIN ), // #105827# if we change the parent, mirroring will not work correctly when positioning this window
	maHelpText( rText )
{
	SetType( WINDOW_HELPTEXTWINDOW );
	ImplSetMouseTransparent( sal_True );
	mnHelpWinStyle = nHelpWinStyle;
	mnStyle = nStyle;
//  on windows this will raise the application window, because help windows are system windows now
//	EnableAlwaysOnTop();
	EnableSaveBackground();

	const StyleSettings& rStyleSettings = GetSettings().GetStyleSettings();
	SetPointFont( rStyleSettings.GetHelpFont() );
	SetTextColor( rStyleSettings.GetHelpTextColor() );
	SetTextAlign( ALIGN_TOP );
    if ( IsNativeControlSupported( CTRL_TOOLTIP, PART_ENTIRE_CONTROL ) )
    {
        EnableChildTransparentMode( sal_True );
        SetParentClipMode( PARENTCLIPMODE_NOCLIP );
        SetPaintTransparent( sal_True );
        SetBackground();
    }
    else
        SetBackground( Wallpaper( rStyleSettings.GetHelpColor() ) );
    if( rStyleSettings.GetHelpColor().IsDark() )
	    SetLineColor( COL_WHITE );
    else
	    SetLineColor( COL_BLACK );
	SetFillColor();

    if( mnStyle & QUICKHELP_BIDI_RTL )
    {
        sal_uLong nLayoutMode = GetLayoutMode();
        nLayoutMode |= TEXT_LAYOUT_BIDI_RTL | TEXT_LAYOUT_TEXTORIGIN_LEFT;
        SetLayoutMode( nLayoutMode );
    }
    SetHelpText( rText );
    Window::SetHelpText( rText );

    ImplSVData* pSVData = ImplGetSVData();
    if ( pSVData->maHelpData.mbSetKeyboardHelp )
        pSVData->maHelpData.mbKeyboardHelp = sal_True;

    const HelpSettings& rHelpSettings = pParent->GetSettings().GetHelpSettings();
	maShowTimer.SetTimeoutHdl( LINK( this, HelpTextWindow, TimerHdl ) );
	maHideTimer.SetTimeoutHdl( LINK( this, HelpTextWindow, TimerHdl ) );
	maHideTimer.SetTimeout( rHelpSettings.GetTipTimeout() );
}

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

HelpTextWindow::~HelpTextWindow()
{
	maShowTimer.Stop();
	maHideTimer.Stop();

    if( this == ImplGetSVData()->maHelpData.mpHelpWin )
        ImplGetSVData()->maHelpData.mpHelpWin = NULL;

	if ( maStatusText.Len() )
	{
		ImplSVData* pSVData = ImplGetSVData();
		pSVData->mpApp->HideHelpStatusText();
	}
}

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

void HelpTextWindow::SetHelpText( const String& rHelpText )
{
    maHelpText = rHelpText;
	if ( mnHelpWinStyle == HELPWINSTYLE_QUICK )
	{
		Size aSize;
		aSize.Height() = GetTextHeight();
		if ( mnStyle & QUICKHELP_CTRLTEXT )
			aSize.Width() = GetCtrlTextWidth( maHelpText );
		else
			aSize.Width() = GetTextWidth( maHelpText );
		maTextRect = Rectangle( Point( HELPTEXTMARGIN_QUICK, HELPTEXTMARGIN_QUICK ), aSize );
	}
	else // HELPWINSTYLE_BALLOON
	{
		Point		aTmpPoint;
		sal_uInt16		nCharsInLine = 35 + ((maHelpText.Len()/100)*5);
		XubString	aXXX;
		aXXX.Fill( nCharsInLine, 'x' );   // Durchschnittliche Breite, damit nicht jedes Fenster anders.
		long nWidth = GetTextWidth( aXXX );
		Size aTmpSize( nWidth, 0x7FFFFFFF );
		Rectangle aTry1( aTmpPoint, aTmpSize );
		sal_uInt16 nDrawFlags = TEXT_DRAW_MULTILINE | TEXT_DRAW_WORDBREAK |
							TEXT_DRAW_LEFT | TEXT_DRAW_TOP;
		if ( mnStyle & QUICKHELP_CTRLTEXT )
			nDrawFlags |= TEXT_DRAW_MNEMONIC;
		Rectangle aTextRect = GetTextRect( aTry1, maHelpText, nDrawFlags );

		// Spaeter mal eine geeignete Breite ermitteln...
		maTextRect = aTextRect;

		// Sicherheitsabstand...
		maTextRect.SetPos( Point( HELPTEXTMARGIN_BALLOON, HELPTEXTMARGIN_BALLOON ) );
	}

    Size aSize( CalcOutSize() );
    SetOutputSizePixel( aSize );
}

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

void HelpTextWindow::ImplShow()
{
	ImplDelData aDogTag( this );
	if ( maStatusText.Len() )
	{
		ImplSVData* pSVData = ImplGetSVData();
		pSVData->mpApp->ShowHelpStatusText( maStatusText );
	}
	Show( sal_True, SHOW_NOACTIVATE );
	if( !aDogTag.IsDelete() )
	Update();
}

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

void HelpTextWindow::Paint( const Rectangle& )
{
    // paint native background
    bool bNativeOK = false;
    if ( IsNativeControlSupported( CTRL_TOOLTIP, PART_ENTIRE_CONTROL ) )
    {
        // #i46472# workaround gcc3.3 temporary problem
        Rectangle aCtrlRegion( Point( 0, 0 ), GetOutputSizePixel() );
        ImplControlValue    aControlValue;
        bNativeOK = DrawNativeControl( CTRL_TOOLTIP, PART_ENTIRE_CONTROL, aCtrlRegion,
                                       0, aControlValue, rtl::OUString() );
    }

	// paint text
	if ( mnHelpWinStyle == HELPWINSTYLE_QUICK )
	{
		if ( mnStyle & QUICKHELP_CTRLTEXT )
			DrawCtrlText( maTextRect.TopLeft(), maHelpText );
		else
			DrawText( maTextRect.TopLeft(), maHelpText );
	}
	else // HELPWINSTYLE_BALLOON
	{
		sal_uInt16 nDrawFlags = TEXT_DRAW_MULTILINE|TEXT_DRAW_WORDBREAK|
								TEXT_DRAW_LEFT|TEXT_DRAW_TOP;
		if ( mnStyle & QUICKHELP_CTRLTEXT )
			nDrawFlags |= TEXT_DRAW_MNEMONIC;
		DrawText( maTextRect, maHelpText, nDrawFlags );
	}

	// border
    if( ! bNativeOK )
    {
        Size aSz = GetOutputSizePixel();
        DrawRect( Rectangle( Point(), aSz ) );
        if ( mnHelpWinStyle == HELPWINSTYLE_BALLOON )
        {
            aSz.Width() -= 2;
            aSz.Height() -= 2;
            Color aColor( GetLineColor() );
            SetLineColor( ( COL_GRAY ) );
            DrawRect( Rectangle( Point( 1, 1 ), aSz ) );
            SetLineColor( aColor );
        }
    }
}

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

void HelpTextWindow::ShowHelp( sal_uInt16 nDelayMode )
{
	sal_uLong nTimeout = 0;
	if ( nDelayMode != HELPDELAY_NONE )
	{
		// Im ExtendedHelp-Fall die Hilfe schneller anzeigen
		if ( ImplGetSVData()->maHelpData.mbExtHelpMode )
			nTimeout = 15;
		else
		{
			const HelpSettings& rHelpSettings = GetSettings().GetHelpSettings();
			if ( mnHelpWinStyle == HELPWINSTYLE_QUICK )
				nTimeout = rHelpSettings.GetTipDelay();
			else
				nTimeout = rHelpSettings.GetBalloonDelay();
		}

		if ( nDelayMode == HELPDELAY_SHORT )
			nTimeout /= 3;
	}

	maShowTimer.SetTimeout( nTimeout );
	maShowTimer.Start();
}

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

IMPL_LINK( HelpTextWindow, TimerHdl, Timer*, pTimer)
{
	if ( pTimer == &maShowTimer )
	{
		if ( mnHelpWinStyle == HELPWINSTYLE_QUICK )
		{
			// start auto-hide-timer for non-ShowTip windows
			ImplSVData* pSVData = ImplGetSVData();
			if ( this == pSVData->maHelpData.mpHelpWin )
				maHideTimer.Start();
		}
		ImplShow();
	}
	else
	{
        DBG_ASSERT( pTimer == &maHideTimer, "HelpTextWindow::TimerHdl with bad Timer" );
  		ImplDestroyHelpWindow( true );
	}

	return 1;
}

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

Size HelpTextWindow::CalcOutSize() const
{
	Size aSz = maTextRect.GetSize();
	aSz.Width() += 2*maTextRect.Left();
	aSz.Height() += 2*maTextRect.Top();
	return aSz;
}

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

void HelpTextWindow::RequestHelp( const HelpEvent& /*rHEvt*/ )
{
	// Nur damit nicht von Window::RequestHelp() ein
	// ShowQuickHelp/ShowBalloonHelp am HelpTextWindow aufgerufen wird.
}

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

String HelpTextWindow::GetText() const
{
	return maHelpText;
}

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

::com::sun::star::uno::Reference< ::com::sun::star::accessibility::XAccessible > HelpTextWindow::CreateAccessible()
{
    return FloatingWindow::CreateAccessible();
}

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

sal_Bool HelpTextWindow::RegisterAccessibleParent()
{
        return sal_False;
}

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

void HelpTextWindow::RevokeAccessibleParent()
{
}

// =======================================================================

void ImplShowHelpWindow( Window* pParent, sal_uInt16 nHelpWinStyle, sal_uInt16 nStyle,
						 const XubString& rHelpText, const XubString& rStatusText,
						 const Point& rScreenPos, const Rectangle* pHelpArea )
{
	ImplSVData* pSVData = ImplGetSVData();

	if( !rHelpText.Len() && !pSVData->maHelpData.mbRequestingHelp )
		return;

	HelpTextWindow* pHelpWin = pSVData->maHelpData.mpHelpWin;
	sal_uInt16 nDelayMode = HELPDELAY_NORMAL;
	if ( pHelpWin )
	{
		DBG_ASSERT( pHelpWin != pParent, "HelpInHelp ?!" );

        if  (   (   ( pHelpWin->GetHelpText() != rHelpText )
                ||  ( pHelpWin->GetWinStyle() != nHelpWinStyle )
                ||  (   pHelpArea
                    &&  ( pHelpWin->GetHelpArea() != *pHelpArea )
                    )
                )
            &&  pSVData->maHelpData.mbRequestingHelp
            )
		{
			// remove help window if no HelpText or other HelpText or
			// other help mode. but keep it if we are scrolling, ie not requesting help
            bool bWasVisible = pHelpWin->IsVisible();
			if ( bWasVisible )
				nDelayMode = HELPDELAY_NONE; // display it quickly if we were already in quick help mode
			pHelpWin = NULL;
			ImplDestroyHelpWindow( bWasVisible );
		}
		else
		{
            bool const bTextChanged = rHelpText != pHelpWin->GetHelpText();
            if ( bTextChanged || ( ( nStyle & QUICKHELP_FORCE_REPOSITION ) != 0 ) )
            {
                Window * pWindow = pHelpWin->GetParent()->ImplGetFrameWindow();
                Rectangle aInvRect( pHelpWin->GetWindowExtentsRelative( pWindow ) );
                if( pHelpWin->IsVisible() )
					pWindow->Invalidate( aInvRect );

                pHelpWin->SetHelpText( rHelpText );
			    // approach mouse position
			    ImplSetHelpWindowPos( pHelpWin, nHelpWinStyle, nStyle, rScreenPos, pHelpArea );
                if( pHelpWin->IsVisible() )
                    pHelpWin->Invalidate();
            }
		}
	}

	if ( !pHelpWin && rHelpText.Len() )
	{
        sal_uLong nCurTime = Time::GetSystemTicks();
        if  (   ( ( nCurTime - pSVData->maHelpData.mnLastHelpHideTime ) < pParent->GetSettings().GetHelpSettings().GetTipDelay() )
            ||  ( ( nStyle & QUICKHELP_NO_DELAY ) != 0 )
            )
            nDelayMode = HELPDELAY_NONE;
        
		DBG_ASSERT( !pHelpWin, "Noch ein HelpWin ?!" );
		pHelpWin = new HelpTextWindow( pParent, rHelpText, nHelpWinStyle, nStyle );
		pSVData->maHelpData.mpHelpWin = pHelpWin;
		pHelpWin->SetStatusText( rStatusText );
		if ( pHelpArea )
			pHelpWin->SetHelpArea( *pHelpArea );

		//	positioning
		Size aSz = pHelpWin->CalcOutSize();
		pHelpWin->SetOutputSizePixel( aSz );
		ImplSetHelpWindowPos( pHelpWin, nHelpWinStyle, nStyle, rScreenPos, pHelpArea );
		// if not called from Window::RequestHelp, then without delay...
		if ( !pSVData->maHelpData.mbRequestingHelp )
			nDelayMode = HELPDELAY_NONE;
		pHelpWin->ShowHelp( nDelayMode );
	}
}

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

void ImplDestroyHelpWindow( bool bUpdateHideTime )
{
	ImplSVData* pSVData = ImplGetSVData();
	HelpTextWindow* pHelpWin = pSVData->maHelpData.mpHelpWin;
	if ( pHelpWin )
	{
        Window * pWindow = pHelpWin->GetParent()->ImplGetFrameWindow();
		// find out screen area covered by system help window
        Rectangle aInvRect( pHelpWin->GetWindowExtentsRelative( pWindow ) );
		if( pHelpWin->IsVisible() )
			pWindow->Invalidate( aInvRect );
		pSVData->maHelpData.mpHelpWin = NULL;
		pSVData->maHelpData.mbKeyboardHelp = sal_False;
		pHelpWin->Hide();
		delete pHelpWin;
        if( bUpdateHideTime )
            pSVData->maHelpData.mnLastHelpHideTime = Time::GetSystemTicks();
	}
}

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

void ImplSetHelpWindowPos( Window* pHelpWin, sal_uInt16 nHelpWinStyle, sal_uInt16 nStyle,
						   const Point& rPos, const Rectangle* pHelpArea )
{
	Point		aPos = rPos;
	Size		aSz = pHelpWin->GetSizePixel();
	Rectangle	aScreenRect = pHelpWin->ImplGetFrameWindow()->GetDesktopRectPixel();
    aPos = pHelpWin->GetParent()->ImplGetFrameWindow()->OutputToAbsoluteScreenPixel( aPos );
    // get mouse screen coords
    Point mPos( pHelpWin->GetParent()->ImplGetFrameWindow()->GetPointerPosPixel() );
    mPos = pHelpWin->GetParent()->ImplGetFrameWindow()->OutputToAbsoluteScreenPixel( mPos );

	if ( nHelpWinStyle == HELPWINSTYLE_QUICK )
	{
		if ( !(nStyle & QUICKHELP_NOAUTOPOS) )
		{
			long nScreenHeight = aScreenRect.GetHeight();
			aPos.X() -= 4;
			if ( aPos.Y() > aScreenRect.Top()+nScreenHeight-(nScreenHeight/4) )
				aPos.Y() -= aSz.Height()+4;
			else
				aPos.Y() += 21;
		}
	}
	else
	{
		// If it's the mouse position, move the window slightly
		// so the mouse pointer does not cover it
		if ( aPos == mPos )
		{
			aPos.X() += 12;
			aPos.Y() += 16;
		}
	}

	if ( nStyle & QUICKHELP_NOAUTOPOS )
	{
		if ( pHelpArea )
		{
            // convert help area to screen coords
            Rectangle devHelpArea(
                pHelpWin->GetParent()->ImplGetFrameWindow()->OutputToAbsoluteScreenPixel( pHelpArea->TopLeft() ),
                pHelpWin->GetParent()->ImplGetFrameWindow()->OutputToAbsoluteScreenPixel( pHelpArea->BottomRight() ) );

			// Welche Position vom Rechteck?
			aPos = devHelpArea.Center();

			if ( nStyle & QUICKHELP_LEFT )
				aPos.X() = devHelpArea.Left();
			else if ( nStyle & QUICKHELP_RIGHT )
				aPos.X() = devHelpArea.Right();

			if ( nStyle & QUICKHELP_TOP )
				aPos.Y() = devHelpArea.Top();
			else if ( nStyle & QUICKHELP_BOTTOM )
				aPos.Y() = devHelpArea.Bottom();
		}

		// Welche Richtung?
		if ( nStyle & QUICKHELP_LEFT )
			;
		else if ( nStyle & QUICKHELP_RIGHT )
			aPos.X() -= aSz.Width();
		else
			aPos.X() -= aSz.Width()/2;

		if ( nStyle & QUICKHELP_TOP )
			;
		else if ( nStyle & QUICKHELP_BOTTOM )
			aPos.Y() -= aSz.Height();
		else
			aPos.Y() -= aSz.Height()/2;
	}

	if ( aPos.X() < aScreenRect.Left() )
		aPos.X() = aScreenRect.Left();
	else if ( ( aPos.X() + aSz.Width() ) > aScreenRect.Right() )
		aPos.X() = aScreenRect.Right() - aSz.Width();
	if ( aPos.Y() < aScreenRect.Top() )
		aPos.Y() = aScreenRect.Top();
	else if ( ( aPos.Y() + aSz.Height() ) > aScreenRect.Bottom() )
		aPos.Y() = aScreenRect.Bottom() - aSz.Height();

	if( ! (nStyle & QUICKHELP_NOEVADEPOINTER) )
	{
	    /* the remark below should be obsolete by now as the helpwindow should
	    not be focusable, leaving it as a hint. However it is sensible in most
	    conditions to evade the mouse pointer so the content window is fully visible.

        // the popup must not appear under the mouse
        // otherwise it would directly be closed due to a focus change...
        */
        Rectangle aHelpRect( aPos, aSz );
        if( aHelpRect.IsInside( mPos ) )
        {
            Point delta(2,2);
            Point pSize( aSz.Width(), aSz.Height() );
            Point pTest( mPos - pSize - delta );
            if( pTest.X() > aScreenRect.Left() &&  pTest.Y() > aScreenRect.Top() )
                aPos = pTest;
            else
                aPos = mPos + delta;
        }
    }

    Window* pWindow = pHelpWin->GetParent()->ImplGetFrameWindow();
    aPos = pWindow->AbsoluteScreenToOutputPixel( aPos );
	pHelpWin->SetPosPixel( aPos );
}