tvplanit: Fix positioning of controls in event editor for gtk2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5002 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-07-18 23:15:02 +00:00
parent 7119c27a3b
commit ccc86f27cf
2 changed files with 517 additions and 470 deletions
--- a/components/tvplanit/source/vpevnteditdlg.lfm
+++ b/components/tvplanit/source/vpevnteditdlg.lfm
@ -1,11 +1,11 @@
 object DlgEventEdit: TDlgEventEdit
  Left = 417
-  Height = 422
+  Height = 433
  Top = 211
  Width = 697
  BorderStyle = bsToolWindow
  Caption = 'Add / Edit Events'
-  ClientHeight = 422
+  ClientHeight = 433
  ClientWidth = 697
  Constraints.MinHeight = 378
  Constraints.MinWidth = 594
@ -16,7 +16,7 @@ object DlgEventEdit: TDlgEventEdit
  object ButtonPanel: TPanel
    Left = 0
    Height = 36
-    Top = 386
+    Top = 397
    Width = 697
    Align = alBottom
    BevelOuter = bvNone
@ -64,23 +64,54 @@ object DlgEventEdit: TDlgEventEdit
  end
  object Panel1: TPanel
    Left = 0
-    Height = 386
+    Height = 397
    Top = 0
    Width = 697
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 8
-    ClientHeight = 386
+    ClientHeight = 397
    ClientWidth = 697
    TabOrder = 1
    object AppointmentGroupBox: TGroupBox
      Left = 8
-      Height = 224
+      Height = 215
      Top = 8
      Width = 681
      Align = alTop
+      AutoSize = True
      Caption = 'Appointment'
-      ClientHeight = 204
+      ClientHeight = 195
+      ClientWidth = 677
+      TabOrder = 0
+      object Bevel1: TBevel
+        Left = 8
+        Height = 2
+        Top = 69
+        Width = 661
+        Align = alTop
+        BorderSpacing.Left = 8
+        BorderSpacing.Right = 8
+        Shape = bsTopLine
+      end
+      object Bevel2: TBevel
+        Left = 8
+        Height = 2
+        Top = 152
+        Width = 661
+        Align = alTop
+        BorderSpacing.Left = 8
+        BorderSpacing.Right = 8
+        Shape = bsTopLine
+      end
+      object PanelDescription: TPanel
+        Left = 0
+        Height = 69
+        Top = 0
+        Width = 677
+        Align = alTop
+        BevelOuter = bvNone
+        ClientHeight = 69
        ClientWidth = 677
        TabOrder = 0
        object DescriptionLbl: TLabel
@ -91,21 +122,40 @@ object DlgEventEdit: TDlgEventEdit
          Caption = 'Description:'
          ParentColor = False
        end
-      object Bevel1: TBevel
-        Left = 8
-        Height = 2
-        Top = 70
-        Width = 661
+        object DescriptionEdit: TEdit
+          Left = 88
+          Height = 23
+          Top = 8
+          Width = 575
          Anchors = [akTop, akLeft, akRight]
-        Shape = bsTopLine
+          TabOrder = 0
+          Text = 'DescriptionEdit'
        end
-      object Bevel2: TBevel
-        Left = 8
-        Height = 2
-        Top = 160
-        Width = 661
+        object LocationLbl: TLabel
+          Left = 5
+          Height = 15
+          Top = 43
+          Width = 49
+          Caption = 'Location:'
+          FocusControl = LocationEdit
+          ParentColor = False
+        end
+        object LocationEdit: TEdit
+          Left = 86
+          Height = 23
+          Top = 39
+          Width = 235
+          TabOrder = 1
+        end
+        object Category: TComboBox
+          Left = 484
+          Height = 23
+          Top = 40
+          Width = 180
          Anchors = [akTop, akLeft, akRight]
-        Shape = bsTopLine
+          ItemHeight = 15
+          OnDrawItem = CategoryDrawItem
+          TabOrder = 2
        end
        object CategoryLbl: TLabel
          Left = 403
@ -115,129 +165,21 @@ object DlgEventEdit: TDlgEventEdit
          Caption = 'Category:'
          ParentColor = False
        end
-      object StartTimeLbl: TLabel
-        Left = 33
-        Height = 15
-        Top = 108
-        Width = 54
-        Alignment = taRightJustify
-        Caption = 'Start time:'
-        ParentColor = False
-      end
-      object EndTimeLbl: TLabel
-        Left = 35
-        Height = 15
-        Top = 135
-        Width = 50
-        Alignment = taRightJustify
-        Caption = 'End time:'
-        ParentColor = False
-      end
-      object ImgRecurring: TImage
-        Left = 368
-        Height = 18
-        Top = 81
-        Width = 18
-        Picture.Data = {
-          1754506F727461626C654E6574776F726B477261706869637802000089504E47
-          0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000002
-          3F4944415478DA8D93DB4BD3611CC607FB336276D09242BAB042D639CB642D4F
-          6406AD365FD774E4A18165CEC59AFEDCDCA11DDC49CDB161494625FCC0688465
-          B58D0DD761F923E8DA3B11BC0DEF9EBE1B5D38FD61BB786FDEC3F33CEFF3E12B
-          0120F9DFBAF1BC71B0655A21153B939422D034552F28C62F447615E8FBAC95DD
-          5DD418746F5571CD7CDBFACD17CDB81655A2215C07FDCB76743C53E1A4F9B84F
-          54A077A943AE7FAFE6B9A411FEAC03919F4144574298CAF910FCFA04DEE5318C
-          A52C680D35A2AAB772B448A0E743BBACEBDD2DDEB36CC5ECAF694CFEF0E269CE
-          8FD037377C593B5C690ED694198FBF1871D55D8F83BA03CE22018A6C307F7A80
-          196112915C10EE8C0DBA3935CEDBE4F9C8383670144D3E05AEB8EA50A1DD17D8
-          F105F5EBD6B8236929383A531C2EB9CEAC9EE56ADC5B2F5576960BE56C6F4CB4
-          C4EB330D6BD4F226B5FCA7D67E6AE3B4E504B7FDD27E4D99A94CB5474A668C90
-          3242CA94818B8CCC98845A66973DE718456614995164D69FEE921A12774CDB85
-          C88C23B38D7F669B64B626CA9D90C608A9B0758F90BAC96CD593B611153B0616
-          EEE5FB89EF784C4803D68C09C38987A0C8A0C8A0C8E87EA3852BC915903AD223
-          689B68CE2335143D26A44E2E65C4DCEF6801694C9828423A92182A20D5CEDEC6
-          91EE433C2195150910D2D1471FFB115B09179086BF7B319E75C295B162786908
-          3DF33AB4F89538ACAFE009A95C741628B2AF8FEF84FE15CB230521458DA91AD5
-          F7ABD629729C901A08A96CD761CA0F0EB52C943268A29B84544A48074B11F80B
-          84AC88992D6E2B460000000049454E44AE426082
-        }
-      end
-      object RecurringLbl: TLabel
-        Left = 395
-        Height = 15
-        Top = 85
-        Width = 136
-        Caption = 'Appointment Recurrence:'
-        ParentColor = False
-      end
-      object Bevel3: TBevel
-        Left = 350
-        Height = 76
-        Top = 78
-        Width = 2
-        Shape = bsLeftLine
-      end
-      object IntervalLbl: TLabel
-        Left = 583
-        Height = 15
-        Top = 84
-        Width = 77
-        Caption = 'Interval (days):'
-        ParentColor = False
-      end
-      object ImgAlarm: TImage
-        Left = 13
-        Height = 25
-        Top = 168
-        Width = 23
-        Picture.Data = {
-          1754506F727461626C654E6574776F726B47726170686963E002000089504E47
-          0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000002
-          A74944415478DA95925B48D36118C685AE82826E0A821D6DFB5B6E2D4FA98545
-          9AB5B28BA0A88CF04282A80B233148C5B26645782A47A6094B4971289B9339E7
-          D40DE9346613358F9B3A9B5BDA0E364F34B5914FDF028751665D3CF07DF03EBF
-          EF7DDFEF090210F43F1A69A2548372AECF501AACF0DF373628A9ED2625154A8C
-          DB4C4A6E9E5515017773225AF2D8BE0D019616EA3931DA8615D41C79F5BB4DBD
-          1FFAC7EC157D111FF21C56D3BA0062E48EAAA945674F1A965C5A2C3B5B31DB95
-          0E57533C06CAC3A0CC65E5AED6FEC97CD6DA7100EEA17C7C73A931D77D1E9E37
-          09702A787034C6C0A1390AB58865FA0D408C3B89DAA78CC958B0D661C9FE1273
-          C624CCBC8DC7B4EE20DC9A48B85402B8B427D155CCF10500A32A8A4B8C5364D6
-          1577FF1DF8668DF86AB90FB75E08A7EE30269B633056BB1776191FCE46D245EB
-          09743C085E0E0086E55CADBBEF1C961D12782732E135A562B1FF0C5CAFE2315A
-          1F8EA14A1E3E9451B04A437E8E31A53E8EC66C962D00E8ABE24CCE5BAE61DE22
-          C2FB1A3E7AEB433158178D3122A7261AC6120EBA9FEC82BD960377DB314CC8E2
-          507793290B003A9F06578CA8E2E031E760A0E13454F762A1131F81B6808D8F32
-          013CAD61E813B3619130E1684944CF331E6AAE3384BF2CF175315BDF238D205D
-          6443714B00AFB5105F7A33A1C9E7A3B3888199668A0058641F2440B7D99EB5BF
-          1638B43D649B0D55E130BCB880715D06BCE3228CA82EA224652B7477776041C9
-          85ADE110A43798837F04F84502D2A02BDE87B6C258283279D09725A0F4D2163C
-          4ADA8C6E310D166914AAAED227D605F825CF6609E5594CE849E2EC8653F8FC4E
-          0883640F3EA977A3B74C808ACBF4CEBF025625CD608AA4E90CE80A78305747C1
-          5C1989A6AC1094A6D044FF04F0AB3A8DB14972859E539E4A778A5368D325C9B4
-          7671328DB5B6E607EA5FBE1E3353EA940000000049454E44AE426082
-        }
-      end
-      object SoundFinderBtn: TSpeedButton
-        Left = 328
-        Height = 22
-        Top = 167
-        Width = 23
-        Glyph.Data = {
-          F6000000424DF600000000000000760000002800000010000000100000000100
-          0400000000008000000000000000000000001000000010000000000000000000
-          8000008000000080800080000000800080008080000080808000C0C0C0000000
-          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
-          8888888888000888888888888080808888088888080880888088888080888808
-          0888880880888808888800888008880888880888808088080000088880808808
-          8888008880088808888888088088880808888880808888088088888808088088
-          8808888880808088888888888800088888888888888888888888
-        }
-        OnClick = SoundFinderBtnClick
      end
+      object PanelTimes: TPanel
+        Left = 0
+        Height = 81
+        Top = 71
+        Width = 677
+        Align = alTop
+        BevelOuter = bvNone
+        ClientHeight = 81
+        ClientWidth = 677
+        TabOrder = 1
        object imgClock: TImage
-        Left = 13
+          Left = 16
          Height = 16
-        Top = 80
+          Top = 5
          Width = 16
          AutoSize = True
          Picture.Data = {
@ -270,209 +212,223 @@ object DlgEventEdit: TDlgEventEdit
            20E6B2D91FE7D3E5DB1129EAA60000000049454E44AE426082
          }
        end
-      object RecurrenceEndsLbl: TLabel
-        Left = 424
+        object CBAllDay: TCheckBox
+          Left = 89
+          Height = 19
+          Top = 2
+          Width = 89
+          Caption = 'All Day Event'
+          OnClick = CBAllDayClick
+          TabOrder = 0
+        end
+        object StartTimeLbl: TLabel
+          Left = 36
          Height = 15
-        Top = 135
-        Width = 28
+          Top = 23
+          Width = 54
          Alignment = taRightJustify
-        Caption = 'Until:'
+          Caption = 'Start time:'
          ParentColor = False
        end
-      object DescriptionEdit: TEdit
-        Left = 86
+        object StartDate: TDateEdit
+          Left = 107
          Height = 23
-        Top = 11
-        Width = 580
-        Anchors = [akTop, akLeft, akRight]
-        TabOrder = 0
-        Text = 'DescriptionEdit'
+          Top = 19
+          Width = 104
+          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
+          OKCaption = 'OK'
+          CancelCaption = 'Cancel'
+          DateOrder = doNone
+          ButtonWidth = 23
+          Glyph.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
+            72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
+            52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
+            75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
+            C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
+            7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
+            ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
+            7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
+            B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
+            82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
+            BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
+            87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
+            75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
+            8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
+            73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
+            8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
+            71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
+            94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
+            ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
+            98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
+            FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
+            9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
+            FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
+            9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
+            FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
+            A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
+            F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
+            A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
+            8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
+          NumGlyphs = 1
+          MaxLength = 0
+          TabOrder = 1
        end
-      object AlarmSet: TCheckBox
+        object EndTimeLbl: TLabel
          Left = 38
-        Height = 19
-        Top = 170
-        Width = 74
-        Caption = '&Reminder:'
-        OnClick = AlarmSetClick
-        TabOrder = 10
+          Height = 15
+          Top = 50
+          Width = 50
+          Alignment = taRightJustify
+          Caption = 'End time:'
+          ParentColor = False
        end
-      object Category: TComboBox
-        Left = 484
+        object EndDate: TDateEdit
+          Left = 107
          Height = 23
-        Top = 40
-        Width = 180
-        ItemHeight = 15
-        OnDrawItem = CategoryDrawItem
+          Top = 46
+          Width = 104
+          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
+          OKCaption = 'OK'
+          CancelCaption = 'Cancel'
+          DateOrder = doNone
+          ButtonWidth = 23
+          Glyph.Data = {
+            36040000424D3604000000000000360000002800000010000000100000000100
+            2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
+            72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
+            52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
+            75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
+            C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
+            7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
+            ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
+            7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
+            B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
+            82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
+            BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
+            87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
+            75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
+            8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
+            73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
+            8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
+            71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
+            94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
+            ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
+            98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
+            FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
+            9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
+            FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
+            9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
+            FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
+            A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
+            F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
+            A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
+            8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+          }
+          NumGlyphs = 1
+          MaxLength = 0
          TabOrder = 2
        end
+        object RecurringLbl: TLabel
+          Left = 395
+          Height = 15
+          Top = 6
+          Width = 136
+          Caption = 'Appointment Recurrence:'
+          ParentColor = False
+        end
        object RecurringType: TComboBox
          Left = 395
          Height = 23
-        Top = 104
+          Top = 25
          Width = 171
          ItemHeight = 15
          OnChange = RecurringTypeChange
          Style = csDropDownList
-        TabOrder = 6
+          TabOrder = 3
+        end
+        object edtUnusedPlaceholder: TEdit
+          Left = 583
+          Height = 23
+          Top = 25
+          Width = 65
+          TabOrder = 4
+          Text = 'Placeholder control'
+          Visible = False
        end
        object IntervalUpDown: TUpDown
          Left = 648
          Height = 23
-        Top = 104
+          Top = 25
          Width = 16
          Associate = edtUnusedPlaceholder
          Max = 32767
          Min = 0
          OnClick = IntervalUpDownClick
          Position = 0
-        TabOrder = 8
-        Wrap = False
-      end
-      object AlarmAdvanceType: TComboBox
-        Left = 231
-        Height = 23
-        Top = 167
-        Width = 93
-        ItemHeight = 15
-        Style = csDropDownList
-        TabOrder = 13
-      end
-      object AdvanceUpDown: TUpDown
-        Left = 194
-        Height = 23
-        Top = 168
-        Width = 14
-        Associate = AlarmAdvance
-        Max = 120
-        Min = 1
-        OnClick = AdvanceUpDownClick
-        Position = 1
-        TabOrder = 12
-        Wrap = False
-      end
-      object CBAllDay: TCheckBox
-        Left = 86
-        Height = 19
-        Top = 80
-        Width = 89
-        Caption = 'All Day Event'
-        OnClick = CBAllDayClick
-        TabOrder = 3
-      end
-      object edtUnusedPlaceholder: TEdit
-        Left = 583
-        Height = 23
-        Top = 104
-        Width = 65
-        TabOrder = 7
-        Text = 'Placeholder control'
-        Visible = False
-      end
-      object StartDate: TDateEdit
-        Left = 104
-        Height = 23
-        Top = 104
-        Width = 104
-        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
-        OKCaption = 'OK'
-        CancelCaption = 'Cancel'
-        DateOrder = doNone
-        ButtonWidth = 23
-        Glyph.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
-          72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
-          52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
-          75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
-          C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
-          7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
-          ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
-          7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
-          B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
-          82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
-          BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
-          87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
-          75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
-          8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
-          73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
-          8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
-          71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
-          94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
-          ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
-          98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
-          FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
-          9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
-          FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
-          9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
-          FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
-          A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
-          F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
-          A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
-          8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
-        }
-        NumGlyphs = 1
-        MaxLength = 0
-        TabOrder = 4
-      end
-      object EndDate: TDateEdit
-        Left = 104
-        Height = 23
-        Top = 131
-        Width = 104
-        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
-        OKCaption = 'OK'
-        CancelCaption = 'Cancel'
-        DateOrder = doNone
-        ButtonWidth = 23
-        Glyph.Data = {
-          36040000424D3604000000000000360000002800000010000000100000000100
-          2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
-          72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
-          52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
-          75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
-          C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
-          7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
-          ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
-          7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
-          B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
-          82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
-          BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
-          87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
-          75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
-          8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
-          73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
-          8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
-          71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
-          94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
-          ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
-          98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
-          FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
-          9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
-          FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
-          9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
-          FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
-          A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
-          F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
-          A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
-          8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
-        }
-        NumGlyphs = 1
-        MaxLength = 0
          TabOrder = 5
+          Wrap = False
+        end
+        object IntervalLbl: TLabel
+          Left = 583
+          Height = 15
+          Top = 5
+          Width = 77
+          Caption = 'Interval (days):'
+          ParentColor = False
+        end
+        object ImgRecurring: TImage
+          Left = 368
+          Height = 18
+          Top = 5
+          Width = 18
+          Picture.Data = {
+            1754506F727461626C654E6574776F726B477261706869637802000089504E47
+            0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000002
+            3F4944415478DA8D93DB4BD3611CC607FB336276D09242BAB042D639CB642D4F
+            6406AD365FD774E4A18165CEC59AFEDCDCA11DDC49CDB161494625FCC0688465
+            B58D0DD761F923E8DA3B11BC0DEF9EBE1B5D38FD61BB786FDEC3F33CEFF3E12B
+            0120F9DFBAF1BC71B0655A21153B939422D034552F28C62F447615E8FBAC95DD
+            5DD418746F5571CD7CDBFACD17CDB81655A2215C07FDCB76743C53E1A4F9B84F
+            54A077A943AE7FAFE6B9A411FEAC03919F4144574298CAF910FCFA04DEE5318C
+            A52C680D35A2AAB772B448A0E743BBACEBDD2DDEB36CC5ECAF694CFEF0E269CE
+            8FD037377C593B5C690ED694198FBF1871D55D8F83BA03CE22018A6C307F7A80
+            196112915C10EE8C0DBA3935CEDBE4F9C8383670144D3E05AEB8EA50A1DD17D8
+            F105F5EBD6B8236929383A531C2EB9CEAC9EE56ADC5B2F5576960BE56C6F4CB4
+            C4EB330D6BD4F226B5FCA7D67E6AE3B4E504B7FDD27E4D99A94CB5474A668C90
+            3242CA94818B8CCC98845A66973DE718456614995164D69FEE921A12774CDB85
+            C88C23B38D7F669B64B626CA9D90C608A9B0758F90BAC96CD593B611153B0616
+            EEE5FB89EF784C4803D68C09C38987A0C8A0C8A0C8E87EA3852BC915903AD223
+            689B68CE2335143D26A44E2E65C4DCEF6801694C9828423A92182A20D5CEDEC6
+            91EE433C2195150910D2D1471FFB115B09179086BF7B319E75C295B162786908
+            3DF33AB4F89538ACAFE009A95C741628B2AF8FEF84FE15CB230521458DA91AD5
+            F7ABD629729C901A08A96CD761CA0F0EB52C943268A29B84544A48074B11F80B
+            84AC88992D6E2B460000000049454E44AE426082
+          }
+        end
+        object RecurrenceEndsLbl: TLabel
+          Left = 424
+          Height = 15
+          Top = 59
+          Width = 28
+          Alignment = taRightJustify
+          Caption = 'Until:'
+          ParentColor = False
        end
        object RepeatUntil: TDateEdit
          Left = 464
          Height = 23
-        Top = 131
+          Top = 55
          Width = 100
          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
          OKCaption = 'OK'
@ -517,38 +473,121 @@ object DlgEventEdit: TDlgEventEdit
          }
          NumGlyphs = 1
          MaxLength = 0
-        TabOrder = 9
+          TabOrder = 6
+        end
+        object Bevel3: TBevel
+          Left = 350
+          Height = 76
+          Top = 1
+          Width = 2
+          Shape = bsLeftLine
+        end
+      end
+      object PanelAlarm: TPanel
+        Left = 0
+        Height = 41
+        Top = 154
+        Width = 677
+        Align = alTop
+        BevelOuter = bvNone
+        ClientHeight = 41
+        ClientWidth = 677
+        TabOrder = 2
+        object ImgAlarm: TImage
+          Left = 13
+          Height = 25
+          Top = 5
+          Width = 23
+          Picture.Data = {
+            1754506F727461626C654E6574776F726B47726170686963E002000089504E47
+            0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000002
+            A74944415478DA95925B48D36118C685AE82826E0A821D6DFB5B6E2D4FA98545
+            9AB5B28BA0A88CF04282A80B233148C5B26645782A47A6094B4971289B9339E7
+            D40DE9346613358F9B3A9B5BDA0E364F34B5914FDF028751665D3CF07DF03EBF
+            EF7DDFEF090210F43F1A69A2548372AECF501AACF0DF373628A9ED2625154A8C
+            DB4C4A6E9E5515017773225AF2D8BE0D019616EA3931DA8615D41C79F5BB4DBD
+            1FFAC7EC157D111FF21C56D3BA0062E48EAAA945674F1A965C5A2C3B5B31DB95
+            0E57533C06CAC3A0CC65E5AED6FEC97CD6DA7100EEA17C7C73A931D77D1E9E37
+            09702A787034C6C0A1390AB58865FA0D408C3B89DAA78CC958B0D661C9FE1273
+            C624CCBC8DC7B4EE20DC9A48B85402B8B427D155CCF10500A32A8A4B8C5364D6
+            1577FF1DF8668DF86AB90FB75E08A7EE30269B633056BB1776191FCE46D245EB
+            09743C085E0E0086E55CADBBEF1C961D12782732E135A562B1FF0C5CAFE2315A
+            1F8EA14A1E3E9451B04A437E8E31A53E8EC66C962D00E8ABE24CCE5BAE61DE22
+            C2FB1A3E7AEB433158178D3122A7261AC6120EBA9FEC82BD960377DB314CC8E2
+            507793290B003A9F06578CA8E2E031E760A0E13454F762A1131F81B6808D8F32
+            013CAD61E813B3619130E1684944CF331E6AAE3384BF2CF175315BDF238D205D
+            6443714B00AFB5105F7A33A1C9E7A3B3888199668A0058641F2440B7D99EB5BF
+            1638B43D649B0D55E130BCB880715D06BCE3228CA82EA224652B7477776041C9
+            85ADE110A43798837F04F84502D2A02BDE87B6C258283279D09725A0F4D2163C
+            4ADA8C6E310D166914AAAED227D605F825CF6609E5594CE849E2EC8653F8FC4E
+            0883640F3EA977A3B74C808ACBF4CEBF025625CD608AA4E90CE80A78305747C1
+            5C1989A6AC1094A6D044FF04F0AB3A8DB14972859E539E4A778A5368D325C9B4
+            7671328DB5B6E607EA5FBE1E3353EA940000000049454E44AE426082
+          }
+        end
+        object AlarmSet: TCheckBox
+          Left = 38
+          Height = 19
+          Top = 7
+          Width = 74
+          Caption = '&Reminder:'
+          OnClick = AlarmSetClick
+          TabOrder = 0
        end
        object AlarmAdvance: TEdit
          Left = 136
          Height = 23
-        Top = 168
+          Top = 5
          Width = 58
          OnChange = AlarmAdvanceChange
-        TabOrder = 11
+          TabOrder = 1
          Text = 'AlarmAdvance'
        end
-      object LocationLbl: TLabel
-        Left = 5
-        Height = 15
-        Top = 43
-        Width = 49
-        Caption = 'Location:'
-        FocusControl = LocationEdit
-        ParentColor = False
-      end
-      object LocationEdit: TEdit
-        Left = 86
+        object AdvanceUpDown: TUpDown
+          Left = 194
          Height = 23
-        Top = 39
-        Width = 235
-        TabOrder = 1
+          Top = 5
+          Width = 14
+          Associate = AlarmAdvance
+          Max = 120
+          Min = 1
+          OnClick = AdvanceUpDownClick
+          Position = 1
+          TabOrder = 2
+          Wrap = False
+        end
+        object AlarmAdvanceType: TComboBox
+          Left = 231
+          Height = 23
+          Top = 4
+          Width = 93
+          ItemHeight = 15
+          Style = csDropDownList
+          TabOrder = 3
+        end
+        object SoundFinderBtn: TSpeedButton
+          Left = 328
+          Height = 22
+          Top = 4
+          Width = 23
+          Glyph.Data = {
+            F6000000424DF600000000000000760000002800000010000000100000000100
+            0400000000008000000000000000000000001000000010000000000000000000
+            8000008000000080800080000000800080008080000080808000C0C0C0000000
+            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
+            8888888888000888888888888080808888088888080880888088888080888808
+            0888880880888808888800888008880888880888808088080000088880808808
+            8888008880088808888888088088880808888880808888088088888808088088
+            8808888880808088888888888800088888888888888888888888
+          }
+          OnClick = SoundFinderBtnClick
+        end
      end
    end
    object NotesMemo: TMemo
      Left = 8
-      Height = 138
-      Top = 240
+      Height = 158
+      Top = 231
      Width = 681
      Align = alClient
      ScrollBars = ssVertical
@ -557,7 +596,7 @@ object DlgEventEdit: TDlgEventEdit
    object Bevel4: TBevel
      Left = 8
      Height = 8
-      Top = 232
+      Top = 223
      Width = 681
      Align = alTop
      Shape = bsSpacer
--- a/components/tvplanit/source/vpevnteditdlg.pas
+++ b/components/tvplanit/source/vpevnteditdlg.pas
@ -73,6 +73,9 @@ type
    LocationLbl: TLabel;
    NotesMemo: TMemo;
    Panel1: TPanel;
+    PanelAlarm: TPanel;
+    PanelTimes: TPanel;
+    PanelDescription: TPanel;
    StartDate: TDateEdit;
    EndDate: TDateEdit;
    RepeatUntil: TDateEdit;
@ -214,10 +217,10 @@ begin
  StartTime := TTimeEdit.Create(self);
 {$ELSE}
  StartTime := TCombobox.Create(self);
-  StartTime.Width := 83;
  StartTime.ItemIndex := -1;
 {$ENDIF}
-  StartTime.Parent := AppointmentGroupbox;
+  StartTime.Width := 83;
+  StartTime.Parent := PanelTimes;
  StartTime.Left := AlarmAdvanceType.Left;
  StartTime.Top := StartDate.Top;
  StartTime.TabOrder:= StartDate.TabOrder+ 1;
@ -226,10 +229,10 @@ begin
  EndTime := TTimeEdit.Create(self);
 {$ELSE}
  EndTime := TCombobox.Create(self);
-  EndTime.Width := 93;
  EndTime.ItemIndex := -1;
 {$ENDIF}
-  EndTime.Parent := AppointmentGroupbox;
+  EndTime.Width := 83;
+  EndTime.Parent := PanelTimes;
  EndTime.Left := AlarmAdvanceType.Left;
  EndTime.Top := EndDate.Top;
  EndTime.TabOrder := EndDate.TabOrder + 1;
@ -245,7 +248,7 @@ begin

  FCustomInterval := TVpRightAlignedEdit.Create(Self);
  with FCustomInterval do begin
-    Parent := AppointmentGroupbox;
+    Parent := PanelTimes;
    Top := IntervalUpDown.Top + 1;
    Left := IntervalUpDown.Left - 65;
    Height := IntervalUpDown.Height - 1;
@ -628,6 +631,7 @@ end;
 procedure TDlgEventEdit.PositionControls;
 const
  DELTA = 8;
+  VDELTA = 8;
  VDIST = 5;
  VBEVELDIST = 8;
 var
@ -646,7 +650,7 @@ begin
  // Position controls according to label widths
  w := MaxValue([GetLabelWidth(DescriptionLbl), GetLabelWidth(LocationLbl), GetLabelWidth(StartTimeLbl), GetLabelWidth(EndTimeLbl)]);
  DescriptionEdit.Left := w + 2*DELTA;
-  DescriptionEdit.Width := AppointmentGroupbox.ClientWidth - DescriptionEdit.Left - DELTA;
+  DescriptionEdit.Width := PanelDescription.ClientWidth - DescriptionEdit.Left - DELTA;
  DescriptionLbl.Left := DescriptionEdit.Left - GetLabelWidth(DescriptionLbl) - DELTA;

  LocationEdit.Left := DescriptionEdit.Left;
@ -705,15 +709,17 @@ begin
  CategoryLbl.Left := Category.Left - DELTA - GetLabelWidth(CategoryLbl);

  // *** Vertical positions ***
+  DescriptionEdit.Top := VDELTA;
  DescriptionLbl.Top := DescriptionEdit.Top + (DescriptionEdit.Height - DescriptionLbl.Height) div 2;
  LocationEdit.Top := BottomOf(DescriptionEdit) + VDIST;
  LocationLbl.Top := LocationEdit.Top + (LocationEdit.Height - LocationLbl.Height) div 2;
  CategoryLbl.Top := LocationLbl.Top;
  Category.Top := LocationEdit.Top;
+  PanelDescription.ClientHeight := BottomOf(LocationEdit) + VDIST;

-  Bevel1.Top := BottomOf(LocationEdit) + VBEVELDIST;
+ // Bevel1.Top := BottomOf(LocationEdit) + VBEVELDIST;

-  imgClock.Top := Bevel1.Top + 2 + VBEVELDIST;
+  imgClock.Top := VDELTA; //Bevel1.Top + 2 + VBEVELDIST;
  CbAllDay.Top := imgClock.Top;
  imgRecurring.Top := imgClock.Top;

@ -731,10 +737,11 @@ begin
  IntervalLbl.Top := RecurringLbl.Top;
  RepeatUntil.Top := EndDate.Top;
  RecurrenceEndsLbl.Top := RepeatUntil.Top + (RepeatUntil.Height - RecurrenceEndsLbl.Height) div 2;
+  PanelTimes.ClientHeight := BottomOf(EndDate) + VDELTA;
+  Bevel3.Top := VDELTA;
+  Bevel3.Height := PanelTimes.ClientHeight - 2*VDELTA;

-  Bevel2.Top := BottomOf(EndDate) + VBEVELDIST;
-
-  imgAlarm.Top := Bevel2.Top + 2 + VBEVELDIST;
+  imgAlarm.Top := VDELTA;
  AlarmAdvance.Top := imgAlarm.Top;
  AdvanceUpdown.Top := AlarmAdvance.Top;
  AlarmSet.Top := AlarmAdvance.Top + (AlarmAdvance.Height - AlarmSet.Height) div 2;
@ -742,8 +749,7 @@ begin
  SoundFinderBtn.Height := AlarmAdvanceType.Height;
  SoundFinderBtn.Width := SoundFinderBtn.Height;
  SoundFinderBtn.Top := AlarmAdvanceType.Top;
-
-  AppointmentGroupbox.ClientHeight := BottomOf(AlarmAdvance) + VBEVELDIST;
+  PanelAlarm.ClientHeight := BottomOf(AlarmAdvance) + VDIST;

  OKBtn.Width := Max(GetButtonWidth(OKBtn), GetButtonWidth(CancelBtn));
  CancelBtn.Width := OKBtn.Width;
@ -753,9 +759,11 @@ begin
  OKBtn.Top := (ButtonPanel.ClientHeight - Panel1.BorderWidth - OKBtn.Height) div 2;
  CancelBtn.Top := OKBtn.Top;

-//  NotesMemo.Top := BottomOf(AppointmentGroupbox) + VBEVELDIST;
+  NotesMemo.Top := BottomOf(AppointmentGroupbox) + Bevel4.Height;
+  NotesMemo.Width := AppointmentGroupbox.Width;
+  NotesMemo.Left := AppointmentGroupbox.Left;

-//  ClientHeight := BottomOf(NotesMemo) + VBEVELDIST + ButtonPanel.Height;
+  ClientHeight := AppointmentGroupbox.Height + Bevel4.Height + NotesMemo.Height + ButtonPanel.Height;
 end;