procedure TForm4.FormCreate(Sender: TObject);
var
  it: TAdvSmoothListBoxItem;

begin
  AdvSmoothListBox1.Items.BeginUpdate;

  AdvSmoothListBox1.Header.Fill.Color := RGB(176,188,205);
  AdvSmoothListBox1.Header.Fill.ColorTo := RGB(109,132,162);
  AdvSmoothListBox1.Header.Fill.BorderColor := RGB(45,54,66);
  AdvSmoothListBox1.Fill.Color := RGB(219,226,237);
  AdvSmoothListBox1.Fill.BorderColor := RGB(45,54,66);

  AdvSmoothListBox1.Header.Caption := ''Conversion with Matt'';
  AdvSmoothListBox1.Header.Font.Color := clWhite;
  AdvSmoothListBox1.Header.Font.Style := [fsBold];
  AdvSmoothListBox1.Header.Font.Size := 14;
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.Color := RGB(146,216,65);
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.GradientType := gtsolid;
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.ColorMirror := clNone;
  AdvSmoothListBox1.ItemAppearance.FillAlterNate.BorderColor := RGB(146,216,65);

  AdvSmoothListBox1.ItemAppearance.Fill.Color := RGB(211,211,211);
  AdvSmoothListBox1.ItemAppearance.Fill.GradientType := gtsolid;
  AdvSmoothListBox1.ItemAppearance.Fill.ColorMirror := clNone;
  AdvSmoothListBox1.ItemAppearance.Fill.BorderColor := RGB(211,211,211);

  AdvSmoothListBox1.Layout := lblBubble;
  AdvSmoothListBox1.Items.Clear;
  AdvSmoothListBox1.Footer.Visible := False;

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := ''<b>Matt</b>'';
  it.NotesLocation := plTopLeft;
  it.Notes := ''Hi John, when does the game begin?'';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := ''<b>John</b>'';
  it.NotesLocation := plTopRight;
  it.Notes := ''Hi Matt, the game begins at 7:30 pm!'';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := ''<b>Matt</b>'';
  it.NotesLocation := plTopLeft;
  it.Notes := ''Thanks, are you going alone there or with a friend?'';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := ''<b>John</b>'';
  it.NotesLocation := plTopLeft;
  it.Notes := ''We are travelling with a couple of friends''+#13#10+''If you want, you may join us at 7:00 pm at the parking lot'';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := ''<b>Matt</b>'';
  it.NotesLocation := plTopLeft;
  it.Notes := ''Ok, I will be there'';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Caption := ''<b>John</b>'';
  it.NotesLocation := plTopRight;
  it.Notes := ''See you at the parking lot then !'';

  it := AdvSmoothListBox1.Items.Add;
  it.AutoSize := True;
  it.Alternate := lbaRight;
  it.Caption := ''<b>John</b>'';
  it.NotesLocation := plTopRight;
  it.Notes := ''Oh, and do not forget your tickets'';


  AdvSmoothListBox1.LookupBar.Visible := False;
  AdvSmoothListBox1.ItemAppearance.HorizontalSpacing := 8;

  AdvSmoothListBox1.Items.EndUpdate;
end;

procedure TForm1.AdvSmoothListBox1ItemBkgDraw(Sender: TObject;
  Canvas: TCanvas; itemindex: Integer; itemRect: TRect;
  var defaultdraw: Boolean);
var
  g: TGPGraphics;
begin
  defaultdraw := AdvSmoothListBox1.SelectedItemIndex <> itemindex;
  if not defaultdraw then
  begin
    g := TGPGraphics.Create(Canvas.Handle);
    g.SetSmoothingMode(SmoothingModeAntiAlias);
    AdvSmoothListBox1.ItemAppearance.FillSelected.Fill(g, MakeRect(itemrect.Left, itemrect.Top, itemrect.Width, itemrect.Height));
    g.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  it: TAdvSmoothListBoxItem;
  I: Integer;
begin
  AdvSmoothListBox1.BeginUpdate;
  AdvSmoothListBox1.Fill.Color := clBlack;
  AdvSmoothListBox1.ItemAppearance.Fill.Color := clBlack;
  AdvSmoothListBox1.ItemAppearance.Fill.ColorMirror := clNone;
  AdvSmoothListBox1.ItemAppearance.Fill.BorderColor := clBlack;
  AdvSmoothListBox1.ItemAppearance.Fill.GradientType := gtSolid;
  AdvSmoothListBox1.ItemAppearance.Fill.GradientMirrorType := gtNone;
  AdvSmoothListBox1.Header.Visible := False;
  AdvSmoothListBox1.Footer.Visible := False;
  AdvSmoothListBox1.Sections.BorderColor := AdvSmoothListBox1.ItemAppearance.Fill.Color;
  AdvSmoothListBox1.ItemAppearance.FillSelected.Assign(AdvSmoothListBox1.ItemAppearance.Fill);
  AdvSmoothListBox1.ItemAppearance.FillSelected.Color := clWebOrange;
  AdvSmoothListBox1.ItemAppearance.FillSelected.Rounding := 10;
  AdvSmoothListBox1.ItemAppearance.FillSelected.RoundingType := rtBoth;
  AdvSmoothListBox1.DefaultItem.CaptionFont.Color := clWhite;
  AdvSmoothListBox1.Items.Clear;
  for I := 0 to 19 do
  begin
    it := AdvSmoothListBox1.Items.Add;
    it.Caption := ''Item '' + inttostr(I + 1);
  end;
  AdvSmoothListBox1.EndUpdate;
end;