0021964: Hint will lose word - Free Pascal/Lazarus Bug Tracker

View Issue Details [ Jump to Notes ]

Project

Tags

No tags attached.

Fixed in Revision

LazTarget

Widgetset

Win32/Win64

hintBug.zip [^] (150,855 bytes) 2012-05-06 18:49

Relationships

has duplicate

new

Hint for component on component palette is not completely visible

Notes
(0059319) Ihor Lavrynyuk (reporter) 2012-05-06 20:35 edited on: 2012-05-06 20:36	yes, I have same problem http://www.youtube.com/watch?v=yWcg94lPxTA [^]

(0060542) Juha Manninen (developer) 2012-06-14 22:01	Do you guys have a "Large Font" setting turned on? Do you have a Windows theme with a font bigger than normal? The problem does not happen on every Windows machine, does it?

(0060620) Martin Friebe (manager) 2012-06-19 01:06	I did find the following. Not sure if it is related. THintWindow.CalcHintRect always uses "DrawText(Canvas.GetUpdatedHandle..." But THintWindow.Paint may either use "DrawText(Canvas.GetUpdatedHandle..." or ThemeServices.DrawText(Canvas only ThemeServices.DrawText might use another font (not sure) It calls Canvas.TextRect(R, R.Left, R.Top, S, TXTStyle); with TXTStyle.SystemFont := Canvas.Font.IsDefault;//Match System Default Style and Canvas.TextRect, if TXTStyle.SystemFont=true does (lcl\include\canvas.inc:1264): if Style.SystemFont then SelectObject(DC, OnGetSystemFont()); lcl\graphics.pp:2762 OnGetSystemFont := @LocalGetSystemFont; function LocalGetSystemFont: HFont; begin Result := GetStockObject(DEFAULT_GUI_FONT); end; http://msdn.microsoft.com/en-us/library/windows/desktop/dd144925%28v=vs.85%29.aspx [^] DEFAULT_GUI_FONT is only one of many fonts, there is also SYSTEM_FONT If on the target system DEFAULT_GUI_FONT differs from the default font (as by TFont), then the measurement would be wrong.

lazarus bugtracker