paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 07:29:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Prevent range overflow in TGtkDeviceContext.FillRect. Cast Cardinal -> TColor. Issue #26897.

Browse Source 
git-svn-id: trunk@47027 -
This commit is contained in:
juha 2014-11-29 13:41:37 +00:00
parent 1bc29130cf
commit 841a604d6e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2def.pp
View File

@ -30,7 +30,7 @@ uses
// LCL
Gtk2Extra,
LCLIntf, LCLProc, LCLType, LCLMemManager, DynHashArray,
GraphType, Gtk2Globals;
GraphType, Gtk2Globals, Graphics {for TColor};
{$ifdef TraceGdiCalls}
const

2
lcl/interfaces/gtk2/gtk2devicecontext.inc
View File

@ -792,7 +792,7 @@ begin
ClipArea := ClipRect;
RemovePixbuf;
if (CurrentBrush^.GDIBrushFill = GDK_SOLID) and
(IsBackgroundColor(CurrentBrush^.GDIBrushColor.ColorRef)) then
(IsBackgroundColor(TColor(CurrentBrush^.GDIBrushColor.ColorRef))) then
StyleFillRectangle(Drawable, GC,
CurrentBrush^.GDIBrushColor.ColorRef,
ARect.Left + DCOrigin.X, ARect.Top + DCOrigin.Y,