paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 17:18:19 +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 begin
if DC=0 then ; if DC=0 then ;
if not (cfColorAllocated in GDIColor^.ColorFlags) then begin if not (cfColorAllocated in GDIColor^.ColorFlags) then begin
Case GDIColor^.ColorRef of Case TColor(GDIColor^.ColorRef) of
clScrollbar..clEndColors: clScrollbar..clEndColors:
RGBColor := GetSysColor(GDIColor^.ColorRef and $FF); RGBColor := GetSysColor(GDIColor^.ColorRef and $FF);
else else
@ -493,7 +493,7 @@ begin
else else
exit; exit;
end; end;
Case GDIColor^.ColorRef of Case TColor(GDIColor^.ColorRef) of
clScrollbar, clScrollbar,
clInfoBk, clInfoBk,
clMenu, clMenu,
@ -4087,6 +4087,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.176 2003/05/27 17:58:31 mattias
fixed range checks
Revision 1.175 2003/05/26 21:42:35 mattias Revision 1.175 2003/05/26 21:42:35 mattias
fixed typos fixed typos