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

win32: don't reset autosized width of listview column

Browse Source 
git-svn-id: trunk@24774 -
This commit is contained in:
paul 2010-04-21 01:28:42 +00:00
parent e3f6350f15
commit ffee9b5bd4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,6 +16,8 @@
}
{ TWin32WSCustomListView }
const
AutoSizeWidth = LVSCW_AUTOSIZE{_USEHEADER};
type
TLVStyleType = (lsStyle, lsInvert, lsExStyle);
@ -395,7 +397,7 @@ begin
then Exit;
if AAutoSize
then ListView_SetColumnWidth(ALV.Handle, AIndex, LVSCW_AUTOSIZE)
then ListView_SetColumnWidth(ALV.Handle, AIndex, AutoSizeWidth)
else ListView_SetColumnWidth(ALV.Handle, AIndex, AColumn.Width);
end;
@ -473,7 +475,9 @@ begin
if not WSCheckHandleAllocated(ALV, 'ColumnSetWidth')
then Exit;
ListView_SetColumnWidth(ALV.Handle, AIndex, AWidth)
if AColumn.AutoSize
then ListView_SetColumnWidth(ALV.Handle, AIndex, AutoSizeWidth)
else ListView_SetColumnWidth(ALV.Handle, AIndex, AWidth)
end;
class procedure TWin32WSCustomListView.ColumnSetVisible(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn; const AVisible: Boolean);
@ -484,7 +488,9 @@ begin
// TODO: implement with LV_COLUMN.subitem (associate different columns and insert/delete last.
if AVisible
then ListView_SetColumnWidth(ALV.Handle, AIndex, AColumn.Width)
then if AColumn.AutoSize
then ListView_SetColumnWidth(ALV.Handle, AIndex, AutoSizeWidth)
else ListView_SetColumnWidth(ALV.Handle, AIndex, AColumn.Width)
else ListView_SetColumnWidth(ALV.Handle, AIndex, 0);
end;