From cf0f5a2d243890339864824f00ba9093353ae8d0 Mon Sep 17 00:00:00 2001
From: Jan Horacek <me@apophis.cz>
Date: Sun, 24 May 2020 10:48:16 +0200
Subject: [PATCH] fHVSprEdit: pridat vice mista na funkce.

---
 src/forms/fSprHVEdit.dfm | 18 ++++++++----------
 src/forms/fSprHVEdit.pas |  2 +-
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/src/forms/fSprHVEdit.dfm b/src/forms/fSprHVEdit.dfm
index 746da0b..5686588 100644
--- a/src/forms/fSprHVEdit.dfm
+++ b/src/forms/fSprHVEdit.dfm
@@ -35,7 +35,7 @@ object F_SprHVEdit: TF_SprHVEdit
   object CB_HV1_HV: TComboBox
     Left = 7
     Top = 13
-    Width = 217
+    Width = 194
     Height = 21
     Margins.Left = 2
     Margins.Top = 2
@@ -55,7 +55,7 @@ object F_SprHVEdit: TF_SprHVEdit
   object RG_HV1_dir: TRadioGroup
     Left = 7
     Top = 38
-    Width = 219
+    Width = 194
     Height = 57
     Margins.Left = 2
     Margins.Top = 2
@@ -76,7 +76,7 @@ object F_SprHVEdit: TF_SprHVEdit
   object M_HV1_Notes: TMemo
     Left = 7
     Top = 122
-    Width = 219
+    Width = 194
     Height = 156
     Margins.Left = 2
     Margins.Top = 2
@@ -88,22 +88,20 @@ object F_SprHVEdit: TF_SprHVEdit
     OnKeyPress = M_HV1_NotesKeyPress
   end
   object PC_Funkce: TPageControl
-    Left = 233
+    Left = 206
     Top = 8
-    Width = 145
+    Width = 172
     Height = 270
-    ActivePage = TS_F15_F28
+    ActivePage = TS_F0_F14
     TabOrder = 3
     object TS_F0_F14: TTabSheet
       Caption = 'F0-F14'
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 281
-      ExplicitHeight = 165
+      ExplicitWidth = 137
     end
     object TS_F15_F28: TTabSheet
       Caption = 'F15-F28'
       ImageIndex = 1
+      ExplicitWidth = 137
     end
   end
 end
diff --git a/src/forms/fSprHVEdit.pas b/src/forms/fSprHVEdit.pas
index a184b01..aca2c01 100644
--- a/src/forms/fSprHVEdit.pas
+++ b/src/forms/fSprHVEdit.pas
@@ -205,7 +205,7 @@ procedure TF_SprHVEdit.CreateCHBFunkce();
      Left     := 2;
      Caption  := 'F'+IntToStr(i);
      AutoSize := false;
-     Width    := 130;
+     Width    := 160;
 
      atop := atop + 16;
      if (i = 14) then aTop := 16;