paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk1 intf: improved clHighlighttext using bg_gc instead of text_g

Browse Source 
git-svn-id: trunk@11406 -
This commit is contained in:
mattias 2007-07-01 13:07:24 +00:00
parent 14c9c1fef0
commit 1ddf9fb8f9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8511,10 +8511,14 @@ begin
Style := GetStyle(lgsDefault); Style := GetStyle(lgsDefault);
If Style = nil then If Style = nil then
exit; exit;
{$IFDEF Gtk1}
GC := Style^.bg_gc[GTK_STATE_PRELIGHT];
{$ELSE}
GC := Style^.text_gc[GTK_STATE_PRELIGHT]; GC := Style^.text_gc[GTK_STATE_PRELIGHT];
{$ENDIF}
If GC = nil then begin If GC = nil then begin
Result.Fill := GDK_Solid; Result.Fill := GDK_Solid;
Result.foreground := Style^.text[GTK_STATE_PRELIGHT]; Result.foreground := Style^.bg[GTK_STATE_PRELIGHT];
end end
else else
GDK_GC_Get_Values(GC, @Result); GDK_GC_Get_Values(GC, @Result);