Small typo in bgracustomdrawn.pas

bgrabitmap · Sep 10, 2016 · 2ce553c · 2ce553c
1 parent a2c369c
commit 2ce553c
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/bgracustomdrawn.pas b/bgracustomdrawn.pas
@@ -46,16 +46,15 @@   TBCDRadioButton = class(TCDRadioButton)
   { TBCDPanel }
 
   TBCDPanel = class(TPanel)
-
   private
     FDarkTheme: boolean;
-    procedure SetFDartTheme(AValue: boolean);
+    procedure SetFDarkTheme(AValue: boolean);
   protected
     procedure Paint; override;
   public
     constructor Create(TheOwner: TComponent); override;
   published
-    property DarkTheme: boolean read FDarkTheme write SetFDartTheme default True;
+    property DarkTheme: boolean read FDarkTheme write SetFDarkTheme default True;
   published
     property Align;
     property Alignment;
@@ -179,7 +178,7 @@ procedure Register;
 
 { TBCDPanel }
 
-procedure TBCDPanel.SetFDartTheme(AValue: boolean);
+procedure TBCDPanel.SetFDarkTheme(AValue: boolean);
 begin
   if FDarkTheme = AValue then
     Exit;