paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 21:57:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: don't fail in DrawTextWithColors if Widget = nil by C Western (part 1 of issue #0013317)

Browse Source 
git-svn-id: trunk@18978 -
This commit is contained in:
paul 2009-03-13 06:37:10 +00:00
parent 199d9f563c
commit fcaad0729b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2devicecontext.inc
View File

@ -63,7 +63,10 @@ begin
if AFont^.LogFont.lfEscapement <> 0 then if AFont^.LogFont.lfEscapement <> 0 then
begin begin
renderer := gdk_pango_renderer_get_default(gtk_widget_get_screen(Widget)); if Widget <> nil then
renderer := gdk_pango_renderer_get_default(gtk_widget_get_screen(Widget))
else
renderer := gdk_pango_renderer_get_default(gdk_get_default_screen);
gdk_pango_renderer_set_drawable(renderer, drawable); gdk_pango_renderer_set_drawable(renderer, drawable);
gdk_pango_renderer_set_gc(renderer, GC); gdk_pango_renderer_set_gc(renderer, GC);
SetColors(FGColor, BGColor); SetColors(FGColor, BGColor);