lvimpl.pas

《Delphi开发人员指南》配书原码

function TListViewX.Get_ShowColumnHeaders: WordBool;
begin
  Result := FDelphiControl.ShowColumnHeaders;
end;

function TListViewX.Get_SortType: TxSortType;
begin
  Result := Ord(FDelphiControl.SortType);
end;

function TListViewX.Get_ViewStyle: TxViewStyle;
begin
  Result := Ord(FDelphiControl.ViewStyle);
end;

function TListViewX.Get_Visible: WordBool;
begin
  Result := FDelphiControl.Visible;
end;

function TListViewX.Get_VisibleRowCount: Integer;
begin
  Result := FDelphiControl.VisibleRowCount;
end;

function TListViewX.GetControlsAlignment: TxAlignment;
begin
 Result := TxAlignment(FDelphiControl.GetControlsAlignment);
end;

function TListViewX.GetSearchString: WideString;
begin
  Result := FDelphiControl.GetSearchString;
end;

function TListViewX.IsEditing: WordBool;
begin
  Result := FDelphiControl.IsEditing;
end;

function TListViewX.IsRightToLeft: WordBool;
begin
  Result := FDelphiControl.IsRightToLeft;
end;

function TListViewX.StringWidth(const S: WideString): Integer;
begin
  Result := FDelphiControl.StringWidth(S);
end;

function TListViewX.UseRightToLeftAlignment: WordBool;
begin
  Result := FDelphiControl.UseRightToLeftAlignment;
end;

function TListViewX.UseRightToLeftReading: WordBool;
begin
  Result := FDelphiControl.UseRightToLeftReading;
end;

function TListViewX.UseRightToLeftScrollBar: WordBool;
begin
  Result := FDelphiControl.UseRightToLeftScrollBar;
end;

procedure TListViewX._Set_Font(const Value: IFontDisp);
begin
  SetOleFont(FDelphiControl.Font, Value);
end;

procedure TListViewX.AboutBox;
begin
  ShowListViewXAbout;
end;

procedure TListViewX.Arrange(Code: TxListArrangement);
begin
  FDelphiControl.Arrange(TListArrangement(Code));
end;

procedure TListViewX.FlipChildren(AllLevels: WordBool);
begin
  FDelphiControl.FlipChildren(AllLevels);
end;

procedure TListViewX.InitiateAction;
begin
  FDelphiControl.InitiateAction;
end;

procedure TListViewX.Scroll(DX, DY: Integer);
begin
  FDelphiControl.Scroll(DX, DY);
end;

procedure TListViewX.Set_AllocBy(Value: Integer);
begin
  FDelphiControl.AllocBy := Value;
end;

procedure TListViewX.Set_BiDiMode(Value: TxBiDiMode);
begin
  FDelphiControl.BiDiMode := TBiDiMode(Value);
end;

procedure TListViewX.Set_BorderStyle(Value: TxBorderStyle);
begin
  FDelphiControl.BorderStyle := TBorderStyle(Value);
end;

procedure TListViewX.Set_Checkboxes(Value: WordBool);
begin
  FDelphiControl.Checkboxes := Value;
end;

procedure TListViewX.Set_Color(Value: OLE_COLOR);
begin
  FDelphiControl.Color := TColor(Value);
end;

procedure TListViewX.Set_ColumnClick(Value: WordBool);
begin
  FDelphiControl.ColumnClick := Value;
end;

procedure TListViewX.Set_Ctl3D(Value: WordBool);
begin
  FDelphiControl.Ctl3D := Value;
end;

procedure TListViewX.Set_Cursor(Value: Smallint);
begin
  FDelphiControl.Cursor := TCursor(Value);
end;

procedure TListViewX.Set_DoubleBuffered(Value: WordBool);
begin
  FDelphiControl.DoubleBuffered := Value;
end;

procedure TListViewX.Set_DragCursor(Value: Smallint);
begin
  FDelphiControl.DragCursor := TCursor(Value);
end;

procedure TListViewX.Set_DragMode(Value: TxDragMode);
begin
  FDelphiControl.DragMode := TDragMode(Value);
end;

procedure TListViewX.Set_Enabled(Value: WordBool);
begin
  FDelphiControl.Enabled := Value;
end;

procedure TListViewX.Set_FlatScrollBars(Value: WordBool);
begin
  FDelphiControl.FlatScrollBars := Value;
end;

procedure TListViewX.Set_Font(var Value: IFontDisp);
begin
  SetOleFont(FDelphiControl.Font, Value);
end;

procedure TListViewX.Set_FullDrag(Value: WordBool);
begin
  FDelphiControl.FullDrag := Value;
end;

procedure TListViewX.Set_GridLines(Value: WordBool);
begin
  FDelphiControl.GridLines := Value;
end;

procedure TListViewX.Set_HideSelection(Value: WordBool);
begin
  FDelphiControl.HideSelection := Value;
end;

procedure TListViewX.Set_HotTrack(Value: WordBool);
begin
  FDelphiControl.HotTrack := Value;
end;

procedure TListViewX.Set_MultiSelect(Value: WordBool);
begin
  FDelphiControl.MultiSelect := Value;
end;

procedure TListViewX.Set_OwnerData(Value: WordBool);
begin
  FDelphiControl.OwnerData := Value;
end;

procedure TListViewX.Set_OwnerDraw(Value: WordBool);
begin
  FDelphiControl.OwnerDraw := Value;
end;

procedure TListViewX.Set_ParentColor(Value: WordBool);
begin
  FDelphiControl.ParentColor := Value;
end;

procedure TListViewX.Set_ParentFont(Value: WordBool);
begin
  FDelphiControl.ParentFont := Value;
end;

procedure TListViewX.Set_ReadOnly(Value: WordBool);
begin
  FDelphiControl.ReadOnly := Value;
end;

procedure TListViewX.Set_RowSelect(Value: WordBool);
begin
  FDelphiControl.RowSelect := Value;
end;

procedure TListViewX.Set_ShowColumnHeaders(Value: WordBool);
begin
  FDelphiControl.ShowColumnHeaders := Value;
end;

procedure TListViewX.Set_SortType(Value: TxSortType);
begin
  FDelphiControl.SortType := TSortType(Value);
end;

procedure TListViewX.Set_ViewStyle(Value: TxViewStyle);
begin
  FDelphiControl.ViewStyle := TViewStyle(Value);
end;

procedure TListViewX.Set_Visible(Value: WordBool);
begin
  FDelphiControl.Visible := Value;
end;

procedure TListViewX.UpdateItems(FirstIndex, LastIndex: Integer);
begin
  FDelphiControl.UpdateItems(FirstIndex, LastIndex);
end;

procedure TListViewX.ClickEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnClick;
end;

procedure TListViewX.DataHintEvent(Sender: TObject; StartIndex,
  EndIndex: Integer);
begin
  if FEvents <> nil then FEvents.OnDataHint(StartIndex, EndIndex);
end;

procedure TListViewX.DblClickEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnDblClick;
end;

procedure TListViewX.KeyPressEvent(Sender: TObject; var Key: Char);
var
  TempKey: Smallint;
begin
  TempKey := Smallint(Key);
  if FEvents <> nil then FEvents.OnKeyPress(TempKey);
  Key := Char(TempKey);
end;

procedure TListViewX.ResizeEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnResize;
end;

function TListViewX.Get_Items: IListItems;
begin
  Result := FItems;
end;

initialization
  TActiveXControlFactory.Create(ComServer, TListViewX, TListView2,
    Class_ListViewX, 1, '', 0, tmApartment);
end.