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

lcl: safer gdi handles typecasting

Browse Source 
git-svn-id: trunk@15219 -
This commit is contained in:
paul 2008-05-23 15:58:27 +00:00
parent 41a290891d
commit aeaaaf25d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customlabel.inc
View File

@ -40,7 +40,7 @@ begin
DC := GetDC(Parent.Handle);
try
R := Rect(0, 0, Width, Height);
OldFont := SelectObject(DC, Font.Reference.Handle);
OldFont := SelectObject(DC, HGDIOBJ(Font.Reference.Handle));
Flags := DT_CALCRECT or DT_EXPANDTABS;
if WordWrap then
inc(Flags, DT_WORDBREAK)
@ -338,7 +338,7 @@ begin
and (CurFontHeight<=MaxFontHeight) do begin
AFont.Height:=CurFontHeight; // NOTE: some TFont do not allow any integer
//debugln('TCustomLabel.CalcFittingFontHeight A ',dbgs(MinFontHeight),'<=',dbgs(AFont.Height),'<=',dbgs(MaxFontHeight));
OldFont := SelectObject(DC, AFont.Reference.Handle);
OldFont := SelectObject(DC, HGDIOBJ(AFont.Reference.Handle));
DrawText(DC, PChar(TheText), Length(TheText), R, Flags);
SelectObject(DC, OldFont);
NeededWidth := R.Right - R.Left;