Class TCustomDBListView (unit DBListView98)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);

TCustomDBListView


Functions

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);

Ok

VisibleCount;


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);


Properties

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


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


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;