umain.pas 794 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. unit umain;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  6. BCButtonFocus, BCButton, BCPanel, BGRASpriteAnimation;
  7. type
  8. { TForm1 }
  9. TForm1 = class(TForm)
  10. BCButton1: TBCButton;
  11. BCButton2: TBCButton;
  12. BCButton3: TBCButton;
  13. BCButton4: TBCButton;
  14. BCButton5: TBCButton;
  15. BCButton6: TBCButton;
  16. BCButton7: TBCButton;
  17. BCPanel1: TBCPanel;
  18. BGRASpriteAnimation1: TBGRASpriteAnimation;
  19. procedure BCButton5Click(Sender: TObject);
  20. private
  21. public
  22. end;
  23. var
  24. Form1: TForm1;
  25. implementation
  26. {$R *.lfm}
  27. { TForm1 }
  28. procedure TForm1.BCButton5Click(Sender: TObject);
  29. begin
  30. BCButton5.Down := False;
  31. BCButton6.Down := False;
  32. BCButton7.Down := False;
  33. TBCButton(Sender).Down := True;
  34. end;
  35. end.