![]() |
![]() ![]() ![]() |
acListView and acDBListView components.
|
type
|
TacListViewColumnResizeBeginEvent = procedure(Sender: TObject; Column: TListColumn; var AllowResize: Boolean) of object;
|
|
property OnColumnResizeBegin: TacListViewColumnResizeBeginEvent;
|
The OnColumnResizeBegin event occurs when user started to resize the list column, by dragging the divider on its header (when ViewStyle is vsReport).
|
|
The Column parameter determines the column are about to be resized.
|
The AllowResize parameter can be used to disallow resizing, by specifying False into it in the event handler.
|
procedure TForm1.acListView1ColumnResizeBegin(Sender: TObject;
|
Column: TListColumn; var AllowResize: Boolean);
|
begin
|
AllowResize := (Column.Index <> 2) and (Column.Index <> 3);
|
end;
|
OnColumnResizeEnd and OnColumnDragged events.
|