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

win32 interface: implement ListView.BeginUpdate and EndUpdate from JoshyFun (issue #12503)

Browse Source 
git-svn-id: trunk@17138 -
This commit is contained in:
vincents 2008-10-28 08:07:18 +00:00
parent 8b2b41eae0
commit 13e3cd5e97
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -500,7 +500,7 @@ begin
if not WSCheckHandleAllocated(ALV, 'BeginUpdate') if not WSCheckHandleAllocated(ALV, 'BeginUpdate')
then Exit; then Exit;
inherited BeginUpdate(ALV); SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(False),0);
end; end;
class procedure TWin32WSCustomListView.EndUpdate(const ALV: TCustomListView); class procedure TWin32WSCustomListView.EndUpdate(const ALV: TCustomListView);
@ -508,7 +508,7 @@ begin
if not WSCheckHandleAllocated(ALV, 'EndUpdate') if not WSCheckHandleAllocated(ALV, 'EndUpdate')
then Exit; then Exit;
inherited EndUpdate(ALV); SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(True),0);
end; end;
class function TWin32WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect; class function TWin32WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;