Updated from main repo

.github/FUNDING.yml

@@ -0,0 +1,12 @@
+# These are supported funding model platforms
+
+github: # Replace with up to 4 GitHub Sponsors-enabled usernames e.g., [user1, user2]
+patreon: # Replace with a single Patreon username
+open_collective: # Replace with a single Open Collective username
+ko_fi: # Replace with a single Ko-fi username
+tidelift: # Replace with a single Tidelift platform-name/package-name e.g., npm/babel
+community_bridge: # Replace with a single Community Bridge project-name e.g., cloud-foundry
+liberapay: # Replace with a single Liberapay username
+issuehunt: # Replace with a single IssueHunt username
+otechie: # Replace with a single Otechie username
+custom: ['https://sourceforge.net/p/lazpaint/donate/?source=navbar'] # Replace with up to 4 custom sponsorship URLs e.g., ['link1', 'link2']

README.md

@@ -6,7 +6,7 @@ BGRA Controls is a set of graphical UI elements that you can use with Lazarus LC
 
 ### Support Us
 
-If you like BGRAControls please [support @lainz on Patreon](https://www.patreon.com/lainz) and [support @circular17 with PayPal](https://sourceforge.net/p/lazpaint/donate/?source=navbar).
+If you like BGRAControls please [support @circular17 with PayPal](https://sourceforge.net/p/lazpaint/donate/?source=navbar).
 
 ### Installing
 

bcbutton.pas

@@ -844,7 +844,7 @@ begin
   if FTextApplyGlobalOpacity then
   begin
     { Drawing text }
-    RenderText(r, scaledState.FontEx, actualCaption, ABGRA);
+    RenderText(r, scaledState.FontEx, actualCaption, ABGRA, Enabled);
     RenderGlyph(r_g, g);
     { Set global opacity }
     ABGRA.ApplyGlobalOpacity(FGlobalOpacity);
@@ -854,7 +854,7 @@ begin
     { Set global opacity }
     ABGRA.ApplyGlobalOpacity(FGlobalOpacity);
     { Drawing text }
-    RenderText(r, scaledState.FontEx, actualCaption, ABGRA);
+    RenderText(r, scaledState.FontEx, actualCaption, ABGRA, Enabled);
     RenderGlyph(r_g, g);
   end;
   if g <> FGlyph then g.Free;

bcbuttonfocus.pas

@@ -357,6 +357,7 @@ type
     { The unique name of the control in the form. }
     property Name;
     { TabStop }
+    property TabOrder;
     property TabStop;
     property ThemeManager: TBCThemeManager read FBCThemeManager write SetFBCThemeManager;
     property OnPaintButton;
@@ -775,7 +776,7 @@ begin
   if FTextApplyGlobalOpacity then
   begin
     { Drawing text }
-    RenderText(r, AState.FontEx, actualCaption, ABGRA);
+    RenderText(r, AState.FontEx, actualCaption, ABGRA, Enabled);
     RenderGlyph(r_g, g);
     { Set global opacity }
     ABGRA.ApplyGlobalOpacity(FGlobalOpacity);
@@ -785,7 +786,7 @@ begin
     { Set global opacity }
     ABGRA.ApplyGlobalOpacity(FGlobalOpacity);
     { Drawing text }
-    RenderText(r, AState.FontEx, actualCaption, ABGRA);
+    RenderText(r, AState.FontEx, actualCaption, ABGRA, Enabled);
     RenderGlyph(r_g, g);
   end;
   if g <> FGlyph then g.Free;
@@ -1787,7 +1788,6 @@ begin
   try
     with GetControlClassDefaultSize do
       SetInitialBounds(0, 0, CX, CY);
-    TabStop := True;
     ControlStyle := ControlStyle + [csAcceptsControls];
     FBGRANormal := TBGRABitmapEx.Create(Width, Height, BGRAPixelTransparent);
     FBGRAHover := TBGRABitmapEx.Create(Width, Height, BGRAPixelTransparent);

bccombobox.pas

@@ -6,7 +6,7 @@ unit BCComboBox;
 interface
 
 uses
-  Classes, SysUtils, LResources, Forms, Controls, ExtCtrls, Graphics, Dialogs, BCButton,
+  {$ifdef WINDOWS}Windows,{$endif} Classes, SysUtils, LResources, Forms, Controls, ExtCtrls, Graphics, Dialogs, BCButton,
   StdCtrls, BCTypes, BCBaseCtrls, BGRABitmap, BGRABitmapTypes, LMessages, LCLType;
 
 type
@@ -59,7 +59,7 @@ type
     function GetStateHover: TBCButtonState;
     function GetStateNormal: TBCButtonState;
     function GetStaticButton: boolean;
-    procedure ListBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
+    procedure ListBoxKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState
       );
     procedure ListBoxMouseUp({%H-}Sender: TObject; {%H-}Button: TMouseButton;
                           {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
@@ -89,10 +89,10 @@ type
     procedure SetStaticButton(AValue: boolean);
   protected
     function GetStyleExtension: String; override;
-    procedure WMSetFocus(var Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF}); message {$IFDEF FPC}LM_SETFOCUS{$ELSE}WM_SETFOCUS{$ENDIF};
+    procedure WMSetFocus(var {%H-}Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF}); message {$IFDEF FPC}LM_SETFOCUS{$ELSE}WM_SETFOCUS{$ENDIF};
     procedure WMKillFocus(var Message: {$IFDEF FPC}TLMKillFocus{$ELSE}TWMKillFocus{$ENDIF}); message {$IFDEF FPC}LM_KILLFOCUS{$ELSE}WM_KILLFOCUS{$ENDIF};
     procedure UpdateFocus(AFocused: boolean);
-    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
+    procedure KeyDown(var Key: Word; {%H-}Shift: TShiftState); override;
     procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
     procedure CreateForm;
     procedure FreeForm;
@@ -410,9 +410,18 @@ begin
 end;
 
 procedure TBCComboBox.OnTimerCheckFormHide(Sender: TObject);
+  {$ifdef WINDOWS}
+  function IsDropDownOnTop: boolean;
+  begin
+    result := Assigned(FForm) and (GetForegroundWindow = FForm.Handle);
+  end;
+  {$endif}
+
 begin
   if Assigned(FForm) and FForm.Visible and
-    ({$IFDEF DARWIN}not FForm.Active or {$ENDIF}FQueryFormHide) then
+    ({$IFDEF DARWIN}not FForm.Active or {$ENDIF}
+     {$IFDEF WINDOWS}not IsDropDownOnTop or{$ENDIF}
+     FQueryFormHide) then
   begin
     FForm.Visible := false;
     FQueryFormHide := false;

bcgamegrid.pas

@@ -182,14 +182,10 @@ begin
         (pos.y <= r.Bottom) then
       begin
         //DebugLn(['TControl.Click ',DbgSName(Self)]);
-        if Assigned(FOnClickControl) and (Action <> nil) and
-          (not CompareMethods(TMethod(Action.OnExecute), TMethod(FOnClickControl))) then
-          // the OnClick is set and differs from the Action => call the OnClick
-          FOnClickControl(Self, n, x, y)
-        else if (not (csDesigning in ComponentState)) and (ActionLink <> nil) then
-          ActionLink.Execute(Self)
-        else if Assigned(FOnClickControl) then
+        if Assigned(FOnClickControl) then
           FOnClickControl(Self, n, x, y);
+        if (not (csDesigning in ComponentState)) and (ActionLink <> nil) then
+          ActionLink.Execute(Self)
       end;
 
       Inc(n);

bclabel.pas

@@ -156,7 +156,7 @@ begin
   CalculateBorderRect(FBorder,r);
 
   RenderBackgroundAndBorder(FBGRA.ClipRect, FBackground, TBGRABitmap(FBGRA), FRounding, FBorder, FInnerMargin);
-  RenderText(FBGRA.ClipRect, FFontEx, Caption, TBGRABitmap(FBGRA));
+  RenderText(FBGRA.ClipRect, FFontEx, Caption, TBGRABitmap(FBGRA), Enabled);
 
   {$IFDEF INDEBUG}
   FRenderCount := FRenderCount +1;

bcmaterialedit.pas

@@ -0,0 +1,128 @@
+unit BCMaterialEdit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  StdCtrls;
+
+type
+
+  { TBCMaterialEdit }
+
+  TBCMaterialEdit = class(TCustomPanel)
+  private
+    FAccentColor: TColor;
+    FDisabledColor: TColor;
+    Flbl: TLabel;
+    Fedt: TEdit;
+    Ffocused: boolean;
+    FOnChange: TNotifyEvent;
+    FTexto: string;
+    procedure ChangeEdit(Sender: TObject);
+    procedure EnterEdit(Sender: TObject);
+    procedure ExitEdit(Sender: TObject);
+    procedure SetTexto(AValue: string);
+  protected
+    procedure Paint; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    property Color;
+    property Text: string read FTexto write SetTexto;
+    property Edit: TEdit read Fedt;
+    property Title: TLabel read Flbl;
+    property DisabledColor: TColor read FDisabledColor write FDisabledColor;
+    property AccentColor: TColor read FAccentColor write FAccentColor;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+  end;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  RegisterComponents('BGRA Controls', [TBCMaterialEdit]);
+end;
+
+{ TBCMaterialEdit }
+
+procedure TBCMaterialEdit.EnterEdit(Sender: TObject);
+begin
+  Ffocused := True;
+  Invalidate;
+  Flbl.Font.Color := accentColor;
+end;
+
+procedure TBCMaterialEdit.ChangeEdit(Sender: TObject);
+begin
+  if Assigned(FOnChange) then
+    FOnChange(Self);
+end;
+
+procedure TBCMaterialEdit.ExitEdit(Sender: TObject);
+begin
+  Ffocused := False;
+  Invalidate;
+  Flbl.Font.Color := DisabledColor;
+end;
+
+procedure TBCMaterialEdit.SetTexto(AValue: string);
+begin
+  if FTexto = AValue then
+    Exit;
+  FTexto := AValue;
+  Flbl.Caption := FTexto;
+  //Fedt.TextHint := FTexto;
+end;
+
+procedure TBCMaterialEdit.Paint;
+begin
+  inherited Paint;
+  Canvas.Brush.Color := Color;
+  Canvas.Pen.Color := Color;
+  Canvas.Rectangle(0, 0, Width, Height);
+  if (fFocused) then
+  begin
+    Canvas.Pen.Color := AccentColor;
+    Canvas.Line(0, Height - 2, Width, Height - 2);
+    Canvas.Line(0, Height - 1, Width, Height - 1);
+  end
+  else
+  begin
+    Canvas.Pen.Color := DisabledColor;
+    Canvas.Line(0, Height - 1, Width, Height - 1);
+  end;
+end;
+
+constructor TBCMaterialEdit.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Self.BevelOuter := bvNone;
+  Self.Color := clWhite;
+  AccentColor := clHighlight;
+  DisabledColor := $00B8AFA8;
+  Flbl := TLabel.Create(Self);
+  Flbl.Align := alTop;
+  Flbl.Caption := 'Buscar';
+  Flbl.BorderSpacing.Around := 4;
+  Flbl.Font.Style := [fsBold];
+  Flbl.Font.Color := $00B8AFA8;
+  Flbl.Parent := Self;
+  Fedt := TEdit.Create(Self);
+  Fedt.Color := Color;
+  Fedt.Font.Color := clBlack;
+  Fedt.OnEnter := @EnterEdit;
+  Fedt.OnExit := @ExitEdit;
+  Fedt.OnChange:=@ChangeEdit;
+  Fedt.Align := alClient;
+  Fedt.BorderStyle := bsNone;
+  //Fedt.TextHint := 'Buscar';
+  Fedt.BorderSpacing.Around := 4;
+  Fedt.Parent := Self;
+end;
+
+end.

bcmaterialfloatspinedit.pas

@@ -0,0 +1,130 @@
+unit BCMaterialFloatSpinEdit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  StdCtrls, Spin;
+
+type
+
+  { TBCMaterialFloatSpinEdit }
+
+  TBCMaterialFloatSpinEdit = class(TCustomPanel)
+  private
+    FAccentColor: TColor;
+    FDisabledColor: TColor;
+    Flbl: TLabel;
+    Fedt: TFloatSpinEdit;
+    Ffocused: boolean;
+    FOnChange: TNotifyEvent;
+    FTexto: string;
+    procedure ChangeEdit(Sender: TObject);
+    procedure EnterEdit(Sender: TObject);
+    procedure ExitEdit(Sender: TObject);
+    procedure SetTexto(AValue: string);
+  protected
+    procedure Paint; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    property Color;
+    property Text: string read FTexto write SetTexto;
+    property Edit: TFloatSpinEdit read Fedt;
+    property Title: TLabel read Flbl;
+    property DisabledColor: TColor read FDisabledColor write FDisabledColor;
+    property AccentColor: TColor read FAccentColor write FAccentColor;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+  end;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  RegisterComponents('BGRA Controls', [TBCMaterialFloatSpinEdit]);
+end;
+
+{ TBCMaterialFloatSpinEdit }
+
+procedure TBCMaterialFloatSpinEdit.EnterEdit(Sender: TObject);
+begin
+  Ffocused := True;
+  Invalidate;
+  Flbl.Font.Color := AccentColor;
+end;
+
+procedure TBCMaterialFloatSpinEdit.ChangeEdit(Sender: TObject);
+begin
+  if Assigned(FOnChange) then
+    FOnChange(Self);
+end;
+
+procedure TBCMaterialFloatSpinEdit.ExitEdit(Sender: TObject);
+begin
+  Ffocused := False;
+  Invalidate;
+  Flbl.Font.Color := DisabledColor;
+end;
+
+procedure TBCMaterialFloatSpinEdit.SetTexto(AValue: string);
+begin
+  if FTexto = AValue then
+    Exit;
+  FTexto := AValue;
+  Flbl.Caption := FTexto;
+  //Fedt.TextHint := FTexto;
+end;
+
+procedure TBCMaterialFloatSpinEdit.Paint;
+begin
+  inherited Paint;
+  Canvas.Brush.Color := Color;
+  Canvas.Pen.Color := Color;
+  Canvas.Rectangle(0, 0, Width, Height);
+  if (fFocused) then
+  begin
+    Canvas.Pen.Color := AccentColor;
+    Canvas.Line(0, Height - 2, Width, Height - 2);
+    Canvas.Line(0, Height - 1, Width, Height - 1);
+  end
+  else
+  begin
+    Canvas.Pen.Color := DisabledColor;
+    Canvas.Line(0, Height - 1, Width, Height - 1);
+  end;
+end;
+
+constructor TBCMaterialFloatSpinEdit.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Self.BevelOuter := bvNone;
+  Self.Color := clWhite;
+  AccentColor := clHighlight;
+  DisabledColor := $00B8AFA8;
+  Flbl := TLabel.Create(Self);
+  Flbl.Align := alTop;
+  Flbl.Caption := 'Buscar';
+  Flbl.BorderSpacing.Around := 4;
+  Flbl.Font.Style := [fsBold];
+  Flbl.Font.Color := $00B8AFA8;
+  Flbl.Parent := Self;
+  Fedt := TFloatSpinEdit.Create(Self);
+  Fedt.Color := Color;
+  Fedt.Font.Color := clBlack;
+  Fedt.OnEnter := @EnterEdit;
+  Fedt.OnExit := @ExitEdit;
+  Fedt.OnChange:=@ChangeEdit;
+  Fedt.Align := alClient;
+  Fedt.BorderStyle := bsNone;
+  //Fedt.TextHint := 'Buscar';
+  Fedt.BorderSpacing.Around := 4;
+  Fedt.Parent := Self;
+  Fedt.MinValue := 0;
+  Fedt.MaxValue := MaxInt;
+end;
+
+end.

bcmaterialprogressbarmarquee.pas

@@ -0,0 +1,128 @@
+unit BCMaterialProgressBarMarquee;
+
+{$mode delphi}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, BGRAGraphicControl,
+  ExtCtrls, BGRABitmap, BGRABitmapTypes;
+
+type
+
+  { TBCMaterialProgressBarMarquee }
+
+  TBCMaterialProgressBarMarquee = class(TBGRAGraphicControl)
+  private
+    FBarColor: TColor;
+    progressbasr_cx, progressbar_cw: integer;
+    progressbar_x, progressbar_w: integer;
+    progressbar_increase: boolean;
+    FTimer: TTimer;
+    procedure SetBarColor(AValue: TColor);
+    procedure TimerOnTimer(Sender: TObject);
+  protected
+    procedure SetEnabled(Value: Boolean); override;
+    procedure SetVisible(Value: Boolean); override;
+  public
+    procedure DiscardBitmap;
+    procedure RedrawBitmapContent; override;
+    constructor Create(AOwner: TComponent); override;
+  published
+    property BarColor: TColor read FBarColor write SetBarColor;
+    property Visible;
+  end;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  RegisterComponents('BGRA Controls', [TBCMaterialProgressBarMarquee]);
+end;
+
+{ TBCMaterialProgressBarMarquee }
+
+procedure TBCMaterialProgressBarMarquee.TimerOnTimer(Sender: TObject);
+begin
+  if progressbar_increase then
+  begin
+    progressbar_w := progressbar_w + progressbar_cw;
+    if (progressbar_w >= Width - 5) then
+    begin
+      progressbar_increase := False;
+    end;
+  end
+  else
+  begin
+    progressbar_w := progressbar_w - progressbar_cw;
+    if (progressbar_w <= progressbar_cw) then
+    begin
+      progressbar_increase := True;
+    end;
+  end;
+  progressbar_x := progressbar_x + progressbasr_cx;
+  if (progressbar_x >= Width) then
+    progressbar_x := -progressbar_w;
+  DiscardBitmap;
+end;
+
+procedure TBCMaterialProgressBarMarquee.SetEnabled(Value: Boolean);
+begin
+  inherited SetEnabled(Value);
+  FTimer.Enabled := Value and Visible;
+  DiscardBitmap;
+end;
+
+procedure TBCMaterialProgressBarMarquee.SetVisible(Value: Boolean);
+begin
+  inherited SetVisible(Value);
+  FTimer.Enabled := Enabled and Value;
+  DiscardBitmap;
+end;
+
+procedure TBCMaterialProgressBarMarquee.SetBarColor(AValue: TColor);
+begin
+  if FBarColor = AValue then
+    Exit;
+  FBarColor := AValue;
+  DiscardBitmap;
+end;
+
+procedure TBCMaterialProgressBarMarquee.DiscardBitmap;
+begin
+  inherited DiscardBitmap;
+  progressbar_cw := Width div 50;
+  progressbasr_cx := progressbar_cw * 2;
+end;
+
+procedure TBCMaterialProgressBarMarquee.RedrawBitmapContent;
+begin
+  if FTimer.Enabled then
+  begin
+  Bitmap.Fill(Color);
+  Bitmap.Rectangle(Rect(progressbar_x, 0, progressbar_x + progressbar_w, Bitmap.Height),
+    BarColor, BarColor);
+  end
+  else
+  begin
+    Bitmap.Fill(BarColor);
+  end;
+end;
+
+constructor TBCMaterialProgressBarMarquee.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  progressbar_w := Width;
+  progressbar_x := -progressbar_w;
+  progressbar_increase := False;
+  FTimer := TTimer.Create(Self);
+  FTimer.Interval := 15;
+  FTimer.OnTimer := TimerOnTimer;
+  FTimer.Enabled := True;
+  Color := clWhite;
+  BarColor := $00E2A366;
+end;
+
+end.

bcmaterialspinedit.pas

@@ -0,0 +1,130 @@
+unit BCMaterialSpinEdit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  StdCtrls, Spin;
+
+type
+
+  { TBCMaterialSpinEdit }
+
+  TBCMaterialSpinEdit = class(TCustomPanel)
+  private
+    FAccentColor: TColor;
+    FDisabledColor: TColor;
+    Flbl: TLabel;
+    Fedt: TSpinEdit;
+    Ffocused: boolean;
+    FOnChange: TNotifyEvent;
+    FTexto: string;
+    procedure ChangeEdit(Sender: TObject);
+    procedure EnterEdit(Sender: TObject);
+    procedure ExitEdit(Sender: TObject);
+    procedure SetTexto(AValue: string);
+  protected
+    procedure Paint; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    property Color;
+    property Text: string read FTexto write SetTexto;
+    property Edit: TSpinEdit read Fedt;
+    property Title: TLabel read Flbl;
+    property DisabledColor: TColor read FDisabledColor write FDisabledColor;
+    property AccentColor: TColor read FAccentColor write FAccentColor;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+  end;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  RegisterComponents('BGRA Controls', [TBCMaterialSpinEdit]);
+end;
+
+{ TBCMaterialSpinEdit }
+
+procedure TBCMaterialSpinEdit.EnterEdit(Sender: TObject);
+begin
+  Ffocused := True;
+  Invalidate;
+  Flbl.Font.Color := AccentColor;
+end;
+
+procedure TBCMaterialSpinEdit.ChangeEdit(Sender: TObject);
+begin
+  if Assigned(FOnChange) then
+    FOnChange(Self);
+end;
+
+procedure TBCMaterialSpinEdit.ExitEdit(Sender: TObject);
+begin
+  Ffocused := False;
+  Invalidate;
+  Flbl.Font.Color := DisabledColor;
+end;
+
+procedure TBCMaterialSpinEdit.SetTexto(AValue: string);
+begin
+  if FTexto = AValue then
+    Exit;
+  FTexto := AValue;
+  Flbl.Caption := FTexto;
+  //Fedt.TextHint := FTexto;
+end;
+
+procedure TBCMaterialSpinEdit.Paint;
+begin
+  inherited Paint;
+  Canvas.Brush.Color := Color;
+  Canvas.Pen.Color := Color;
+  Canvas.Rectangle(0, 0, Width, Height);
+  if (fFocused) then
+  begin
+    Canvas.Pen.Color := AccentColor;
+    Canvas.Line(0, Height - 2, Width, Height - 2);
+    Canvas.Line(0, Height - 1, Width, Height - 1);
+  end
+  else
+  begin
+    Canvas.Pen.Color := DisabledColor;
+    Canvas.Line(0, Height - 1, Width, Height - 1);
+  end;
+end;
+
+constructor TBCMaterialSpinEdit.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Self.BevelOuter := bvNone;
+  Self.Color := clWhite;
+  AccentColor := clHighlight;
+  DisabledColor := $00B8AFA8;
+  Flbl := TLabel.Create(Self);
+  Flbl.Align := alTop;
+  Flbl.Caption := 'Buscar';
+  Flbl.BorderSpacing.Around := 4;
+  Flbl.Font.Style := [fsBold];
+  Flbl.Font.Color := $00B8AFA8;
+  Flbl.Parent := Self;
+  Fedt := TSpinEdit.Create(Self);
+  Fedt.Color := Color;
+  Fedt.Font.Color := clBlack;
+  Fedt.OnEnter := @EnterEdit;
+  Fedt.OnExit := @ExitEdit;
+  Fedt.OnChange:=@ChangeEdit;
+  Fedt.Align := alClient;
+  Fedt.BorderStyle := bsNone;
+  //Fedt.TextHint := 'Buscar';
+  Fedt.BorderSpacing.Around := 4;
+  Fedt.Parent := Self;
+  Fedt.MinValue := 0;
+  Fedt.MaxValue := MaxInt;
+end;
+
+end.

bcpanel.pas

@@ -271,7 +271,7 @@ begin
   end;
 
   if Caption <> '' then
-    RenderText(r,FFontEx,Caption,TBGRABitmap(FBGRA));
+    RenderText(r,FFontEx,Caption,TBGRABitmap(FBGRA),Enabled);
 
   if Assigned(FOnAfterRenderBCPanel) then
     FOnAfterRenderBCPanel(Self, FBGRA, r);

bcradialprogressbar.pas

@@ -21,9 +21,11 @@ type
 
   TBCRadialProgressBar = class(TBCGraphicControl)
   private
+    FDrawText: boolean;
     { Private declarations }
     FMaxValue: integer;
     FMinValue: integer;
+    FRotation: single;
     FValue: integer;
     FBitmap: TBGRABitmap;
     FLineColor: TColor;
@@ -33,6 +35,7 @@ type
     FFontShadowOffsetY: integer;
     FFontShadowRadius: integer;
     FLineWidth: single;
+    procedure SetDrawText(AValue: boolean);
     procedure SetFFontShadowColor(AValue: TColor);
     procedure SetFFontShadowOffsetX(AValue: integer);
     procedure SetFFontShadowOffsetY(AValue: integer);
@@ -41,6 +44,7 @@ type
     procedure SetFLineColor(AValue: TColor);
     procedure SetMaxValue(AValue: integer);
     procedure SetMinValue(AValue: integer);
+    procedure SetRotation(AValue: single);
     procedure SetValue(AValue: integer);
     procedure SetLineWidth(AValue: single);
   protected
@@ -54,6 +58,8 @@ type
     { Public declarations }
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    property Rotation: single read FRotation write SetRotation default 0;
+    property DrawText: boolean read FDrawText write SetDrawText default true;
   published
     { Published declarations }
     property Align;
@@ -133,6 +139,14 @@ begin
   Invalidate;
 end;
 
+procedure TBCRadialProgressBar.SetDrawText(AValue: boolean);
+begin
+  if FDrawText=AValue then Exit;
+  FDrawText:=AValue;
+  RenderControl;
+  Invalidate;
+end;
+
 procedure TBCRadialProgressBar.SetFFontShadowOffsetX(AValue: integer);
 begin
   if FFontShadowOffsetX = AValue then
@@ -182,6 +196,14 @@ begin
   Invalidate;
 end;
 
+procedure TBCRadialProgressBar.SetRotation(AValue: single);
+begin
+  if FRotation=AValue then Exit;
+  FRotation:=AValue;
+  RenderControl;
+  Invalidate;
+end;
+
 procedure TBCRadialProgressBar.SetValue(AValue: integer);
 begin
   if FValue = AValue then
@@ -228,8 +250,12 @@ begin
   FreeAndNil(FBitmap);
   FBitmap := TBGRABitmap.Create(Width, Height);
 
+  FBitmap.Canvas2D.resetTransform;
+  FBitmap.Canvas2D.translate(FBitmap.Width/2, FBitmap.Height/2);
+  FBitmap.Canvas2D.rotate(FRotation*Pi/180);
+
   FBitmap.Canvas2D.beginPath;
-  FBitmap.Canvas2D.arc(Width / 2, Height / 2, Height / 2.5, 0, pi * 2, False);
+  FBitmap.Canvas2D.arc(0, 0, Height / 2.5, 0, pi * 2, False);
   FBitmap.Canvas2D.fillStyle(Color);
   FBitmap.Canvas2D.fill;
 
@@ -244,7 +270,7 @@ begin
 
   FBitmap.Canvas2D.beginPath;
   if Value <> MinValue then
-    FBitmap.Canvas2D.arc(Width / 2, Height / 2, Height / 2.5, pi * 1.5,
+    FBitmap.Canvas2D.arc(0, 0, Height / 2.5, pi * 1.5,
       (pi * 1.5) + ((pi * 2) * Value / MaxValue), False);
   FBitmap.Canvas2D.fillStyle(BGRAPixelTransparent);
   FBitmap.Canvas2D.fill;
@@ -258,11 +284,15 @@ begin
   else
     textStr := FloatToStr((Value / MaxValue) * 100) + '%';
 
-  textBmp := TextShadow(Width, Height, textStr, Font.Height,
-    Font.Color, FontShadowColor, FontShadowOFfsetX,
-    FontShadowOffsetY, FontSHadowRadius, Font.Style, Font.Name) as TBGRABitmap;
-  FBitmap.PutImage(0, 0, textBmp, dmDrawWithTransparency);
-  textBmp.Free;
+  if DrawText then
+  begin
+    textBmp := TextShadow(Width, Height, textStr, Font.Height,
+      Font.Color, FontShadowColor, FontShadowOFfsetX,
+      FontShadowOffsetY, FontSHadowRadius, Font.Style, Font.Name) as TBGRABitmap;
+
+    FBitmap.PutImage(0, 0, textBmp, dmDrawWithTransparency);
+    textBmp.Free;
+  end;
 end;
 
 procedure TBCRadialProgressBar.SetColor(Value: TColor);
@@ -291,6 +321,8 @@ begin
   Font.Color := clBlack;
   Font.Height := 20;
   Color := clWhite;
+  FRotation := 0;
+  FDrawText := True;
 end;
 
 destructor TBCRadialProgressBar.Destroy;

bctools.pas

@@ -68,7 +68,7 @@ procedure RenderBorderF(x1,y1,x2,y2: single; ABorder: TBCBorder;
   ATargetBGRA: TBGRABitmap; ARounding: TBCRounding = nil);
 // Render BCFont (used e.g. by TBCButton, TBCPanel, TBCLabel)
 procedure RenderText(const ARect: TRect; AFont: TBCFont;
-  const AText: String; ATargetBGRA: TBGRABitmap);
+  const AText: String; ATargetBGRA: TBGRABitmap; AEnabled: boolean);
 // Return LCL horizontal equivalent for BCAlignment
 function BCAlign2HAlign(AAlign: TBCAlignment): TAlignment;
 // Return LCL vertical equivalent for BCAlignment
@@ -202,13 +202,14 @@ begin
 end;
 
 procedure RenderText(const ARect: TRect; AFont: TBCFont;
-  const AText: String; ATargetBGRA: TBGRABitmap);
+  const AText: String; ATargetBGRA: TBGRABitmap; AEnabled: boolean);
 var
   shd: TBGRABitmap;
   hal: TAlignment;
   val: TTextLayout;
   st: TTextStyle;
   r: TRect;
+  c: TColor;
 begin
   if AText = '' then exit;
 
@@ -245,7 +246,9 @@ begin
     shd.Free;
   end;
 
-  ATargetBGRA.TextRect(r,r.Left,r.Top,AText,st,AFont.Color);
+  if AEnabled or (AFont.DisabledColor = clNone) then
+     c := AFont.Color else c := AFont.DisabledColor;
+  ATargetBGRA.TextRect(r,r.Left,r.Top,AText,st,c);
 
 end;
 

bctrackbarupdown.pas

@@ -585,6 +585,7 @@ begin
     SetFocus;
     SelectAll;
   end;
+  inherited MouseDown(Button, Shift, X, Y);
 end;
 
 procedure TCustomBCTrackbarUpdown.MouseMove(Shift: TShiftState; X, Y: Integer);

bctypes.pas

@@ -166,7 +166,7 @@ type
 
   TBCFont = class(TBCProperty)
   private
-    FColor: TColor;
+    FColor, FDisabledColor: TColor;
     FEndEllipsis: boolean;
     FFontQuality: TBGRAFontQuality;
     FHeight: integer;
@@ -185,8 +185,9 @@ type
     FStyle: TFontStyles;
     FTextAlignment: TBCAlignment;
     FWordBreak: boolean;
-    function IsNamStored: boolean;
+    function IsNameStored: boolean;
     procedure SetColor(AValue: TColor);
+    procedure SetDisabledColor(AValue: TColor);
     procedure SetEndEllipsis(AValue: boolean);
     procedure SetFontQuality(AValue: TBGRAFontQuality);
     procedure SetHeight(AValue: integer);
@@ -211,10 +212,11 @@ type
     procedure Scale(AScale: single; APreserveDefaultHeight: boolean = true);
   published
     property Color: TColor read FColor write SetColor;
+    property DisabledColor: TColor read FDisabledColor write SetDisabledColor default clNone;
     property EndEllipsis: boolean read FEndEllipsis write SetEndEllipsis default false;
     property FontQuality: TBGRAFontQuality read FFontQuality write SetFontQuality;
     property Height: integer read FHeight write SetHeight default 0;
-    property Name: string read FName write SetName stored IsNamStored;
+    property Name: string read FName write SetName stored IsNameStored;
     property SingleLine: boolean read FSingleLine write SetSingleLine default true;
     property Shadow: boolean read FShadow write SetShadow;
     property ShadowColor: TColor read FShadowColor write SetShadowColor default clBlack;
@@ -641,7 +643,7 @@ end;
 
 { TBCFont }
 
-function TBCFont.IsNamStored: boolean;
+function TBCFont.IsNameStored: boolean;
 begin
   Result := DefFontData.Name <> Name;
 end;
@@ -655,6 +657,15 @@ begin
   Change;
 end;
 
+procedure TBCFont.SetDisabledColor(AValue: TColor);
+begin
+  if FDisabledColor = AValue then
+    Exit;
+  FDisabledColor := AValue;
+
+  Change;
+end;
+
 procedure TBCFont.SetEndEllipsis(AValue: boolean);
 begin
   if FEndEllipsis = AValue then
@@ -842,6 +853,7 @@ begin
   FStyle := [];
   FName := DefFontData.Name;
   FColor := clDefault;
+  FDisabledColor := clNone;
   FWordBreak := False;
   FSingleLine := True;
   FEndEllipsis := False;
@@ -852,6 +864,7 @@ begin
   if Source is TBCFont then
   begin
     FColor := TBCFont(Source).FColor;
+    FDisabledColor := TBCFont(Source).FDisabledColor;
     FEndEllipsis := TBCFont(Source).FEndEllipsis;
     FFontQuality := TBCFont(Source).FFontQuality;
     FHeight := TBCFont(Source).FHeight;

bgracontrols.lpk

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
-  <Package Version="4">
+  <Package Version="5">
     <Name Value="bgracontrols"/>
     <Type Value="RunAndDesignTime"/>
     <Author Value="Dibo, Circular, Lainz and others"/>
@@ -28,8 +28,8 @@
     </CompilerOptions>
     <Description Value="BGRA Controls is a set of graphical UI elements that you can use with Lazarus LCL applications."/>
     <License Value="Modified LGPL"/>
-    <Version Major="7" Minor="2"/>
-    <Files Count="63">
+    <Version Major="7" Minor="6"/>
+    <Files Count="66">
       <Item1>
         <Filename Value="atshapelinebgra.pas"/>
         <HasRegisterProc Value="True"/>
@@ -313,29 +313,45 @@
         <UnitName Value="MaterialColors"/>
       </Item58>
       <Item59>
-        <Filename Value="mouseandkeyinput/mouseandkeyinput.pas"/>
-        <AddToUsesPkgSection Value="False"/>
-        <UnitName Value="MouseAndKeyInput"/>
-      </Item59>
-      <Item60>
         <Filename Value="bclistboxex.pas"/>
         <UnitName Value="BCListBoxEx"/>
-      </Item60>
-      <Item61>
+      </Item59>
+      <Item60>
         <Filename Value="bgrasvgtheme.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="BGRASVGTheme"/>
-      </Item61>
-      <Item62>
+      </Item60>
+      <Item61>
         <Filename Value="bgrasvgimagelist.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="BGRASVGImageList"/>
-      </Item62>
-      <Item63>
+      </Item61>
+      <Item62>
         <Filename Value="bgrasvgimagelistform/bgrasvgimagelistform.pas"/>
         <UnitName Value="bgrasvgimagelistform"/>
+      </Item62>
+      <Item63>
+        <Filename Value="bcmaterialedit.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="BCMaterialEdit"/>
       </Item63>
+      <Item64>
+        <Filename Value="bcmaterialfloatspinedit.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="BCMaterialFloatSpinEdit"/>
+      </Item64>
+      <Item65>
+        <Filename Value="bcmaterialspinedit.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="BCMaterialSpinEdit"/>
+      </Item65>
+      <Item66>
+        <Filename Value="bcmaterialprogressbarmarquee.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="BCMaterialProgressBarMarquee"/>
+      </Item66>
     </Files>
+    <CompatibilityMode Value="True"/>
     <LazDoc Paths="fpdoc"/>
     <RequiredPkgs Count="2">
       <Item1>

bgracontrols.pas

@@ -20,7 +20,9 @@ uses
   BGRAThemeCheckBox, BGRAThemeRadioButton, BGRAVirtualScreen, 
   ColorSpeedButton, DTAnalogClock, DTAnalogCommon, DTAnalogGauge, 
   dtthemedclock, dtthemedgauge, MaterialColors, BCListBoxEx, BGRASVGTheme, 
-  BGRASVGImageList, bgrasvgimagelistform, LazarusPackageIntf;
+  BGRASVGImageList, bgrasvgimagelistform, BCMaterialEdit, 
+  BCMaterialFloatSpinEdit, BCMaterialSpinEdit, BCMaterialProgressBarMarquee, 
+  LazarusPackageIntf;
 
 implementation
 
@@ -68,6 +70,11 @@ begin
   RegisterUnit('dtthemedgauge', @dtthemedgauge.Register);
   RegisterUnit('BGRASVGTheme', @BGRASVGTheme.Register);
   RegisterUnit('BGRASVGImageList', @BGRASVGImageList.Register);
+  RegisterUnit('BCMaterialEdit', @BCMaterialEdit.Register);
+  RegisterUnit('BCMaterialFloatSpinEdit', @BCMaterialFloatSpinEdit.Register);
+  RegisterUnit('BCMaterialSpinEdit', @BCMaterialSpinEdit.Register);
+  RegisterUnit('BCMaterialProgressBarMarquee', 
+    @BCMaterialProgressBarMarquee.Register);
 end;
 
 initialization

bgracontrolsinfo.pas

@@ -9,7 +9,7 @@ uses
   Classes, SysUtils;
 
 const
-  BGRAControlsVersion = 7020000;
+  BGRAControlsVersion = 7060000;
 
   function BGRAControlsVersionStr: string;
 

bgrapascalscriptcomponent.lpk

@@ -11,7 +11,7 @@
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
     </CompilerOptions>
-    <Version Major="7" Minor="2"/>
+    <Version Major="7" Minor="6"/>
     <Files Count="3">
       <Item1>
         <Filename Value="bgrapascalscript.pas"/>

bgraspriteanimation.pas

@@ -105,7 +105,7 @@ type
     { Protected declarations }
     procedure Paint; override;
     procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
-      WithThemeSpace: Boolean); override;
+      {%H-}WithThemeSpace: Boolean); override;
   public
     { Public declarations }
     procedure GifImageToSprite(Gif: TBGRAAnimatedGif);

bgrasvgimagelist.pas

@@ -20,11 +20,14 @@ type
     FHorizontalAlignment: TAlignment;
     FItems: TListOfTStringList;
     FReferenceDPI: integer;
+    FTargetRasterImageList: TImageList;
     FUseSVGAlignment: boolean;
     FVerticalAlignment: TTextLayout;
     FWidth: integer;
+    FRasterized: boolean;
     procedure ReadData(Stream: TStream);
     procedure SetHeight(AValue: integer);
+    procedure SetTargetRasterImageList(AValue: TImageList);
     procedure SetWidth(AValue: integer);
     procedure WriteData(Stream: TStream);
   protected
@@ -34,6 +37,9 @@ type
     function GetCount: integer;
     // Get SVG string
     function GetSVGString(AIndex: integer): string; overload;
+    procedure Rasterize;
+    procedure RasterizeIfNeeded;
+    procedure QueryRasterize;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -81,6 +87,7 @@ type
     property UseSVGAlignment: boolean read FUseSVGAlignment write FUseSVGAlignment default False;
     property HorizontalAlignment: TAlignment read FHorizontalAlignment write FHorizontalAlignment default taCenter;
     property VerticalAlignment: TTextLayout read FVerticalAlignment write FVerticalAlignment default tlCenter;
+    property TargetRasterImageList: TImageList read FTargetRasterImageList write SetTargetRasterImageList default nil;
   end;
 
 procedure Register;
@@ -115,6 +122,15 @@ begin
   if FHeight = AValue then
     Exit;
   FHeight := AValue;
+  QueryRasterize;
+end;
+
+procedure TBGRASVGImageList.SetTargetRasterImageList(AValue: TImageList);
+begin
+  if FTargetRasterImageList=AValue then Exit;
+  if Assigned(FTargetRasterImageList) then FTargetRasterImageList.Clear;
+  FTargetRasterImageList:=AValue;
+  QueryRasterize;
 end;
 
 procedure TBGRASVGImageList.SetWidth(AValue: integer);
@@ -122,6 +138,7 @@ begin
   if FWidth = AValue then
     Exit;
   FWidth := AValue;
+  QueryRasterize;
 end;
 
 procedure TBGRASVGImageList.WriteData(Stream: TStream);
@@ -197,16 +214,19 @@ begin
   list := TStringList.Create;
   list.Text := ASVG;
   Result := FItems.Add(list);
+  QueryRasterize;
 end;
 
 procedure TBGRASVGImageList.Remove(AIndex: integer);
 begin
   FItems.Remove(FItems[AIndex]);
+  QueryRasterize;
 end;
 
 procedure TBGRASVGImageList.Exchange(AIndex1, AIndex2: integer);
 begin
   FItems.Exchange(AIndex1, AIndex2);
+  QueryRasterize;
 end;
 
 function TBGRASVGImageList.GetSVGString(AIndex: integer): string;
@@ -214,9 +234,42 @@ begin
   Result := FItems[AIndex].Text;
 end;
 
+procedure TBGRASVGImageList.Rasterize;
+begin
+  if Assigned(FTargetRasterImageList) then
+  begin
+    FTargetRasterImageList.Clear;
+    FTargetRasterImageList.Width := Width;
+    FTargetRasterImageList.Height := Height;
+    {$IFDEF DARWIN}
+    PopulateImageList(FTargetRasterImageList, [Width, Width*2]);
+    {$ELSE}
+    PopulateImageList(FTargetRasterImageList, [Width]);
+    {$ENDIF}
+  end;
+end;
+
+procedure TBGRASVGImageList.RasterizeIfNeeded;
+begin
+  if not FRasterized then
+  begin
+    Rasterize;
+    FRasterized := true;
+  end;
+end;
+
+procedure TBGRASVGImageList.QueryRasterize;
+var method: TThreadMethod;
+begin
+  FRasterized := false;
+  method := RasterizeIfNeeded;
+  TThread.ForceQueue(nil, method);
+end;
+
 procedure TBGRASVGImageList.Replace(AIndex: integer; ASVG: string);
 begin
   FItems[AIndex].Text := ASVG;
+  QueryRasterize;
 end;
 
 function TBGRASVGImageList.GetCount: integer;

bgrasvgimagelistform/bgrasvgimagelistproject.lpi

@@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="bgrasvgimagelistproject"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
@@ -24,7 +26,6 @@
     </PublishOptions>
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0"/>
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
@@ -59,6 +60,9 @@
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf2Set"/>
+      </Debugging>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>

bgrasvgtheme.pas

@@ -77,6 +77,8 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   public
+    function PreferredButtonHeight(const hasGlyph: boolean): Integer; override;
+    function PreferredButtonWidth(const hasGlyph: boolean): Integer; override;
     procedure DrawButton(Caption: string; State: TBGRAThemeButtonState;
       Focused: boolean; ARect: TRect; ASurface: TBGRAThemeSurface; AImageIndex: Integer = -1; AImageList: TBGRASVGImageList = nil); override;
     procedure DrawRadioButton(Caption: string; State: TBGRAThemeButtonState;
@@ -618,6 +620,18 @@ begin
   inherited Destroy;
 end;
 
+function TBGRASVGTheme.PreferredButtonHeight(const hasGlyph: boolean): Integer;
+begin
+  Result := (FButtonTextSpacing * 2);
+end;
+
+function TBGRASVGTheme.PreferredButtonWidth(const hasGlyph: boolean): Integer;
+begin
+  Result := (FButtonTextSpacing * 2);
+  if (hasGlyph) then
+    Result := Result + FGlyphTextSpacing;
+end;
+
 procedure TBGRASVGTheme.DrawButton(Caption: string;
   State: TBGRAThemeButtonState; Focused: boolean; ARect: TRect;
   ASurface: TBGRAThemeSurface; AImageIndex: Integer;
@@ -684,24 +698,10 @@ begin
       ScaleForBitmap(GlyphTextSpacing), actualCaption, bcFont);
     if not rGlyph.IsEmpty then
       AImageList.Draw(AImageIndex, Bitmap, RectF(rGlyph));
-    RenderText(r, bcFont, actualCaption, Bitmap);
+    RenderText(r, bcFont, actualCaption, Bitmap, State <> btbsDisabled);
 
     ColorizeSurface(ASurface, State);
     DrawBitmap;
-
-    if Focused then
-    begin
-      DestCanvas.Pen.Color := DestCanvas.Font.Color;
-      DestCanvas.Pen.Style := psDash;
-      DestCanvas.Brush.Style := bsClear;
-      r := ARect;
-      r.Inflate(-ScaleForCanvas(FButtonSliceScalingLeft),
-        -ScaleForCanvas(FButtonSliceScalingTop),
-        -ScaleForCanvas(FButtonSliceScalingRight),
-        -ScaleForCanvas(FButtonSliceScalingBottom));
-      DestCanvas.Rectangle(r);
-      DestCanvas.Pen.Style := psSolid;
-    end;
   end;
 end;
 
@@ -827,6 +827,7 @@ procedure TBGRASVGTheme.DrawCheckBox(Caption: string; State: TBGRAThemeButtonSta
 var
   Style: TTextStyle;
   svg: TBGRASVG;
+  r: TRect;
 begin
   with ASurface do
   begin
@@ -851,6 +852,15 @@ begin
         ARect.Right, ARect.Bottom),
         ARect.Height +  ScaleForCanvas(CheckBoxTextSpacing), 0, Caption, Style);
     end;
+    if Focused then
+    begin
+      DestCanvas.Pen.Color := DestCanvas.Font.Color;
+      DestCanvas.Pen.Style := psDash;
+      DestCanvas.Brush.Style := bsClear;
+      r := ARect;
+      DestCanvas.Rectangle(r);
+      DestCanvas.Pen.Style := psSolid;
+    end;
   end;
 end;
 

bgratheme.pas

@@ -72,6 +72,9 @@ type
     destructor Destroy; override;
     procedure InvalidateThemedControls;
 
+    function PreferredButtonWidth(const hasGlyph: boolean): Integer; virtual;
+    function PreferredButtonHeight(const hasGlyph: boolean): Integer; virtual;
+
     procedure DrawButton(Caption: string; State: TBGRAThemeButtonState;
       Focused: boolean; ARect: TRect; ASurface: TBGRAThemeSurface; AImageIndex: Integer = -1; AImageList: TBGRASVGImageList = nil); virtual;
     procedure DrawRadioButton(Caption: string; State: TBGRAThemeButtonState;
@@ -248,6 +251,16 @@ begin
     ThemedControl[i].Invalidate;
 end;
 
+function TBGRATheme.PreferredButtonWidth(const hasGlyph: boolean): Integer;
+begin
+  Result := 125;
+end;
+
+function TBGRATheme.PreferredButtonHeight(const hasGlyph: boolean): Integer;
+begin
+  Result := 35;
+end;
+
 procedure TBGRATheme.DrawButton(Caption: string; State: TBGRAThemeButtonState;
   Focused: boolean; ARect: TRect; ASurface: TBGRAThemeSurface;
   AImageIndex: Integer; AImageList: TBGRASVGImageList);

bgrathemebutton.pas

@@ -25,6 +25,8 @@ type
     procedure SetState(AValue: TBGRAThemeButtonState);
     procedure TimerHoverElapse(Sender: TObject);
   protected
+    procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
+      WithThemeSpace: Boolean); override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     class function GetControlClassDefaultSize: TSize; override;
     procedure MouseEnter; override;
@@ -42,6 +44,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property Action;
     property ModalResult: TModalResult
       read FModalResult write FModalResult default mrNone;
     property Align;
@@ -53,6 +56,10 @@ type
     property ImageList: TBGRASVGImageList read FImageList write SetImageList;
     property ImageIndex: integer read FImageIndex write SetImageIndex;
     property OnClick;
+    property OnMouseDown;
+    property OnMouseUp;
+    property OnMouseEnter;
+    property OnMouseLeave;
   end;
 
 procedure Register;
@@ -98,6 +105,24 @@ begin
   UpdateHoverState;
 end;
 
+procedure TBGRAThemeButton.CalculatePreferredSize(var PreferredWidth,
+  PreferredHeight: integer; WithThemeSpace: Boolean);
+begin
+  inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
+    WithThemeSpace);
+
+  if AutoSize then
+  begin
+    PreferredWidth := Canvas.TextWidth(Caption) + Theme.PreferredButtonWidth(Assigned(FImageList));
+    PreferredHeight := Canvas.TextHeight(Caption) + Theme.PreferredButtonHeight(Assigned(FImageList));
+    if Assigned(FImageList) then
+    begin
+      PreferredWidth := PreferredWidth + FImageList.Width;
+      PreferredHeight := PreferredHeight + FImageList.Height;
+    end;
+  end;
+end;
+
 procedure TBGRAThemeButton.Notification(AComponent: TComponent;
   Operation: TOperation);
 begin

bgrathemecheckbox.pas

@@ -7,7 +7,7 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
-  BGRATheme, Types;
+  BGRATheme, Types, LMessages, LCLType;
 
 type
 
@@ -20,6 +20,11 @@ type
     FState: TBGRAThemeButtonState;
     procedure SetChecked(AValue: boolean);
   protected
+    procedure KeyDown(var Key: word; Shift: TShiftState); override;
+    procedure KeyUp(var Key: word; Shift: TShiftState); override;
+    procedure WMSetFocus(var Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF}); message {$IFDEF FPC}LM_SETFOCUS{$ELSE}WM_SETFOCUS{$ENDIF};
+    procedure WMKillFocus(var Message: {$IFDEF FPC}TLMKillFocus{$ELSE}TWMKillFocus{$ENDIF}); message {$IFDEF FPC}LM_KILLFOCUS{$ELSE}WM_KILLFOCUS{$ENDIF};
+    procedure UpdateFocus(AFocused: boolean);
     class function GetControlClassDefaultSize: TSize; override;
     procedure MouseEnter; override;
     procedure MouseLeave; override;
@@ -42,6 +47,8 @@ type
     property Font;
     property Enabled;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property TabStop;
+    property TabOrder;
   end;
 
 procedure Register;
@@ -66,6 +73,58 @@ begin
   if Assigned(FOnChange) then FOnChange(Self);
 end;
 
+procedure TBGRAThemeCheckBox.KeyDown(var Key: word; Shift: TShiftState);
+begin
+  inherited KeyDown(Key, Shift);
+
+  if (Key = VK_SPACE) or (Key = VK_RETURN) then
+    MouseDown(mbLeft, [], 0, 0);
+end;
+
+procedure TBGRAThemeCheckBox.KeyUp(var Key: word; Shift: TShiftState);
+begin
+  if (Key = VK_SPACE) or (Key = VK_RETURN) then
+  begin
+    MouseUp(mbLeft, [], 0, 0);
+    MouseLeave;
+  end;
+
+  inherited KeyUp(Key, Shift);
+end;
+
+procedure TBGRAThemeCheckBox.WMSetFocus(var Message: TLMSetFocus);
+begin
+  inherited;
+
+  UpdateFocus(True);
+end;
+
+procedure TBGRAThemeCheckBox.WMKillFocus(var Message: TLMKillFocus);
+begin
+  inherited;
+
+  if Message.FocusedWnd <> Handle then
+    UpdateFocus(False);
+end;
+
+procedure TBGRAThemeCheckBox.UpdateFocus(AFocused: boolean);
+var
+  lForm: TCustomForm;
+begin
+  lForm := GetParentForm(Self);
+  if lForm = nil then
+    exit;
+
+  {$IFDEF FPC}//#
+  if AFocused then
+    ActiveDefaultControlChanged(lForm.ActiveControl)
+  else
+    ActiveDefaultControlChanged(nil);
+  {$ENDIF}
+
+  Invalidate;
+end;
+
 class function TBGRAThemeCheckBox.GetControlClassDefaultSize: TSize;
 begin
   Result.CX := 165;
@@ -155,7 +214,7 @@ begin
   inherited Create(AOwner);
   FState := btbsNormal;
 
-  ControlStyle := ControlStyle + [csParentBackground];
+  ControlStyle := ControlStyle + [csParentBackground, csAcceptsControls];
 
   with GetControlClassDefaultSize do
     SetInitialBounds(0, 0, CX, CY);