1 unit Unit1;
2 
3 {$mode objfpc}{$H+}
4 
5 interface
6 
7 uses
8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ActnList,
9   Menus, StdCtrls, ExtCtrls, BCButton, BCPanel;
10 
11 type
12 
13   { TForm1 }
14 
15   TForm1 = class(TForm)
16     Action1: TAction;
17     Action2: TAction;
18     Action3: TAction;
19     ActionList1: TActionList;
20     BCButton1: TBCButton;
21     BCButton10: TBCButton;
22     BCButton11: TBCButton;
23     BCButton12: TBCButton;
24     BCButton13: TBCButton;
25     BCButton14: TBCButton;
26     BCButton15: TBCButton;
27     BCButton16: TBCButton;
28     BCButton17: TBCButton;
29     BCButton18: TBCButton;
30     BCButton19: TBCButton;
31     BCButton2: TBCButton;
32     BCButton20: TBCButton;
33     BCButton21: TBCButton;
34     BCButton3: TBCButton;
35     BCButton4: TBCButton;
36     BCButton5: TBCButton;
37     BCButton6: TBCButton;
38     BCButton7: TBCButton;
39     BCButton8: TBCButton;
40     BCButton9: TBCButton;
41     BCPanel1: TBCPanel;
42     BCPanel2: TBCPanel;
43     Bevel1: TBevel;
44     Bevel2: TBevel;
45     CheckBox1: TCheckBox;
46     ImageList1: TImageList;
47     MenuItem1: TMenuItem;
48     MenuItem10: TMenuItem;
49     MenuItem2: TMenuItem;
50     MenuItem3: TMenuItem;
51     MenuItem4: TMenuItem;
52     MenuItem5: TMenuItem;
53     MenuItem6: TMenuItem;
54     MenuItem7: TMenuItem;
55     MenuItem8: TMenuItem;
56     MenuItem9: TMenuItem;
57     PopupMenu1: TPopupMenu;
58     PopupMenu2: TPopupMenu;
59     PopupMenu3: TPopupMenu;
60     Shape1: TShape;
61     Shape2: TShape;
62     procedure CheckBox1Change(Sender: TObject);
63   private
64     { private declarations }
65   public
66     { public declarations }
67   end;
68 
69 var
70   Form1: TForm1;
71 
72 implementation
73 
74 {$R *.lfm}
75 
76 { TForm1 }
77 
78 procedure TForm1.CheckBox1Change(Sender: TObject);
79 begin
80   BCButton1.ShowCaption := CheckBox1.Checked;
81   BCButton7.ShowCaption := CheckBox1.Checked;
82 end;
83 
84 end.
85 
86