Option to change Statusbar Panels widths #953

Now in transgui.ini there a section [StatusBarPanels] to change the width of statusbar panels.
transmission-remote-gui · Nov 8, 2017 · b6b9f7b · b6b9f7b
1 parent 63a6a25
commit b6b9f7b
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/main.pas b/main.pas
@@ -1675,6 +1675,13 @@ procedure TMainForm.FormCreate(Sender: TObject);
   finally
     SL.Free;
   end;
+  // StatusBar Panels width
+  for i := 0 to StatusBar.Panels.Count-1 do
+  begin
+        j := Ini.ReadInteger('StatusBarPanels',IntToStr(i),0);
+        if j <> 0 then StatusBar.Panels[i].Width:=j else
+                  Ini.WriteInteger('StatusBarPanels',IntToStr(i),Statusbar.Panels[i].Width);
+  end;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);