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

LCL-GTK2: Improve the earlier ListView speedup. Issue #40302, patch by wavebvg.

Browse Source
This commit is contained in:
Juha 2023-06-09 16:14:25 +03:00
parent d8e3c3f75e
commit dcab9e2e9c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1788,7 +1788,8 @@ begin
// Replace the ScrollingInfo with our info
WidgetInfo := GetWidgetInfo(ScrollWidget);
OrigScrollingData := WidgetInfo^.UserData;
Widgets^.ScrollingData := OrigScrollingData^;
ScrollingData := OrigScrollingData^;
ItemCacheCount := 0;
WidgetInfo^.UserData := Widgets;
@ -1798,7 +1799,7 @@ begin
gtk_widget_show_all(PGtkWidget(MainView));
if not AWinControl.HandleObjectShouldBeVisible and not (csDesigning in AWinControl.ComponentState) then
gtk_widget_hide(PGtkWidget(ScrollWidget));
SetListCallbacks(PGtkWidget(ScrollWidget), Widgets, Widgets^.WidgetInfo);
SetListCallbacks(PGtkWidget(ScrollWidget), Widgets, WidgetInfo);
end;
end;