From c8a2e7071da888760cdb4887f5f11a69e952e836 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:26 +0000 Subject: [PATCH] fixed range checks git-svn-id: trunk@2522 - --- lcl/interfaces/gtk/gtkproc.inc | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc index 9f737e4990..6a385b96ec 100644 --- a/lcl/interfaces/gtk/gtkproc.inc +++ b/lcl/interfaces/gtk/gtkproc.inc @@ -402,7 +402,7 @@ var begin if DC=0 then ; if not (cfColorAllocated in GDIColor^.ColorFlags) then begin - Case GDIColor^.ColorRef of + Case TColor(GDIColor^.ColorRef) of clScrollbar..clEndColors: RGBColor := GetSysColor(GDIColor^.ColorRef and $FF); else @@ -493,7 +493,7 @@ begin else exit; end; - Case GDIColor^.ColorRef of + Case TColor(GDIColor^.ColorRef) of clScrollbar, clInfoBk, clMenu, @@ -4087,6 +4087,9 @@ end; { ============================================================================= $Log$ + Revision 1.176 2003/05/27 17:58:31 mattias + fixed range checks + Revision 1.175 2003/05/26 21:42:35 mattias fixed typos