From 066730daf977bbf2a6fc95e8f0fea002d90789bb Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Wed, 15 Nov 2017 11:03:36 +0000
Subject: [PATCH] Opkman: Small GUI tweak.

git-svn-id: trunk@56415 -
---
 .../opkman_createrepositoryfrm.lfm            | 130 +++++++++---------
 .../opkman_createrepositoryfrm.pas            |   7 +-
 2 files changed, 70 insertions(+), 67 deletions(-)

diff --git a/components/onlinepackagemanager/opkman_createrepositoryfrm.lfm b/components/onlinepackagemanager/opkman_createrepositoryfrm.lfm
index 5577139a9f..006c719b21 100644
--- a/components/onlinepackagemanager/opkman_createrepositoryfrm.lfm
+++ b/components/onlinepackagemanager/opkman_createrepositoryfrm.lfm
@@ -1,7 +1,7 @@
 object CreateRepositoryFrm: TCreateRepositoryFrm
-  Left = 286
+  Left = 373
   Height = 600
-  Top = 116
+  Top = 180
   Width = 900
   BorderIcons = [biSystemMenu]
   Caption = 'CreateRepositoryFrm'
@@ -23,8 +23,8 @@ object CreateRepositoryFrm: TCreateRepositoryFrm
     Align = alBottom
     BevelOuter = bvNone
     BorderStyle = bsSingle
-    ClientHeight = 39
-    ClientWidth = 898
+    ClientHeight = 37
+    ClientWidth = 896
     TabOrder = 2
     OnResize = pnButtonsResize
     object bOpen: TButton
@@ -50,7 +50,7 @@ object CreateRepositoryFrm: TCreateRepositoryFrm
       TabOrder = 0
     end
     object bCancel: TButton
-      Left = 802
+      Left = 800
       Height = 27
       Top = 4
       Width = 85
@@ -153,70 +153,70 @@ object CreateRepositoryFrm: TCreateRepositoryFrm
       Glyph.Data = {
         36080000424D3608000000000000360000002800000020000000100000000100
         2000000000000008000064000000640000000000000000000000FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BDD8E8005FA7D3FF56A2D0FFB5D3
-        E500009600FF009600FF009600FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D9D9D900ABABABFFA7A7A7FFD4D4
-        D400585858FF585858FF585858FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00D7E9F20078B7DBFF2D8EC8FF8FCDEBFF6FB7E2FF408E
-        C8FF009600FF00C000FF009600FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00E9E9E900BABABAFF949494FFCECECEFFBBBBBBFF9696
-        96FF585858FF707070FF585858FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00ECF4F90093C9E3FF3F9CCEFF82C4E5FFCCF4FFFFC4EFFFFF8BD2F1FF8ACE
-        F0FF009600FF00C000FF009600FFD1E9E100FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00F4F4F400CACACAFFA0A0A0FFC6C6C6FFF2F2F2FFEEEEEEFFD3D3D3FFD0D0
-        D0FF585858FF707070FF585858FFE3E3E300FFFFFF00FFFFFF00FAFDFE00AFD8
-        EB0055ABD5FF7DC0E0FFC7EEFCFFCCF2FFFFA8E8FFFF009600FF009600FF0096
-        00FF009600FF00C000FF009600FF009600FF009600FF009600FFFCFCFC00D9D9
-        D900ADADADFFC1C1C1FFEDEDEDFFF1F1F1FFE7E7E7FF585858FF585858FF5858
-        58FF585858FF707070FF585858FF585858FF585858FF585858FF6FB8D80077BD
-        DCFFBFE5F6FFDBF6FFFFC1EEFFFFA5E5FFFF9FE3FFFF009600FF00C000FF00C0
-        00FF00C000FF00C000FF00C000FF00C000FF00C000FF009600FFB9B9B900BEBE
-        BEFFE5E5E5FFF5F5F5FFEDEDEDFFE5E5E5FFE3E3E3FF585858FF707070FF7070
-        70FF707070FF707070FF707070FF707070FF707070FF585858FF45A9D3FFE7FB
-        FEFFDDF6FFFFC1EFFFFFB7EBFFFFABE8FFFFA4E4FFFF009600FF009600FF0096
-        00FF009600FF00C000FF009600FF009600FF009600FF009600FFAAAAAAFFF9F9
-        F9FFF5F5F5FFEEEEEEFFEBEBEBFFE7E7E7FFE4E4E4FF585858FF585858FF5858
-        58FF585858FF707070FF585858FF585858FF585858FF585858FF4EAED6FFE2F6
-        FCFFD4F3FFFFC9F0FFFFBEEDFFFFB3EAFFFFADE7FFFF7CD9FEFF48C7EFFF43C4
-        EAFF009600FF00C000FF009600FF40A7E1FF83C5ECFF328DC7FFAFAFAFFFF5F5
-        F5FFF3F3F3FFF0F0F0FFEDEDEDFFEAEAEAFFE7E7E7FFD9D9D9FFC4C4C4FFC0C0
-        C0FF585858FF707070FF585858FFACACACFFC9C9C9FF939393FF51B1D6FFE2F6
-        FCFFD7F4FFFFCEF2FFFFC8EFFFFFBAEBFFFF92DBFBFF56C1F1FF48C2F9FF3BBD
-        F0FF009600FF00C000FF009600FF47B1E6FF88CAEEFF3490C8FFB1B1B1FFF5F5
-        F5FFF3F3F3FFF1F1F1FFEFEFEFFFEBEBEBFFDCDCDCFFC3C3C3FFC4C4C4FFBDBD
-        BDFF585858FF707070FF585858FFB4B4B4FFCDCDCDFF969696FF53B4D7FFE2F6
-        FDFFDAF4FFFFD5F3FFFFBDEBFFFF89D5F7FF69C9F5FF4CB4E9FF8DDAFBFF8CDC
-        FFFF009600FF009600FF009600FF4FBBE8FF8CD0F0FF3693C9FFB3B3B3FFF5F5
-        F5FFF4F4F4FFF3F3F3FFEBEBEBFFD6D6D6FFCBCBCBFFB7B7B7FFDBDBDBFFDDDD
-        DDFF585858FF585858FF585858FFBCBCBCFFD1D1D1FF989898FF55B6D8FFE2F8
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002A8BC6462889C5BE2687C5C42485
+        C44DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00919191468F8F8FBE8E8E8EC48C8C
+        8C4DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF003093CA2B2E90C9A52C8EC8FE8FCDEBFF6FB7E2FF408E
+        C8FF2485C4AC2383C331FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF009898982B959595A5949494FECECECEFFBBBBBBFF9696
+        96FF8C8C8CAC8B8B8B31FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00369ACD163498CC853295CBEF82C4E5FFCCF4FFFFBCEEFAFF88D1E4FF8ACE
+        F0FF5FA4D7FF2586C4F32384C38D2182C21BFFFFFF00FFFFFF00FFFFFF00FFFF
+        FF009D9D9D169C9C9C85999999EFC6C6C6FFF2F2F2FFEBEBEBFFCECECEFFD0D0
+        D0FFABABABFF8D8D8DF38B8B8B8D8A8A8A1BFFFFFF00FFFFFF003DA2D0063BA0
+        CF65399DCEDB7DC0E0FFC7EEFCFFCBF2FEFF65DDD0FF33D1A8FF22AA7CFF35B0
+        91FF89CBE8FF82C1EBFF5397D0FF2384C3E02282C26D2080C20AA4A4A406A2A2
+        A265A0A0A0DBC1C1C1FFEDEDEDFFF1F1F1FFCBCBCBFFB2B2B2FF8C8C8CFF9898
+        98FFCCCCCCFFC6C6C6FFA0A0A0FF8B8B8BE08A8A8A6D8888880A40A5D2BB77BD
+        DCFFBFE5F6FFDBF6FFFF9EE8EBFF2EB3B8FF2AA0BFFF41A5DBFF2A8CCBFF1B82
+        A1FF1A829AFF3A8BBDFF6697EFFF5888EAFF3E7AD1FF2283C3C1A6A6A6BBBEBE
+        BEFFE5E5E5FFF5F5F5FFE0E0E0FFA5A5A5FF9B9B9BFFA9A9A9FF939393FF7F7F
+        7FFF7D7D7DFF909090FFABABABFF9F9F9FFF8D8D8DFF8B8B8BC142A8D3F9E7FB
+        FEFFD0F3F9FF46D7B8FF39D4AEFF1944EBFF2033FBFF2233FEFF102DF9FF0E2A
+        F7FF0A27ECFF0827E2FF0827E1FF172BF0FF293DF8FF2485C4F8A9A9A9F9F9F9
+        F9FFF0F0F0FFBDBDBDFFB6B6B6FF717171FF6C6C6CFF6D6D6DFF666666FF6464
+        64FF5E5E5EFF5B5B5BFF5B5B5BFF636363FF727272FF8C8C8CF844AAD4F7A8ED
+        E2FF41D6B3FF49D8BAFF8CE4E4FF0F14FEFF0000FEFF0000FEFF0000FEFF0000
+        FEFF0000FEFF0000FEFF0000FEFF0000FEFF0B12F8FF2687C5FEAAAAAAF7E1E1
+        E1FFBABABAFFBEBEBEFFD9D9D9FF595959FF4B4B4BFF4B4B4BFF4B4B4BFF4B4B
+        4BFF4B4B4BFF4B4B4BFF4B4B4BFF4B4B4BFF555555FF8E8E8EFE47ADD5FB92E7
+        D4FF80E5D8FFC8F1FDFFC8EFFFFF3B4AFEFF2132FDFF132CFAFF102CFCFF0D2B
+        FAFF102DF9FF0F2BF9FF0F29F8FF0D28F4FF2B42EEFF288AC6FFADADADFBD7D7
+        D7FFD5D5D5FFEFEFEFFFEFEFEFFF7E7E7EFF6C6C6CFF666666FF666666FF6565
+        65FF666666FF656565FF636363FF616161FF727272FF909090FF49B0D6F8DBF6
+        F8FFD9F3FFFFD5F3FFFFBDEBFFFF74B5F8FF5099F7FF3A89EEFF6BA6FBFF6BA8
+        FFFF3795FAFF2A8BF0FF3792EDFF378CECFF7AB3F3FF2B8DC7FAAFAFAFF8F3F3
+        F3FFF3F3F3FFF3F3F3FFEBEBEBFFC1C1C1FFACACACFF9E9E9EFFB8B8B8FFBBBB
+        BBFFA8A8A8FF9E9E9EFFA2A2A2FF9F9F9FFFBFBFBFFF939393FA4BB2D7F0E2F8
         FDFFD4F3FFFFB0E4FAFF86CFF1FF7FD0F5FF78D0F5FF4CB1E4FFB0E4FAFFB6E9
-        FFFF9BE1FFFF78D6FEFF40BDF5FF3DB5E9FF90D5F1FF3895CAFFB5B5B5FFF6F6
+        FFFF9BE1FFFF78D6FEFF40BDF5FF3DB5E9FF90D5F1FF2D8FC8F0B1B1B1F0F6F6
         F6FFF3F3F3FFE4E4E4FFD0D0D0FFD1D1D1FFD1D1D1FFB4B4B4FFE4E4E4FFE9E9
-        E9FFE1E1E1FFD7D7D7FFBFBFBFFFB6B6B6FFD5D5D5FF9A9A9AFF4FB4D8FFE1F8
+        E9FFE1E1E1FFD7D7D7FFBFBFBFFFB6B6B6FFD5D5D5FF949494F04DB4D8FBE1F8
         FEFFCDEBF9FF92D2EDFF84CCEBFF6FBFE5FF56B1DBFF3B94C8FFCEECFAFFD9F5
-        FFFFB9EAFFFF95DFFEFF77D5FFFFA5E4FFFF84DCFBFF3193C9FFB3B3B3FFF7F7
+        FFFFB9EAFFFF95DFFEFF77D5FFFFA5E4FFFF84DCFBFF2F92C9FBB3B3B3FBF7F7
         F7FFEBEBEBFFD2D2D2FFCDCDCDFFC1C1C1FFB3B3B3FF999999FFECECECFFF4F4
-        F4FFEAEAEAFFDFDFDFFFD6D6D6FFE4E4E4FFDBDBDBFF979797FF89CADE004EB5
-        D9FFA5D9EDFFD2EBF5FFBEDEEDFF95C9DEFF89C3DBFF70B8D6FF69B9DDFF90D7
-        F5FF7FCFF5FF9DDBF8FFAAE3FAFF84CAECFF51A6D5FF74B3D500C8C8C800B4B4
-        B4FFD9D9D9FFEBEBEBFFDEDEDEFFC9C9C9FFC3C3C3FFB8B8B8FFBABABAFFD7D7
-        D7FFD1D1D1FFDCDCDCFFE3E3E3FFCCCCCCFFAAAAAAFFB5B5B500FFFFFF00C7E4
-        EE0076C4DEFF7EC6E0FFD1EEF7FFF6FFFFFFF0FEFFFFCBEDFBFF50ADDAFF8BD7
-        F7FFAAE1F9FF95D6F2FF62B2DBFF61AED4FFBAD9E800FFFFFF00FFFFFF00E3E3
-        E300C2C2C2FFC5C5C5FFEDEDEDFFFDFDFDFFFCFCFCFFEDEDEDFFAFAFAFFFD7D7
-        D7FFE1E1E1FFD6D6D6FFB5B5B5FFB0B0B0FFD9D9D900FFFFFF00FFFFFF00FFFF
-        FF00FCFEFE00AFD8E60063BDDBFF92CFE5FFE6F8FCFFE3F6FEFFAFDDF2FFB2E4
-        F7FF72C0E1FF55ADD5FFA3CFE100F8FCFD00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FDFDFD00D7D7D700BBBBBBFFCECECEFFF7F7F7FFF6F6F6FFDEDEDEFFE3E3
-        E3FFC0C0C0FFAEAEAEFFCFCFCF00FBFBFB00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00F0F9FC0099CEE00055B6D9FF9CD5EAFF88CCE7FF4DAF
-        D6FF8FC7DD00ECF6FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00F8F8F800CDCDCD00B5B5B5FFD4D4D4FFCCCCCCFFAFAF
-        AFFFC7C7C700F6F6F600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1F2F8007DC3DCFF76C0DCFFDCEF
-        F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F1F1F100C2C2C2FFBFBFBFFFEFEF
-        EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+        F4FFEAEAEAFFDFDFDFFFD6D6D6FFE4E4E4FFDBDBDBFF979797FB4FB7D99F4DB5
+        D9FEA5D9EDFFD2EBF5FFBEDEEDFF95C9DEFF89C3DBFF70B8D6FF6ABADEFF90D7
+        F5FF7FCFF5FF9DDBF8FFAAE3FAFF84CAECFF51A6D5FF3295CBA6B5B5B59FB3B3
+        B3FED9D9D9FFEBEBEBFFDEDEDEFFC9C9C9FFC3C3C3FFB8B8B8FFBBBBBBFFD7D7
+        D7FFD1D1D1FFDCDCDCFFE3E3E3FFCCCCCCFFAAAAAAFF999999A6FFFFFF004FB7
+        D9464EB5D9C27EC6E0FFD1EEF7FFF6FFFFFFF0FEFFFFCBEDFBFF50ADDAFF8BD7
+        F7FFAAE1F9FF95D6F2FF62B2DBFF399DCEC8369ACD4DFFFFFF00FFFFFF00B5B5
+        B546B4B4B4C2C5C5C5FFEDEDEDFFFDFDFDFFFCFCFCFFEDEDEDFFAFAFAFFFD7D7
+        D7FFE1E1E1FFD6D6D6FFB5B5B5FFA0A0A0C89D9D9D4DFFFFFF00FFFFFF00FFFF
+        FF004FB7DA054EB6D9654CB4D8DB92CFE5FFE6F8FCFFE3F6FEFFAFDDF2FFB2E4
+        F7FF72C0E1FF3FA4D1E03DA2D06C3BA0CF09FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00B5B5B505B4B4B465B2B2B2DBCECECEFFF7F7F7FFF6F6F6FFDEDEDEFFE3E3
+        E3FFC0C0C0FFA5A5A5E0A4A4A46CA2A2A209FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF004EB6D9164DB4D8844BB2D7EF9CD5EAFF88CCE7FF45AC
+        D5F344AAD48C42A7D31AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00B4B4B416B3B3B384B1B1B1EFD4D4D4FFCCCCCCFFACAC
+        ACF3AAAAAA8CA8A8A81AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004DB4D82B4BB2D8AF4AB0D7BC48AE
+        D631FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B3B3B32BB1B1B1AFB0B0B0BCAEAE
+        AE31FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
       }
       GlyphShowMode = gsmAlways
       NumGlyphs = 2
diff --git a/components/onlinepackagemanager/opkman_createrepositoryfrm.pas b/components/onlinepackagemanager/opkman_createrepositoryfrm.pas
index 201aa308b3..81ef0e8393 100644
--- a/components/onlinepackagemanager/opkman_createrepositoryfrm.pas
+++ b/components/onlinepackagemanager/opkman_createrepositoryfrm.pas
@@ -561,7 +561,6 @@ begin
   bCreate.Enabled := AEnable;
   bAdd.Enabled := AEnable and FileExists(Trim(FRepository.FPath));
   bCancel.Enabled := AEnable;
-  bDelete.Enabled := False;
   if Assigned(FVSTPackages) then
   begin
     Node := FVSTPackages.GetFirstSelected;
@@ -570,7 +569,11 @@ begin
       Data := FVSTPackages.GetNodeData(Node);
       bDelete.Enabled := AEnable and FileExists(Trim(FRepository.FPath)) and (Data^.FDataType = 1);
     end
-  end;
+    else
+      bDelete.Enabled := False;
+  end
+  else
+    bDelete.Enabled := False;
 end;
 
 procedure TCreateRepositoryFrm.ShowHideControls(const AType: Integer);