paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:22:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed range checks

Browse Source 
git-svn-id: trunk@2522 -
This commit is contained in:
mattias 2002-08-17 23:41:26 +00:00
parent 7168c508df
commit c8a2e7071d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkproc.inc
View File

@ -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