From b5e33953a72f3aa9cd5e8953340623a95eb307bb Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 13 Jun 2016 17:26:15 +0000
Subject: [PATCH] tvplanit: Minor layout changes for SoundFinderBtn in
 EventEditDlg.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4740 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpevnteditdlg.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/tvplanit/source/vpevnteditdlg.pas b/components/tvplanit/source/vpevnteditdlg.pas
index 02b047b83..7fa0e84d6 100644
--- a/components/tvplanit/source/vpevnteditdlg.pas
+++ b/components/tvplanit/source/vpevnteditdlg.pas
@@ -212,6 +212,7 @@ begin
   StartTime.Parent := AppointmentGroupbox;
   StartTime.Left := AlarmAdvanceType.Left;
   StartTime.Top := StartDate.Top;
+  StartTime.TabOrder:= StartDate.TabOrder+ 1;
 
  {$IFDEF LCL}
   EndTime := TTimeEdit.Create(self);
@@ -223,6 +224,11 @@ begin
   EndTime.Parent := AppointmentGroupbox;
   EndTime.Left := AlarmAdvanceType.Left;
   EndTime.Top := EndDate.Top;
+  EndTime.TabOrder := EndDate.TabOrder + 1;
+
+  SoundFinderBtn.Top := AlarmAdvanceType.Top;
+  SoundFinderBtn.Height := AlarmAdvanceType.Height;
+  SoundFinderBtn.Width := SoundFinderBtn.Height;
 
   ReturnCode := rtAbandon;
   PopLists;
@@ -646,6 +652,7 @@ begin
   AlarmAdvance.Enabled  := AlarmSet.Checked;
   AlarmAdvanceType.Enabled  := AlarmSet.Checked;
   AdvanceUpDown.Enabled := AlarmSet.Checked;
+  SoundFinderBtn.Enabled := AlarmSet.Checked;
   Event.SnoozeTime := 0.0;
 end;
 {=====}