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

LCL: TListView added property AutoWidthLastColumn to fit last column into width of TListView. issue #19309

Browse Source 
git-svn-id: trunk@35170 -
This commit is contained in:
zeljko 2012-02-06 07:52:57 +00:00
parent 04d7f69119
commit c8fa2b4962
2 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/comctrls.pp
View File

@ -1232,6 +1232,7 @@ type
private
FAllocBy: Integer;
FAutoSort: Boolean;
FAutoWidthLastColumn: Boolean;
FCanvas: TCanvas;
FDefaultItemHeight: integer;
FHotTrackStyles: TListHotTrackStyles;
@ -1289,7 +1290,9 @@ type
function GetViewOrigin: TPoint;
function GetVisibleRowCount: Integer;
procedure ResizeLastColumn;
procedure SetAllocBy(const AValue: Integer);
procedure SetAutoWidthLastColumn(AValue: Boolean);
procedure SetColumns(const AValue: TListColumns);
procedure SetDefaultItemHeight(AValue: Integer);
procedure SetDropTarget(const AValue: TListItem);
@ -1335,6 +1338,7 @@ type
procedure DoInsert(AItem: TListItem); virtual;
procedure DoItemChecked(AItem: TListItem);
procedure DoSelectItem(AItem: TListItem; ASelected: Boolean); virtual;
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
procedure InsertItem(Item : TListItem);
procedure ImageChanged(Sender : TObject);
procedure Loaded; override;
@ -1351,6 +1355,7 @@ type
protected
property AllocBy: Integer read FAllocBy write SetAllocBy default 0;
property AutoSort: Boolean read FAutoSort write FAutoSort default True; // when we click header column sort automatically
property AutoWidthLastColumn: Boolean read FAutoWidthLastColumn write SetAutoWidthLastColumn default False; // resize last column to fit width of TListView
property ColumnClick: Boolean index Ord(lvpColumnClick) read GetProperty write SetProperty default True;
property Columns: TListColumns read FColumns write SetColumns;
property DefaultItemHeight: integer read FDefaultItemHeight write SetDefaultItemHeight;
@ -1435,6 +1440,7 @@ type
property AllocBy;
property Anchors;
property AutoSort;
property AutoWidthLastColumn: Boolean read FAutoWidthLastColumn write SetAutoWidthLastColumn default False; // resize last column to fit width of TListView
property BorderSpacing;
property BorderStyle;
property BorderWidth;

63
lcl/include/customlistview.inc
View File

@ -82,6 +82,7 @@ begin
inherited Create(AOwner);
ControlStyle := ControlStyle - [csCaptureMouse];
FAutoSort := True;
FAutoWidthLastColumn := False;
FSortDirection := sdAscending;
FIconOptions := TIconOptions.Create(Self);
FColumns := TListColumns.Create(Self);
@ -452,6 +453,13 @@ begin
FOnSelectItem(Self, AItem, ASelected);
end;
procedure TCustomListView.DoSetBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
if AutoWidthLastColumn then
ResizeLastColumn;
end;
{------------------------------------------------------------------------------}
{ TCustomListView ItemDeleted }
{------------------------------------------------------------------------------}
@ -1043,6 +1051,61 @@ begin
TWSCustomListViewClass(WidgetSetClass).SetAllocBy(Self, AValue);
end;
procedure TCustomListView.ResizeLastColumn;
var
i: Integer;
LastVisibleColumn: Integer;
Accu: Integer;
W: Integer;
NewWidth: Integer;
begin
if not (ViewStyle in [vsList, vsReport]) or (ColumnCount = 0) then
exit;
LastVisibleColumn := -1;
// find last visible column
for i := ColumnCount - 1 downto 0 do
begin
if Column[i].Visible then
begin
LastVisibleColumn := i;
break;
end;
end;
// calculate size and apply it only if it's > 0
if LastVisibleColumn >= 0 then
begin
//TODO: gtk2 doesnt return correct ClientWidth. win32 and qt works ok.
W := ClientWidth - (BorderWidth * 2);
Accu := 0;
for i := 0 to LastVisibleColumn - 1 do
begin
if Column[i].Visible then
Accu := Accu + Column[i].Width;
end;
NewWidth := W - Accu;
if NewWidth > 0 then
begin
// now set AutoSize and MinWidth/MaxWidth to 0
Column[LastVisibleColumn].AutoSize := False;
Column[LastVisibleColumn].MinWidth := 0;
Column[LastVisibleColumn].MaxWidth := 0;
Column[LastVisibleColumn].Width := NewWidth;
end;
end;
end;
procedure TCustomListView.SetAutoWidthLastColumn(AValue: Boolean);
var
i: Integer;
begin
if FAutoWidthLastColumn=AValue then Exit;
FAutoWidthLastColumn:=AValue;
if FAutoWidthLastColumn then
ResizeLastColumn;
end;
procedure TCustomListView.SetDefaultItemHeight(AValue: Integer);
begin
if AValue <=0 then AValue := 20;