/**************************************************************
 *
 * 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	4
#define HELPTEXTMARGIN_BALLOON	4 // same margin as quickhelp
#define HELPTEXTMAXLEN 100

#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 auslösen, damit ein Paint sofort ausgelöst 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_YELLOW );
	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 && maHelpText.Len() < HELPTEXTMAXLEN )
	{
		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' ); // average width for all windows
		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 );

		// Später 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 && maHelpText.Len() < HELPTEXTMAXLEN )
	{
		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 );
	}

	// paint border
	if( ! bNativeOK )
	{
		Size aSz = GetOutputSizePixel();
		DrawRect( Rectangle( Point(), aSz ) );
//		if ( mnHelpWinStyle == HELPWINSTYLE_BALLOON ) // same border as quickhelp
//		{
//			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, i.e. 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, "Another 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 coordinates
	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 coordinates
			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();
		}

		// Which direction?
		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 );
}

/* vim: set noet sw=4 ts=4: */