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

Fixes wince listview column width

Browse Source 
git-svn-id: trunk@26476 -
This commit is contained in:
sekelsenmat 2010-07-05 20:35:23 +00:00
parent 49396fee36
commit fd89723591
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,6 +54,9 @@ type
iOrder: Integer;
end;
type
TCustomListViewAccess = class(TCustomListView);
TListColumnAccess = class(TListColumn);
////////////////////////////////////////////////////////////////////////////////
// Event code
@ -187,7 +190,7 @@ begin
if AAutoSize
then ListView_SetColumnWidth(ALV.Handle, AIndex, LVSCW_AUTOSIZE)
else ListView_SetColumnWidth(ALV.Handle, AIndex, AColumn.Width);
else ListView_SetColumnWidth(ALV.Handle, AIndex, TListColumnAccess(AColumn).GetStoredWidth);
end;
class procedure TWinCEWSCustomListView.ColumnSetCaption(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn; const ACaption: String);
@ -251,12 +254,15 @@ begin
// TODO: in messageHandler
end;
class procedure TWinCEWSCustomListView.ColumnSetWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn; const AWidth: Integer);
class procedure TWinCEWSCustomListView.ColumnSetWidth(const ALV: TCustomListView;
const AIndex: Integer; const AColumn: TListColumn; const AWidth: Integer);
begin
if not WSCheckHandleAllocated(ALV, 'ColumnSetWidth')
then Exit;
ListView_SetColumnWidth(ALV.Handle, AIndex, AWidth)
if AColumn.AutoSize
then ListView_SetColumnWidth(ALV.Handle, AIndex, LVSCW_AUTOSIZE)
else ListView_SetColumnWidth(ALV.Handle, AIndex, AWidth);
end;
class procedure TWinCEWSCustomListView.ColumnSetVisible(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn; const AVisible: Boolean);
@ -266,8 +272,10 @@ begin
// TODO: implement with LV_COLUMN.subitem (associate different columns and insert/delete last.
if AVisible
then ListView_SetColumnWidth(ALV.Handle, AIndex, AColumn.Width)
if AVisible then
if AColumn.AutoSize
then ListView_SetColumnWidth(ALV.Handle, AIndex, LVSCW_AUTOSIZE)
else ListView_SetColumnWidth(ALV.Handle, AIndex, TListColumnAccess(AColumn).GetStoredWidth)
else ListView_SetColumnWidth(ALV.Handle, AIndex, 0);
end;
@ -347,9 +355,10 @@ begin
if not WSCheckHandleAllocated(ALV, 'ItemInsert')
then Exit;
lvi.Mask := LVIF_TEXT;
lvi.Mask := LVIF_TEXT or LVIF_PARAM;
lvi.iItem := AIndex;
lvi.iSubItem := 0;
lvi.lParam := LPARAM(AItem);
{$ifdef Win32}
lvi.pszText := PChar(PWideChar(UTF8Decode(AItem.Caption)));
@ -465,6 +474,8 @@ begin
pClassName := WC_LISTVIEW;
WindowTitle := StrCaption;
Flags := Flags or LISTVIEWSTYLES[TListView(AWinControl).ViewStyle] or LVS_SINGLESEL;
if TCustomListView(AWinControl).OwnerData then
Flags := Flags or LVS_OWNERDATA;
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
end;
// create window