package stability

Author: JG1VPP

zlog/UPackageLoader.dfm

@@ -11,6 +11,7 @@ object PackageLoader: TPackageLoader
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
+  FormStyle = fsStayOnTop
   OldCreateOrder = False
   Position = poMainFormCenter
   PixelsPerInch = 96

zlog/UPluginManager.dfm

@@ -24,8 +24,6 @@ object MarketForm: TMarketForm
     Align = alTop
     AutoSnap = False
     Beveled = True
-    ExplicitTop = 242
-    ExplicitWidth = 624
   end
   object ShowPanel: TPanel
     Left = 0
@@ -42,8 +40,6 @@ object MarketForm: TMarketForm
     BorderWidth = 10
     ParentBackground = False
     ParentColor = True
-    TabOrder = 0
-    ExplicitHeight = 165
     object TagLabel: TLabel
       AlignWithMargins = True
       Left = 10
@@ -61,7 +57,6 @@ object MarketForm: TMarketForm
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      ExplicitWidth = 333
     end
     object MsgLabel: TLinkLabel
       Left = 10
@@ -70,18 +65,14 @@ object MarketForm: TMarketForm
       Height = 76
       Align = alClient
       Caption = 'Empower zLog with great features developed by third parties.'
-      Color = clGrayText
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentColor = False
       ParentFont = False
-      TabOrder = 1
       OnLinkClick = WebLabelLinkClick
-      ExplicitWidth = 440
-      ExplicitHeight = 23
     end
     object WebLabel: TLinkLabel
       Left = 10
@@ -96,10 +87,7 @@ object MarketForm: TMarketForm
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 0
       OnLinkClick = WebLabelLinkClick
-      ExplicitTop = 137
-      ExplicitWidth = 116
     end
   end
   object ListPanel: TPanel
@@ -112,13 +100,12 @@ object MarketForm: TMarketForm
     BevelOuter = bvNone
     ParentColor = True
     ShowCaption = False
-    TabOrder = 1
     object ListBox: TListBox
       AlignWithMargins = True
       Left = 10
       Top = 47
       Width = 614
-      Height = 343
+      Height = 310
       Margins.Left = 10
       Margins.Top = 10
       Margins.Right = 10
@@ -131,7 +118,6 @@ object MarketForm: TMarketForm
       Font.Style = []
       ItemHeight = 19
       ParentFont = False
-      TabOrder = 0
       OnClick = ListBoxClick
     end
     object SearchBox: TSearchBox
@@ -153,10 +139,24 @@ object MarketForm: TMarketForm
       ParentFont = False
       ParentShowHint = False
       ShowHint = True
-      TabOrder = 1
       TextHint = 'Search'
       OnChange = SearchBoxChange
     end
+    object CheckBox: TCheckBox
+      AlignWithMargins = True
+      Margins.Left = 10
+      Margins.Right = 10
+      Margins.Bottom = 10
+      Align = alBottom
+      Caption = 'Show unstable (experimental) plugins'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      OnClick = SearchBoxChange
+    end
   end
   object GridPanel: TGridPanel
     Left = 0
@@ -199,14 +199,10 @@ object MarketForm: TMarketForm
       item
         Value = 100.000000000000000000
       end>
-    TabOrder = 2
-    ExplicitTop = 551
     object InstallButton: TButton
       AlignWithMargins = True
-      Left = 15
-      Top = 5
-      Width = 188
-      Height = 40
+      Width = 202
+      Height = 34
       Align = alClient
       Caption = 'Install'
       Enabled = False
@@ -216,16 +212,12 @@ object MarketForm: TMarketForm
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 0
       OnClick = InstallButtonClick
-      ExplicitHeight = 31
     end
     object DisableButton: TButton
       AlignWithMargins = True
-      Left = 223
-      Top = 5
-      Width = 188
-      Height = 40
+      Width = 202
+      Height = 34
       Align = alClient
       Caption = 'Disable'
       Enabled = False
@@ -235,16 +227,12 @@ object MarketForm: TMarketForm
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 1
       OnClick = DisableButtonClick
-      ExplicitHeight = 31
     end
     object UpgradeButton: TButton
       AlignWithMargins = True
-      Left = 431
-      Top = 5
-      Width = 188
-      Height = 40
+      Width = 202
+      Height = 34
       Align = alClient
       Caption = 'Upgrade'
       Enabled = False
@@ -254,9 +242,7 @@ object MarketForm: TMarketForm
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 2
       OnClick = UpgradeButtonClick
-      ExplicitHeight = 31
     end
   end
   object NetHTTPClient: TNetHTTPClient

zlog/UPluginManager.pas

@@ -45,6 +45,7 @@ 	TMarketItem = class(TObject)
 		url: string;
 		web: string;
 		sum: string;
+		exp: string;
 		use: TList<string>;
 		function ref: string;
 		function name: string;
@@ -56,12 +57,14 @@ 	TMarketItem = class(TObject)
 		procedure Install;
 		procedure Disable;
 		procedure Upgrade;
+		function IsStable: boolean;
 		function IsUpToDate: boolean;
 		function CanInstall: boolean;
 		function CanDisable: boolean;
 		function CanUpgrade: boolean;
 		function Dependency: TArray<TMarketItem>;
 	end;
+	TMarketList = TList<TMarketItem>;
 	TMarketDict = TDictionary<string, TMarketItem>;
 	TMarketTest = reference to function(Item: TMarketItem): boolean;
 	TMarketForm = class(TForm)
@@ -72,6 +75,7 @@ 	TMarketForm = class(TForm)
 		MsgLabel: TLinkLabel;
 		WebLabel: TLinkLabel;
 		Splitter: TSplitter;
+		CheckBox: TCheckBox;
 		ListPanel: TPanel;
 		ShowPanel: TPanel;
 		GridPanel: TGridPanel;
@@ -97,6 +101,7 @@ 	TMarketForm = class(TForm)
 	MarketForm: TMarketForm;
 	MarketItem: TMarketItem;
 	MarketDict: TMarketDict;
+	MarketList: TMarketList;
 
 const
 	URL_MARKET = 'https://zylo.pafelog.net/market.json';
@@ -274,6 +279,11 @@ procedure Verify(Item: TMarketItem);
 	end;
 end;
 
+function TMarketItem.IsStable: boolean;
+begin
+	Result := exp = 'stable';
+end;
+
 function TMarketItem.IsUpToDate: boolean;
 var
 	sum: string;
@@ -334,9 +344,8 @@ procedure TMarketForm.FormCreate(Sender: TObject);
 
 procedure TMarketForm.FormShow(Sender: TObject);
 begin
-	ListBox.Clear;
 	LoadJSON(URL_MARKET);
-	ListBoxClick(Self);
+	SearchBoxChange(Self);
 end;
 
 procedure TMarketForm.LoadJSON(url: string);
@@ -349,6 +358,7 @@ procedure TMarketForm.LoadJSON(url: string);
 	cls, obj: TJsonPair;
 begin
 	try
+		MarketList.Clear;
 		buf := TMemoryStream.Create;
 		res := NetHttpRequest.Get(url, buf);
 		txt := res.ContentAsString(TEncoding.UTF8);
@@ -386,11 +396,12 @@ function Value(obj: TJsonValue; key: string): string;
 	Item.url := Value(obj.JsonValue, 'url');
 	Item.web := Value(obj.JsonValue, 'web');
 	Item.sum := Value(obj.JsonValue, 'sum');
+	Item.exp := Value(obj.JsonValue, 'exp');
 	def := TJsonArray.Create;
 	arr := obj.JsonValue.GetValue('use', def);
 	for use in arr do Item.use.Add(use.Value);
 	MarketDict.AddOrSetvalue(Item.name, Item);
-	if Item.IsPKG then ListBox.AddItem(Item.tag, Item);
+	MarketList.Add(Item);
 	def.Free;
 end;
 
@@ -425,12 +436,17 @@ function Match(Item: TMarketItem): boolean;
 	end else
 		Result := False;
 end;
+function Check(Item: TMarketItem): boolean;
+begin
+	Result := Match(Item) and (Item.IsStable or CheckBox.Checked);
+end;
 var
 	Item: TMarketItem;
 begin
 	ListBox.Clear;
-	for Item in MarketDict.Values do
-		if Match(Item) then ListBox.AddItem(Item.tag, Item);
+	for Item in MarketList do
+		if Check(Item) then ListBox.AddItem(Item.tag, Item);
+	ListBoxClick(Self);
 end;
 
 procedure TMarketForm.InstallButtonClick(Sender: TObject);
@@ -477,8 +493,10 @@ procedure BrowseURL(url: string);
 
 initialization
 	MarketDict := TMarketDict.Create;
+	MarketList := TMarketList.Create;
 
 finalization
 	MarketDict.Free;
+	MarketList.Free;
 
 end.