paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 04:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

default font height is now used again for Hint font

Browse Source 
git-svn-id: trunk@6411 -
This commit is contained in:
mattias 2004-12-23 18:28:10 +00:00
parent 8360f8642c
commit da8d141f05
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/hintwindow.inc
View File

@ -130,9 +130,8 @@ function THintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String;
begin
Result := Rect(0,0, MaxWidth, ClientHeight);
if AHint='' then exit;
SelectObject(Canvas.Handle, Canvas.Font.Handle);
DrawText(Canvas.Handle, PChar(AHint), Length(AHint), Result, DT_CalcRect or
DT_NOPREFIX);
DrawText(Canvas.GetUpdatedHandle([csFontValid]), PChar(AHint), Length(AHint),
Result, DT_CalcRect or DT_NOPREFIX);
InflateRect(Result, 2, 2);
Inc(Result.Right, 3);
end;

3
lcl/include/screen.inc
View File

@ -342,8 +342,9 @@ begin
if not InterfaceObject.InitHintFont(FHintFont) then
begin
// FHintFont.Name := 'courier';
FHintFont.Name:=DefFontData.Name;
FHintFont.Style := [];
FHintFont.Size := 12;
FHintFont.Size := DefFontData.Height;
FHintFont.Color := clInfoText;
FHintFont.Pitch := fpDefault;
end;