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

LCL, Gtk2, force redraw of GTKWinApiWidgets on focus changes so they can reflect focused/unfocused state (for grids in this case)

Browse Source 
git-svn-id: trunk@42924 -
This commit is contained in:
jesus 2013-09-24 17:36:24 +00:00
parent 3b6ec447bf
commit ff8b5f7a1b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2winapiwindow.pp
View File

@ -442,6 +442,7 @@ begin
gtk_widget_set_flags(AWidget, GTK_HAS_FOCUS); gtk_widget_set_flags(AWidget, GTK_HAS_FOCUS);
GTKAPIWidgetClient_DrawCaret(PGTKAPIWidgetClient(AWidget), False); GTKAPIWidgetClient_DrawCaret(PGTKAPIWidgetClient(AWidget), False);
gtk_widget_queue_draw(AWidget);
Result := gtk_False; Result := gtk_False;
end; end;
@ -454,6 +455,7 @@ begin
gtk_widget_unset_flags(AWidget, GTK_HAS_FOCUS); gtk_widget_unset_flags(AWidget, GTK_HAS_FOCUS);
GTKAPIWidgetClient_DrawCaret(PGTKAPIWidgetClient(AWidget), False); GTKAPIWidgetClient_DrawCaret(PGTKAPIWidgetClient(AWidget), False);
gtk_widget_queue_draw(AWidget);
Result := gtk_False; Result := gtk_False;
end; end;