Add files via upload

A whole lot of stuff
rohanday3 · May 20, 2021 · 93475f9 · 93475f9
1 parent 3cbb495
commit 93475f9
Show file tree

Hide file tree

Showing 19 changed files with 6,148 additions and 4,758 deletions.
diff --git a/Datamodule.dfm b/Datamodule.dfm
@@ -0,0 +1,53 @@
+object DataModule1: TDataModule1
+  OldCreateOrder = False
+  Height = 316
+  Width = 487
+  object ADOConnection1: TADOConnection
+    Connected = True
+    ConnectionString = 
+      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\DELL\Docum' +
+      'ents\IT PAT 2021\Database1.mdb;Persist Security Info=False'
+    LoginPrompt = False
+    Mode = cmShareDenyNone
+    Provider = 'Microsoft.Jet.OLEDB.4.0'
+    Left = 32
+    Top = 16
+  end
+  object tblDonations: TADOTable
+    Connection = ADOConnection1
+    TableName = 'Donations'
+    Left = 112
+    Top = 16
+  end
+  object ADOQuery1: TADOQuery
+    Connection = ADOConnection1
+    Parameters = <>
+    Left = 176
+    Top = 16
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQuery1
+    Left = 248
+    Top = 16
+  end
+  object tblUsers: TADOTable
+    Active = True
+    Connection = ADOConnection1
+    CursorType = ctStatic
+    TableName = 'Users'
+    Left = 64
+    Top = 120
+  end
+  object tblEmployees: TADOTable
+    Connection = ADOConnection1
+    TableName = 'Employees'
+    Left = 304
+    Top = 120
+  end
+  object tblInventory: TADOTable
+    Connection = ADOConnection1
+    TableName = 'Inventory'
+    Left = 224
+    Top = 144
+  end
+end
diff --git a/Datamodule.pas b/Datamodule.pas
@@ -0,0 +1,32 @@
+unit Datamodule;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
+
+type
+  TDataModule1 = class(TDataModule)
+    ADOConnection1: TADOConnection;
+    tblDonations: TADOTable;
+    ADOQuery1: TADOQuery;
+    DataSource1: TDataSource;
+    tblUsers: TADOTable;
+    tblEmployees: TADOTable;
+    tblInventory: TADOTable;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DataModule1: TDataModule1;
+
+implementation
+
+{%CLASSGROUP 'FMX.Controls.TControl'}
+
+{$R *.dfm}
+
+end.
diff --git a/prjPAT2021.dpr b/prjPAT2021.dpr
@@ -3,19 +3,24 @@ program prjPAT2021;
 uses
   System.StartUpCopy,
   FMX.Forms,
-  uMain in 'uMain.pas' {Form1} ,
+  uMain in 'uMain.pas' {Form1},
   uNaviPanel in 'uNaviPanel.pas',
   uDashPanel in 'uDashPanel.pas',
   uDonationPanel in 'uDonationPanel.pas',
-  uLogin in 'uLogin.pas' {Form2};
+  uLogin in 'uLogin.pas' {Form2},
+  Datamodule in 'Datamodule.pas' {DataModule1: TDataModule},
+  uDonationsThread in 'uDonationsThread.pas',
+  uSplashscreen in 'uSplashscreen.pas' {Splashscreen};
 
 {$R *.res}
 
 begin
+  Application.CreateForm(TDataModule1, DataModule1);
   if TForm2.Execute then
   begin
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.Run;
   end;
+
 end.
diff --git a/prjPAT2021.dproj b/prjPAT2021.dproj
@@ -107,12 +107,9 @@
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <AppDPIAwarenessMode>system</AppDPIAwarenessMode>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <Icon_MainIcon>prjPAT2021_Icon1.ico</Icon_MainIcon>
-        <UWP_DelphiLogo44>..\..\Assets\Icons\PlaceholderAppIcon\appicon.png</UWP_DelphiLogo44>
-        <UWP_DelphiLogo150>..\..\Assets\Icons\PlaceholderAppIcon\appicon.png</UWP_DelphiLogo150>
+        <Icon_MainIcon>prjPAT2021_Icon2.ico</Icon_MainIcon>
         <VerInfo_MinorVer>3</VerInfo_MinorVer>
         <VerInfo_Build>2</VerInfo_Build>
         <VerInfo_PreRelease>true</VerInfo_PreRelease>
@@ -152,6 +149,16 @@
             <Form>Form2</Form>
             <FormType>fmx</FormType>
         </DCCReference>
+        <DCCReference Include="Datamodule.pas">
+            <Form>DataModule1</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="uDonationsThread.pas"/>
+        <DCCReference Include="uSplashscreen.pas">
+            <Form>Splashscreen</Form>
+            <FormType>fmx</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -178,12 +185,6 @@
                 </Excluded_Packages>
             </Delphi.Personality>
             <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\prjPAT2021.exe" Configuration="Debug" Class="ProjectOutput">
-                    <Platform Name="Win32">
-                        <RemoteName>prjPAT2021.exe</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
                 <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
                     <Platform Name="OSX32">
                         <Overwrite>true</Overwrite>
@@ -199,10 +200,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="..\..\Assets\Icons\PlaceholderAppIcon\appicon.png" Configuration="Debug" Class="UWP_DelphiLogo44">
+                <DeployFile LocalName="Win32\Debug\prjPAT2021.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteDir>Assets\</RemoteDir>
-                        <RemoteName>Logo44x44.png</RemoteName>
+                        <RemoteName>prjPAT2021.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

diff --git a/prjPAT2021.dproj.local b/prjPAT2021.dproj.local
@@ -2,20 +2,40 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>2021/04/23 23:34:03.000.626,=C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
-    <Transaction>2021/04/23 23:35:43.000.673,C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uMain.pas</Transaction>
-    <Transaction>2021/04/23 23:35:43.000.673,C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Unit1.fmx=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uMain.fmx</Transaction>
-    <Transaction>2021/04/23 23:35:53.000.910,C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Project2.dproj=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\prjPAT2021.dproj</Transaction>
+    <Transaction>2021/04/23 23:35:43.000.673,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uMain.fmx=C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Unit1.fmx</Transaction>
+    <Transaction>2021/04/23 23:35:43.000.673,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uMain.pas=C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
+    <Transaction>2021/04/23 23:35:53.000.910,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\prjPAT2021.dproj=C:\Users\DELL\Documents\Embarcadero\Studio\Projects\Project2.dproj</Transaction>
     <Transaction>2021/04/23 23:38:25.000.861,=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
-    <Transaction>2021/04/23 23:39:33.000.909,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\NaviPanel.pas</Transaction>
-    <Transaction>2021/04/23 23:56:09.000.780,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\NaviPanel.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uNaviPanel.pas</Transaction>
+    <Transaction>2021/04/23 23:39:33.000.909,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\NaviPanel.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
+    <Transaction>2021/04/23 23:56:09.000.780,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uNaviPanel.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\NaviPanel.pas</Transaction>
     <Transaction>2021/04/24 12:56:36.000.388,=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
-    <Transaction>2021/04/24 12:56:49.000.074,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uDashPanel.pas</Transaction>
+    <Transaction>2021/04/24 12:56:49.000.074,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uDashPanel.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
     <Transaction>2021/04/25 08:25:37.000.830,=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
-    <Transaction>2021/04/25 08:26:08.000.242,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uDonationPanel.pas</Transaction>
+    <Transaction>2021/04/25 08:26:08.000.242,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uDonationPanel.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
     <Transaction>2021/04/25 08:52:41.000.569,=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
-    <Transaction>2021/04/25 08:53:03.000.171,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uDonationHead.pas</Transaction>
+    <Transaction>2021/04/25 08:53:03.000.171,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uDonationHead.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit1.pas</Transaction>
     <Transaction>2021/04/25 12:57:15.000.399,=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit2.pas</Transaction>
-    <Transaction>2021/04/25 12:58:06.000.233,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit2.fmx=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uLogin.fmx</Transaction>
-    <Transaction>2021/04/25 12:58:06.000.233,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit2.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uLogin.pas</Transaction>
+    <Transaction>2021/04/25 12:58:06.000.233,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uLogin.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit2.pas</Transaction>
+    <Transaction>2021/04/25 12:58:06.000.233,C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\uLogin.fmx=C:\Users\DELL\Documents\IT PAT 2021\Code\Rev1\Unit2.fmx</Transaction>
+    <Transaction>2021/05/18 06:38:29.000.071,=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit1.pas</Transaction>
+    <Transaction>2021/05/18 06:47:19.000.033,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.dfm=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit1.dfm</Transaction>
+    <Transaction>2021/05/18 06:47:19.000.033,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit1.pas</Transaction>
+    <Transaction>2021/05/18 07:15:18.000.871,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uDatamodule.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.pas</Transaction>
+    <Transaction>2021/05/18 07:15:18.000.871,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uDatamodule.dfm=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.dfm</Transaction>
+    <Transaction>2021/05/18 07:17:30.000.821,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.dfm=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uDatamodule.dfm</Transaction>
+    <Transaction>2021/05/18 07:17:30.000.821,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uDatamodule.pas</Transaction>
+    <Transaction>2021/05/18 07:17:53.000.930,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\dmDatabase.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.pas</Transaction>
+    <Transaction>2021/05/18 07:17:53.000.930,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\dmDatabase.dfm=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.dfm</Transaction>
+    <Transaction>2021/05/18 07:18:59.000.548,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.dfm=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\dmDatabase.dfm</Transaction>
+    <Transaction>2021/05/18 07:18:59.000.548,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Datamodule.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\dmDatabase.pas</Transaction>
+    <Transaction>2021/05/18 22:23:27.000.358,=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit1.pas</Transaction>
+    <Transaction>2021/05/18 22:23:40.000.476,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit1.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uDonationsThread.pas</Transaction>
+    <Transaction>2021/05/18 23:07:52.000.502,=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit3.pas</Transaction>
+    <Transaction>2021/05/18 23:08:26.000.173,=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit1.pas</Transaction>
+    <Transaction>2021/05/18 23:08:51.000.283,=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit3.pas</Transaction>
+    <Transaction>2021/05/18 23:09:24.000.143,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit3.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Splashscreen.pas</Transaction>
+    <Transaction>2021/05/18 23:09:24.000.143,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Unit3.fmx=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Splashscreen.fmx</Transaction>
+    <Transaction>2021/05/18 23:10:25.000.843,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Splashscreen.fmx=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uSplashscreen.fmx</Transaction>
+    <Transaction>2021/05/18 23:10:25.000.843,C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\Splashscreen.pas=C:\Users\DELL\Documents\IT PAT 2021\Code\14-05-2021~\14-05-2021 Version 3.1\uSplashscreen.pas</Transaction>
   </Transactions>
 </BorlandProject>
diff --git a/prjPAT2021.identcache b/prjPAT2021.identcache
diff --git a/prjPAT2021.vrc b/prjPAT2021.vrc
diff --git a/prjPAT2021_Icon2.ico b/prjPAT2021_Icon2.ico
diff --git a/uDashPanel.pas b/uDashPanel.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   FMX.StdCtrls, FMX.Objects, FMX.Controls, FMX.Layouts, FMX.Types, UIConsts,
-  UITypes, FMX.TabControl;
+  UITypes, FMX.TabControl, FMX.Ani, System.SysUtils, System.Types, FMX.Forms;
 
 Type
   TDashPanel = Class(TPanel)
@@ -17,26 +17,66 @@ interface
     procedure SetImage(image: string);
     procedure resetColor;
     procedure setColor(Color: TAlphaColor);
-    function GetTImage:TImage;
+    function GetTImage: TImage;
+    procedure AnimationF;
+    procedure AnimationR;
   protected
     { protected fields }
     { protected methods }
   private
     { private fields }
     olabel1: TLabel;
     olabel2: TLabel;
+    orect: TRectangle;
     oimage: TImage;
-    opanel: TRectangle;
+    oFloatAnimationF: tfloatanimation;
+    oFloatAnimationR: tfloatanimation;
+    MouseInRect: Boolean;
     { private methods }
     procedure onMouseEnter(Sender: TObject);
     procedure onMouseLeave(Sender: TObject);
     procedure onPanelClick(Sender: TObject);
+    procedure ChangeColour(colour, option: string);
+  published
+    opanel: TRectangle;
   end;
 
 implementation
 
 { TDashPanel }
 
+procedure TDashPanel.AnimationF;
+begin
+  oFloatAnimationF.Start;
+end;
+
+procedure TDashPanel.AnimationR;
+begin
+  oFloatAnimationR.Start;
+end;
+
+procedure TDashPanel.ChangeColour(colour, option: string);
+var
+  colour_string: string;
+  red, green, blue: integer;
+const
+  change_by: integer = 10;
+begin
+  colour_string := copy(colour, 4, 6);
+  red := StrToInt64('$' + copy(colour_string, 1, 2));
+  green := StrToInt64('$' + copy(colour_string, 3, 2));
+  blue := StrToInt64('$' + copy(colour_string, 5, 2));
+
+  if option = 'lighten' then
+    opanel.fill.Color := StringtoAlphaColor(copy(colour, 1, 3) +
+      IntToHex(red + change_by, 1) + IntToHex(green + change_by, 1) +
+      IntToHex(blue + change_by, 1));
+  if option = 'darken' then
+    opanel.fill.Color := StringtoAlphaColor(copy(colour, 1, 3) +
+      IntToHex(red - change_by, 1) + IntToHex(green - change_by, 1) +
+      IntToHex(blue - change_by, 1));
+end;
+
 constructor TDashPanel.Create(AOwner, AParent: TFmxObject);
 begin
   opanel := TRectangle.Create(AOwner);
@@ -55,6 +95,7 @@ constructor TDashPanel.Create(AOwner, AParent: TFmxObject);
   olabel1.Font.Size := 56;
   olabel1.Position.X := 12;
   olabel1.Position.Y := -8;
+  olabel1.Width := 200;
   olabel1.FontColor := talphacolors.White;
   olabel1.StyledSettings := [];
   olabel1.AutoSize := true;
@@ -68,7 +109,7 @@ constructor TDashPanel.Create(AOwner, AParent: TFmxObject);
   olabel2.Position.Y := 64;
   olabel2.FontColor := talphacolors.White;
   olabel2.StyledSettings := [];
-  olabel2.Width:=250;
+  olabel2.Width := 250;
   olabel2.AutoSize := true;
   olabel2.Text := '1';
 
@@ -79,6 +120,31 @@ constructor TDashPanel.Create(AOwner, AParent: TFmxObject);
   oimage.Position.Y := 15;
   oimage.Width := 180;
   oimage.Height := 120;
+  oimage.onMouseEnter := onMouseEnter;
+  oimage.onMouseLeave := onMouseLeave;
+
+  oFloatAnimationF := tfloatanimation.Create(AOwner);
+  oFloatAnimationF.Parent := oimage;
+  oFloatAnimationF.PropertyName := 'Position.Y';
+  oFloatAnimationF.Duration := 0.2;
+  oFloatAnimationF.StartValue := 15;
+  oFloatAnimationF.StopValue := 10;
+
+  oFloatAnimationR := tfloatanimation.Create(AOwner);
+  oFloatAnimationR.Parent := oimage;
+  oFloatAnimationR.PropertyName := 'Position.Y';
+  oFloatAnimationR.Duration := 0.2;
+  oFloatAnimationR.StartValue := 10;
+  oFloatAnimationR.StopValue := 15;
+
+  orect := TRectangle.Create(AOwner);
+  orect.Parent := opanel;
+  orect.Align := TAlignLayout.Client;
+  orect.fill.Color := StringtoAlphaColor('#00FFFFFF');
+  orect.Stroke.Color := StringtoAlphaColor('#00FFFFFF');
+  orect.onMouseEnter := onMouseEnter;
+  orect.onMouseLeave := onMouseLeave;
+  orect.BringToFront;
 end;
 
 function TDashPanel.GetLabel1: string;
@@ -88,17 +154,19 @@ function TDashPanel.GetLabel1: string;
 
 function TDashPanel.GetTImage: TImage;
 begin
-  Result:= oimage;
+  Result := oimage;
 end;
 
 procedure TDashPanel.onMouseEnter(Sender: TObject);
 begin
-
+  (ChangeColour(AlphaColorToString(opanel.fill.Color), 'lighten'));
+  oFloatAnimationF.Start;
 end;
 
 procedure TDashPanel.onMouseLeave(Sender: TObject);
 begin
-
+  (ChangeColour(AlphaColorToString(opanel.fill.Color), 'darken'));
+  oFloatAnimationR.Start;
 end;
 
 procedure TDashPanel.onPanelClick(Sender: TObject);
@@ -113,7 +181,7 @@ procedure TDashPanel.resetColor;
 
 procedure TDashPanel.setColor(Color: TAlphaColor);
 begin
-  opanel.Fill.Color := Color;
+  opanel.fill.Color := Color;
 end;
 
 procedure TDashPanel.SetImage(image: string);