From 2a82da77b0d9803f9e940c1d98464aa5cf418e3c Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Tue, 7 Feb 2017 07:39:11 +0000
Subject: [PATCH] Opkman: More meaningful name.

git-svn-id: trunk@54106 -
---
 components/onlinepackagemanager/opkman_const.pas |  2 +-
 .../onlinepackagemanager/opkman_optionsfrm.lfm   | 16 +++++-----------
 .../onlinepackagemanager/opkman_optionsfrm.pas   |  6 ++----
 3 files changed, 8 insertions(+), 16 deletions(-)

diff --git a/components/onlinepackagemanager/opkman_const.pas b/components/onlinepackagemanager/opkman_const.pas
index bbbdc47ce7..4f7c287a30 100644
--- a/components/onlinepackagemanager/opkman_const.pas
+++ b/components/onlinepackagemanager/opkman_const.pas
@@ -271,7 +271,7 @@ resourcestring
   rsOptions_cbCheckForUpdates_Item5 = 'Never';
   rsOptions_lbLastUpdate_Caption = 'Last update: ';
   rsOptions_LastUpdate_Never = 'never';
-  rsOptions_lbDaysToShowNewPackages_Caption = 'Show newly added packages for(days):';
+  rsOptions_lbDaysToShowNewPackages_Caption = 'Show different icon for newly added packages for(days):';
   rsOptions_lbFilterFiles_Caption = 'Excluded files (packages)';
   rsOptions_lbFilterDirs_Caption = 'Excluded folders (packages)';
   rsOptions_bAdd_Caption = 'Add';
diff --git a/components/onlinepackagemanager/opkman_optionsfrm.lfm b/components/onlinepackagemanager/opkman_optionsfrm.lfm
index d82a1b30f3..4bc66f1b1c 100644
--- a/components/onlinepackagemanager/opkman_optionsfrm.lfm
+++ b/components/onlinepackagemanager/opkman_optionsfrm.lfm
@@ -188,11 +188,9 @@ object OptionsFrm: TOptionsFrm
         end
         object spDaysToShowNewPackages: TSpinEdit
           Left = 228
-          Height = 24
+          Height = 23
           Top = 224
           Width = 76
-          AutoSize = False
-          BorderSpacing.Around = 1
           MaxValue = 365
           TabOrder = 4
           Value = 31
@@ -225,7 +223,7 @@ object OptionsFrm: TOptionsFrm
           TabOrder = 0
         end
         object gbProxySettings: TGroupBox
-          Left = 15
+          Left = 16
           Height = 176
           Top = 48
           Width = 411
@@ -295,12 +293,10 @@ object OptionsFrm: TOptionsFrm
             Text = 'password'
           end
           object seProxyPort: TSpinEdit
-            Left = 319
-            Height = 24
-            Top = 22
+            Left = 317
+            Height = 23
+            Top = 24
             Width = 75
-            AutoSize = False
-            BorderSpacing.Around = 1
             MaxValue = 65635
             TabOrder = 3
           end
@@ -541,7 +537,6 @@ object OptionsFrm: TOptionsFrm
               Color = clBtnFace
               ItemHeight = 0
               ParentShowHint = False
-              ScrollWidth = 179
               ShowHint = True
               Sorted = True
               TabOrder = 2
@@ -629,7 +624,6 @@ object OptionsFrm: TOptionsFrm
               Color = clBtnFace
               ItemHeight = 0
               ParentShowHint = False
-              ScrollWidth = 159
               ShowHint = True
               Sorted = True
               TabOrder = 2
diff --git a/components/onlinepackagemanager/opkman_optionsfrm.pas b/components/onlinepackagemanager/opkman_optionsfrm.pas
index 1ad02608d2..14fafdc675 100644
--- a/components/onlinepackagemanager/opkman_optionsfrm.pas
+++ b/components/onlinepackagemanager/opkman_optionsfrm.pas
@@ -410,8 +410,7 @@ begin
     lbLastUpdate.Caption := rsOptions_lbLastUpdate_Caption + FormatDateTime('YYYY.MM.DD  hh:mm:ss', Options.LastUpdate);
   lbDaysToShowNewPackages.Caption := rsOptions_lbDaysToShowNewPackages_Caption;
   spDaysToShowNewPackages.Value := Options.DaysToShowNewPackages;
-  spDaysToShowNewPackages.Height := cbCheckForUpdates.Height;
-  spDaysToShowNewPackages.Top := lbDaysToShowNewPackages.Top - ((spDaysToShowNewPackages.Height - lbDaysToShowNewPackages.Height) div 2);
+  spDaysToShowNewPackages.Top := lbDaysToShowNewPackages.Top + 1 + (lbDaysToShowNewPackages.Height - spDaysToShowNewPackages.Height) div 2;
   spDaysToShowNewPackages.Left := lbDaysToShowNewPackages.Left + lbDaysToShowNewPackages.Canvas.GetTextWidth(lbDaysToShowNewPackages.Caption) + 10;
 
   tsProxy.Caption := rsOptions_tsProxy_Caption;
@@ -425,8 +424,7 @@ begin
   gbProxySettings.Enabled := Options.ProxyEnabled;
   edProxyServer.Text := Options.ProxyServer;
   seProxyPort.Value := Options.ProxyPort;
-  seProxyPort.Height := edProxyServer.Height;
-  seProxyPort.Top := edProxyServer.Top;
+  seProxyPort.Top := edProxyServer.Top + (edProxyServer.Height - seProxyPort.Height) div 2;
   edProxyUser.Text := Options.ProxyUser;
   edProxyPassword.Text := Options.ProxyPassword;