| Class TCustomDBListView (unit DBListView98) |
TWinControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Arrange(Code: TListArrangement);
procedure Clear;
function CustomSort(SortProc: TLVCompare; lParam: Longint): Boolean;
destructor Destroy;
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;
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;
procedure BeginLayout;
procedure BeginUpdate;
procedure CancelLayout;
function CanChange(Item: Integer; Change: Integer): Boolean;
function CanEdit(Item: Integer): Boolean;
procedure Change(Item: Integer; Change: Integer);
procedure ColClick(Column: TListDBColumn);
function ColumnsShowing: Boolean;
procedure CreateParams(var Params: TCreateParams);
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 KeyPress(var Key: Char);
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);
procedure DataChanged;
procedure DefineFieldMap;
procedure DoDragOver(Source: TDragObject; X, Y: Integer; CanDrop: Boolean);
procedure EditingChanged;
procedure EditWndProc(var Message: TMessage);
function GetActiveSortName : string;
function GetBkGndImage: String;
function GetBoundingRect: TRect;
function GetColumnFromIndex(Index: Integer): TListDBColumn;
function GetCount: Integer;
function GetDataSource: TDataSource;
function GetDropTarget: Integer;
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 GetVisibleCount: Integer;
procedure HeaderWndProc(var Message: TMessage);
procedure HideEditor;
procedure ImageListChange(Sender: TObject);
procedure InternalLayout;
procedure RecordChanged(Field: TField);VisibleCount;
procedure ResetExStyles;
procedure RestoreChecks;
procedure SaveChecks;
procedure SetBkGndImage(BkImage: String);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCheckboxes(Value: Boolean);
procedure SetColumnClick(Value: Boolean);
procedure SetColumnHeaders(Value: Boolean);
procedure SetCount(Value: Integer);
procedure SetDataSource(Value: TDataSource);
procedure SetDropTarget(Value: Integer);
procedure SetFlatScrollBars(Value: Boolean);
procedure SetFocused(Value: Integer);
procedure SetGridLines(Value: Boolean);
procedure SetHeaderDragDrop(Value: Boolean);
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;
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);| Properties |
property ActiveSortName : String
property AutoSave : Boolean
property BkGndImage : String
property BoundingRect : TRect
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| Events |
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| Variables |
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;| Constructors |
constructor Create(AOwner: TComponent);TCustomDBListView
| Functions |
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);| Properties |
property ActiveSortName : String
property AutoSave : Boolean
property BkGndImage : String
property BoundingRect : TRectproperty 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| Events |
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| Variables |
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;