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

Gtk2: do not assert, check if we are GtkScrolledWindow inside TGtk2WidgetSet.InvalidateRect

Browse Source 
git-svn-id: trunk@35883 -
This commit is contained in:
zeljko 2012-03-11 13:27:56 +00:00
parent 47ff29d2a7
commit 9652b47265
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -6522,7 +6522,7 @@ begin
Inc(gdkRect.X, PaintWidget^.Allocation.x); Inc(gdkRect.X, PaintWidget^.Allocation.x);
Inc(gdkRect.Y, PaintWidget^.Allocation.y); Inc(gdkRect.Y, PaintWidget^.Allocation.y);
end; end;
if LCLObject is TScrollingWinControl then if (LCLObject is TScrollingWinControl) and GTK_IS_SCROLLED_WINDOW(Widget) then
begin begin
Pt := Point(0, 0); Pt := Point(0, 0);
Adjustment := gtk_scrolled_window_get_vadjustment(PGtkScrolledWindow(Widget)); Adjustment := gtk_scrolled_window_get_vadjustment(PGtkScrolledWindow(Widget));