cxlistview.pas

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

procedure TcxCustomListView.UpdateIconOptions;
begin
  if Assigned(InnerListView) then
  begin
    InnerListView.Items.BeginUpdate;
    try
      InnerListView.IconOptions.Arrangement := FIconOptions.Arrangement;
      InnerListView.IconOptions.AutoArrange := FIconOptions.AutoArrange;
      InnerListView.IconOptions.WrapText := FIconOptions.WrapText;
    finally
      InnerListView.Items.EndUpdate;
    end;
  end;
end;

class function TcxCustomListView.GetListViewClass: TcxCustomInnerListViewClass;
begin
  Result := TcxCustomInnerListView;
end;

{$IFDEF DELPHI6}
procedure TcxCustomListView.AddItem(Item: string; AObject: TObject);
begin
  InnerListView.AddItem(Item, AObject);
end;

procedure TcxCustomListView.ClearSelection;
begin
  InnerListView.ClearSelection;
end;

procedure TcxCustomListView.DeleteSelected;
begin
  InnerListView.DeleteSelected;
end;
{$ENDIF}

procedure TcxCustomListView.Clear;
begin
{$IFDEF DELPHI6}
  InnerListView.Clear;
{$ELSE}
  InnerListView.Items.Clear;
{$ENDIF}
end;

procedure TcxCustomListView.DoExit;
begin
  if IsDestroying then
    Exit;
  try
  except
    SetFocus;
    raise;
  end;
  inherited DoExit;
end;

procedure TcxCustomListView.FontChanged;
begin
  inherited FontChanged;
  SetSize;
end;

function TcxCustomListView.IsReadOnly: Boolean;
begin
  Result := ReadOnly;
end;

procedure TcxCustomListView.Loaded;
begin
  inherited;
  UpdateIconOptions;
  InnerListView.OwnerDraw := FOwnerDraw;
end;

procedure TcxCustomListView.LookAndFeelChanged(Sender: TcxLookAndFeel;
  AChangedValues: TcxLookAndFeelValues);
begin
  inherited LookAndFeelChanged(Sender, AChangedValues);
  if not FIsCreating then
    InnerListView.LookAndFeelChanged(Sender, AChangedValues);
end;

function TcxCustomListView.NeedsScrollBars: Boolean;
begin
  Result := True;
end;

procedure TcxCustomListView.Scroll(AScrollBarKind: TScrollBarKind;
  AScrollCode: TScrollCode; var AScrollPos: Integer);
begin
  inherited Scroll(AScrollBarKind, AScrollCode, AScrollPos);
{$IFDEF USETCXSCROLLBAR}
  if AScrollBarKind = sbHorizontal then
    InnerListView.HScrollHandler(Self, AScrollCode, AScrollPos)
  else
    InnerListView.VScrollHandler(Self, AScrollCode, AScrollPos);
  SetScrollBarsParameters;
{$ENDIF}
end;

procedure TcxCustomListView.WriteState(Writer: TWriter);
begin
  FInnerListView.HandleNeeded;
  inherited;
end;

procedure TcxCustomListView.SetReadOnly(Value: Boolean);
begin
  if Value <> ReadOnly then
  begin
    InnerListView.ReadOnly := Value;
    DataSetChange;
  end;
end;

procedure TcxCustomListView.SetHideSelection(Value: Boolean);
begin
  InnerListView.HideSelection := Value;
end;

procedure TcxCustomListView.SetMultiSelect(Value: Boolean);
begin
  InnerListView.MultiSelect := Value;
end;

procedure TcxCustomListView.SetOwnerData(Value: Boolean);
begin
  InnerListView.OwnerData := Value;
end;

procedure TcxCustomListView.SetOwnerDraw(Value: Boolean);
begin
  FOwnerDraw := Value;
  InnerListView.OwnerDraw := Value;
end;

procedure TcxCustomListView.SetRowSelect(Value: Boolean);
begin
  InnerListView.RowSelect := Value;
end;

procedure TcxCustomListView.SetShowColumnHeaders(Value: Boolean);
begin
  InnerListView.ShowColumnHeaders := Value;
end;

procedure TcxCustomListView.SetColumnClick(Value: Boolean);
begin
  InnerListView.ColumnClick := Value;
end;

function TcxCustomListView.GetReadOnly: Boolean;
begin
  Result := InnerListView.ReadOnly;
end;

function TcxCustomListView.AlphaSort: Boolean;
begin
  Result := InnerListView.AlphaSort;
end;

procedure TcxCustomListView.Arrange(Code: TListArrangement);
begin
  InnerListView.Arrange(Code);
end;

{$IFDEF DELPHI6}
procedure TcxCustomListView.CopySelection(Destination: TCustomListControl);
begin
  InnerListView.CopySelection(Destination);
end;
{$ENDIF}

function TcxCustomListView.FindCaption(StartIndex: Integer; Value: string;
  Partial, Inclusive, Wrap: Boolean): TListItem;
begin
  Result := InnerListView.FindCaption(StartIndex, Value, Partial, Inclusive, Wrap);
end;

function TcxCustomListView.FindData(StartIndex: Integer; Value: Pointer;
  Inclusive, Wrap: Boolean): TListItem;
begin
  Result := InnerListView.FindData(StartIndex, Value, Inclusive, Wrap);
end;

function TcxCustomListView.GetHitTestInfoAt(X, Y: Integer): THitTests;
begin
  Result := InnerListView.GetHitTestInfoAt(X, Y);
end;

function TcxCustomListView.GetItemAt(X, Y: Integer): TListItem;
begin
  Result := InnerListView.GetItemAt(X, Y);
end;

function TcxCustomListView.GetNearestItem(Point: TPoint; Direction: TSearchDirection): TListItem;
begin
  Result := InnerListView.GetNearestItem(Point, Direction);
end;

function TcxCustomListView.GetNextItem(StartItem: TListItem;
  Direction: TSearchDirection; States: TItemStates): TListItem;
begin
  Result := InnerListView.GetNextItem(StartItem, Direction, States);
end;

function TcxCustomListView.GetSearchString: string;
begin
  Result := InnerListView.GetSearchString;
end;

function TcxCustomListView.IsEditing: Boolean;
begin
  Result := InnerListView.IsEditing;
end;

{$IFDEF DELPHI6}
procedure TcxCustomListView.SelectAll;
begin
  InnerListView.SelectAll;
end;
{$ENDIF}

function TcxCustomListView.CustomSort(SortProc: TLVCompare;
  lParam: Longint): Boolean;
begin
  Result := InnerListView.CustomSort(SortProc, lParam);
end;

function TcxCustomListView.StringWidth(S: string): Integer;
begin
  Result := InnerListView.StringWidth(S);
end;

procedure TcxCustomListView.UpdateItems(FirstIndex, LastIndex: Integer);
begin
  InnerListView.UpdateItems(FirstIndex, LastIndex);
end;

function TcxCustomListView.GetListItems: TListItems;
begin
  Result := InnerListView.Items;
end;

procedure TcxCustomListView.SetListItems(Value: TListItems);
begin
  InnerListView.Items := Value;
end;

function TcxCustomListView.CanChange(Item: TListItem; Change: Integer): Boolean;
begin
  Result := InnerListView.CanChange(Item, Change);
end;

function TcxCustomListView.CanEdit(Item: TListItem): Boolean;
begin
  Result := InnerListView.CanEdit(Item);
end;

procedure TcxCustomListView.ChangeScale(M, D: Integer);
begin
  inherited ChangeScale(M, D);
  InnerListView.ChangeScale(M, D);
end;

function TcxCustomListView.ColumnsShowing: Boolean;
begin
  Result := InnerListView.ColumnsShowing;
end;

function TcxCustomListView.GetCount: Integer;
begin
{$IFDEF DELPHI6}
  Result := InnerListView.GetCount;
{$ELSE}
  Result := InnerListView.Items.Count;
{$ENDIF}
end;

function TcxCustomListView.GetItemIndex(Value: TListItem): Integer;
begin
  Result := InnerListView.GetItemIndex(Value);
end;

{$IFDEF DELPHI6}
function TcxCustomListView.GetItemIndex: Integer;
begin
  Result := InnerListView.GetItemIndex;
end;

function TcxCustomListView.GetListViewItemIndex: Integer;
begin
  Result := GetItemIndex;
end;
{$ENDIF}

{$IFDEF DELPHI6}
procedure TcxCustomListView.SetItemIndex(Value: Integer);
begin
  InnerListView.SetItemIndex(Value);
end;
{$ENDIF}

procedure TcxCustomListView.SetViewStyle(Value: TViewStyle);
begin
  InnerListView.ViewStyle := Value;
  SetScrollBarsParameters;
end;

procedure TcxCustomListView.UpdateColumn(AnIndex: Integer);
begin
  InnerListView.UpdateColumn(AnIndex);
end;

procedure TcxCustomListView.UpdateColumns;
begin
  InnerListView.UpdateColumns;
end;

function TcxCustomListView.GetListColumns: TListColumns;
begin
  Result := InnerListView.Columns;
end;

function TcxCustomListView.GetListViewCanvas: TcxCanvas;
begin
  Result := InnerListView.Canvas;
end;

procedure TcxCustomListView.SetListColumns(Value: TListColumns);
begin
  InnerListView.Columns := Value;
end;

function TcxCustomListView.GetColumnClick: Boolean;
begin
  Result := InnerListView.ColumnClick;
end;

function TcxCustomListView.GetHideSelection: Boolean;
begin
  Result := InnerListView.HideSelection;
end;

function TcxCustomListView.GetIconOptions: TcxIconOptions;
begin
  Result := FIconOptions;
end;

procedure TcxCustomListView.SetIconOptions(Value: TcxIconOptions);
begin
  FIconOptions := Value;
  UpdateIconOptions;
end;

function TcxCustomListView.GetAllocBy: Integer;
begin
  Result := InnerListView.AllocBy;
end;

procedure TcxCustomListView.SetAllocBy(Value: Integer);
begin
  InnerListView.AllocBy := Value;
end;

function TcxCustomListView.GetHoverTime: Integer;
begin
  Result := InnerListView.HoverTime;
end;

procedure TcxCustomListView.SetHoverTime(Value: Integer);
begin
  InnerListView.HoverTime := Value;
end;

function TcxCustomListView.GetLargeImages: TCustomImageList;
begin
  Result := InnerListView.LargeImages;
end;

procedure TcxCustomListView.SetLargeImages(Value: TCustomImageList);
begin
  InnerListView.LargeImages := Value;
end;

function TcxCustomListView.GetMultiSelect: Boolean;
begin
  Result := InnerListView.MultiSelect;
end;

function TcxCustomListView.GetOwnerData: Boolean;
begin
  Result := InnerListView.OwnerData;
end;

function TcxCustomListView.GetOwnerDraw: Boolean;
begin
  Result := InnerListView.OwnerDraw;
end;

function TcxCustomListView.GetOnAdvancedCustomDraw: TLVAdvancedCustomDrawEvent;
begin
  Result := InnerListView.OnAdvancedCustomDraw;
end;

procedure TcxCustomListView.SetOnAdvancedCustomDraw(Value: TLVAdvancedCustomDrawEvent);
begin
  InnerListView.OnAdvancedCustomDraw := Value;
end;

function TcxCustomListView.GetOnAdvancedCustomDrawItem: TLVAdvancedCustomDrawItemEvent;
begin
  Result := InnerListView.OnAdvancedCustomDrawItem;
end;

procedure TcxCustomListView.SetOnAdvancedCustomDrawItem(Value: TLVAdvancedCustomDrawItemEvent);
begin
  InnerListView.OnAdvancedCustomDrawItem := Value;
end;

function TcxCustomListView.GetOnAdvancedCustomDrawSubItem: TLVAdvancedCustomDrawSubItemEvent;
begin
  Result := InnerListView.OnAdvancedCustomDrawSubItem;
end;