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

MG: fixed range check errors for FG,BG in Init

Browse Source 
git-svn-id: trunk@429 -
This commit is contained in:
lazarus 2001-11-17 09:42:26 +00:00
parent 56d379cf31
commit 5525f3d2ae
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk/gtkobject.inc
View File

@ -290,12 +290,12 @@ begin
FGTKToolTips := gtk_tooltips_new; FGTKToolTips := gtk_tooltips_new;
gtk_object_ref(PGTKObject(FGTKToolTips)); gtk_object_ref(PGTKObject(FGTKToolTips));
gtk_toolTips_Enable(FGTKToolTips); gtk_toolTips_Enable(FGTKToolTips);
FG.red := $FFFFFF; FG.red := $FFFF;
FG.Green := $FFFFFF; FG.Green := $FFFF;
fg.blue := $FFFFFF; fg.blue := $FFFF;
BG.REd := $444444; BG.REd := $4444;
bg.Green := $ffffff; bg.Green := $ffff;
bg.Blue := $111111; bg.Blue := $1111;
gtk_toolTips_set_colors(FGTKToolTips,@FG,@BG); gtk_toolTips_set_colors(FGTKToolTips,@FG,@BG);
@ -3323,6 +3323,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.73 2001/11/17 09:42:26 lazarus
MG: fixed range check errors for FG,BG in Init
Revision 1.72 2001/11/16 20:08:39 lazarus Revision 1.72 2001/11/16 20:08:39 lazarus
Object inspector has hints now. Object inspector has hints now.
Shane Shane