From b6b9f7b039bb84378dd7db7ff7fa00473a4ec79c Mon Sep 17 00:00:00 2001
From: antekgla <bk11t763@hotmail.com>
Date: Tue, 7 Nov 2017 23:42:11 -0300
Subject: [PATCH] Option to change Statusbar Panels widths  #953

Now in transgui.ini there a section [StatusBarPanels] to change the width of statusbar panels.
---
 main.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/main.pas b/main.pas
index dddc9170..56c3f31b 100644
--- 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);