1 unit Unit1;
2 
3 {$mode objfpc}{$H+}
4 
5 interface
6 
7 uses
8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
9   BCTrackbarUpdown;
10 
11 type
12 
13   { TForm1 }
14 
15   TForm1 = class(TForm)
16     BCTrackbarUpdown1: TBCTrackbarUpdown;
17     BCTrackbarUpdown2: TBCTrackbarUpdown;
18     BCTrackbarUpdown3: TBCTrackbarUpdown;
19     CheckBox1: TCheckBox;
20     Label1: TLabel;
21     procedure BCTrackbarUpdown3Change(Sender: TObject; {%H-}AByUser: boolean);
22     procedure CheckBox1Change(Sender: TObject);
23   private
24     { private declarations }
25   public
26     { public declarations }
27     changeCount: integer;
28   end;
29 
30 var
31   Form1: TForm1;
32 
33 implementation
34 
35 {$R *.lfm}
36 
37 { TForm1 }
38 
39 procedure TForm1.BCTrackbarUpdown3Change(Sender: TObject; AByUser: boolean);
40 begin
41   inc(changeCount);
42   label1.Caption := 'Change #'+inttostr(changeCount)+': value '+inttostr(TBCTrackbarUpdown(Sender).Value);
43 end;
44 
45 procedure TForm1.CheckBox1Change(Sender: TObject);
46 begin
47   BCTrackbarUpdown1.Enabled := CheckBox1.Checked;
48 end;
49 
50 end.
51 
52