Как заполнить ScrollBox из элементов ListView - PullRequest
Новая
       18

Как заполнить ScrollBox из элементов ListView

1 голос
/ 23 января 2020

У меня есть ListView с несколькими полями внутри него.

С другой стороны, у меня есть ScrollBox, который я хочу заполнить данными из ListView.

Это это делается путем создания динамической панели c, которая содержит набор меток для представления данных на панели.

image

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  PngImageList, Vcl.Menus,
  Vcl.ComCtrls, siComp, Registry, System.ImageList, Vcl.ImgList,
  Vcl.Imaging.pngimage, rkGlassButton;

type
  TForm3 = class(TForm)
    ScrollBox1: TScrollBox;
    LV: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  Pnl : TPanel;
 LabName : TLabel;
 LabId : TLabel;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
 posX,posY : SmallInt;

  I: Byte;
  Item: TListItem;

begin

   posX := 0;
   posY := 0;
   for I := 0 to LV.Items.Count -1 do
    begin
      Pnl := TPanel.Create(ScrollBox1);
      Pnl.Parent           := ScrollBox1;
      Pnl.Left             := posX  -1;
      Pnl.Top              := posY  -1;
      Pnl.Width            := ScrollBox1.Width;
      Pnl.Height           := 40;
      Pnl.BorderStyle      := bsNone;
      Pnl.BevelInner       := bvNone;
      Pnl.BevelKind        := bkNone;
      Pnl.BevelOuter       := bvNone;
      Pnl.ParentBackground := false;
      Pnl.Color            := clWhite;
      Pnl.Anchors          := [akTop, akRight,akLeft];
      posY := posY + Pnl.Height;
     //-------------------
        LabName := TLabel.Create(Pnl);
        LabName.Parent := Pnl;
        LabName.Top := 10;
        LabName.Left := 40;;
        LabName.Font.Size := 11;
        LabName.Caption :=LV.Items; // ??? ListView  (RN)
    //--------------------
        LabId := TLabel.Create(Pnl);
        LabId.Parent := Pnl;
        LabId.Top := 10;
        LabId.Left := 100;;
        LabId.Font.Size := 11;
        Item := LV.Items;
        LabId.Caption := LV.Items;; // ???  ListView  (RC)
    end;
end;

end.

Панель хорошо построен, но я не знаю, как установить подписи надписей, используя элементы в ListView.

Пожалуйста, помогите мне исправить мой код.

1 Ответ

3 голосов
/ 23 января 2020

Похоже, вы ищете LV.Items[i].Caption и LV.Items[i].SubItems[j].

  • Caption - текст в самой левой ячейке.
  • SubItems[0], SubItems[1], ..., SubItems[LV.Columns.Count - 2] дают тексты в оставшихся ячейках.

Итак, в вашем случае заданная строка i,

  • LV.Items[i].Caption - это значение в столбце «RN».
  • LV.Items[i].SubItems[0] - это значение в столбце «R C».
  • LV.Items[i].SubItems[1] - это значение в «RFD» "column.
  • LV.Items[i].SubItems[2] - это значение в столбце" RUR ".
  • LV.Items[i].SubItems[3] - это значение в столбце" RID ".
  • LV.Items[i].SubItems[4] значение в столбце «isV».
...