Class TCustomDBListView (unit DBListView98) |
Inherits from
TWinControl
constructor Create(AOwner: TComponent);
- TCustomDBListView
procedure Arrange(Code: TListArrangement);
procedure Clear;
function CustomSort(SortProc: TLVCompare; lParam: Longint): Boolean;
destructor Destroy;
FBkImage:= TBitmap.
function GetItemAt(X, Y: Integer): Integer;
function GetNearestItem(Point: TPoint;
Direction: TSearchDirection): Integer;
function GetNextItem(StartItem: Integer;
Direction: TSearchDirection; States: TItemStates): Integer;
function GetSearchString: string;
function IsEditing: Boolean;
ActiveRecord:= GetRecordNumber(iItem);
procedure LoadPosition;
procedure MapAllColumns;
procedure SavePosition;
procedure Scroll(DX, DY: Integer);
procedure SetSort(Index: Integer; IsForward: Boolean);
function StringWidth(S: string): Integer;
procedure UpdateItems(FirstIndex, LastIndex: Integer);
function AcquireLayoutLock: Boolean;
or (InplaceEditor <> nil) and InplaceEditor.
procedure BeginLayout;
procedure BeginUpdate;
procedure CancelLayout;
function CanChange(Item: Integer; Change: Integer): Boolean;
function CanEdit(Item: Integer): Boolean;
FDataLink.
procedure Change(Item: Integer; Change: Integer);
procedure ColClick(Column: TListDBColumn);
FDataLink.
function ColumnsShowing: Boolean;
procedure CreateParams(var Params: TCreateParams);
Remove Com Initialization CoUnInitialize;
procedure CreateWnd;
procedure Delete(Item: Integer);
procedure DestroyWnd;
procedure DoEndDrag(Target: TObject; X, Y: Integer);
procedure DoStartDrag(var DragObject: TDragObject);
procedure Edit(const Item: TLVItem);
procedure EndLayout;
procedure EndUpdate;
function GetDragImages: TCustomImageList;
function GetEditText: String;
function GetInternalRecordNumber: Integer;
procedure InsertItem(Item: Integer);
function IsItemSelected(Value: Integer): Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure TCustomDBListView.
procedure KeyPress(var Key: Char);
VK_UP: if FForwardSort then PriorRow(True) else NextRow(True);
VK_DOWN: if FForwardSort then NextRow(True) else PriorRow(True);
VK_HOME:
begin
ClearSelection;
if FForwardSort then First else Last;
end;
VK_END:
begin
ClearSelection;
if FForwardSort then Last else First;
end;
VK_NEXT:
begin
ClearSelection;
if FForwardSort then
MoveBy(VisibleCount-1)
else
MoveBy(-VisibleCount+1)
end;
VK_PRIOR:
begin
ClearSelection;
if FForwardSort then
MoveBy(-VisibleCount+1)
else
MoveBy(VisibleCount-1)
end;
procedure LayoutChanged;
procedure LinkActive(Value: Boolean);
procedure Loaded;
procedure NewItem;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure ScrollData(Distance: Integer);
procedure SetInternalRecordNumber(Value: Integer);
procedure UpdateColumn(Index: Integer);
procedure UpdateColumns;
procedure WMKeyDown(var Message: TWMKeyDown);
procedure WndProc(var Message: TMessage);
function AcquireFocus: Boolean;
procedure CMColorChanged(var Message: TMessage);
procedure CMCtl3DChanged(var Message: TMessage);
procedure CMDrag(var Message: TCMDrag);
procedure CMFontChanged(var Message: TMessage);
procedure CNNotify(var Message: TWMNotify);
InvalidateEditor;
if InplaceEditor <> nil then InplaceEditor.
procedure DataChanged;
Ok
procedure DefineFieldMap;
Force columns to reaquire fields (in case dataset has changed)
procedure DoDragOver(Source: TDragObject; X, Y: Integer; CanDrop: Boolean);
procedure EditingChanged;
procedure EditWndProc(var Message: TMessage);
function GetActiveSortName : string;
procedure TCustomDBListView.
function GetBkGndImage: String;
hbm:= 0;
function GetBoundingRect: TRect;
function GetColumnFromIndex(Index: Integer): TListDBColumn;
function GetCount: Integer;
function GetDataSource: TDataSource;
Build the column/field map from the column attributes
function GetDropTarget: Integer;
FDataLink.
function GetFocused: Integer;
function GetIndex(Order: Integer): Integer;
function GetOrder(Index: Integer): Integer;
function GetRecordNumber(iItem: Integer): Integer;
function GetSelCount: Integer;
function GetSelectedField: TField;
function GetSelectedIndex: Integer;
function GetSelection: Integer;
function GetTopItem: Integer;
function GetViewOrigin: TPoint;
function TCustomDBListView.
function GetVisibleCount: Integer;
procedure HeaderWndProc(var Message: TMessage);
function GetVisibleRowCount: Integer;
procedure HideEditor;
case Message.
procedure ImageListChange(Sender: TObject);
procedure InternalLayout;
InternalLayout is called with layout locks and column locks in effect
procedure RecordChanged(Field: TField);
OkVisibleCount;
procedure ResetExStyles;
procedure RestoreChecks;
procedure SaveChecks;
for i := 0 to Items.
procedure SetBkGndImage(BkImage: String);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCheckboxes(Value: Boolean);
if FCheckStream = nil then FCheckStream := TMemoryStream.
procedure SetColumnClick(Value: Boolean);
procedure SetColumnHeaders(Value: Boolean);
procedure SetCount(Value: Integer);
procedure SetDataSource(Value: TDataSource);
Ok
procedure SetDropTarget(Value: Integer);
procedure SetFlatScrollBars(Value: Boolean);
ListView_GetBkImage(Handle, BkGnd);
if ( BkGnd.
procedure SetFocused(Value: Integer);
procedure SetGridLines(Value: Boolean);
procedure SetHeaderDragDrop(Value: Boolean);
VisibleCount - ( iItem - TopItem ) - 1;//Count - iItem - 1 - TopItem;
procedure SetHeaderHotTrack(Value: Boolean);
procedure SetHideSelection(Value: Boolean);
procedure SetHotTrack(Value: Boolean);
procedure SetIconOptions(Value: TDBIconOptions);
procedure SetImageList(Value: HImageList; Flags: Integer);
procedure SetIme;
procedure SetLargeImages(Value: TImageList);
procedure SetListColumns(Value: TListDBColumns);
procedure SetMultiSelect(Value: Boolean);
procedure SetOneClickActivate(Value: Boolean);
procedure SetReadOnly(Value: Boolean);
procedure SetRowSelect(Value: Boolean);
procedure SetSelectedField(Value: TField);
procedure SetSelectedIndex(Value: Integer);
procedure SetSelection(Value: Integer);
procedure SetSmallImages(Value: TImageList);
procedure SetStateImages(Value: TImageList);
procedure SetSubItemImages(Value: Boolean);
procedure SetTextBkColor(Value: TColor);
procedure SetTextColor(Value: TColor);
procedure SetViewStyle(Value: TViewStyle);
procedure ShowEditor;
procedure UpdateActive;
procedure UpdateData;
procedure UpdateRowCount;
function ValidDataSet: Boolean;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
function ValidHeaderHandle: Boolean;
procedure WMKillFocus(var Message: TMessage);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMNotify(var Message: TWMNotify);
procedure WMParentNotify(var Message: TWMParentNotify);
procedure WMRButtonDown(var Message: TWMRButtonDown);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);
property ActiveSortName : String
property AutoSave : Boolean
property BkGndImage : String
property BoundingRect : TRect
property VisibleRowCount: Integer read GetVisibleRowCount;
property Buffered : Boolean
property Checkboxes : Boolean
property Column : TListDBColumn
property Count : Integer
property DataLink : TListViewDataLink
property DataSource : TDataSource
property DropTarget : Integer
property FlatScrollBar : Boolean
property GridLines : Boolean
property HeaderDragDrop : Boolean
property HeaderHotTrack : Boolean
property HotTrack : Boolean
property ItemFocused : Integer
property ItemHint : Boolean
property RecordNumber : Integer
property RegistryKey : String
property RowSelect : Boolean
property SelCount : Integer
property Selected : Integer
property SelectedField : TField
property SelectedIndex : Integer
property SubItemImages : Boolean
property TopItem : Integer
property UpdateLock : Byte
property ViewOrigin : TPoint
property VisibleCount : Integer
property BorderStyle : TBorderStyle
property CanDelete : Boolean
property CanInsert : Boolean
property ColumnClick : Boolean
property Columns : TListDBColumns
property HideSelection : Boolean
property IconOptions : TDBIconOptions
property LargeImages : TImageList
property MultiSelect : Boolean
property Order : Integer
property ReadOnly : Boolean
property ShowColumnHeaders : Boolean
property SmallImages : TImageList
property StateImages : TImageList
property ViewStyle : TViewStyle
event OnAskForColor : TDBLVAskForColor
event OnAskForIcon : TDBLVAskForIcon
event OneClickActivate : Boolean
event OnChange : TDBLVChangeEvent
event OnChanging : TDBLVChangingEvent
event OnColumnClick : TDBLVColumnClickEvent
event OnCompare : TLVCompareEvent
event OnDeletion : TDBLVDeletedEvent
event OnEdited : TDBLVEditedEvent
event OnEditing : TDBLVEditingEvent
event OnFindItem : TDBLVFindItemEvent
event OnInsert : TDBLVDeletedEvent
event OnNewtem : TDBLVNewItemEvent
FAcquireFocus : Boolean;
FUpdateFields : Boolean;
FAutoSave : Boolean;
FBitmapDn : TBitmap;
FBitmapNone : TBitmap;
FBitmapUp : TBitmap;
FBkImage : String;
FBorderStyle : TBorderStyle;
FBuffered : Boolean;
FCanDelete : Boolean;
FCanInsert : Boolean;
FCheckboxes : Boolean;
FCheckStream : TMemoryStream;
FClicked : Boolean;
FColStream : TMemoryStream;
FColumnClick : Boolean;
FCurrentSortCol : Integer;
FDataLink : TListViewDataLink;
FDefEditProc : Pointer;
FDefHeaderProc : Pointer;
FDragImage : TImageList;
FDragIndex : Integer;
FEditHandle : HWND;
FEditInstance : Pointer;
FFlatScrollBars : Boolean;
FForwardSort : Boolean;
FGridLines : Boolean;
FHeaderDragDrop : Boolean;
FHeaderHandle : HWND;
FHeaderHotTrack : Boolean;
FHeaderInstance : Pointer;
FHideSelection : Boolean;
FHotTrack : Boolean;
FIconOptions : TDBIconOptions;
FItemHint : Boolean;
FKeepItem : Integer;
FKeepSubItem : Integer;
FLargeChangeLink : TChangeLink;
FLargeImages : TImageList;
FLastDropTarget : Integer;
FLayoutFromDataset : Boolean;
FLayoutLock : Byte;
FListColumns : TListDBColumns;
FMemStream : TMemoryStream;
FMultiSelect : Boolean;
FOldFrom : Integer;
FOnAskForColor : TDBLVAskForColor;
FOnAskForIcon : TDBLVAskForIcon;
FOnChange : TDBLVChangeEvent;
FOnChanging : TDBLVChangingEvent;
FOnColumnClick : TDBLVColumnClickEvent;
FOnCompare : TLVCompareEvent;
FOnDeletion : TDBLVDeletedEvent;
FOneClickActivate : Boolean;
FOnEdited : TDBLVEditedEvent;
FOnEditing : TDBLVEditingEvent;
FOnFindItem : TDBLVFindItemEvent;
FOnInsert : TDBLVDeletedEvent;
FOnNewItem : TDBLVNewItemEvent;
FOriginalImeMode : TImeMode;
FOriginalImeName : TImeName;
FRClicked : Boolean;
FReading : Boolean;
FReadOnly : Boolean;
FRegistryKey : String;
FRowSelect : Boolean;
FShowColumnHeaders : Boolean;
FSmallChangeLink : TChangeLink;
FSmallImages : TImageList;
FStateChangeLink : TChangeLink;
FStateImages : TImageList;
FSubItemImages : Boolean;
FUpdateLock : Byte;
FViewStyle : TViewStyle;
constructor Create(AOwner: TComponent);
TCustomDBListView
procedure Arrange(Code: TListArrangement);
procedure Clear;
function CustomSort(SortProc: TLVCompare; lParam: Longint): Boolean;
destructor Destroy;
FBkImage:= TBitmap.Create;
function GetItemAt(X, Y: Integer): Integer;
function GetNearestItem(Point: TPoint;
Direction: TSearchDirection): Integer;
function GetNextItem(StartItem: Integer;
Direction: TSearchDirection; States: TItemStates): Integer;
function GetSearchString: string;
function IsEditing: Boolean;
ActiveRecord:= GetRecordNumber(iItem);
procedure LoadPosition;
procedure MapAllColumns;
procedure SavePosition;
procedure Scroll(DX, DY: Integer);
procedure SetSort(Index: Integer; IsForward: Boolean);
function StringWidth(S: string): Integer;
procedure UpdateItems(FirstIndex, LastIndex: Integer);
function AcquireLayoutLock: Boolean;
or (InplaceEditor <> nil) and InplaceEditor.Focused;
procedure BeginLayout;
procedure BeginUpdate;
procedure CancelLayout;
function CanChange(Item: Integer; Change: Integer): Boolean;
function CanEdit(Item: Integer): Boolean;
FDataLink.ActiveRecord:= GetRecordNumber(Item);
procedure Change(Item: Integer; Change: Integer);
procedure ColClick(Column: TListDBColumn);
FDataLink.ActiveRecord:= OldActive;
function ColumnsShowing: Boolean;
procedure CreateParams(var Params: TCreateParams);
Remove Com Initialization CoUnInitialize;
procedure CreateWnd;
procedure Delete(Item: Integer);
procedure DestroyWnd;
procedure DoEndDrag(Target: TObject; X, Y: Integer);
procedure DoStartDrag(var DragObject: TDragObject);
procedure Edit(const Item: TLVItem);
procedure EndLayout;
procedure EndUpdate;
function GetDragImages: TCustomImageList;
function GetEditText: String;
function GetInternalRecordNumber: Integer;
procedure InsertItem(Item: Integer);
function IsItemSelected(Value: Integer): Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure TCustomDBListView.WMVScroll(var Message: TWMVScroll);
var
SI: TScrollInfo;
begin
if not AcquireFocus then Exit;
if FDatalink.Active then
with Message, FDataLink.DataSet do
case ScrollCode of
SB_LINEUP: if FForwardSort then
MoveBy(-FDatalink.ActiveRecord - 1)
else
MoveBy(FDatalink.RecordCount - FDatalink.ActiveRecord);
SB_LINEDOWN: if FForwardSort then
MoveBy(FDatalink.RecordCount - FDatalink.ActiveRecord)
else
MoveBy(-FDatalink.ActiveRecord - 1);
SB_PAGEUP: if FForwardSort then MoveBy(-VisibleCount+1) else MoveBy(VisibleCount-1);
SB_PAGEDOWN: if FForwardSort then MoveBy(VisibleCount-1) else MoveBy(-VisibleCount+1);
SB_THUMBPOSITION:
begin
if IsSequenced then
begin
SI.cbSize := sizeof(SI);
SI.fMask := SIF_ALL;
GetScrollInfo(Self.Handle, SB_VERT, SI);
if SI.nTrackPos <= 1 then First
else if SI.nTrackPos >= RecordCount then Last
else RecNo := SI.nTrackPos;
end
else
case Pos of
0: if FForwardSort then First else Last;
1: if FForwardSort then MoveBy(-VisibleCount+1) else MoveBy(VisibleCount-1);
2: Exit;
3: if FForwardSort then MoveBy(VisibleCount-1) else MoveBy(-VisibleCount+1);
4: if FForwardSort then Last else First;
end;
end;
SB_BOTTOM: if FForwardSort then Last else First;
SB_TOP: if FForwardSort then First else Last;
end;
inherited;
end;
procedure KeyPress(var Key: Char);
VK_UP: if FForwardSort then PriorRow(True) else NextRow(True);
VK_DOWN: if FForwardSort then NextRow(True) else PriorRow(True);
VK_HOME:
begin
ClearSelection;
if FForwardSort then First else Last;
end;
VK_END:
begin
ClearSelection;
if FForwardSort then Last else First;
end;
VK_NEXT:
begin
ClearSelection;
if FForwardSort then
MoveBy(VisibleCount-1)
else
MoveBy(-VisibleCount+1)
end;
VK_PRIOR:
begin
ClearSelection;
if FForwardSort then
MoveBy(-VisibleCount+1)
else
MoveBy(VisibleCount-1)
end;
procedure LayoutChanged;
procedure LinkActive(Value: Boolean);
procedure Loaded;
procedure NewItem;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure ScrollData(Distance: Integer);
procedure SetInternalRecordNumber(Value: Integer);
procedure UpdateColumn(Index: Integer);
procedure UpdateColumns;
procedure WMKeyDown(var Message: TWMKeyDown);
procedure WndProc(var Message: TMessage);
function AcquireFocus: Boolean;
procedure CMColorChanged(var Message: TMessage);
procedure CMCtl3DChanged(var Message: TMessage);
procedure CMDrag(var Message: TCMDrag);
procedure CMFontChanged(var Message: TMessage);
procedure CNNotify(var Message: TWMNotify);
InvalidateEditor;
if InplaceEditor <> nil then InplaceEditor.Deselect;
procedure DataChanged;
Ok
procedure DefineFieldMap;
Force columns to reaquire fields (in case dataset has changed)
procedure DoDragOver(Source: TDragObject; X, Y: Integer; CanDrop: Boolean);
procedure EditingChanged;
procedure EditWndProc(var Message: TMessage);
function GetActiveSortName : string;
procedure TCustomDBListView.ScrollData(Distance: Integer);
var
OldRect, NewRect: TRect;
RowHeight: Integer;
begin
if not HandleAllocated then Exit;
if (FDataLink.ActiveRecord >= VisibleCount) then UpdateRowCount;
UpdateActive;
if Distance <> 0 then begin
HideEditor;
if Abs(Distance) > VisibleCount then begin
Invalidate;
Exit;
end
end;
if UpdateLock = 0 then Update;
end;
function GetBkGndImage: String;
hbm:= 0;
function GetBoundingRect: TRect;
function GetColumnFromIndex(Index: Integer): TListDBColumn;
function GetCount: Integer;
function GetDataSource: TDataSource;
Build the column/field map from the column attributes
function GetDropTarget: Integer;
FDataLink.ActiveRecord:= GetRecordNumber(Value);
function GetFocused: Integer;
function GetIndex(Order: Integer): Integer;
function GetOrder(Index: Integer): Integer;
function GetRecordNumber(iItem: Integer): Integer;
function GetSelCount: Integer;
function GetSelectedField: TField;
function GetSelectedIndex: Integer;
function GetSelection: Integer;
function GetTopItem: Integer;
function GetViewOrigin: TPoint;
function TCustomDBListView.AlphaSort: Boolean;
begin
Result := False;
end;
procedure TCustomDBListView.SetSortType(Value: TSortType);
begin
if SortType <> Value then
begin
FSortType := Value;
if ((SortType in [stData, stBoth]) and Assigned(OnCompare)) or
(SortType in [stText, stBoth]) then
AlphaSort;
end;
end;
function GetVisibleCount: Integer;
procedure HeaderWndProc(var Message: TMessage);
function GetVisibleRowCount: Integer;
procedure HideEditor;
case Message.CharCode of
VK_F2 : if ( Selected <> -1 ) and ( Not ReadOnly ) then
ShowEditor;
VK_INSERT : if ( Selected <> -1 ) and ( Not ReadOnly ) then
NewItem;
VK_DELETE : if ( Selected <> -1 ) and ( Not ReadOnly ) then
Delete(Selected);
end;
procedure ImageListChange(Sender: TObject);
procedure InternalLayout;
InternalLayout is called with layout locks and column locks in effect
procedure RecordChanged(Field: TField);
Ok
VisibleCount;
procedure ResetExStyles;
procedure RestoreChecks;
procedure SaveChecks;
for i := 0 to Items.Count - 1 do
begin
if FCheckStream <> nil then
begin
FCheckStream.Read(Value, SizeOf(Value));
Items[i].Checked := Value;
end
else
Items[i].Checked := False;
end;
FCheckStream.Free;
FCheckStream := nil;
procedure SetBkGndImage(BkImage: String);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCheckboxes(Value: Boolean);
if FCheckStream = nil then FCheckStream := TMemoryStream.Create
else FCheckStream.Size := 0;
for i := 0 to Items.Count - 1 do
begin
Value := Items[i].Checked;
FCheckStream.Write(Value, SizeOf(Value));
end;
FCheckStream.Position := 0;
procedure SetColumnClick(Value: Boolean);
procedure SetColumnHeaders(Value: Boolean);
procedure SetCount(Value: Integer);
procedure SetDataSource(Value: TDataSource);
Ok
procedure SetDropTarget(Value: Integer);
procedure SetFlatScrollBars(Value: Boolean);
ListView_GetBkImage(Handle, BkGnd);
if ( BkGnd.ulFlags = LVBKIF_SOURCE_HBITMAP ) then begin
FBkImage.Handle:= BkGnd.hbm;
end;
procedure SetFocused(Value: Integer);
procedure SetGridLines(Value: Boolean);
procedure SetHeaderDragDrop(Value: Boolean);
VisibleCount - ( iItem - TopItem ) - 1;//Count - iItem - 1 - TopItem;
procedure SetHeaderHotTrack(Value: Boolean);
procedure SetHideSelection(Value: Boolean);
procedure SetHotTrack(Value: Boolean);
procedure SetIconOptions(Value: TDBIconOptions);
procedure SetImageList(Value: HImageList; Flags: Integer);
procedure SetIme;
procedure SetLargeImages(Value: TImageList);
procedure SetListColumns(Value: TListDBColumns);
procedure SetMultiSelect(Value: Boolean);
procedure SetOneClickActivate(Value: Boolean);
procedure SetReadOnly(Value: Boolean);
procedure SetRowSelect(Value: Boolean);
procedure SetSelectedField(Value: TField);
procedure SetSelectedIndex(Value: Integer);
procedure SetSelection(Value: Integer);
procedure SetSmallImages(Value: TImageList);
procedure SetStateImages(Value: TImageList);
procedure SetSubItemImages(Value: Boolean);
procedure SetTextBkColor(Value: TColor);
procedure SetTextColor(Value: TColor);
procedure SetViewStyle(Value: TViewStyle);
procedure ShowEditor;
procedure UpdateActive;
procedure UpdateData;
procedure UpdateRowCount;
function ValidDataSet: Boolean;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
function ValidHeaderHandle: Boolean;
procedure WMKillFocus(var Message: TMessage);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMNotify(var Message: TWMNotify);
procedure WMParentNotify(var Message: TWMParentNotify);
procedure WMRButtonDown(var Message: TWMRButtonDown);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);
property ActiveSortName : String
property AutoSave : Boolean
property BkGndImage : String
property BoundingRect : TRect
property VisibleRowCount: Integer read GetVisibleRowCount;
property Buffered : Boolean
property Checkboxes : Boolean
property Column : TListDBColumn
property Count : Integer
property DataLink : TListViewDataLink
property DataSource : TDataSource
property DropTarget : Integer
property FlatScrollBar : Boolean
property GridLines : Boolean
property HeaderDragDrop : Boolean
property HeaderHotTrack : Boolean
property HotTrack : Boolean
property ItemFocused : Integer
property ItemHint : Boolean
property RecordNumber : Integer
property RegistryKey : String
property RowSelect : Boolean
property SelCount : Integer
property Selected : Integer
property SelectedField : TField
property SelectedIndex : Integer
property SubItemImages : Boolean
property TopItem : Integer
property UpdateLock : Byte
property ViewOrigin : TPoint
property VisibleCount : Integer
property BorderStyle : TBorderStyle
property CanDelete : Boolean
property CanInsert : Boolean
property ColumnClick : Boolean
property Columns : TListDBColumns
property HideSelection : Boolean
property IconOptions : TDBIconOptions
property LargeImages : TImageList
property MultiSelect : Boolean
property Order : Integer
property ReadOnly : Boolean
property ShowColumnHeaders : Boolean
property SmallImages : TImageList
property StateImages : TImageList
property ViewStyle : TViewStyle
event OnAskForColor : TDBLVAskForColor
event OnAskForIcon : TDBLVAskForIcon
event OneClickActivate : Boolean
event OnChange : TDBLVChangeEvent
event OnChanging : TDBLVChangingEvent
event OnColumnClick : TDBLVColumnClickEvent
event OnCompare : TLVCompareEvent
event OnDeletion : TDBLVDeletedEvent
event OnEdited : TDBLVEditedEvent
event OnEditing : TDBLVEditingEvent
event OnFindItem : TDBLVFindItemEvent
event OnInsert : TDBLVDeletedEvent
event OnNewtem : TDBLVNewItemEvent
FAcquireFocus : Boolean;
FUpdateFields : Boolean;
FAutoSave : Boolean;
FBitmapDn : TBitmap;
FBitmapNone : TBitmap;
FBitmapUp : TBitmap;
FBkImage : String;
FBorderStyle : TBorderStyle;
FBuffered : Boolean;
FCanDelete : Boolean;
FCanInsert : Boolean;
FCheckboxes : Boolean;
FCheckStream : TMemoryStream;
FClicked : Boolean;
FColStream : TMemoryStream;
FColumnClick : Boolean;
FCurrentSortCol : Integer;
FDataLink : TListViewDataLink;
FDefEditProc : Pointer;
FDefHeaderProc : Pointer;
FDragImage : TImageList;
FDragIndex : Integer;
FEditHandle : HWND;
FEditInstance : Pointer;
FFlatScrollBars : Boolean;
FForwardSort : Boolean;
FGridLines : Boolean;
FHeaderDragDrop : Boolean;
FHeaderHandle : HWND;
FHeaderHotTrack : Boolean;
FHeaderInstance : Pointer;
FHideSelection : Boolean;
FHotTrack : Boolean;
FIconOptions : TDBIconOptions;
FItemHint : Boolean;
FKeepItem : Integer;
FKeepSubItem : Integer;
FLargeChangeLink : TChangeLink;
FLargeImages : TImageList;
FLastDropTarget : Integer;
FLayoutFromDataset : Boolean;
FLayoutLock : Byte;
FListColumns : TListDBColumns;
FMemStream : TMemoryStream;
FMultiSelect : Boolean;
FOldFrom : Integer;
FOnAskForColor : TDBLVAskForColor;
FOnAskForIcon : TDBLVAskForIcon;
FOnChange : TDBLVChangeEvent;
FOnChanging : TDBLVChangingEvent;
FOnColumnClick : TDBLVColumnClickEvent;
FOnCompare : TLVCompareEvent;
FOnDeletion : TDBLVDeletedEvent;
FOneClickActivate : Boolean;
FOnEdited : TDBLVEditedEvent;
FOnEditing : TDBLVEditingEvent;
FOnFindItem : TDBLVFindItemEvent;
FOnInsert : TDBLVDeletedEvent;
FOnNewItem : TDBLVNewItemEvent;
FOriginalImeMode : TImeMode;
FOriginalImeName : TImeName;
FRClicked : Boolean;
FReading : Boolean;
FReadOnly : Boolean;
FRegistryKey : String;
FRowSelect : Boolean;
FShowColumnHeaders : Boolean;
FSmallChangeLink : TChangeLink;
FSmallImages : TImageList;
FStateChangeLink : TChangeLink;
FStateImages : TImageList;
FSubItemImages : Boolean;
FUpdateLock : Byte;
FViewStyle : TViewStyle;