1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
{%MainUnit ../comctrls.pp}
{ $Id$
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
{------------------------------------------------------------------------------}
{ TListColumns }
{------------------------------------------------------------------------------}
function TListColumns.Add: TListColumn;
begin
Result := TListColumn(inherited Add);
if (Owner<>nil)
and ([csDesigning,csLoading,csReading]*Owner.ComponentState=[csDesigning])
then
OwnerFormDesignerModified(Owner);
end;
procedure TListColumns.Assign(Source: TPersistent);
var
I: Integer;
NewColumn: TListColumn;
begin
if (Source=nil) or (Source=Self) then exit;
BeginUpdate;
//inherited Assign(Source);
If Source is TCollection then begin
Clear;
// workaround for compiler bug: Add.Assign calls 2 times Add
For I:=0 To TCollection(Source).Count-1 do begin
NewColumn:=Add;
NewColumn.Assign(TCollection(Source).Items[I]);
end;
end
else
Inherited Assign(Source);
EndUpdate;
if (Owner<>nil)
and ([csDesigning,csLoading,csReading]*Owner.ComponentState=[csDesigning])
then
OwnerFormDesignerModified(Owner);
end;
constructor TListColumns.Create(AOwner: TCustomListView);
begin
FOwner := AOwner;
inherited Create(TListColumn);
end;
destructor TListColumns.Destroy;
begin
BeginUpdate;
inherited Destroy;
EndUpdate;
end;
procedure TListColumns.DoFinalizeWnd;
var
I: Integer;
begin
for I := 0 to Count-1 do
Items[I].GetWidth; // store real width from WS into FWidth
end;
procedure TListColumns.Update(Item: TCollectionItem);
begin
if (Item = nil) and FNeedsUpdate then
Item := FItemNeedsUpdate;
inherited Update(Item);
end;
function TListColumns.GetItem(const AIndex: Integer): TListColumn;
begin
Result := TListColumn(inherited GetItem(AIndex));
end;
procedure TListColumns.WSCreateColumns;
var
n: Integer;
begin
// remove columns at first if exists to prevent doubling them
for n := Count - 1 downto 0 do
GetItem(n).WSDestroyColumn;
for n := 0 to Count - 1 do
GetItem(n).WSCreateColumn;
end;
procedure TListColumns.SetItem(const AIndex: Integer; const AValue: TListColumn);
begin
inherited SetItem(AIndex, AValue);
end;
function TListColumns.GetOwner: TPersistent;
begin
Result := FOwner;
end;
// included by comctrls.pp
|
