PascalCase unit names, duplicate units, register keyboard

atshapelinebgra.pas

@@ -19,7 +19,7 @@ For BGRAControls by: Lainz
 
 Lazarus: 1.6+}
 
-unit atshapelinebgra;
+unit ATShapeLineBGRA;
 
 interface
 

bcfilters.pas

@@ -12,7 +12,7 @@
   (Compatibility with delphi VCL 11/2018)
 
 ***************************** END CONTRIBUTOR(S) *****************************}
-unit bcfilters;
+unit BCFilters;
 
 {
 // all pixels //

bcreg.pas

@@ -1,57 +0,0 @@
-// SPDX-License-Identifier: LGPL-3.0-linking-exception
-{******************************* CONTRIBUTOR(S) ******************************
-- Edivando S. Santos Brasil | [email protected]
-  (Compatibility with delphi VCL 11/2018)
-
-***************************** END CONTRIBUTOR(S) *****************************}
-unit bcReg;
-
-{$I bgracontrols.inc}
-
-interface
-
-uses
-  Classes, SysUtils, BCBaseCtrls,
-  BCButton, BCButtonFocus, BCEffect, bcfilters, BCGameGrid, BCImageButton,
-  BCLabel, BCListBox, BCMaterialDesignButton, BCPanel, BCRadialProgressBar,
-  BCRTTI, BCSamples, BCStylesForm, BCSVGButton, BCSVGViewer, BCToolBar,
-  BCTrackbarUpdown, BGRAFlashProgressBar, BGRAGraphicControl,
-  BGRAImageList, BGRAImageManipulation, BGRAKnob, BGRAResizeSpeedButton,
-  BGRAShape, BGRASpeedButton, BGRASpriteAnimation, BGRAVirtualScreen,
-  ColorSpeedButton, DTAnalogClock, DTAnalogGauge, dtthemedclock,
-  dtthemedgauge, MaterialColors, bcmdbutton, bcmdbuttonfocus, BCFluentProgressRing,
-  BCFluentSlider;
-
-procedure Register;
-
-implementation
-
-procedure Register;
-begin
-  {$R images\bgracontrols_images.res}
-
-  RegisterNoIcon([TBCCustomControl]);
-//  RegisterComponents('BGRA Custom Drawn', [TBCDButton, TBCDEdit,
-//    TBCDStaticText, TBCDProgressBar, TBCDSpinEdit, TBCDCheckBox, TBCDRadioButton, TBCDPanel]);
-
-  RegisterComponents('BGRA Controls', [TBGRAShape, TBCListBox, TBCPaperPanel, TBCPaperListBox,
-  TBCButton, TBCButtonFocus, TDTThemedGauge, TBCLabel, TBCImageButton, TBCXButton, TBCGameGrid,
-  TDTThemedClock, TDTAnalogGauge, TDTAnalogClock, TColorSpeedButton,
-  TBGRAVirtualScreen, TBGRASpriteAnimation, TBGRASpeedButton, TBGRAResizeSpeedButton,
-  TBGRAKnob, TBGRAImageManipulation, TBGRAImageList, TBGRAGraphicControl, TBGRAFlashProgressBar,
-  TBCTrackbarUpdown, TBCToolBar, TBCSVGViewer, TBCSVGButton, TBCRadialProgressBar,
-  TBCPanel,TBCMDButtonFocus, TBCMDButton, TBCMaterialDesignButton,
-  TBCFluentProgressRing, TBCFluentSlider
-  {TBCDefaultThemeManager, TBCKeyboard, TBCNumericKeyboard, TBCRealNumericKeyboard}]);
-
-
-{$IFDEF FPC}
-   RegisterPropertyEditor(TypeInfo(TBCListBox),TBCPaperListBox, 'ListBox', TClassPropertyEditor);
-   RegisterPropertyEditor(TypeInfo(integer), TBCButton,'ImageIndex', TBCButtonImageIndexPropertyEditor);
-   RegisterPropertyEditor(TypeInfo(integer), TBCButtonFocus,'ImageIndex', TBCButtonImageIndexPropertyEditor);
-   RegisterPropertyEditor(TypeInfo(TBCListBox), TBCPaperListBox, 'ListBox', TClassPropertyEditor);
-{$ENDIF}
-end;
-
-end.
-

bgracontrols.lpk

@@ -38,16 +38,14 @@
       <Item1>
         <Filename Value="atshapelinebgra.pas"/>
         <HasRegisterProc Value="True"/>
-        <UnitName Value="atshapelinebgra"/>
+        <UnitName Value="ATShapeLineBGRA"/>
       </Item1>
       <Item2>
         <Filename Value="bcbasectrls.pas"/>
-        <AddToUsesPkgSection Value="False"/>
         <UnitName Value="BCBaseCtrls"/>
       </Item2>
       <Item3>
         <Filename Value="bcbrightandcontrast.pas"/>
-        <AddToUsesPkgSection Value="False"/>
         <UnitName Value="BCBrightAndContrast"/>
       </Item3>
       <Item4>
@@ -72,6 +70,7 @@
       </Item7>
       <Item8>
         <Filename Value="bcdefaultthememanager.pas"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="BCDefaultThemeManager"/>
       </Item8>
       <Item9>
@@ -85,7 +84,7 @@
       </Item10>
       <Item11>
         <Filename Value="bcfilters.pas"/>
-        <UnitName Value="bcfilters"/>
+        <UnitName Value="BCFilters"/>
       </Item11>
       <Item12>
         <Filename Value="bcfluentprogressring.pas"/>
@@ -114,6 +113,7 @@
       </Item16>
       <Item17>
         <Filename Value="bckeyboard.pas"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="BCKeyboard"/>
       </Item17>
       <Item18>
@@ -167,7 +167,7 @@
       </Item27>
       <Item28>
         <Filename Value="bcnumerickeyboard.pas"/>
-        <AddToUsesPkgSection Value="False"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="BCNumericKeyboard"/>
       </Item28>
       <Item29>
@@ -209,7 +209,6 @@
       </Item36>
       <Item37>
         <Filename Value="bcthememanager.pas"/>
-        <AddToUsesPkgSection Value="False"/>
         <UnitName Value="BCThemeManager"/>
       </Item37>
       <Item38>
@@ -219,7 +218,6 @@
       </Item38>
       <Item39>
         <Filename Value="bctools.pas"/>
-        <AddToUsesPkgSection Value="False"/>
         <UnitName Value="BCTools"/>
       </Item39>
       <Item40>
@@ -229,7 +227,6 @@
       </Item40>
       <Item41>
         <Filename Value="bctypes.pas"/>
-        <AddToUsesPkgSection Value="False"/>
         <UnitName Value="BCTypes"/>
       </Item41>
       <Item42>
@@ -239,7 +236,7 @@
       </Item42>
       <Item43>
         <Filename Value="bgracontrolsinfo.pas"/>
-        <UnitName Value="bgracontrolsinfo"/>
+        <UnitName Value="BGRAControlsInfo"/>
       </Item43>
       <Item44>
         <Filename Value="bgracustomdrawn.pas"/>
@@ -355,12 +352,12 @@
       <Item66>
         <Filename Value="dtthemedclock.pas"/>
         <HasRegisterProc Value="True"/>
-        <UnitName Value="dtthemedclock"/>
+        <UnitName Value="DTThemedClock"/>
       </Item66>
       <Item67>
         <Filename Value="dtthemedgauge.pas"/>
         <HasRegisterProc Value="True"/>
-        <UnitName Value="dtthemedgauge"/>
+        <UnitName Value="DTThemedGauge"/>
       </Item67>
       <Item68>
         <Filename Value="materialcolors.pas"/>
@@ -418,11 +415,11 @@
       <Item79>
         <Filename Value="supergauge.pas"/>
         <HasRegisterProc Value="True"/>
-        <UnitName Value="supergauge"/>
+        <UnitName Value="SuperGauge"/>
       </Item79>
       <Item80>
         <Filename Value="supergaugecommon.pas"/>
-        <UnitName Value="supergaugecommon"/>
+        <UnitName Value="SuperGaugeCommon"/>
       </Item80>
       <Item81>
         <Filename Value="bgradialogs.pas"/>
@@ -436,11 +433,11 @@
       <Item83>
         <Filename Value="superspinner.pas"/>
         <HasRegisterProc Value="True"/>
-        <UnitName Value="superspinner"/>
+        <UnitName Value="SuperSpinner"/>
       </Item83>
       <Item84>
         <Filename Value="superspinnercommon.pas"/>
-        <UnitName Value="superspinnercommon"/>
+        <UnitName Value="SuperSpinnerCommon"/>
       </Item84>
     </Files>
     <CompatibilityMode Value="True"/>

bgracontrols.pas

@@ -8,41 +8,44 @@ unit bgracontrols;
 interface
 
 uses
-  atshapelinebgra, BCButton, BCButtonFocus, BCCheckComboBox, BCComboBox, 
-  BCDefaultThemeManager, BCEffect, BCExpandPanels, bcfilters, 
-  BCFluentProgressRing, BCFluentSlider, BCGameGrid, BCGradientButton, 
-  BCImageButton, BCKeyboard, BCLabel, BCListBox, BCListBoxEx, 
-  BCMaterialDesignButton, BCMaterialEdit, BCMaterialFloatSpinEdit, 
-  BCMaterialProgressBarMarquee, BCMaterialSpinEdit, BCMDButton, 
-  BCMDButtonFocus, BCPanel, BCRadialProgressBar, BCRoundedImage, BCRTTI, 
-  BCSamples, BCStylesForm, BCSVGButton, BCSVGViewer, BCToolBar, 
-  BCTrackbarUpdown, BGRAColorTheme, bgracontrolsinfo, BGRACustomDrawn, 
-  BGRAFlashProgressBar, BGRAGraphicControl, BGRAImageList, 
+  ATShapeLineBGRA, BCBaseCtrls, BCBrightAndContrast, BCButton, BCButtonFocus, 
+  BCCheckComboBox, BCComboBox, BCDefaultThemeManager, BCEffect, 
+  BCExpandPanels, BCFilters, BCFluentProgressRing, BCFluentSlider, BCGameGrid, 
+  BCGradientButton, BCImageButton, BCKeyboard, BCLabel, BCListBox, 
+  BCListBoxEx, BCMaterialDesignButton, BCMaterialEdit, 
+  BCMaterialFloatSpinEdit, BCMaterialProgressBarMarquee, BCMaterialSpinEdit, 
+  BCMDButton, BCMDButtonFocus, BCNumericKeyboard, BCPanel, 
+  BCRadialProgressBar, BCRoundedImage, BCRTTI, BCSamples, BCStylesForm, 
+  BCSVGButton, BCSVGViewer, BCThemeManager, BCToolBar, BCTools, 
+  BCTrackbarUpdown, BCTypes, BGRAColorTheme, BGRAControlsInfo, 
+  BGRACustomDrawn, BGRAFlashProgressBar, BGRAGraphicControl, BGRAImageList, 
   BGRAImageManipulation, BGRAImageTheme, BGRAKnob, BGRAResizeSpeedButton, 
   BGRAShape, BGRASpeedButton, BGRASpriteAnimation, BGRASVGImageList, 
   BGRASVGTheme, BGRATheme, BGRAThemeButton, BGRAThemeCheckBox, 
   BGRAThemeRadioButton, BGRAVirtualScreen, ColorSpeedButton, DTAnalogClock, 
-  DTAnalogCommon, DTAnalogGauge, dtthemedclock, dtthemedgauge, MaterialColors, 
+  DTAnalogCommon, DTAnalogGauge, DTThemedClock, DTThemedGauge, MaterialColors, 
   bgrasvgimagelistform, BCLeaLCDDisplay, BCLeaLED, BCLeaQLED, BCLeaRingSlider, 
   BCLeaSelector, BCLeaTheme, BCLeaLCDDisplay_EditorRegister, BCLeaBoard, 
-  BCLeaEngrave, supergauge, supergaugecommon, BGRADialogs, BGRAFormatUI, 
-  superspinner, superspinnercommon, LazarusPackageIntf;
+  BCLeaEngrave, SuperGauge, SuperGaugeCommon, BGRADialogs, BGRAFormatUI, 
+  SuperSpinner, SuperSpinnerCommon, LazarusPackageIntf;
 
 implementation
 
 procedure Register;
 begin
-  RegisterUnit('atshapelinebgra', @atshapelinebgra.Register);
+  RegisterUnit('ATShapeLineBGRA', @ATShapeLineBGRA.Register);
   RegisterUnit('BCButton', @BCButton.Register);
   RegisterUnit('BCButtonFocus', @BCButtonFocus.Register);
   RegisterUnit('BCCheckComboBox', @BCCheckComboBox.Register);
   RegisterUnit('BCComboBox', @BCComboBox.Register);
+  RegisterUnit('BCDefaultThemeManager', @BCDefaultThemeManager.Register);
   RegisterUnit('BCExpandPanels', @BCExpandPanels.Register);
   RegisterUnit('BCFluentProgressRing', @BCFluentProgressRing.Register);
   RegisterUnit('BCFluentSlider', @BCFluentSlider.Register);
   RegisterUnit('BCGameGrid', @BCGameGrid.Register);
   RegisterUnit('BCGradientButton', @BCGradientButton.Register);
   RegisterUnit('BCImageButton', @BCImageButton.Register);
+  RegisterUnit('BCKeyboard', @BCKeyboard.Register);
   RegisterUnit('BCLabel', @BCLabel.Register);
   RegisterUnit('BCListBox', @BCListBox.Register);
   RegisterUnit('BCMaterialDesignButton', @BCMaterialDesignButton.Register);
@@ -53,6 +56,7 @@ begin
   RegisterUnit('BCMaterialSpinEdit', @BCMaterialSpinEdit.Register);
   RegisterUnit('BCMDButton', @BCMDButton.Register);
   RegisterUnit('BCMDButtonFocus', @BCMDButtonFocus.Register);
+  RegisterUnit('BCNumericKeyboard', @BCNumericKeyboard.Register);
   RegisterUnit('BCPanel', @BCPanel.Register);
   RegisterUnit('BCRadialProgressBar', @BCRadialProgressBar.Register);
   RegisterUnit('BCRoundedImage', @BCRoundedImage.Register);
@@ -82,8 +86,8 @@ begin
   RegisterUnit('ColorSpeedButton', @ColorSpeedButton.Register);
   RegisterUnit('DTAnalogClock', @DTAnalogClock.Register);
   RegisterUnit('DTAnalogGauge', @DTAnalogGauge.Register);
-  RegisterUnit('dtthemedclock', @dtthemedclock.Register);
-  RegisterUnit('dtthemedgauge', @dtthemedgauge.Register);
+  RegisterUnit('DTThemedClock', @DTThemedClock.Register);
+  RegisterUnit('DTThemedGauge', @DTThemedGauge.Register);
   RegisterUnit('BCLeaLCDDisplay', @BCLeaLCDDisplay.Register);
   RegisterUnit('BCLeaLED', @BCLeaLED.Register);
   RegisterUnit('BCLeaQLED', @BCLeaQLED.Register);
@@ -94,9 +98,9 @@ begin
     @BCLeaLCDDisplay_EditorRegister.Register);
   RegisterUnit('BCLeaBoard', @BCLeaBoard.Register);
   RegisterUnit('BCLeaEngrave', @BCLeaEngrave.Register);
-  RegisterUnit('supergauge', @supergauge.Register);
+  RegisterUnit('SuperGauge', @SuperGauge.Register);
   RegisterUnit('BGRADialogs', @BGRADialogs.Register);
-  RegisterUnit('superspinner', @superspinner.Register);
+  RegisterUnit('SuperSpinner', @SuperSpinner.Register);
 end;
 
 initialization

bgracontrolsinfo.pas

@@ -1,5 +1,5 @@
 // SPDX-License-Identifier: LGPL-3.0-linking-exception
-unit bgracontrolsinfo;
+unit BGRAControlsInfo;
 
 {$mode objfpc}{$H+}
 

dtthemedclock.pas

@@ -12,7 +12,7 @@
   (Compatibility with delphi VCL 11/2018)
 
 ***************************** END CONTRIBUTOR(S) *****************************}
-unit dtthemedclock;
+unit DTThemedClock;
 
 {$I bgracontrols.inc}
 

dtthemedgauge.pas

@@ -13,7 +13,7 @@
   (Compatibility with delphi VCL 11/2018)
 
 ***************************** END CONTRIBUTOR(S) *****************************}
-unit dtthemedgauge;
+unit DTThemedGauge;
 
 {$I bgracontrols.inc}
 

dtthemedgauge.pp

@@ -1,249 +0,0 @@
-// SPDX-License-Identifier: LGPL-3.0-linking-exception
-{
-  Part of BGRA Controls. Made by third party.
-  For detailed information see readme.txt
-
-  Site: https://sourceforge.net/p/bgra-controls/
-  Wiki: http://wiki.lazarus.freepascal.org/BGRAControls
-  Forum: http://forum.lazarus.freepascal.org/index.php/board,46.0.html
-}
-
-unit dtthemedgauge;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DTAnalogCommon,
-  BGRABitmap, BGRABitmapTypes;
-
-type
-
-  { TDTCustomThemedGauge }
-
-  TDTCustomThemedGauge = class(TDTBaseAnalogDevice)
-  private
-    FPointerCapSettings: TDTPointerCapSettings;
-    FPointerSettings: TDTPointerSettings;
-    FScaleBitmap: TBGRABitmap;
-    FPointerBitmap: TBGRABitmap;
-    FPosition: integer;
-    procedure SetPointerCapSettings(AValue: TDTPointerCapSettings);
-    procedure SetPointerSettings(AValue: TDTPointerSettings);
-    procedure SetPosition(AValue: integer);
-    { Private declarations }
-  protected
-    { Protected declarations }
-    property PointerSettings: TDTPointerSettings read FPointerSettings write SetPointerSettings;
-    property PointerCapSettings: TDTPointerCapSettings read FPointerCapSettings write SetPointerCapSettings;
-    property Position: integer read FPosition write SetPosition;
-  public
-    { Public declarations }
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
-    procedure Paint; override;
-    procedure DrawScale;
-    procedure DrawPointer;
-  end;
-
-  { TDTThemedGauge }
-
-  TDTThemedGauge = class(TDTCustomThemedGauge)
-  private
-    { Private declarations }
-  protected
-    { Protected declarations }
-  public
-    { Public declarations }
-  published
-    { Published declarations }
-    property FaceSettings;
-    property ScaleSettings;
-    property PointerSettings;
-    property PointerCapSettings;
-    property Position;
-  end;
-
-procedure Register;
-
-implementation
-
-procedure Register;
-begin
-  //{$I icons\dtthemedgauge_icon.lrs}
-  RegisterComponents('BGRA Controls', [TDTThemedGauge]);
-end;
-
-{ TDTCustomThemedGauge }
-
-//procedure TDTCustomThemedGauge.SetNeedleSettings(AValue: TDTNeedleSettings);
-//begin
-//  if FNeedleSettings = AValue then
-//    Exit;
-//  FNeedleSettings := AValue;
-//
-//  DoChange(self);
-//end;
-//
-procedure TDTCustomThemedGauge.SetPointerCapSettings(AValue: TDTPointerCapSettings);
-begin
-  if FPointerCapSettings = AValue then
-    Exit;
-  FPointerCapSettings := AValue;
-
-  DoChange(self);
-end;
-
-procedure TDTCustomThemedGauge.SetPointerSettings(AValue: TDTPointerSettings);
-begin
-  if FPointerSettings = AValue then
-    Exit;
-  FPointerSettings := AValue;
-
-  DoChange(self);
-end;
-
-
-procedure TDTCustomThemedGauge.SetPosition(AValue: integer);
-begin
-  if FPosition = AValue then
-    Exit;
-  FPosition := AValue;
-
-  DoChange(self);
-end;
-
-constructor TDTCustomThemedGauge.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-
-  FPointerSettings := TDTPointerSettings.Create;
-  FPointerSettings.OnChange := @DoChange;
-  FPointerSettings.Color := BGRA(255, 81, 81);
-
-  FPointerCapSettings := TDTPointerCapSettings.Create;
-  FPointerCapSettings.OnChange := @DoChange;
-
-  FScaleBitmap := TBGRABitmap.Create;
-  FPointerBitmap := TBGRABitmap.Create;
-
-end;
-
-destructor TDTCustomThemedGauge.Destroy;
-begin
-  FPointerCapSettings.OnChange:=nil;
-  FPointerCapSettings.Free;
-  FPointerSettings.OnChange:=nil;
-  FPointerSettings.Free;
-
-  FScaleBitmap.Free;
-  FPointerBitmap.Free;
-  inherited Destroy;
-end;
-
-procedure TDTCustomThemedGauge.Paint;
-begin
-  inherited Paint;
-  DrawScale;
-  DrawPointer;
-
-  FGaugeBitmap.BlendImage(0, 0, FScaleBitmap, boLinearBlend);
-  FGaugeBitmap.BlendImage(0, 0, FPointerBitmap, boLinearBlend);
-
-  FGaugeBitmap.Draw(Canvas, 0, 0, False);
-
-end;
-
-procedure TDTCustomThemedGauge.DrawScale;
-var
-  Origin: TDTOrigin;
-  r, i, n, x, y, xt, yt: integer;
-  j: single;
-begin
-
-  Origin := Initializebitmap(FScaleBitmap, Width, Height);
-
-  r := round(Origin.Radius * 0.85);
-
-  //j := (180 - ScaleSettings.Angle) / 2;
-  j := (180 - 270) / 2;
-
-  // Draw SubTicks
-  if ScaleSettings.EnableSubTicks then
-  begin
-
-    n := ScaleSettings.MainTickCount * ScaleSettings.SubTickCount;
-
-    for i := 0 to n do
-    begin
-      // Calculate draw from point
-      X := Origin.CenterPoint.x - Round(r * cos((j + i * 270 / n) * Pi / 180));
-      Y := Origin.CenterPoint.y - Round(r * sin((j + i * 270 / n) * Pi / 180));
-
-      // Calculate draw to point
-      Xt := Origin.CenterPoint.x - Round((r - ScaleSettings.LengthSubTick) * cos((j + i * 270 / n) * Pi / 180));
-      Yt := Origin.CenterPoint.y - Round((r - ScaleSettings.LengthSubTick) * sin((j + i * 270 / n) * Pi / 180));
-
-      FScaleBitmap.DrawLineAntialias(x, y, xt, yt, ScaleSettings.TickColor, ScaleSettings.ThicknessSubTick);
-
-    end;
-  end;
-
-  if ScaleSettings.EnableMainTicks then
-  begin
-
-    FScaleBitmap.FontName := ScaleSettings.TextFont;
-    FScaleBitmap.FontHeight := ScaleSettings.TextSize;
-    FScaleBitmap.FontQuality := fqFineAntialiasing;
-
-    n := ScaleSettings.MainTickCount;
-
-    for i := 0 to n do
-    begin
-      // Draw main ticks
-      // Calculate draw from point
-      X := Origin.CenterPoint.x - Round(r * cos((j + i * 270 / n) * Pi / 180));
-      Y := Origin.CenterPoint.y - Round(r * sin((j + i * 270 / n) * Pi / 180));
-
-      // Calculate draw to point
-      Xt := Origin.CenterPoint.x - Round((r - ScaleSettings.LengthMainTick) * cos((j + i * 270 / n) * Pi / 180));
-      Yt := Origin.CenterPoint.y - Round((r - ScaleSettings.LengthMainTick) * sin((j + i * 270 / n) * Pi / 180));
-
-      FScaleBitmap.DrawLineAntialias(x, y, xt, yt, ScaleSettings.TickColor, ScaleSettings.ThicknessMainTick);
-
-      if ScaleSettings.EnableScaleText then
-      begin
-        // Draw text for main ticks
-        Xt := Origin.CenterPoint.x - Round(ScaleSettings.TextRadius * cos((j + i * 270 / n) * Pi / 180));
-        Yt := Origin.CenterPoint.y - Round(ScaleSettings.TextRadius * sin((j + i * 270 / n) * Pi / 180));
-
-        FScaleBitmap.TextOut(Xt, Yt - (FScaleBitmap.FontHeight / 1.7), IntToStr(i * ScaleSettings.Maximum div ScaleSettings.MainTickCount), ScaleSettings.TextColor, taCenter);
-      end;
-    end;
-  end;
-end;
-
-procedure TDTCustomThemedGauge.DrawPointer;
-var
-  Origin: TDTOrigin;
-  {%H-}r, x, y: integer;
-  j: single;
-begin
-
-  Origin := Initializebitmap(FPointerBitmap, Width, Height);
-
-  r := round(Origin.Radius * 0.85);
-
-  j := (180 - 270) / 2;
-
-  X := origin.CenterPoint.x - Round(PointerSettings.Length * cos((j + Position * 270 / ScaleSettings.Maximum) * Pi / 180));
-  Y := origin.CenterPoint.y - Round(PointerSettings.Length * sin((j + Position * 270 / ScaleSettings.Maximum) * Pi / 180));
-
-  FPointerBitmap.DrawLineAntialias(origin.CenterPoint.y, origin.CenterPoint.y, x, y, PointerSettings.Color, PointerSettings.Thickness);
-
-  // Draw cap over needle
-  FPointerBitmap.EllipseAntialias(origin.CenterPoint.x, origin.CenterPoint.y, PointerCapSettings.Radius, PointerCapSettings.Radius, PointerCapSettings.EdgeColor, 2, ColorToBGRA(PointerCapSettings.FillColor));
-end;
-
-end.

supergauge.pas

@@ -17,7 +17,7 @@
   Needed to split off as changes broke compatibility badly
 
 ***************************** END CONTRIBUTOR(S) *****************************}
-unit supergauge;
+unit SuperGauge;
 
 {$I bgracontrols.inc}
 

supergaugecommon.pas

@@ -17,7 +17,7 @@
   Needed to split off as changes broke compatibility badly
 
 ***************************** END CONTRIBUTOR(S) *****************************}
-unit supergaugecommon;
+unit SuperGaugeCommon;
 
 {$I bgracontrols.inc}
 

superspinner.pas

@@ -26,7 +26,7 @@
                to be more similar to SuperGauge.
 ***************************** END CONTRIBUTOR(S) *****************************}
 
-unit superspinner;
+unit SuperSpinner;
 
 {$I bgracontrols.inc}
 

superspinnercommon.pas

@@ -13,7 +13,7 @@
   Evolved from BGRAKnob and SuperGauge, changed style to be more inline with
   SuperGauge settings and related. Mostly support classes
 ***************************** END CONTRIBUTOR(S) *****************************}
-unit superspinnercommon;
+unit SuperSpinnerCommon;
 
 {$I bgracontrols.inc}
 

test/test_analog_controls/umain.pas

@@ -9,7 +9,7 @@ uses
   ComCtrls, ExtCtrls,
 
   // DT Controls
-  dtthemedgauge, dtthemedclock, DTAnalogClock, DTAnalogGauge;
+  DTThemedGauge, DTThemedClock, DTAnalogClock, DTAnalogGauge;
 
 type
 

test/test_superspinner/sstest.pas

@@ -6,8 +6,8 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  ExtCtrls, Menus, Buttons, superspinner, ColorBox,
-  SpinEx, ueLED, BGRAImageList, BCTrackbarUpdown, superspinnercommon, about, Types;
+  ExtCtrls, Menus, Buttons, SuperSpinner, ColorBox,
+  SpinEx, ueLED, BGRAImageList, BCTrackbarUpdown, SuperSpinnerCommon, about, Types;
 
 const
   VERSIONSTR = '1.00';            // SG TEST version, Should ALWAYS show as a delta when merging!