paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 16:19:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32: fix TListView.Autosize by Bernd Kreuss (issue #0017141)

Browse Source 
git-svn-id: trunk@27046 -
This commit is contained in:
paul 2010-08-10 02:07:48 +00:00
parent 2012316840
commit 2c127c9897
3 changed files with 33 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -1107,7 +1107,8 @@ type
function CustomDrawItem(AItem: TListItem; AState: TCustomDrawState; AStage: TCustomDrawStage): Boolean; virtual; //
function CustomDrawSubItem(AItem: TListItem; ASubItem: Integer; AState: TCustomDrawState; AStage: TCustomDrawStage): Boolean; virtual; //
function IntfCustomDraw(ATarget: TCustomDrawTarget; AStage: TCustomDrawStage; AItem, ASubItem: Integer; AState: TCustomDrawState; const ARect: PRect): TCustomDrawResult;
function GetUpdateCount: Integer;
procedure DoGetOwnerData(Item: TListItem); virtual;
protected
property AllocBy: Integer read FAllocBy write SetAllocBy default 0;

5
lcl/include/customlistview.inc
View File

@ -521,6 +521,11 @@ begin
then Result := [cdrSkipDefault];
end;
function TCustomListView.GetUpdateCount: Integer;
begin
Result := FUpdateCount;
end;
procedure TCustomListView.DoGetOwnerData(Item: TListItem);
begin
if Assigned(OnData) then OnData(Self, Item);

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

@ -17,7 +17,7 @@
{ TWin32WSCustomListView }
const
AutoSizeWidth = LVSCW_AUTOSIZE{_USEHEADER};
AutoSizeWidth = LVSCW_AUTOSIZE_USEHEADER;
type
TLVStyleType = (lsStyle, lsInvert, lsExStyle);
@ -673,9 +673,13 @@ begin
{$else}
ListView_SetItemText(ALV.Handle, AIndex, ASubIndex, PChar(AText));
{$endif}
if ALV.Column[ASubIndex].AutoSize then begin
ListView_SetColumnWidth(ALV.Handle, ASubIndex, LVSCW_AUTOSIZE);
end;
// autosize is an *exteme* performance bottleneck, even if WM_SETREDRAW
// was set to false it will ignore this and still redraw all columns.
// We will therefore postpone all autosizing until EndUpdate where we do
// it only once per column.
if ALV.Column[ASubIndex].AutoSize and (TCustomListViewAccess(ALV).GetUpdateCount = 0) then
ListView_SetColumnWidth(ALV.Handle, ASubIndex, AutoSizeWidth);
end;
class procedure TWin32WSCustomListView.ItemShow(const ALV: TCustomListView; const AIndex: Integer; const AItem: TListItem; const PartialOK: Boolean);
@ -731,11 +735,29 @@ begin
end;
class procedure TWin32WSCustomListView.EndUpdate(const ALV: TCustomListView);
var
ColIndex : Integer;
begin
if not WSCheckHandleAllocated(ALV, 'EndUpdate')
then Exit;
// we have skipped all column resizing in ItemSetText()
// for performance reasons, so now we need to do it here.
//
// A further significant perfomance boost and reduced flickering
// can be achieved by setting the widget to invisible during the
// following operation (it ignores the state of WM_SETREDRAW for
// column resizing, but this way we we can really enforce it).
// ShowWindow() itself does not force an immediate redraw,
// so it won't flicker at all.
ShowWindow(ALV.Handle, SW_HIDE);
for ColIndex := 0 to TCustomListViewAccess(ALV).Columns.Count - 1 do
if ALV.Column[ColIndex].AutoSize then
ListView_SetColumnWidth(ALV.Handle, ColIndex, AutoSizeWidth);
SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(True),0);
if ALV.Visible then
ShowWindow(ALV.Handle, SW_SHOW);
end;
class function TWin32WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;