bgracontrols/test/test_dashboard/umain.pas

unit umain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
  BCRadialProgressBar, BCLabel, BGRASpriteAnimation, BCMDButton;

type

  { TForm1 }

  TForm1 = class(TForm)
    BCRadialProgressBar1: TBCRadialProgressBar;
    BGRASpriteAnimation1: TBGRASpriteAnimation;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    BCMDButton1: TBCMDButton;
    BCMDButton2: TBCMDButton;
    BCMDButton3: TBCMDButton;
    BCMDButton4: TBCMDButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  {$ifdef windows}
  //DoubleBuffered := True;
  {$endif}
end;

end.