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

LCL: GTK2: TMemo: Fixed cursor does not work. Issue #32616

Browse Source 
git-svn-id: branches/fixes_2_0@59955 -
This commit is contained in:
mattias 2018-12-31 12:45:47 +00:00
parent d7add52d79
commit fd8caba208
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/gtk2privatewidget.inc
View File

@ -18,7 +18,10 @@ var
begin
Widget := AInfo^.CoreWidget;
FixWidget := GetFixedWidget(Widget);
Window := GetControlWindow(FixWidget);
if GTK_IS_TEXT_VIEW(FixWidget) then
Window := gtk_text_view_get_window(PGtkTextView(FixWidget), GTK_TEXT_WINDOW_TEXT)
else
Window := GetControlWindow(FixWidget);
if Window = nil then Exit;
// always recurse windows which do not accept controls.
// this way we will catch all widgets with double windows