unit testform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,scrolllistbox,
  StdCtrls, jpeg, ExtCtrls,TransparentScrollListbox;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
var
a : ttransparentscrolllistbox;
n :integer;
begin
a:=tTransparentscrolllistbox.create(form1);
a.color:=clwhite;
a.font.color:=clred;

doublebuffered:=true;



a.left:=50;
a.top:=50;
a.width:=500;
a.height:=500;
a.font.name:='Arial';
a.font.size:=12;
a.linespacing:=1.5;
a.clear;



for n:=0 to 40 do begin
a.items.add('One');
a.items.add('Two');
a.items.add('Three');
a.items.add('Four');
a.items.add('Five');
a.items.add('Six');
a.items.add('Seven');
a.items.add('AOne');
a.items.add('ATwo');
a.items.add('AThree');
a.items.add('AFour');
a.items.add('AFive');
a.items.add('ASix');
a.items.add('ASeven');
a.items.add('BOne');
a.items.add('BTwo');
a.items.add('BThree');
a.items.add('BFour');
a.items.add('BFive');
a.items.add('BSix');
a.items.add('BSeven');
a.items.add('CCCOne');
a.items.add('CCCTwo');
a.items.add('CCCThree');
a.items.add('CCCFour');
a.items.add('CCCFive');
a.items.add('CCCSix');
a.items.add('CCCSeven');
end;
a.tag:=2;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
refresh;
end;

end.