cxlistview.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 2,127 行 · 第 1/5 页

procedure TcxCustomListView.SetOnAdvancedCustomDrawSubItem(Value: TLVAdvancedCustomDrawSubItemEvent);
begin
  InnerListView.OnAdvancedCustomDrawSubItem := Value;
end;

function TcxCustomListView.GetOnChange: TLVChangeEvent;
begin
  Result := InnerListView.OnChange;
end;

procedure TcxCustomListView.SetOnChange(Value: TLVChangeEvent);
begin
  InnerListView.OnChange := Value;
end;

function TcxCustomListView.GetOnChanging: TLVChangingEvent;
begin
  Result := InnerListView.OnChanging;
end;

procedure TcxCustomListView.SetOnChanging(Value: TLVChangingEvent);
begin
  InnerListView.OnChanging := Value;
end;

function TcxCustomListView.GetOnColumnClick: TLVColumnClickEvent;
begin
  Result := InnerListView.OnColumnClick;
end;

procedure TcxCustomListView.SetOnColumnClick(Value: TLVColumnClickEvent);
begin
  InnerListView.OnColumnClick := Value;
end;

function TcxCustomListView.GetOnColumnDragged: TNotifyEvent;
begin
  Result := InnerListView.OnColumnDragged;
end;

procedure TcxCustomListView.SetOnColumnDragged(Value: TNotifyEvent);
begin
  InnerListView.OnColumnDragged := Value;
end;

function TcxCustomListView.GetOnColumnRightClick: TLVColumnRClickEvent;
begin
  Result := InnerListView.OnColumnRightClick;
end;

procedure TcxCustomListView.SetOnColumnRightClick(Value: TLVColumnRClickEvent);
begin
  InnerListView.OnColumnRightClick := Value;
end;

function TcxCustomListView.GetOnCompare: TLVCompareEvent;
begin
  Result := InnerListView.OnCompare;
end;

procedure TcxCustomListView.SetOnCompare(Value: TLVCompareEvent);
begin
  InnerListView.OnCompare := Value;
end;

function TcxCustomListView.GetOnCustomDraw: TLVCustomDrawEvent;
begin
  Result := InnerListView.OnCustomDraw;
end;

procedure TcxCustomListView.SetOnCustomDraw(Value: TLVCustomDrawEvent);
begin
  InnerListView.OnCustomDraw := Value;
end;

function TcxCustomListView.GetOnCustomDrawItem: TLVCustomDrawItemEvent;
begin
  Result := InnerListView.OnCustomDrawItem;
end;

procedure TcxCustomListView.SetOnCustomDrawItem(Value: TLVCustomDrawItemEvent);
begin
  InnerListView.OnCustomDrawItem := Value;
end;

function TcxCustomListView.GetOnCustomDrawSubItem: TLVCustomDrawSubItemEvent;
begin
  Result := InnerListView.OnCustomDrawSubItem;
end;

procedure TcxCustomListView.SetOnCustomDrawSubItem(Value: TLVCustomDrawSubItemEvent);
begin
  InnerListView.OnCustomDrawSubItem := Value;
end;

function TcxCustomListView.GetOnData: TLVOwnerDataEvent;
begin
  Result := InnerListView.OnData;
end;

procedure TcxCustomListView.SetOnData(Value: TLVOwnerDataEvent);
begin
  InnerListView.OnData := Value;
end;

function TcxCustomListView.GetOnDataFind: TLVOwnerDataFindEvent;
begin
  Result := InnerListView.OnDataFind;
end;

procedure TcxCustomListView.SetOnDataFind(Value: TLVOwnerDataFindEvent);
begin
  InnerListView.OnDataFind := Value;
end;

function TcxCustomListView.GetOnDataHint: TLVOwnerDataHintEvent;
begin
  Result := InnerListView.OnDataHint;
end;

procedure TcxCustomListView.SetOnDataHint(Value: TLVOwnerDataHintEvent);
begin
  InnerListView.OnDataHint := Value;
end;

function TcxCustomListView.GetOnDataStateChange: TLVOwnerDataStateChangeEvent;
begin
  Result := InnerListView.OnDataStateChange;
end;

procedure TcxCustomListView.SetOnDataStateChange(Value: TLVOwnerDataStateChangeEvent);
begin
  InnerListView.OnDataStateChange := Value;
end;

function TcxCustomListView.GetOnDeletion: TLVDeletedEvent;
begin
  Result := InnerListView.OnDeletion;
end;

procedure TcxCustomListView.SetOnDeletion(Value: TLVDeletedEvent);
begin
  InnerListView.OnDeletion := Value;
end;

function TcxCustomListView.GetOnDrawItem: TLVDrawItemEvent;
begin
  Result := InnerListView.OnDrawItem;
end;

procedure TcxCustomListView.SetOnDrawItem(Value: TLVDrawItemEvent);
begin
  InnerListView.OnDrawItem := Value;
end;

function TcxCustomListView.GetOnEdited: TLVEditedEvent;
begin
  Result := InnerListView.OnEdited;
end;

procedure TcxCustomListView.SetOnEdited(Value: TLVEditedEvent);
begin
  InnerListView.OnEdited := Value;
end;

function TcxCustomListView.GetOnEditing: TLVEditingEvent;
begin
  Result := InnerListView.OnEditing;
end;

procedure TcxCustomListView.SetOnEditing(Value: TLVEditingEvent);
begin
  InnerListView.OnEditing := Value;
end;

function TcxCustomListView.GetOnInfoTip: TLVInfoTipEvent;
begin
  Result := InnerListView.OnInfoTip;
end;

procedure TcxCustomListView.SetOnInfoTip(Value: TLVInfoTipEvent);
begin
  InnerListView.OnInfoTip := Value;
end;

function TcxCustomListView.GetOnInsert: TLVDeletedEvent;
begin
  Result := InnerListView.OnInsert;
end;

procedure TcxCustomListView.SetOnInsert(Value: TLVDeletedEvent);
begin
  InnerListView.OnInsert := Value;
end;

function TcxCustomListView.GetOnGetImageIndex: TLVNotifyEvent;
begin
  Result := InnerListView.OnGetImageIndex;
end;

procedure TcxCustomListView.SetOnGetImageIndex(Value: TLVNotifyEvent);
begin
  InnerListView.OnGetImageIndex := Value;
end;

function TcxCustomListView.GetOnGetSubItemImage: TLVSubItemImageEvent;
begin
  Result := InnerListView.OnGetSubItemImage;
end;

procedure TcxCustomListView.SetOnGetSubItemImage(Value: TLVSubItemImageEvent);
begin
  InnerListView.OnGetSubItemImage := Value;
end;

function TcxCustomListView.GetOnSelectItem: TLVSelectItemEvent;
begin
  Result := InnerListView.OnSelectItem;
end;

procedure TcxCustomListView.SetOnSelectItem(Value: TLVSelectItemEvent);
begin
  InnerListView.OnSelectItem := Value;
end;

function TcxCustomListView.GetShowColumnHeaders: Boolean;
begin
  Result := InnerListView.ShowColumnHeaders;
end;

function TcxCustomListView.GetShowWorkAreas: Boolean;
begin
  Result := InnerListView.ShowWorkAreas;
end;

procedure TcxCustomListView.SetShowWorkAreas(Value: Boolean);
begin
  InnerListView.ShowWorkAreas := Value;
end;

function TcxCustomListView.GetSmallImages: TCustomImageList;
begin
  Result := InnerListView.SmallImages;
end;

procedure TcxCustomListView.SetSmallImages(Value: TCustomImageList);
begin
  InnerListView.SmallImages := Value;
end;

function TcxCustomListView.GetSortType: TSortType;
begin
  Result := InnerListView.SortType;
end;

procedure TcxCustomListView.SetSortType(Value: TSortType);
begin
  InnerListView.SortType := Value;
end;

function TcxCustomListView.GetStateImages: TCustomImageList;
begin
  Result := InnerListView.StateImages;
end;

procedure TcxCustomListView.SetStateImages(Value: TCustomImageList);
begin
  InnerListView.StateImages := Value;
end;

function TcxCustomListView.GetViewStyle: TViewStyle;
begin
  Result := InnerListView.ViewStyle;
end;

{$IFDEF DELPHI6}
function TcxCustomListView.GetOnCreateItemClass: TLVCreateItemClassEvent;
begin
  Result := InnerListView.OnCreateItemClass;
end;

procedure TcxCustomListView.SetOnCreateItemClass(Value: TLVCreateItemClassEvent);
begin
  InnerListView.OnCreateItemClass := Value;
end;
{$ENDIF}

function TcxCustomListView.GetCheckBoxes: Boolean;
begin
  Result := InnerListView.Checkboxes;
end;

function TcxCustomListView.GetColumnFromIndex(Index: Integer): TListColumn;
begin
  Result := InnerListView.Column[Index];
end;

function TcxCustomListView.GetDropTarget: TListItem;
begin
  Result := InnerListView.DropTarget;
end;

function TcxCustomListView.GetFullDrag: Boolean;
begin
  Result := InnerListView.FullDrag;
end;

function TcxCustomListView.GetGridLines: Boolean;
begin
  Result := InnerListView.GridLines;
end;

function TcxCustomListView.GetHotTrack: Boolean;
begin
  Result := InnerListView.HotTrack;
end;

function TcxCustomListView.GetHotTrackStyles: TListHotTrackStyles;
begin
  Result := InnerListView.HotTrackStyles;
end;

function TcxCustomListView.GetItemFocused: TListItem;
begin
  Result := InnerListView.ItemFocused;
end;

function TcxCustomListView.GetRowSelect: Boolean;
begin
  Result := InnerListView.RowSelect;
end;

function TcxCustomListView.GetSelCount: Integer;
begin
  Result := InnerListView.SelCount;
end;

function TcxCustomListView.GetSelected: TListItem;
begin
  Result := InnerListView.Selected;
end;

function TcxCustomListView.GetTopItem: TListItem;
begin
  Result := InnerListView.TopItem;
end;

function TcxCustomListView.GetViewOrigin: TPoint;
begin
  Result := InnerListView.ViewOrigin;
end;

function TcxCustomListView.GetVisibleRowCount: Integer;
begin
  Result := InnerListView.VisibleRowCount;
end;

function TcxCustomListView.GetBoundingRect: TRect;
begin
  Result := InnerListView.BoundingRect;
end;

function TcxCustomListView.GetWorkAreas: TWorkAreas;
begin
  Result := InnerListView.WorkAreas;
end;

procedure TcxCustomListView.SetCheckboxes(Value: Boolean);
begin
  InnerListView.Checkboxes := value;
end;

procedure TcxCustomListView.SetDropTarget(Value: TListItem);
begin
  InnerListView.DropTarget := Value;
end;

procedure TcxCustomListView.SetFullDrag(Value: Boolean);
begin
  InnerListView.FullDrag := Value;
end;

procedure TcxCustomListView.SetGridLines(Value: Boolean);
begin
  InnerListView.GridLines := Value;
end;

procedure TcxCustomListView.SetHotTrack(Value: Boolean);
begin
  InnerListView.HotTrack := Value;
end;

procedure TcxCustomListView.SetHotTrackStyles(Value: TListHotTrackStyles);
begin
  InnerListView.HotTrackStyles := Value;
end;

procedure TcxCustomListView.SetItemFocused(Value: TListItem);
begin
  InnerListView.ItemFocused := Value;
end;

procedure TcxCustomListView.SetSelected(Value: TListItem);
begin
  InnerListView.Selected := Value;
end;

procedure TcxCustomListView.ArrangementChangeHandler(Sender: TObject);
begin
  if Assigned(InnerListView) then
    InnerListView.IconOptions.Arrangement := FIconOptions.Arrangement;
end;

procedure TcxCustomListView.AutoArrangeChangeHandler(Sender: TObject);
begin
  if Assigned(InnerListView) then
    InnerListView.IconOptions.AutoArrange := FIconOptions.AutoArrange;
end;

procedure TcxCustomListView.WrapTextChangeHandler(Sender: TObject);
begin
  if Assigned(I