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