Download form improvements - dont show non-default branch by default

default branch is currently simba2000 and is controlled from Simba-Build-Archive README in a hidden html comment

Author: ollydev

Source/ide/simba.form_downloadsimba.lfm

@@ -6,11 +6,11 @@ object SimbaDownloadSimbaForm: TSimbaDownloadSimbaForm
   Caption = 'Download Simba'
   ClientHeight = 470
   ClientWidth = 846
-  OnCreate = FormCreate
-  OnShow = FormShow
   Position = poMainFormCenter
   ShowInTaskBar = stAlways
-  LCLVersion = '3.8.0.0'
+  LCLVersion = '4.0.0.4'
+  OnCreate = FormCreate
+  OnShow = FormShow
   object Notebook1: TNotebook
     Left = 0
     Height = 470

Source/ide/simba.form_downloadsimba.pas

@@ -19,12 +19,14 @@ interface
   simba.settings,
   simba.httpclient,
   simba.component_treeview,
-  simba.component_buttonpanel;
+  simba.component_buttonpanel,
+  simba.component_button;
 
 type
   TDownloaderFormNode = class(TTreeNode)
   public
     Commit: String;
+    Branch: String;
     DownloadURL: String;
   end;
 
@@ -71,6 +73,7 @@   TSimbaDownloadSimbaForm = class(TForm)
     procedure Label6MouseEnter(Sender: TObject);
     procedure Label6MouseLeave(Sender: TObject);
   private
+    FDefaultBranch: String;
     FData: array of record
       Date: String;
       Branch: String;
@@ -83,6 +86,7 @@   TSimbaDownloadSimbaForm = class(TForm)
 
     procedure DoGetNodeColor(Node: TTreeNode; var TheColor: TColor);
     procedure DoTreeDoubleClick(Sender: TObject);
+    procedure DoCheckClick(Sender: TObject);
 
     procedure DoPopulate;
     procedure DoPopulated(Sender: TObject);
@@ -198,10 +202,20 @@ procedure TSimbaDownloadSimbaForm.FormCreate(Sender: TObject);
   ButtonPanel: TSimbaButtonPanel;
   Control: TControl;
 begin
-  Color := SimbaTheme.ColorBackground;
+  Color := SimbaTheme.ColorFrame;
+  Font.Color := SimbaTheme.ColorFont;
   Width := Scale96ToScreen(750);
   Height := Scale96ToScreen(450);
 
+  with TSimbaLabeledCheckButton.Create(Self) do
+  begin
+    Parent := Self;
+    Align := alTop;
+    Caption := 'Show all branches';
+    BorderSpacing.Around := 5;
+    CheckButton.OnClick := @DoCheckClick;
+  end;
+
   FTreeView := TSimbaTreeView.Create(Self, TDownloaderFormNode);
   FTreeView.Parent := Mainpage;
   FTreeView.Align := alClient;
@@ -269,6 +283,23 @@ procedure TSimbaDownloadSimbaForm.DoTreeDoubleClick(Sender: TObject);
     TDownloader.Create(Node, FStatusLabel);
 end;
 
+procedure TSimbaDownloadSimbaForm.DoCheckClick(Sender: TObject);
+
+  procedure HideOrShowOtherBranches(Node: TTreeNode);
+  begin
+    if TSimbaCheckButton(Sender).Down then
+      Node.Visible := True
+    else
+      Node.Visible := TDownloaderFormNode(Node).Branch = FDefaultBranch;
+  end;
+
+begin
+  if (FDefaultBranch = '') then
+    Exit;
+
+  FTreeView.ForEachTopLevel(@HideOrShowOtherBranches);
+end;
+
 procedure TSimbaDownloadSimbaForm.DoPopulate;
 var
   Count: Integer = 0;
@@ -297,6 +328,8 @@ procedure TSimbaDownloadSimbaForm.DoPopulate;
 
   if (Length(Lines) > 0) then
   begin
+    FDefaultBranch := Lines[0].Between('<!--', '-->');
+
     SetLength(FData, Length(Lines));
     for I := 6 to High(Lines) do
     begin
@@ -320,7 +353,7 @@ procedure TSimbaDownloadSimbaForm.DoPopulated(Sender: TObject);
 var
   I: Integer;
   Download: String;
-  Node: TTreeNode;
+  Node: TDownloaderFormNode;
 begin
   if (Length(FData) = 0) then
   begin
@@ -332,9 +365,14 @@ procedure TSimbaDownloadSimbaForm.DoPopulated(Sender: TObject);
   FTreeView.Clear();
   for I := 0 to High(FData) do
   begin
-    Node := FTreeView.AddNode(FData[I].Date + ' | ' + FData[I].Branch + ' | ' + FData[I].Commit);
+    Node := TDownloaderFormNode(FTreeView.AddNode(FData[I].Date + ' | ' + FData[I].Branch + ' | ' + FData[I].Commit));
+    Node.Commit := FData[I].Commit;
+    Node.Branch := FData[I].Branch;
     for Download in FData[i].Downloads do
       AddDownloadNode(Node, Download, FData[I].Commit);
+
+    // by default other branches are not visible
+    Node.Visible := (FDefaultBranch = '') or (Node.Branch = FDefaultBranch);
   end;
   FTreeView.EndUpdate();
   if (FTreeView.Items.Count > 0) then