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

Gtk2: TGtk2WidgetSet.ScrollWindowEx() - implemented region moving when prcScroll <> nil.

Browse Source 
git-svn-id: trunk@33932 -
This commit is contained in:
zeljko 2011-12-03 20:38:34 +00:00
parent 002100a585
commit 06b32bf839
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7451,7 +7451,9 @@ begin
exit;
{$ENDIF}
// prcScroll, prcClip are not supported under gdk yet
if (hWnd = 0) or (prcScroll <> nil) or (prcClip <> nil) then Exit;
if (hWnd = 0) then
exit;
// or (prcScroll <> nil) or (prcClip <> nil) then Exit;
Widget := pgtkwidget(hWnd);
Widget := GetFixedWidget(Widget);
@ -7477,13 +7479,28 @@ begin
end;
end;
if PrcScroll <> nil then
begin
Rect1.x := PrcScroll^.Left;
Rect1.y := PrcScroll^.Top;
Rect1.width := PrcScroll^.Right - PrcScroll^.Left;
Rect1.height := PrcScroll^.Bottom - PrcScroll^.Top;
end;
Region := gdk_region_rectangle(@Rect1);
gdk_window_move_region(Window, Region, dx, dy);
// Rect2 includes the Area at the scroll-in side of Rect1
// gdk_window_move_region is supposed to have invalidated it, but some
// implementations seem not to do this. (bug 14297)
if dy <> 0 then
if (prcScroll <> nil) then
begin
if prcClip <> nil then
Rect1 := GdkRectFromRect(prcClip^)
else
Rect1 := GdkRectFromRect(prcScroll^);
gtk_widget_draw(Widget, @Rect1);
end else
if (dy <> 0) then
InvalidateRect(hWnd, @Rect2, false);
{$ELSE}
gdk_window_scroll(Window, dx, dy);