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

Patch from DRIGUS GmbH, improves TListView under WinCE

Browse Source 
git-svn-id: trunk@26264 -
This commit is contained in:
sekelsenmat 2010-06-22 19:19:49 +00:00
parent 4396585f5d
commit 4d2431babc
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/wince/wincewscustomlistview.inc
View File

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