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

Fixes bug #14985, fixes problems in wince TListView

Browse Source 
git-svn-id: trunk@22547 -
This commit is contained in:
sekelsenmat 2009-11-12 13:40:19 +00:00
parent a6b8422291
commit 28013bc2d7
2 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/wincewscomctrls.pp
View File

@ -26,7 +26,7 @@ interface
uses
// RTL, FCL
Windows, Classes, SysUtils, commctrl, {WinExt,}
Windows, Classes, SysUtils, commctrl, WinExt,
// Compatibility
{$ifdef Win32}win32compat,{$endif}
// LCL

20
lcl/interfaces/wince/wincewscustomlistview.inc
View File

@ -749,24 +749,18 @@ begin
end;
class procedure TWinCEWSCustomListView.UpdateExStyle(const AHandle: THandle; const AMask, AStyle: Integer);
{var
OldStyle, NewStyle: Integer;}
var
OldStyle, NewStyle: Integer;
begin
{
OldStyle := ListView_GetExtendedListViewStyle(AHandle);
OldStyle := SendMessage(AHandle, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0);
NewStyle := (OldStyle and not AMask) or AStyle;
if OldStyle = NewStyle then Exit;
roozbeh:not suppoerted!
ListView_SetExtendedListViewStyle(AHandle, NewStyle);
//Invalidate Listview, so that changes are made visible
SendMessage(AHandle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, NewStyle);
//Invalidate Listview, so that changes are made visible
Windows.InvalidateRect(AHandle, nil, true);
}
end;