Browse Source

Custom Drawn

Leandro Diaz 1 year ago
parent
commit
066f131a1c
2 changed files with 19 additions and 11 deletions
  1. 2 1
      bgracontrols.lpk
  2. 17 10
      bgracontrols.pas

+ 2 - 1
bgracontrols.lpk

@@ -15,8 +15,8 @@
           <SyntaxMode Value="Delphi"/>
           <SyntaxMode Value="Delphi"/>
           <CStyleOperator Value="False"/>
           <CStyleOperator Value="False"/>
           <AllowLabel Value="False"/>
           <AllowLabel Value="False"/>
-          <UseAnsiStrings Value="False"/>
           <CPPInline Value="False"/>
           <CPPInline Value="False"/>
+          <UseAnsiStrings Value="False"/>
         </SyntaxOptions>
         </SyntaxOptions>
       </Parsing>
       </Parsing>
       <CodeGeneration>
       <CodeGeneration>
@@ -235,6 +235,7 @@
       </Item41>
       </Item41>
       <Item42>
       <Item42>
         <Filename Value="bgracustomdrawn.pas"/>
         <Filename Value="bgracustomdrawn.pas"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="BGRACustomDrawn"/>
         <UnitName Value="BGRACustomDrawn"/>
       </Item42>
       </Item42>
       <Item43>
       <Item43>

+ 17 - 10
bgracontrols.pas

@@ -8,15 +8,20 @@ unit bgracontrols;
 interface
 interface
 
 
 uses
 uses
-  atshapelinebgra, BCButton, BCButtonFocus, BCCheckComboBox, BCComboBox, BCEffect, bcfilters, BCFluentProgressRing, 
-  BCGameGrid, BCGradientButton, BCImageButton, BCLabel, BCListBox, BCListBoxEx, BCMaterialDesignButton, 
-  BCMaterialEdit, BCMaterialFloatSpinEdit, BCMaterialProgressBarMarquee, BCMaterialSpinEdit, BCMDButton, 
-  BCMDButtonFocus, BCPanel, BCRadialProgressBar, BCRoundedImage, BCRTTI, BCSamples, BCStylesForm, BCSVGButton, 
-  BCSVGViewer, BCToolBar, BCTrackbarUpdown, BGRAColorTheme, bgracontrolsinfo, BGRACustomDrawn, 
-  BGRADrawerFlashProgressBar, BGRAFlashProgressBar, BGRAGraphicControl, BGRAImageList, BGRAImageManipulation, 
-  BGRAImageTheme, BGRAKnob, BGRAResizeSpeedButton, BGRAShape, BGRASpeedButton, BGRASpriteAnimation, BGRASVGImageList, 
-  BGRASVGTheme, BGRATheme, BGRAThemeButton, BGRAThemeCheckBox, BGRAThemeRadioButton, BGRAVirtualScreen, 
-  ColorSpeedButton, DTAnalogClock, DTAnalogCommon, DTAnalogGauge, dtthemedclock, dtthemedgauge, MaterialColors, 
+  atshapelinebgra, BCButton, BCButtonFocus, BCCheckComboBox, BCComboBox, 
+  BCEffect, bcfilters, BCFluentProgressRing, BCGameGrid, BCGradientButton, 
+  BCImageButton, BCLabel, BCListBox, BCListBoxEx, BCMaterialDesignButton, 
+  BCMaterialEdit, BCMaterialFloatSpinEdit, BCMaterialProgressBarMarquee, 
+  BCMaterialSpinEdit, BCMDButton, BCMDButtonFocus, BCPanel, 
+  BCRadialProgressBar, BCRoundedImage, BCRTTI, BCSamples, BCStylesForm, 
+  BCSVGButton, BCSVGViewer, BCToolBar, BCTrackbarUpdown, BGRAColorTheme, 
+  bgracontrolsinfo, BGRACustomDrawn, BGRADrawerFlashProgressBar, 
+  BGRAFlashProgressBar, BGRAGraphicControl, BGRAImageList, 
+  BGRAImageManipulation, BGRAImageTheme, BGRAKnob, BGRAResizeSpeedButton, 
+  BGRAShape, BGRASpeedButton, BGRASpriteAnimation, BGRASVGImageList, 
+  BGRASVGTheme, BGRATheme, BGRAThemeButton, BGRAThemeCheckBox, 
+  BGRAThemeRadioButton, BGRAVirtualScreen, ColorSpeedButton, DTAnalogClock, 
+  DTAnalogCommon, DTAnalogGauge, dtthemedclock, dtthemedgauge, MaterialColors, 
   bgrasvgimagelistform, BCExpandPanels, LazarusPackageIntf;
   bgrasvgimagelistform, BCExpandPanels, LazarusPackageIntf;
 
 
 implementation
 implementation
@@ -37,7 +42,8 @@ begin
   RegisterUnit('BCMaterialDesignButton', @BCMaterialDesignButton.Register);
   RegisterUnit('BCMaterialDesignButton', @BCMaterialDesignButton.Register);
   RegisterUnit('BCMaterialEdit', @BCMaterialEdit.Register);
   RegisterUnit('BCMaterialEdit', @BCMaterialEdit.Register);
   RegisterUnit('BCMaterialFloatSpinEdit', @BCMaterialFloatSpinEdit.Register);
   RegisterUnit('BCMaterialFloatSpinEdit', @BCMaterialFloatSpinEdit.Register);
-  RegisterUnit('BCMaterialProgressBarMarquee', @BCMaterialProgressBarMarquee.Register);
+  RegisterUnit('BCMaterialProgressBarMarquee', 
+    @BCMaterialProgressBarMarquee.Register);
   RegisterUnit('BCMaterialSpinEdit', @BCMaterialSpinEdit.Register);
   RegisterUnit('BCMaterialSpinEdit', @BCMaterialSpinEdit.Register);
   RegisterUnit('BCMDButton', @BCMDButton.Register);
   RegisterUnit('BCMDButton', @BCMDButton.Register);
   RegisterUnit('BCMDButtonFocus', @BCMDButtonFocus.Register);
   RegisterUnit('BCMDButtonFocus', @BCMDButtonFocus.Register);
@@ -49,6 +55,7 @@ begin
   RegisterUnit('BCToolBar', @BCToolBar.Register);
   RegisterUnit('BCToolBar', @BCToolBar.Register);
   RegisterUnit('BCTrackbarUpdown', @BCTrackbarUpdown.Register);
   RegisterUnit('BCTrackbarUpdown', @BCTrackbarUpdown.Register);
   RegisterUnit('BGRAColorTheme', @BGRAColorTheme.Register);
   RegisterUnit('BGRAColorTheme', @BGRAColorTheme.Register);
+  RegisterUnit('BGRACustomDrawn', @BGRACustomDrawn.Register);
   RegisterUnit('BGRAFlashProgressBar', @BGRAFlashProgressBar.Register);
   RegisterUnit('BGRAFlashProgressBar', @BGRAFlashProgressBar.Register);
   RegisterUnit('BGRAGraphicControl', @BGRAGraphicControl.Register);
   RegisterUnit('BGRAGraphicControl', @BGRAGraphicControl.Register);
   RegisterUnit('BGRAImageList', @BGRAImageList.Register);
   RegisterUnit('BGRAImageList', @BGRAImageList.Register);