umain.pas 565 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. unit umain;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  6. BCImageButton;
  7. type
  8. { TfrmMain }
  9. TfrmMain = class(TForm)
  10. BCImageButton1: TBCImageButton;
  11. BCImageButton2: TBCImageButton;
  12. procedure FormCreate(Sender: TObject);
  13. private
  14. public
  15. end;
  16. var
  17. frmMain: TfrmMain;
  18. implementation
  19. {$R *.lfm}
  20. { TfrmMain }
  21. procedure TfrmMain.FormCreate(Sender: TObject);
  22. begin
  23. BCImageButton1.LoadFromBitmapResource('boton3d');
  24. BCImageButton2.LoadFromBitmapResource('boton3d');
  25. end;
  26. end.