paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 11:39:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

THintWindow.Paint removed DTCENTER for delphi compatibility

Browse Source 
git-svn-id: trunk@21996 -
This commit is contained in:
mattias 2009-10-03 15:45:06 +00:00
parent 50874df45f
commit 44e1c40eb8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/hintwindow.inc
View File

@ -115,7 +115,7 @@ begin
InflateRect(ARect, - 2 * HintBorderWidth, - 2 * HintBorderWidth); InflateRect(ARect, - 2 * HintBorderWidth, - 2 * HintBorderWidth);
DrawText(Canvas.GetUpdatedHandle([csFontValid]), DrawText(Canvas.GetUpdatedHandle([csFontValid]),
PChar(Caption), Length(Caption), ARect, PChar(Caption), Length(Caption), ARect,
DT_NOPREFIX or DT_CENTER or DT_VCENTER or DT_WORDBREAK); DT_NOPREFIX or DT_VCENTER or DT_WORDBREAK); // no DT_CENTER in Delphi according to Luiz
end; end;
class function THintWindow.GetControlClassDefaultSize: TPoint; class function THintWindow.GetControlClassDefaultSize: TPoint;