mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 10:39:18 +02:00
win32 interface: implement ListView.BeginUpdate and EndUpdate from JoshyFun (issue #12503)
git-svn-id: trunk@17138 -
This commit is contained in:
parent
8b2b41eae0
commit
13e3cd5e97
@ -500,7 +500,7 @@ begin
|
||||
if not WSCheckHandleAllocated(ALV, 'BeginUpdate')
|
||||
then Exit;
|
||||
|
||||
inherited BeginUpdate(ALV);
|
||||
SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(False),0);
|
||||
end;
|
||||
|
||||
class procedure TWin32WSCustomListView.EndUpdate(const ALV: TCustomListView);
|
||||
@ -508,7 +508,7 @@ begin
|
||||
if not WSCheckHandleAllocated(ALV, 'EndUpdate')
|
||||
then Exit;
|
||||
|
||||
inherited EndUpdate(ALV);
|
||||
SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(True),0);
|
||||
end;
|
||||
|
||||
class function TWin32WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;
|
||||
|
Loading…
Reference in New Issue
Block a user