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

Patch from José Mejuto, fixes Listview column autosize

Browse Source 
git-svn-id: trunk@26846 -
This commit is contained in:
sekelsenmat 2010-07-27 07:33:03 +00:00
parent a8ea014bf6
commit 72d00b6953
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/listcolumn.inc
View File

@ -94,7 +94,11 @@ begin
WSC.ColumnSetCaption(LV, Index, Self, FCaption); WSC.ColumnSetCaption(LV, Index, Self, FCaption);
WSC.ColumnSetMaxWidth(LV, Index, Self, FMaxWidth); WSC.ColumnSetMaxWidth(LV, Index, Self, FMaxWidth);
WSC.ColumnSetMinWidth(LV, Index, Self, FMinWidth); WSC.ColumnSetMinWidth(LV, Index, Self, FMinWidth);
WSC.ColumnSetWidth(LV, Index, Self, FWidth); if FAutoSize then begin
WSC.ColumnSetAutosize(LV, Index, Self, FAutosize);
end else begin
WSC.ColumnSetWidth(LV, Index, Self, FWidth);
end;
WSC.ColumnSetImage(LV, Index, Self, FImageIndex); WSC.ColumnSetImage(LV, Index, Self, FImageIndex);
WSC.ColumnSetVisible(LV, Index, Self, FVisible); WSC.ColumnSetVisible(LV, Index, Self, FVisible);
end; end;

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

@ -673,6 +673,9 @@ begin
{$else} {$else}
ListView_SetItemText(ALV.Handle, AIndex, ASubIndex, PChar(AText)); ListView_SetItemText(ALV.Handle, AIndex, ASubIndex, PChar(AText));
{$endif} {$endif}
if ALV.Column[ASubIndex].AutoSize then begin
ListView_SetColumnWidth(ALV.Handle, ASubIndex, LVSCW_AUTOSIZE);
end;
end; end;
class procedure TWin32WSCustomListView.ItemShow(const ALV: TCustomListView; const AIndex: Integer; const AItem: TListItem; const PartialOK: Boolean); class procedure TWin32WSCustomListView.ItemShow(const ALV: TCustomListView; const AIndex: Integer; const AItem: TListItem; const PartialOK: Boolean);