|
|
|
| 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.
|