Explorar el Código

Updated test BGRA Ribbon Custom

lainz hace 9 años
padre
commit
c67c9d8631

+ 55 - 56
bgracontrols.pas

@@ -1,56 +1,55 @@
-{ This file was automatically created by Lazarus. Do not edit!
-  This source is only used to compile and install the package.
- }
-
-unit bgracontrols;
-
-{$warn 5023 off : no warning about unused units}
-interface
-
-uses
-  BCBaseCtrls, BCButton, BCButtonFocus, BCEffect, bcfilters, BCGameGrid, 
-  BCImageButton, BCLabel, BCMaterialDesignButton, BCPanel, 
-  BCRadialProgressBar, BCRTTI, BCStylesForm, BCToolBar, BCTools, 
-  BCTrackbarUpdown, BGRACustomDrawn, BGRAFlashProgressBar, BGRAGraphicControl, 
-  BGRAImageList, BGRAImageManipulation, BGRAKnob, BGRAPascalScript, 
-  BGRAResizeSpeedButton, BGRAScript, BGRAShape, BGRASpeedButton, 
-  BGRASpriteAnimation, BGRAVirtualScreen, DTAnalogClock, DTAnalogCommon, 
-  DTAnalogGauge, dtthemedclock, dtthemedgauge, uPSI_BGRAPascalScript, 
-  BCNumericKeyboard, MouseAndKeyInput, LazarusPackageIntf;
-
-implementation
-
-procedure Register;
-begin
-  RegisterUnit('BCButton', @BCButton.Register);
-  RegisterUnit('BCButtonFocus', @BCButtonFocus.Register);
-  RegisterUnit('BCGameGrid', @BCGameGrid.Register);
-  RegisterUnit('BCImageButton', @BCImageButton.Register);
-  RegisterUnit('BCLabel', @BCLabel.Register);
-  RegisterUnit('BCMaterialDesignButton', @BCMaterialDesignButton.Register);
-  RegisterUnit('BCPanel', @BCPanel.Register);
-  RegisterUnit('BCRadialProgressBar', @BCRadialProgressBar.Register);
-  RegisterUnit('BCToolBar', @BCToolBar.Register);
-  RegisterUnit('BCTrackbarUpdown', @BCTrackbarUpdown.Register);
-  RegisterUnit('BGRACustomDrawn', @BGRACustomDrawn.Register);
-  RegisterUnit('BGRAFlashProgressBar', @BGRAFlashProgressBar.Register);
-  RegisterUnit('BGRAGraphicControl', @BGRAGraphicControl.Register);
-  RegisterUnit('BGRAImageList', @BGRAImageList.Register);
-  RegisterUnit('BGRAImageManipulation', @BGRAImageManipulation.Register);
-  RegisterUnit('BGRAKnob', @BGRAKnob.Register);
-  RegisterUnit('BGRAResizeSpeedButton', @BGRAResizeSpeedButton.Register);
-  RegisterUnit('BGRAShape', @BGRAShape.Register);
-  RegisterUnit('BGRASpeedButton', @BGRASpeedButton.Register);
-  RegisterUnit('BGRASpriteAnimation', @BGRASpriteAnimation.Register);
-  RegisterUnit('BGRAVirtualScreen', @BGRAVirtualScreen.Register);
-  RegisterUnit('DTAnalogClock', @DTAnalogClock.Register);
-  RegisterUnit('DTAnalogGauge', @DTAnalogGauge.Register);
-  RegisterUnit('dtthemedclock', @dtthemedclock.Register);
-  RegisterUnit('dtthemedgauge', @dtthemedgauge.Register);
-  RegisterUnit('uPSI_BGRAPascalScript', @uPSI_BGRAPascalScript.Register);
-  RegisterUnit('BCNumericKeyboard', @BCNumericKeyboard.Register);
-end;
-
-initialization
-  RegisterPackage('bgracontrols', @Register);
-end.
+{ This file was automatically created by Lazarus. Do not edit!
+  This source is only used to compile and install the package.
+ }
+
+unit bgracontrols;
+
+interface
+
+uses
+  BCBaseCtrls, BCButton, BCButtonFocus, BCEffect, bcfilters, BCGameGrid, 
+  BCImageButton, BCLabel, BCMaterialDesignButton, BCPanel, 
+  BCRadialProgressBar, BCRTTI, BCStylesForm, BCToolBar, BCTools, 
+  BCTrackbarUpdown, BGRACustomDrawn, BGRAFlashProgressBar, BGRAGraphicControl, 
+  BGRAImageList, BGRAImageManipulation, BGRAKnob, BGRAPascalScript, 
+  BGRAResizeSpeedButton, BGRAScript, BGRAShape, BGRASpeedButton, 
+  BGRASpriteAnimation, BGRAVirtualScreen, DTAnalogClock, DTAnalogCommon, 
+  DTAnalogGauge, dtthemedclock, dtthemedgauge, uPSI_BGRAPascalScript, 
+  BCNumericKeyboard, MouseAndKeyInput, LazarusPackageIntf;
+
+implementation
+
+procedure Register;
+begin
+  RegisterUnit('BCButton', @BCButton.Register);
+  RegisterUnit('BCButtonFocus', @BCButtonFocus.Register);
+  RegisterUnit('BCGameGrid', @BCGameGrid.Register);
+  RegisterUnit('BCImageButton', @BCImageButton.Register);
+  RegisterUnit('BCLabel', @BCLabel.Register);
+  RegisterUnit('BCMaterialDesignButton', @BCMaterialDesignButton.Register);
+  RegisterUnit('BCPanel', @BCPanel.Register);
+  RegisterUnit('BCRadialProgressBar', @BCRadialProgressBar.Register);
+  RegisterUnit('BCToolBar', @BCToolBar.Register);
+  RegisterUnit('BCTrackbarUpdown', @BCTrackbarUpdown.Register);
+  RegisterUnit('BGRACustomDrawn', @BGRACustomDrawn.Register);
+  RegisterUnit('BGRAFlashProgressBar', @BGRAFlashProgressBar.Register);
+  RegisterUnit('BGRAGraphicControl', @BGRAGraphicControl.Register);
+  RegisterUnit('BGRAImageList', @BGRAImageList.Register);
+  RegisterUnit('BGRAImageManipulation', @BGRAImageManipulation.Register);
+  RegisterUnit('BGRAKnob', @BGRAKnob.Register);
+  RegisterUnit('BGRAResizeSpeedButton', @BGRAResizeSpeedButton.Register);
+  RegisterUnit('BGRAShape', @BGRAShape.Register);
+  RegisterUnit('BGRASpeedButton', @BGRASpeedButton.Register);
+  RegisterUnit('BGRASpriteAnimation', @BGRASpriteAnimation.Register);
+  RegisterUnit('BGRAVirtualScreen', @BGRAVirtualScreen.Register);
+  RegisterUnit('DTAnalogClock', @DTAnalogClock.Register);
+  RegisterUnit('DTAnalogGauge', @DTAnalogGauge.Register);
+  RegisterUnit('dtthemedclock', @dtthemedclock.Register);
+  RegisterUnit('dtthemedgauge', @dtthemedgauge.Register);
+  RegisterUnit('uPSI_BGRAPascalScript', @uPSI_BGRAPascalScript.Register);
+  RegisterUnit('BCNumericKeyboard', @BCNumericKeyboard.Register);
+end;
+
+initialization
+  RegisterPackage('bgracontrols', @Register);
+end.

+ 2 - 10
test/BGRA Ribbon Custom/BGRA Ribbon.lpi

@@ -45,7 +45,7 @@
         <PackageName Value="LCL"/>
         <PackageName Value="LCL"/>
       </Item5>
       </Item5>
     </RequiredPackages>
     </RequiredPackages>
-    <Units Count="4">
+    <Units Count="3">
       <Unit0>
       <Unit0>
         <Filename Value="BGRA Ribbon.lpr"/>
         <Filename Value="BGRA Ribbon.lpr"/>
         <IsPartOfProject Value="True"/>
         <IsPartOfProject Value="True"/>
@@ -61,21 +61,13 @@
         <Filename Value="uRibbon.pas"/>
         <Filename Value="uRibbon.pas"/>
         <IsPartOfProject Value="True"/>
         <IsPartOfProject Value="True"/>
       </Unit2>
       </Unit2>
-      <Unit3>
-        <Filename Value="uresize.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="ResizeForm"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="uResize"/>
-      </Unit3>
     </Units>
     </Units>
   </ProjectOptions>
   </ProjectOptions>
   <CompilerOptions>
   <CompilerOptions>
     <Version Value="11"/>
     <Version Value="11"/>
     <PathDelim Value="\"/>
     <PathDelim Value="\"/>
     <Target>
     <Target>
-      <Filename Value="BGRA Ribbon"/>
+      <Filename Value="BGRA_Ribbon"/>
     </Target>
     </Target>
     <SearchPaths>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
       <IncludeFiles Value="$(ProjOutDir)"/>

+ 1 - 3
test/BGRA Ribbon Custom/BGRA Ribbon.lpr

@@ -7,8 +7,7 @@ uses
   cthreads,
   cthreads,
   {$ENDIF}{$ENDIF}
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Interfaces, // this includes the LCL widgetset
-  Forms, uMain, uRibbon, uResize
-  { you can add units after this };
+  Forms, uMain, uRibbon;
 
 
 {$R *.res}
 {$R *.res}
 
 
@@ -16,7 +15,6 @@ begin
   RequireDerivedFormResource := True;
   RequireDerivedFormResource := True;
   Application.Initialize;
   Application.Initialize;
   Application.CreateForm(TfrmMain, frmMain);
   Application.CreateForm(TfrmMain, frmMain);
-  Application.CreateForm(TResizeForm, ResizeForm);
   Application.Run;
   Application.Run;
 end.
 end.
 
 

+ 1 - 0
test/test_bcrealnumerickeyboard/test_bcnumerickeyboard.lpi

@@ -128,6 +128,7 @@
     </SearchPaths>
     </SearchPaths>
     <Linking>
     <Linking>
       <Options>
       <Options>
+        <LinkerOptions Value="\"/>
         <Win32>
         <Win32>
           <GraphicApplication Value="True"/>
           <GraphicApplication Value="True"/>
         </Win32>
         </Win32>