Membuat Horizontal ListView di embarcadero delphi

Horizontal listview kini sangat populer di berbagai aplikasi.

Kali ini saya akan share source code untuk membuat horizontal listview di embarcadero delphi.
berikut source codenya.

procedure TForm4.addItem(hs : THorzScrollBox;  ket : String; id : Integer; img : TBitmap);
var
  lo : TLayout;
  i: Integer;
  SE : TShadowEffect;
//  img1 : TBitmap;
begin

  Rectangle1.Tag := id;
  label1.Text := ket;
//  Image1.Bitmap := img;

  lo := TLayout(Layout1.Clone(hs));
  lo.Parent := hs;
  lo.Height := hs.Height - 10;
  lo.Width := lo.Width + 8;

  lo.Position.Y := 0;
  lo.Position.X := YY;
  YY := YY + lo.Width;

  lo.Visible := True;

  for i := 0 to lo.ControlsCount - 1 do begin
    if lo.Controls[i] is TLabel then begin
      if TLabel(lo.Controls[i]).Hint = 'temp' then begin
//        TLabel(lo.Controls[i]).OnClick := lblPesanClick;
      end;
    end else if lo.Controls[i] is TRectangle then begin
      //TRectangle(lo.Controls[i]).OnClick := backgroundClick;
    end;
  end;
end;

Untuk lebih lengkapnya bisa langsung download projectnya di bawah ini.

Download 

Share :