52 lines
998 B
ObjectPascal
52 lines
998 B
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
BCTrackbarUpdown;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
BCTrackbarUpdown1: TBCTrackbarUpdown;
|
|
BCTrackbarUpdown2: TBCTrackbarUpdown;
|
|
BCTrackbarUpdown3: TBCTrackbarUpdown;
|
|
CheckBox1: TCheckBox;
|
|
Label1: TLabel;
|
|
procedure BCTrackbarUpdown3Change(Sender: TObject; {%H-}AByUser: boolean);
|
|
procedure CheckBox1Change(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
changeCount: integer;
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.BCTrackbarUpdown3Change(Sender: TObject; AByUser: boolean);
|
|
begin
|
|
inc(changeCount);
|
|
label1.Caption := 'Change #'+inttostr(changeCount)+': value '+inttostr(TBCTrackbarUpdown(Sender).Value);
|
|
end;
|
|
|
|
procedure TForm1.CheckBox1Change(Sender: TObject);
|
|
begin
|
|
BCTrackbarUpdown1.Enabled := CheckBox1.Checked;
|
|
end;
|
|
|
|
end.
|
|
|