Index
» Empathy Jukebox : Blob 7527a0 / Standalone_Components / TScrolllistbox component / testform.pas
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.