umain.pas 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. unit umain;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. Classes, SysUtils, Forms, Controls, Graphics, Dialogs, BCMDButtonFocus,
  6. BCMDButton;
  7. type
  8. { TForm1 }
  9. TForm1 = class(TForm)
  10. BCMDButton1: TBCMDButton;
  11. BCMDButtonFocus1: TBCMDButtonFocus;
  12. BCMDButtonFocus10: TBCMDButtonFocus;
  13. BCMDButtonFocus11: TBCMDButtonFocus;
  14. BCMDButtonFocus12: TBCMDButtonFocus;
  15. BCMDButtonFocus2: TBCMDButtonFocus;
  16. BCMDButtonFocus3: TBCMDButtonFocus;
  17. BCMDButtonFocus4: TBCMDButtonFocus;
  18. BCMDButtonFocus5: TBCMDButtonFocus;
  19. BCMDButtonFocus6: TBCMDButtonFocus;
  20. BCMDButtonFocus7: TBCMDButtonFocus;
  21. BCMDButtonFocus8: TBCMDButtonFocus;
  22. BCMDButtonFocus9: TBCMDButtonFocus;
  23. procedure FormCreate(Sender: TObject);
  24. procedure BCMDButton1Click(Sender: TObject);
  25. private
  26. public
  27. end;
  28. var
  29. Form1: TForm1;
  30. implementation
  31. {$R *.lfm}
  32. { TForm1 }
  33. procedure TForm1.FormCreate(Sender: TObject);
  34. begin
  35. DoubleBuffered := True;
  36. end;
  37. procedure TForm1.BCMDButton1Click(Sender: TObject);
  38. begin
  39. BCMDBUTTONANIMATION := BCMDButton1.Checked;
  40. end;
  41. end.