Simple download form to download Simba from https://github.com/Villav…

…u/Simba-Build-Archive
Villavu · Oct 16, 2023 · 2fe5f44 · 2fe5f44
1 parent 7e735c6
commit 2fe5f44
Show file tree

Hide file tree

Showing 8 changed files with 379 additions and 2 deletions.
diff --git a/Source/Simba.lpi b/Source/Simba.lpi
@@ -340,7 +340,7 @@
         <PackageName Value="LCL"/>
       </Item5>
     </RequiredPackages>
-    <Units Count="158">
+    <Units Count="160">
       <Unit0>
         <Filename Value="Simba.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -1057,6 +1057,17 @@
         <Filename Value="image/setpixel.inc"/>
         <IsPartOfProject Value="True"/>
       </Unit157>
+      <Unit158>
+        <Filename Value="image/simba.image_gaussblur.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit158>
+      <Unit159>
+        <Filename Value="forms/simba.downloadsimbaform.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="SimbaDownloadSimbaForm"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+      </Unit159>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

diff --git a/Source/Simba.lpr b/Source/Simba.lpr
@@ -16,6 +16,7 @@
   simba.scripttabsform, simba.outputform, simba.colorpickerhistoryform, simba.filebrowserform,
   simba.notesform, simba.settingsform, simba.associate, simba.openexampleform,
   simba.package_form, simba.shapeboxform, simba.backupsform, simba.findinfilesform,
+  simba.downloadsimbaform,
   simba.compiler_dump, simba.plugin_dump,
   simba.scriptthread,
   simba.ide_initialization, simba.ide_analytics, simba.ide_codetools_setup,
@@ -118,6 +119,7 @@
     Application.CreateForm(TSimbaShapeBoxForm, SimbaShapeBoxForm);
     Application.CreateForm(TSimbaBackupsForm, SimbaBackupsForm);
     Application.CreateForm(TSimbaFindInFilesForm, SimbaFindInFilesForm);
+    Application.CreateForm(TSimbaDownloadSimbaForm, SimbaDownloadSimbaForm);
 
     SimbaIDEInitialization_CallBeforeShow();
   end;

diff --git a/Source/components/simba.component_treeview.pas b/Source/components/simba.component_treeview.pas
@@ -46,6 +46,9 @@   TSimbaInternalTreeView = class(TTreeView)
   TNodeForEachEvent = procedure(const Node: TTreeNode) is nested;
 
   TSimbaTreeView = class(TCustomControl)
+  private
+    function GetFilterVisible: Boolean;
+    procedure SetFilterVisible(Value: Boolean);
   protected
     FFilterPanel: TCustomControl;
     FFilterEdit: TSimbaEdit;
@@ -118,6 +121,7 @@   TSimbaTreeView = class(TCustomControl)
     property ScrolledLeft: Integer read GetScrolledLeft write SetScrolledLeft;
     property ScrolledTop: Integer read GetScrolledTop write SetScrolledTop;
     property TopLevelCount: Integer read GetTopLevelCount;
+    property FilterVisible: Boolean read GetFilterVisible write SetFilterVisible;
 
     property ScrollbarHorz: TSimbaScrollBar read FScrollbarHorz;
     property ScrollbarVert: TSimbaScrollBar read FScrollbarVert;
@@ -321,6 +325,16 @@ procedure TSimbaTreeView.DoClearFilterClick(Sender: TObject);
   Filter := '';
 end;
 
+function TSimbaTreeView.GetFilterVisible: Boolean;
+begin
+  Result := FFilterPanel.Visible;
+end;
+
+procedure TSimbaTreeView.SetFilterVisible(Value: Boolean);
+begin
+  FFilterPanel.Visible := Value;
+end;
+
 procedure TSimbaTreeView.FontChanged(Sender: TObject);
 begin
   inherited FontChanged(Sender);

diff --git a/Source/forms/simba.downloadsimbaform.lfm b/Source/forms/simba.downloadsimbaform.lfm
@@ -0,0 +1,47 @@
+object SimbaDownloadSimbaForm: TSimbaDownloadSimbaForm
+  Left = 2547
+  Height = 240
+  Top = 602
+  Width = 320
+  Caption = 'Download Simba'
+  ClientHeight = 240
+  ClientWidth = 320
+  DesignTimePPI = 120
+  OnCreate = FormCreate
+  OnResize = FormResize
+  OnShow = FormShow
+  Position = poMainFormCenter
+  LCLVersion = '3.0.0.1'
+  object Panel1: TPanel
+    Left = 0
+    Height = 240
+    Top = 0
+    Width = 320
+    Align = alClient
+    AutoSize = True
+    BevelOuter = bvNone
+    ClientHeight = 240
+    ClientWidth = 320
+    TabOrder = 0
+    object Panel2: TPanel
+      Left = 5
+      Height = 0
+      Top = 235
+      Width = 310
+      Align = alBottom
+      AutoSize = True
+      BorderSpacing.Around = 5
+      BevelOuter = bvNone
+      TabOrder = 0
+    end
+  end
+  object ProgressUpdateTimer: TTimer
+    Enabled = False
+    Interval = 500
+    OnTimer = DoProgressUpdate
+    OnStartTimer = DoProgressTimerStart
+    OnStopTimer = DoProgressTimerStop
+    Left = 104
+    Top = 59
+  end
+end