cxtreeview.pas

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

{$IFDEF DELPHI6}
function TcxCustomTreeView.GetOnAddition: TTVExpandedEvent;
begin
  Result := InnerTreeView.OnAddition;
end;
{$ENDIF}

{$IFDEF DELPHI5}
function TcxCustomTreeView.GetOnAdvancedCustomDraw: TTVAdvancedCustomDrawEvent;
begin
  Result := InnerTreeView.OnAdvancedCustomDraw;
end;

function TcxCustomTreeView.GetOnAdvancedCustomDrawItem: TTVAdvancedCustomDrawItemEvent;
begin
  Result := InnerTreeView.OnAdvancedCustomDrawItem;
end;
{$ENDIF}

{$IFDEF DELPHI6}
function TcxCustomTreeView.GetOnCancelEdit: TTVChangedEvent;
begin
  Result := InnerTreeView.OnCancelEdit;
end;
{$ENDIF}

function TcxCustomTreeView.GetOnChange: TTVChangedEvent;
begin
  Result := InnerTreeView.OnChange;
end;

function TcxCustomTreeView.GetOnChanging: TTVChangingEvent;
begin
  Result := InnerTreeView.OnChanging;
end;

function TcxCustomTreeView.GetOnCollapsed: TTVExpandedEvent;
begin
  Result := InnerTreeView.OnCollapsed;
end;

function TcxCustomTreeView.GetOnCollapsing: TTVCollapsingEvent;
begin
  Result := InnerTreeView.OnCollapsing;
end;

function TcxCustomTreeView.GetOnCompare: TTVCompareEvent;
begin
  Result := InnerTreeView.OnCompare;
end;

function TcxCustomTreeView.GetOnCustomDraw: TTVCustomDrawEvent;
begin
  Result := InnerTreeView.OnCustomDraw;
end;

function TcxCustomTreeView.GetOnCustomDrawItem: TTVCustomDrawItemEvent;
begin
  Result := InnerTreeView.OnCustomDrawItem;
end;

function TcxCustomTreeView.GetOnDeletion: TTVExpandedEvent;
begin
  Result := InnerTreeView.OnDeletion;
end;

function TcxCustomTreeView.GetOnEditing: TTVEditingEvent;
begin
  Result := InnerTreeView.OnEditing;
end;

function TcxCustomTreeView.GetOnEdited: TTVEditedEvent;
begin
  Result := InnerTreeView.OnEdited;
end;

function TcxCustomTreeView.GetOnExpanding: TTVExpandingEvent;
begin
  Result := InnerTreeView.OnExpanding;
end;

function TcxCustomTreeView.GetOnExpanded: TTVExpandedEvent;
begin
  Result := InnerTreeView.OnExpanded;
end;

function TcxCustomTreeView.GetOnGetImageIndex: TTVExpandedEvent;
begin
  Result := InnerTreeView.OnGetImageIndex;
end;

function TcxCustomTreeView.GetOnGetSelectedIndex: TTVExpandedEvent;
begin
  Result := InnerTreeView.OnGetSelectedIndex;
end;

{$IFDEF DELPHI6}
function TcxCustomTreeView.GetOnCreateNodeClass: TTVCreateNodeClassEvent;
begin
  Result := InnerTreeView.OnCreateNodeClass;
end;
{$ENDIF}

function TcxCustomTreeView.GetDropTarget: TTreeNode;
begin
  Result := InnerTreeView.DropTarget;
end;

function TcxCustomTreeView.GetSelected: TTreeNode;
begin
  Result := InnerTreeView.Selected;
end;

function TcxCustomTreeView.GetTopItem: TTreeNode;
begin
  Result := InnerTreeView.TopItem;
end;

{$IFDEF DELPHI6}
function TcxCustomTreeView.GetSelectionCount: Cardinal;
begin
  Result := InnerTreeView.SelectionCount;
end;

function TcxCustomTreeView.GetSelection(Index: Integer): TTreeNode;
begin
  Result := InnerTreeView.Selections[Index];
end;
{$ENDIF}

procedure TcxCustomTreeView.SetAutoExpand(Value: Boolean);
begin
  InnerTreeView.AutoExpand := Value;
end;

procedure TcxCustomTreeView.SetChangeDelay(Value: Integer);
begin
  InnerTreeView.ChangeDelay := Value;
end;

procedure TcxCustomTreeView.SetHideSelection(Value: Boolean);
begin
  InnerTreeView.HideSelection := Value;
end;

procedure TcxCustomTreeView.SetHotTrack(Value: Boolean);
begin
  InnerTreeView.HotTrack := Value;
end;

procedure TcxCustomTreeView.SetImages(Value: TCustomImageList);
begin
  InnerTreeView.Images := Value;
end;

procedure TcxCustomTreeView.SetTreeNodes(Value: TTreeNodes);
begin
  InnerTreeView.Items := Value;
end;

procedure TcxCustomTreeView.SetIndent(Value: Integer);
begin
  InnerTreeView.Indent := Value;
end;

procedure TcxCustomTreeView.SetItemHeight(Value: Integer);
begin
  InnerTreeView.ItemHeight := Value;
end;

{$IFDEF DELPHI6}
procedure TcxCustomTreeView.SetMultiSelect(Value: Boolean);
begin
  InnerTreeView.MultiSelect := Value;
end;

procedure TcxCustomTreeView.SetMultiSelectStyle(Value: TMultiSelectStyle);
begin
  InnerTreeView.MultiSelectStyle := Value;
end;
{$ENDIF}

procedure TcxCustomTreeView.SetRightClickSelect(Value: Boolean);
begin
  InnerTreeView.RightClickSelect := Value;
end;

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

procedure TcxCustomTreeView.SetRowSelect(Value: Boolean);
begin
  InnerTreeView.RowSelect := Value;
end;

procedure TcxCustomTreeView.SetShowButtons(Value: Boolean);
begin
  InnerTreeView.ShowButtons := Value;
end;

procedure TcxCustomTreeView.SetShowLines(Value: Boolean);
begin
  InnerTreeView.ShowLines := Value;
end;

procedure TcxCustomTreeView.SetShowRoot(Value: Boolean);
begin
  InnerTreeView.ShowRoot := Value;
end;

procedure TcxCustomTreeView.SetSortType(Value: TSortType);
begin
  InnerTreeView.SortType := Value;
end;

procedure TcxCustomTreeView.SetStateImages(Value: TCustomImageList);
begin
  InnerTreeView.StateImages := Value;
end;

procedure TcxCustomTreeView.SetToolTips(Value: Boolean);
begin
  InnerTreeView.ToolTips := Value;
end;

{$IFDEF DELPHI6}
procedure TcxCustomTreeView.SetOnAddition(Value: TTVExpandedEvent);
begin
  InnerTreeView.OnAddition := Value;
end;
{$ENDIF}

{$IFDEF DELPHI5}
procedure TcxCustomTreeView.SetOnAdvancedCustomDraw(Value: TTVAdvancedCustomDrawEvent);
begin
  InnerTreeView.OnAdvancedCustomDraw := Value;
end;

procedure TcxCustomTreeView.SetOnAdvancedCustomDrawItem(Value: TTVAdvancedCustomDrawItemEvent);
begin
  InnerTreeView.OnAdvancedCustomDrawItem := Value;
end;
{$ENDIF}

{$IFDEF DELPHI6}
procedure TcxCustomTreeView.SetOnCancelEdit(Value: TTVChangedEvent);
begin
  InnerTreeView.OnCancelEdit := Value;
end;
{$ENDIF}

procedure TcxCustomTreeView.SetOnChange(Value: TTVChangedEvent);
begin
  InnerTreeView.OnChange := Value;
end;

procedure TcxCustomTreeView.SetOnChanging(Value: TTVChangingEvent);
begin
  InnerTreeView.OnChanging := Value;
end;

procedure TcxCustomTreeView.SetOnCollapsed(Value: TTVExpandedEvent);
begin
  InnerTreeView.OnCollapsed := Value;
end;

procedure TcxCustomTreeView.SetOnCollapsing(Value: TTVCollapsingEvent);
begin
  InnerTreeView.OnCollapsing := Value;
end;

procedure TcxCustomTreeView.SetOnCompare(Value: TTVCompareEvent);
begin
  InnerTreeView.OnCompare := Value;
end;

procedure TcxCustomTreeView.SetOnCustomDraw(Value: TTVCustomDrawEvent);
begin
  InnerTreeView.OnCustomDraw := Value;
end;

procedure TcxCustomTreeView.SetOnCustomDrawItem(Value: TTVCustomDrawItemEvent);
begin
  InnerTreeView.OnCustomDrawItem := Value;
end;

procedure TcxCustomTreeView.SetOnDeletion(Value: TTVExpandedEvent);
begin
  InnerTreeView.OnDeletion := Value;
end;

procedure TcxCustomTreeView.SetOnEditing(Value: TTVEditingEvent);
begin
  InnerTreeView.OnEditing := Value;
end;

procedure TcxCustomTreeView.SetOnEdited(Value: TTVEditedEvent);
begin
  InnerTreeView.OnEdited := Value;
end;

procedure TcxCustomTreeView.SetOnExpanding(Value: TTVExpandingEvent);
begin
  InnerTreeView.OnExpanding := Value;
end;

procedure TcxCustomTreeView.SetOnExpanded(Value: TTVExpandedEvent);
begin
  InnerTreeView.OnExpanded := Value;
end;

procedure TcxCustomTreeView.SetOnGetImageIndex(Value: TTVExpandedEvent);
begin
  InnerTreeView.OnGetImageIndex := Value;
end;

procedure TcxCustomTreeView.SetOnGetSelectedIndex(Value: TTVExpandedEvent);
begin
  InnerTreeView.OnGetSelectedIndex := Value;
end;

{$IFDEF DELPHI6}
procedure TcxCustomTreeView.SetOnCreateNodeClass(Value: TTVCreateNodeClassEvent);
begin
  InnerTreeView.OnCreateNodeClass := Value;
end;
{$ENDIF}

procedure TcxCustomTreeView.SetDropTarget(Value: TTreeNode);
begin
  InnerTreeView.DropTarget := Value;
end;

procedure TcxCustomTreeView.SetSelected(Value: TTreeNode);
begin
  InnerTreeView.Selected := Value;
end;

procedure TcxCustomTreeView.SetTopItem(Value: TTreeNode);
begin
  InnerTreeView.TopItem := Value;
end;

function TcxCustomTreeView.CanEdit(Node: TTreeNode): Boolean;
begin
  Result := InnerTreeView.CanEdit(Node);
end;

function TcxCustomTreeView.CanChange(Node: TTreeNode): Boolean;
begin
  Result := InnerTreeView.CanChange(Node);
end;

function TcxCustomTreeView.CanCollapse(Node: TTreeNode): Boolean;
begin
  Result := InnerTreeView.CanCollapse(Node);
end;

function TcxCustomTreeView.CanExpand(Node: TTreeNode): Boolean;
begin
  Result := InnerTreeView.CanExpand(Node);
end;

procedure TcxCustomTreeView.Collapse(Node: TTreeNode);
begin
  InnerTreeView.Collapse(Node);
end;

procedure TcxCustomTreeView.Expand(Node: TTreeNode);
begin
  InnerTreeView.Expand(Node);
end;

end.