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

IDE: fixed range check error with GDI handle

Browse Source 
git-svn-id: trunk@15222 -
This commit is contained in:
vincents 2008-05-23 21:16:05 +00:00
parent 5cc276c316
commit 48395d5816
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/helpmanager.pas
View File

@ -361,7 +361,7 @@ begin
DC := GetDC(Parent.Handle); DC := GetDC(Parent.Handle);
try try
R := Rect(0, 0, 600, 200); R := Rect(0, 0, 600, 200);
OldFont := SelectObject(DC, Font.Reference.Handle); OldFont := SelectObject(DC, HGDIOBJ(Font.Reference.Handle));
Flags := DT_CalcRect; Flags := DT_CalcRect;
inc(Flags, DT_WordBreak); inc(Flags, DT_WordBreak);
LabelText := GetLabelText; LabelText := GetLabelText;