Fixed some small bugs

fixed dayview reworked event Edit Dlg git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1084 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-12-24 22:41:52 +00:00
parent 3cc5d924ae
commit b6ccf41e4f
9 changed files with 523 additions and 522 deletions
--- a/components/tvplanit/source/vpalarmdlg.lfm
+++ b/components/tvplanit/source/vpalarmdlg.lfm
@ -1,38 +1,41 @@
 object AlarmNotifyForm: TAlarmNotifyForm
-  Left = 176
-  Height = 197
-  Top = 232
-  Width = 400
+  Left = 490
+  Height = 209
+  Top = 253
+  Width = 407
  HorzScrollBar.Page = 399
  VertScrollBar.Page = 196
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Reminder'
-  ClientHeight = 197
-  ClientWidth = 400
+  ClientHeight = 209
+  ClientWidth = 407
  Color = clWindow
  KeyPreview = True
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  Position = poDefault
+  LCLVersion = '0.9.29'
  object SnoozeCaption: TLabel
-    Left = 48
-    Height = 13
+    Left = 24
+    Height = 57
    Top = 136
-    Width = 78
+    Width = 102
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'SnoozeCaption'
    ParentColor = False
+    WordWrap = True
  end
  object lSubject: TLabel
    Left = 24
-    Height = 14
+    Height = 16
    Top = 32
-    Width = 47
+    Width = 46
    Caption = 'lSubject'
    Font.Style = [fsBold]
    ParentColor = False
+    ParentFont = False
  end
  object lNotes: TLabel
    Left = 24
@ -46,35 +49,35 @@ object AlarmNotifyForm: TAlarmNotifyForm
  end
  object lTime: TLabel
    Left = 24
-    Height = 14
+    Height = 16
    Top = 8
-    Width = 25
+    Width = 31
    Caption = 'lTime'
    ParentColor = False
  end
  object DismissBtn: TButton
-    Left = 216
-    Height = 25
-    Top = 168
-    Width = 88
+    Left = 176
+    Height = 32
+    Top = 170
+    Width = 112
    Caption = 'DismissBtn'
    OnClick = DismissBtnClick
    TabOrder = 0
  end
  object SnoozeBtn: TButton
-    Left = 312
-    Height = 25
+    Left = 296
+    Height = 32
    Top = 136
-    Width = 83
+    Width = 99
    Caption = 'SnoozeBtn'
    OnClick = SnoozeBtnClick
    TabOrder = 1
  end
  object OpenItemBtn: TButton
-    Left = 312
-    Height = 25
-    Top = 168
-    Width = 83
+    Left = 296
+    Height = 32
+    Top = 170
+    Width = 99
    Caption = 'OpenItemBtn'
    Default = True
    OnClick = OpenItemBtnClick
@ -82,11 +85,10 @@ object AlarmNotifyForm: TAlarmNotifyForm
  end
  object SnoozeCombo: TComboBox
    Left = 136
-    Height = 21
+    Height = 23
    Top = 136
-    Width = 168
-    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
-    ItemHeight = 13
+    Width = 152
+    ItemHeight = 15
    Items.Strings = (
      '5 Minutes'
      '10 Minutes'
@ -117,6 +119,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
  object EventDialog: TVpEventEditDialog
    Version = 'v1.03'
    TimeFormat = tf24Hour
+    Options = []
    Placement.Position = mpCenterTop
    Placement.Top = 10
    Placement.Left = 10
--- a/components/tvplanit/source/vpalarmdlg.lrs
+++ b/components/tvplanit/source/vpalarmdlg.lrs
@ -1,36 +1,36 @@
 { Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }

 LazarusResources.Add('TAlarmNotifyForm','FORMDATA',[
-  'TPF0'#16'TAlarmNotifyForm'#15'AlarmNotifyForm'#4'Left'#3#176#0#6'Height'#3
-  +#197#0#3'Top'#3#232#0#5'Width'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'Ver'
+  'TPF0'#16'TAlarmNotifyForm'#15'AlarmNotifyForm'#4'Left'#3#234#1#6'Height'#3
+  +#209#0#3'Top'#3#253#0#5'Width'#3#151#1#18'HorzScrollBar.Page'#3#143#1#18'Ver'
  +'tScrollBar.Page'#3#196#0#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderSty'
-  +'le'#7#8'bsDialog'#7'Caption'#6#8'Reminder'#12'ClientHeight'#3#197#0#11'Clie'
-  +'ntWidth'#3#144#1#5'Color'#7#8'clWindow'#10'KeyPreview'#9#9'OnKeyDown'#7#11
-  +'FormKeyDown'#6'OnShow'#7#8'FormShow'#8'Position'#7#9'poDefault'#0#6'TLabel'
-  +#13'SnoozeCaption'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#136#0#5'Width'#2'N'#9
-  +'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#13'SnoozeCaption'
-  +#11'ParentColor'#8#0#0#6'TLabel'#8'lSubject'#4'Left'#2#24#6'Height'#2#14#3'T'
-  +'op'#2' '#5'Width'#2'/'#7'Caption'#6#8'lSubject'#10'Font.Style'#11#6'fsBold'
-  +#0#11'ParentColor'#8#0#0#6'TLabel'#6'lNotes'#4'Left'#2#24#6'Height'#2'@'#3'T'
-  +'op'#2'@'#5'Width'#3'p'#1#8'AutoSize'#8#7'Caption'#6#6'lNotes'#11'ParentColo'
-  +'r'#8#8'WordWrap'#9#0#0#6'TLabel'#5'lTime'#4'Left'#2#24#6'Height'#2#14#3'Top'
-  +#2#8#5'Width'#2#25#7'Caption'#6#5'lTime'#11'ParentColor'#8#0#0#7'TButton'#10
-  +'DismissBtn'#4'Left'#3#216#0#6'Height'#2#25#3'Top'#3#168#0#5'Width'#2'X'#7'C'
-  +'aption'#6#10'DismissBtn'#7'OnClick'#7#15'DismissBtnClick'#8'TabOrder'#2#0#0
-  +#0#7'TButton'#9'SnoozeBtn'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'#3#136#0#5'Wi'
-  +'dth'#2'S'#7'Caption'#6#9'SnoozeBtn'#7'OnClick'#7#14'SnoozeBtnClick'#8'TabOr'
-  +'der'#2#1#0#0#7'TButton'#11'OpenItemBtn'#4'Left'#3'8'#1#6'Height'#2#25#3'Top'
-  +#3#168#0#5'Width'#2'S'#7'Caption'#6#11'OpenItemBtn'#7'Default'#9#7'OnClick'#7
-  +#16'OpenItemBtnClick'#8'TabOrder'#2#2#0#0#9'TComboBox'#11'SnoozeCombo'#4'Lef'
-  +'t'#3#136#0#6'Height'#2#21#3'Top'#3#136#0#5'Width'#3#168#0#16'AutoCompleteTe'
-  +'xt'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'
-  +#2#13#13'Items.Strings'#1#6#9'5 Minutes'#6#10'10 Minutes'#6#10'15 Minutes'#6
-  +#10'30 Minutes'#6#10'45 Minutes'#6#7'1 Hours'#6#7'2 Hours'#6#7'3 Hours'#6#7
-  +'4 Hours'#6#7'5 Hours'#6#7'6 Hours'#6#7'7 Hours'#6#7'8 Hours'#6#6'1 Days'#6#6
-  +'2 Days'#6#6'3 Days'#6#6'4 Days'#6#6'5 Days'#6#6'6 Days'#6#6'1 Week'#0#8'OnC'
-  +'hange'#7#17'SnoozeComboChange'#11'ParentColor'#9#5'Style'#7#14'csDropDownLi'
-  +'st'#8'TabOrder'#2#3#0#0#18'TVpEventEditDialog'#11'EventDialog'#7'Version'#6
-  +#5'v1.03'#10'TimeFormat'#7#8'tf24Hour'#18'Placement.Position'#7#11'mpCenterT'
-  +'op'#13'Placement.Top'#2#10#14'Placement.Left'#2#10#16'Placement.Height'#3
-  +#156#1#15'Placement.Width'#3#193#2#4'left'#3'h'#1#3'top'#2#8#0#0#0
+  +'le'#7#8'bsDialog'#7'Caption'#6#8'Reminder'#12'ClientHeight'#3#209#0#11'Clie'
+  +'ntWidth'#3#151#1#5'Color'#7#8'clWindow'#10'KeyPreview'#9#9'OnKeyDown'#7#11
+  +'FormKeyDown'#6'OnShow'#7#8'FormShow'#8'Position'#7#9'poDefault'#10'LCLVersi'
+  +'on'#6#6'0.9.29'#0#6'TLabel'#13'SnoozeCaption'#4'Left'#2#24#6'Height'#2'9'#3
+  +'Top'#3#136#0#5'Width'#2'f'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7
+  +'Caption'#6#13'SnoozeCaption'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#8
+  +'lSubject'#4'Left'#2#24#6'Height'#2#16#3'Top'#2' '#5'Width'#2'.'#7'Caption'#6
+  +#8'lSubject'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8
+  +#0#0#6'TLabel'#6'lNotes'#4'Left'#2#24#6'Height'#2'@'#3'Top'#2'@'#5'Width'#3
+  +'p'#1#8'AutoSize'#8#7'Caption'#6#6'lNotes'#11'ParentColor'#8#8'WordWrap'#9#0
+  +#0#6'TLabel'#5'lTime'#4'Left'#2#24#6'Height'#2#16#3'Top'#2#8#5'Width'#2#31#7
+  +'Caption'#6#5'lTime'#11'ParentColor'#8#0#0#7'TButton'#10'DismissBtn'#4'Left'
+  +#3#176#0#6'Height'#2' '#3'Top'#3#170#0#5'Width'#2'p'#7'Caption'#6#10'Dismiss'
+  +'Btn'#7'OnClick'#7#15'DismissBtnClick'#8'TabOrder'#2#0#0#0#7'TButton'#9'Snoo'
+  +'zeBtn'#4'Left'#3'('#1#6'Height'#2' '#3'Top'#3#136#0#5'Width'#2'c'#7'Caption'
+  +#6#9'SnoozeBtn'#7'OnClick'#7#14'SnoozeBtnClick'#8'TabOrder'#2#1#0#0#7'TButto'
+  +'n'#11'OpenItemBtn'#4'Left'#3'('#1#6'Height'#2' '#3'Top'#3#170#0#5'Width'#2
+  +'c'#7'Caption'#6#11'OpenItemBtn'#7'Default'#9#7'OnClick'#7#16'OpenItemBtnCli'
+  +'ck'#8'TabOrder'#2#2#0#0#9'TComboBox'#11'SnoozeCombo'#4'Left'#3#136#0#6'Heig'
+  +'ht'#2#23#3'Top'#3#136#0#5'Width'#3#152#0#10'ItemHeight'#2#15#13'Items.Strin'
+  +'gs'#1#6#9'5 Minutes'#6#10'10 Minutes'#6#10'15 Minutes'#6#10'30 Minutes'#6#10
+  +'45 Minutes'#6#7'1 Hours'#6#7'2 Hours'#6#7'3 Hours'#6#7'4 Hours'#6#7'5 Hours'
+  +#6#7'6 Hours'#6#7'7 Hours'#6#7'8 Hours'#6#6'1 Days'#6#6'2 Days'#6#6'3 Days'#6
+  +#6'4 Days'#6#6'5 Days'#6#6'6 Days'#6#6'1 Week'#0#8'OnChange'#7#17'SnoozeComb'
+  +'oChange'#11'ParentColor'#9#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#3#0#0
+  +#18'TVpEventEditDialog'#11'EventDialog'#7'Version'#6#5'v1.03'#10'TimeFormat'
+  +#7#8'tf24Hour'#7'Options'#11#0#18'Placement.Position'#7#11'mpCenterTop'#13'P'
+  +'lacement.Top'#2#10#14'Placement.Left'#2#10#16'Placement.Height'#3#156#1#15
+  +'Placement.Width'#3#193#2#4'left'#3'h'#1#3'top'#2#8#0#0#0
 ]);
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@ -55,7 +55,7 @@ type
  
  TVpAlarmAdvType = (atMinutes, atHours, atDays);

-  TVpRepeatType = (rtNone, rtDaily, rtWeekly, rtMonthlyByDay, rtMonthlyByDate,
+  TVpRepeatType = (rtNone=0, rtDaily, rtWeekly, rtMonthlyByDay, rtMonthlyByDate,
    rtYearlyByDay, rtYearlyByDate, rtCustom);

  TVpContactSort = (csLastFirst, csFirstLast);
@ -185,7 +185,11 @@ type
    property EventCount: Integer read GetCount;
  end;

+  { TVpEvent }
+
  TVpEvent = class
+  private
+    FLocation: string;
  protected{private}
    FOwner: TVpSchedule;
    FItemIndex: Integer;
@ -267,6 +271,7 @@ type
    { is Zero if IntervalCode <> 7      }
    property CustInterval : Integer read FCustInterval write SetCustInterval;
    property Owner: TVpSchedule read FOwner;
+    property Location: string read FLocation write FLocation;
    { Reserved for your use }
    property UserField0: string read FUserField0 write FUserField0;
    property UserField1: string read FUserField1 write FUserField1;
@ -901,14 +906,9 @@ end;

 procedure TVpEvent.SetAllDayEvent(Value: Boolean);
 begin
-  if Value <> FAllDayEvent then begin
+  if Value <> FAllDayEvent then
+    begin
      FAllDayEvent := Value;
-    if FAllDayEvent then begin
-      {Set the StartTime to 12:00 AM}
-      StartTime := Trunc(StartTime);
-      {Set the EndTime to 11:59 PM}
-      EndTime := StartTime + 1 - (1 / MinutesInDay);
-    end;
      Changed := true;
    end;
 end;
@ -1266,20 +1266,21 @@ end;
 function TVpSchedule.EventCountByDay(Value: TDateTime): Integer;
 var
  I: Integer;
-  Evnt: TVpEvent;
+  Event: TVpEvent;
 begin
  result := 0;
  for I := 0 to pred(EventCount) do begin
-    Evnt := GetEvent(I);
+    Event := GetEvent(I);
    { if this is a repeating event and it falls on today then inc     }
    { result                                                          }
-    if (Evnt.RepeatCode > rtNone)
-    and (RepeatsOn(Evnt, Value))
+    if (Event.RepeatCode > rtNone)
+    and (RepeatsOn(Event, Value))
    then
      Inc(Result)
    { otherwise if it is an event that naturally falls on today, then }
    { inc result                                                      }
-    else if (trunc(Evnt.StartTime) = trunc(Value)) then
+    else if ((trunc(Value) >= trunc(Event.StartTime))
+         and (trunc(Value) <= trunc(Event.EndTime))) then
      Inc(Result);
  end;
 end;
@ -1306,7 +1307,8 @@ begin
        EventList.Add(Event)
      { otherwise if this event naturally falls on "Date" then add it to   }
      { the list.                                                          }
-      else if (trunc(Event.StartTime) = trunc(Date)) then
+      else if ((trunc(Date) >= trunc(Event.StartTime))
+           and (trunc(Date) <= trunc(Event.EndTime))) then
        EventList.Add(Event);
    end;
  end;
@ -1327,7 +1329,8 @@ begin
    { Add this days events to the Event List. }
    for I := 0 to pred(EventCount) do begin
      Event := GetEvent(I);
-      if (trunc(Event.StartTime) = trunc(Date)) and (Event.AllDayEvent) then
+      if (((trunc(Date) >= trunc(Event.StartTime)) and (trunc(Date) <= trunc(Event.EndTime))) or (RepeatsOn(Event,Date)))
+      and (Event.AllDayEvent) then
        EventList.Add(Event);
    end;
  end;
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@ -126,7 +126,6 @@ type
    {$ENDIF}
  public
    constructor Create(AOwner: TComponent); override;
-    procedure Move(const Loc: TRect; Redraw: Boolean);
  end;

  TVpRHAttributes = class(TPersistent)
@ -532,19 +531,6 @@ begin
 end;
 {=====}

-procedure TVpDvInPlaceEdit.Move(const Loc: TRect; Redraw: Boolean);
-begin
-  CreateHandle;
-  Redraw := Redraw or not IsWindowVisible(Handle);
-  Invalidate;
-  with Loc do
-    SetWindowPos(Handle, HWND_TOP, Left, Top, Right - Left, Bottom - Top,
-      {SWP_SHOWWINDOW or }SWP_NOREDRAW);
-  if Redraw then Invalidate;
-  SetFocus;
-end;
-{=====}
-
 procedure TVpDvInPlaceEdit.CreateParams(var Params: TCreateParams);
 begin
  inherited CreateParams(Params);
@ -2236,14 +2222,14 @@ begin
    dvInPlaceEditor := TVpDvInPlaceEdit.Create(Self);
    dvInPlaceEditor.Parent := self;
    dvInPlaceEditor.OnExit := EndEdit;
-    dvInPlaceEditor.Move (Rect (dvActiveIconRec.Right + FGutterWidth +   
+    dvInPlaceEditor.SetBounds(dvActiveIconRec.Right + FGutterWidth +
                                    TextMargin,
                              dvActiveEventRec.Top + TextMargin,
                              dvActiveEventRec.Right,
-                                dvActiveEventRec.Bottom - 1),            
-                          true);                                         
+                              dvActiveEventRec.Bottom - 1);
    dvInPlaceEditor.Text := FActiveEvent.Description;
    Invalidate;
+    dvInPlaceEditor.SetFocus;
  end;
 end;
 {=====}
@ -3010,6 +2996,8 @@ var
                              { event represented by this record.           }
      WidthDivisor : Integer; { the maximum OLEvents of all of this event's }
                              { overlapping neighbors.                      }
+      RealStartTime : TDateTime;
+      RealEndTime : TDateTime;
    end;
  type
    TVpDvEventArray = array of TVpDvEventRec;
@ -3050,8 +3038,7 @@ var


    { returns the number of events which overlap the specified event }
-    function CountOverlappingEvents(Event: TVpEvent;
-      const EArray: TVpDvEventArray): Integer;
+    function CountOverlappingEvents(Event: TVpEvent;const EArray: TVpDvEventArray): Integer;
    var
      K, SelfLevel: Integer;
      Tmp: TVpEvent;
@ -3623,8 +3610,7 @@ begin
  for I := 0 to pred(MaxVisibleEvents) do begin
    if EventArray[I].Event = nil then
      Break;
-    EventArray[I].WidthDivisor := GetMaxOLEvents(
-      TVpEvent(EventArray[I].Event), EventArray);
+    EventArray[I].WidthDivisor := GetMaxOLEvents(TVpEvent(EventArray[I].Event), EventArray);
  end;

  {Make one last pass, to make sure that we have set up the width }
@ -3669,9 +3655,10 @@ begin
    { Determine how much time is represented by one pixel. It is the   }
    { amount of time represented by one line, divided by the height of }
    { a line in pixels. }
-    PixelDuration := (LineDuration
-       / (dvLineMatrix[Col, StartLine].Rec.Bottom -
-          dvLineMatrix[Col, StartLine].Rec.Top));
+    if (dvLineMatrix[Col, StartLine].Rec.Bottom - dvLineMatrix[Col, StartLine].Rec.Top) > 0 then
+      PixelDuration := (LineDuration / (dvLineMatrix[Col, StartLine].Rec.Bottom - dvLineMatrix[Col, StartLine].Rec.Top))
+    else
+      PixelDuration := 0;

    { Iterate through events and paint them }
    for I := 0 to pred(MaxVisibleEvents) do begin
@ -3682,11 +3669,17 @@ begin
      if Event = nil then
        Break;

-      { Find the line on which this event starts }
-      EventSLine := GetStartLine(Event.StartTime, Granularity);
      { remove the date portion from the start and end times }
-      EventSTime := Event.StartTime - trunc(Event.StartTime);
-      EventETime := Event.EndTime - trunc(Event.EndTime);
+      EventSTime := Event.StartTime;
+      EventETime := Event.EndTime;
+      if trunc(EventSTime) < trunc(RenderDate) then //First Event
+        EventSTime := 0+trunc(RenderDate);
+      if trunc(EventETime) > trunc(RenderDate) then //First Event
+        EventETime := 0.999+trunc(RenderDate);
+      EventSTime := EventSTime - RenderDate;
+      EventETime := EventETime - RenderDate;
+      { Find the line on which this event starts }
+      EventSLine := GetStartLine(EventSTime, Granularity);
      { Handle End Times of Midnight }
      if EventETime = 0 then                                             
        EventETime := EncodeTime (23, 59, 59, 0);                        
--- a/components/tvplanit/source/vpevnteditdlg.lfm
+++ b/components/tvplanit/source/vpevnteditdlg.lfm
@ -13,10 +13,10 @@ object DlgEventEdit: TDlgEventEdit
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  OnShow = FormShow
-  ParentFont = False
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
  object Panel1: TPanel
+    Left = 0
    Height = 41
    Top = 344
    Width = 697
@ -289,7 +289,7 @@ object DlgEventEdit: TDlgEventEdit
      Left = 40
      Height = 19
      Top = 170
-      Width = 74
+      Width = 68
      Caption = '&Reminder:'
      OnClick = AlarmSetClick
      TabOrder = 3
@ -300,7 +300,6 @@ object DlgEventEdit: TDlgEventEdit
      Top = 103
      Width = 93
      ItemHeight = 13
-      MaxLength = -1
      OnChangeBounds = StartTimeChange
      OnExit = StartTimeExit
      TabOrder = 4
@ -311,7 +310,6 @@ object DlgEventEdit: TDlgEventEdit
      Top = 127
      Width = 93
      ItemHeight = 13
-      MaxLength = -1
      OnChangeBounds = EndTimeChange
      OnExit = EndTimeExit
      TabOrder = 5
@ -322,7 +320,7 @@ object DlgEventEdit: TDlgEventEdit
      Top = 46
      Width = 182
      ItemHeight = 13
-      MaxLength = -1
+      OnDrawItem = CategoryDrawItem
      Style = csOwnerDrawFixed
      TabOrder = 1
    end
@ -332,8 +330,7 @@ object DlgEventEdit: TDlgEventEdit
      Top = 103
      Width = 183
      ItemHeight = 13
-      MaxLength = -1
-      OnChangeBounds = RecurringTypeChange
+      OnChange = RecurringTypeChange
      Style = csDropDownList
      TabOrder = 6
    end
@ -342,8 +339,11 @@ object DlgEventEdit: TDlgEventEdit
      Height = 29
      Top = 99
      Width = 19
+      Min = 0
      Max = 32767
+      Position = 0
      TabOrder = 9
+      Wrap = False
      OnClick = IntervalUpDownClick
    end
    object AlarmAdvType: TComboBox
@ -352,7 +352,6 @@ object DlgEventEdit: TDlgEventEdit
      Top = 168
      Width = 88
      ItemHeight = 13
-      MaxLength = -1
      Style = csDropDownList
      TabOrder = 8
    end
@ -365,13 +364,14 @@ object DlgEventEdit: TDlgEventEdit
      Max = 120
      Position = 1
      TabOrder = 10
+      Wrap = False
      OnClick = AdvanceUpDownClick
    end
    object CBAllDay: TCheckBox
      Left = 109
      Height = 19
      Top = 85
-      Width = 90
+      Width = 84
      Caption = 'All Day Event'
      OnClick = CBAllDayClick
      TabOrder = 2
@ -387,13 +387,15 @@ object DlgEventEdit: TDlgEventEdit
    end
    object StartDate: TDateEdit
      Left = 117
-      Height = 23
+      Height = 21
      Top = 104
      Width = 80
      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
      OKCaption = 'OK'
      CancelCaption = 'Cancel'
+      DateOrder = doNone
      ButtonWidth = 23
+      CharCase = ecNormal
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -431,18 +433,21 @@ object DlgEventEdit: TDlgEventEdit
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      NumGlyphs = 1
+      MaxLength = 0
      OnChangeBounds = StartDateChange
      TabOrder = 11
    end
    object EndDate: TDateEdit
      Left = 117
-      Height = 23
+      Height = 21
      Top = 131
      Width = 80
      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
      OKCaption = 'OK'
      CancelCaption = 'Cancel'
+      DateOrder = doNone
      ButtonWidth = 23
+      CharCase = ecNormal
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -480,18 +485,21 @@ object DlgEventEdit: TDlgEventEdit
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      NumGlyphs = 1
+      MaxLength = 0
      OnChangeBounds = EndDateChange
      TabOrder = 12
    end
    object RepeatUntil: TDateEdit
      Left = 460
-      Height = 23
+      Height = 21
      Top = 129
      Width = 80
      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
      OKCaption = 'OK'
      CancelCaption = 'Cancel'
+      DateOrder = doNone
      ButtonWidth = 23
+      CharCase = ecNormal
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -529,11 +537,12 @@ object DlgEventEdit: TDlgEventEdit
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      NumGlyphs = 1
+      MaxLength = 0
      TabOrder = 13
    end
    object AlarmAdvance: TEdit
      Left = 130
-      Height = 23
+      Height = 21
      Top = 168
      Width = 64
      OnChange = AlarmAdvanceChange
--- a/components/tvplanit/source/vpevnteditdlg.lrs
+++ b/components/tvplanit/source/vpevnteditdlg.lrs
@ -6,54 +6,54 @@ LazarusResources.Add('TDlgEventEdit','FORMDATA',[
  +#6#17'Add / Edit Events'#12'ClientHeight'#3#129#1#11'ClientWidth'#3#185#2#21
  +'Constraints.MinHeight'#3'z'#1#20'Constraints.MinWidth'#3'R'#2#11'Font.Heigh'
  +'t'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#6'On'
-  +'Show'#7#8'FormShow'#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#10'LC'
-  +'LVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#6'Height'#2')'#3'Top'#3'X'#1#5
-  +'Width'#3#185#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientH'
-  +'eight'#2')'#11'ClientWidth'#3#185#2#8'TabOrder'#2#0#0#6'TLabel'#15'Resource'
-  +'NameLbl'#4'Left'#2#8#6'Height'#2#16#3'Top'#2#12#5'Width'#3#129#1#8'AutoSize'
-  +#8#7'Caption'#6#13'Resource Name'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Fon'
-  +'t.Color'#7#8'clMaroon'#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#10'Fo'
-  +'nt.Style'#11#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#7'TButton'#5
-  +'OKBtn'#4'Left'#3#6#2#6'Height'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5
-  +'akTop'#7'akRight'#0#7'Caption'#6#3'&OK'#7'Default'#9#7'OnClick'#7#10'OKBtnC'
-  +'lick'#8'TabOrder'#2#0#7'TabStop'#8#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'^'
-  +#2#6'Height'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5'akTop'#7'akRight'
-  +#0#6'Cancel'#9#7'Caption'#6#7'&Cancel'#7'OnClick'#7#14'CancelBtnClick'#8'Tab'
-  +'Order'#2#1#7'TabStop'#8#0#0#0#9'TGroupBox'#19'AppointmentGroupBox'#4'Left'#2
-  +#8#6'Height'#3#211#0#3'Top'#2#5#5'Width'#3#167#2#7'Anchors'#11#5'akTop'#6'ak'
-  +'Left'#7'akRight'#0#7'Caption'#6#11'Appointment'#12'ClientHeight'#3#193#0#11
-  +'ClientWidth'#3#163#2#8'TabOrder'#2#1#0#6'TLabel'#14'DescriptionLbl'#4'Left'
-  +#2#5#6'Height'#2#13#3'Top'#2#25#5'Width'#2'M'#8'AutoSize'#8#7'Caption'#6#12
-  +'Description:'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#8#6'Heigh'
-  +'t'#2#2#3'Top'#2'F'#5'Width'#3#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
-  +'ght'#0#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#8#6'Height'#2#2#3'Top'#3#160#0#5'W'
-  +'idth'#3#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0#0#6'TLabel'#11
-  +'CategoryLbl'#4'Left'#2#5#6'Height'#2#13#3'Top'#2'1'#5'Width'#2'M'#8'AutoSiz'
-  +'e'#8#7'Caption'#6#9'Category:'#11'ParentColor'#8#0#0#6'TLabel'#12'StartTime'
-  +'Lbl'#4'Left'#2'/'#6'Height'#2#13#3'Top'#2'j'#5'Width'#2';'#9'Alignment'#7#14
-  +'taRightJustify'#8'AutoSize'#8#7'Caption'#6#10'StartTime:'#11'ParentColor'#8
-  +#0#0#6'TLabel'#10'EndTimeLbl'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#130#0#5'W'
-  +'idth'#2'9'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#8'E'
-  +'ndTime:'#11'ParentColor'#8#0#0#6'TImage'#6'Image2'#4'Left'#3'`'#1#6'Height'
-  +#2#18#3'Top'#2'R'#5'Width'#2#18#12'Picture.Data'#10#148#2#0#0#23'TPortableNe'
-  +'tworkGraphicx'#2#0#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8
-  +#6#0#0#0#31#243#255'a'#0#0#2'?IDATx'#218#141#147#219'K'#211'a'#28#198#7#251
-  +'3bv'#208#146'B'#186#176'B'#214'9'#203'd-Od'#6#173'6_'#215't'#228#161#129'e'
-  +#206#197#154#254#220#220#161#29#220'I'#205#177'aIF%'#252#192'h'#132'e'#181
-  +#141#13#215'a'#249'#'#232#218';'#17#188#13#239#158#190#27']8'#253'a'#187'xo'
-  +#222#195#243'<'#239#243#225'+'#1' '#249#223#186#241#188'q'#176'eZ!'#21';'#147
-  +#148'"'#208'4U/('#198'/Dv'#21#232#251#172#149#221']'#212#24'toUq'#205'|'#219
-  +#250#205#23#205#184#22'U'#162'!\'#7#253#203'vt<S'#225#164#249#184'OT'#160'w'
-  +#169'C'#174''#175#230#185#164#17#254#172#3#145#159'ADWB'#152#202#249#16#252
-  +#250#4#222#229'1'#140#165',h'#13'5'#162#170#183'r'#180'H'#160#231'C'#187#172
-  +#235#221'-'#222#179'l'#197#236#175'iL'#254#240#226'i'#206#143#208'77|Y;\i'#14
-  +#214#148#25#143#191#24'q'#213']'#143#131#186#3#206'"'#1#138'l0z'#128#25'a'
-  +#18#145'\'#16#238#140#13#186'95'#206#219#228#249#200'86p'#20'M>'#5#174#184
-  +#234'P'#161#221#23#216#241#5#245#235#214#184'#i)8:S'#28'.'#185#206#172#158
-  +#229'j'#220'[/Uv'#150#11#229'loL'#180#196#235'3'#13'k'#212#242'&'#181#252#167
-  +#214'~j'#227#180#229#4#183#253#210'~M'#153#169'L'#181'GJf'#140#144'2B'#202
-  +#148#129#139#140#204#152#132'Zf'#151'='#231#24'Ef'#20#153'Qd'#214#159#238#146
-  +#26#18'wL'#219#133#200#140'#'#179#141'f'#155'd'#182'&'#202#157#144#198#8#169
+  +'Show'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9'
+  +'.29'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2')'#3'Top'#3'X'#1#5'Width'
+  +#3#185#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2
+  +')'#11'ClientWidth'#3#185#2#8'TabOrder'#2#0#0#6'TLabel'#15'ResourceNameLbl'#4
+  +'Left'#2#8#6'Height'#2#16#3'Top'#2#12#5'Width'#3#129#1#8'AutoSize'#8#7'Capti'
+  +'on'#6#13'Resource Name'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7
+  +#8'clMaroon'#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11
+  +#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#7'TButton'#5'OKBtn'#4'Le'
+  +'ft'#3#6#2#6'Height'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5'akTop'#7
+  +'akRight'#0#7'Caption'#6#3'&OK'#7'Default'#9#7'OnClick'#7#10'OKBtnClick'#8'T'
+  +'abOrder'#2#0#7'TabStop'#8#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'^'#2#6'Heig'
+  +'ht'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5'akTop'#7'akRight'#0#6'Can'
+  +'cel'#9#7'Caption'#6#7'&Cancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2
+  +#1#7'TabStop'#8#0#0#0#9'TGroupBox'#19'AppointmentGroupBox'#4'Left'#2#8#6'Hei'
+  +'ght'#3#211#0#3'Top'#2#5#5'Width'#3#167#2#7'Anchors'#11#5'akTop'#6'akLeft'#7
+  +'akRight'#0#7'Caption'#6#11'Appointment'#12'ClientHeight'#3#193#0#11'ClientW'
+  +'idth'#3#163#2#8'TabOrder'#2#1#0#6'TLabel'#14'DescriptionLbl'#4'Left'#2#5#6
+  +'Height'#2#13#3'Top'#2#25#5'Width'#2'M'#8'AutoSize'#8#7'Caption'#6#12'Descri'
+  +'ption:'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#8#6'Height'#2#2
+  +#3'Top'#2'F'#5'Width'#3#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0
+  +#0#6'TBevel'#6'Bevel2'#4'Left'#2#8#6'Height'#2#2#3'Top'#3#160#0#5'Width'#3
+  +#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0#0#6'TLabel'#11'Catego'
+  +'ryLbl'#4'Left'#2#5#6'Height'#2#13#3'Top'#2'1'#5'Width'#2'M'#8'AutoSize'#8#7
+  +'Caption'#6#9'Category:'#11'ParentColor'#8#0#0#6'TLabel'#12'StartTimeLbl'#4
+  +'Left'#2'/'#6'Height'#2#13#3'Top'#2'j'#5'Width'#2';'#9'Alignment'#7#14'taRig'
+  +'htJustify'#8'AutoSize'#8#7'Caption'#6#10'StartTime:'#11'ParentColor'#8#0#0#6
+  +'TLabel'#10'EndTimeLbl'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#130#0#5'Width'#2
+  +'9'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#8'EndTime:'
+  +#11'ParentColor'#8#0#0#6'TImage'#6'Image2'#4'Left'#3'`'#1#6'Height'#2#18#3'T'
+  +'op'#2'R'#5'Width'#2#18#12'Picture.Data'#10#148#2#0#0#23'TPortableNetworkGra'
+  +'phicx'#2#0#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8#6#0#0#0
+  +#31#243#255'a'#0#0#2'?IDATx'#218#141#147#219'K'#211'a'#28#198#7#251'3bv'#208
+  +#146'B'#186#176'B'#214'9'#203'd-Od'#6#173'6_'#215't'#228#161#129'e'#206#197
+  +#154#254#220#220#161#29#220'I'#205#177'aIF%'#252#192'h'#132'e'#181#141#13#215
+  +'a'#249'#'#232#218';'#17#188#13#239#158#190#27']8'#253'a'#187'xo'#222#195#243
+  +'<'#239#243#225'+'#1' '#249#223#186#241#188'q'#176'eZ!'#21';'#147#148'"'#208
+  +'4U/('#198'/Dv'#21#232#251#172#149#221']'#212#24'toUq'#205'|'#219#250#205#23
+  +#205#184#22'U'#162'!\'#7#253#203'vt<S'#225#164#249#184'OT'#160'w'#169'C'#174
+  +#127#175#230#185#164#17#254#172#3#145#159'ADWB'#152#202#249#16#252#250#4#222
+  +#229'1'#140#165',h'#13'5'#162#170#183'r'#180'H'#160#231'C'#187#172#235#221'-'
+  +#222#179'l'#197#236#175'iL'#254#240#226'i'#206#143#208'77|Y;\i'#14#214#148#25
+  +#143#191#24'q'#213']'#143#131#186#3#206'"'#1#138'l0'#127'z'#128#25'a'#18#145
+  +'\'#16#238#140#13#186'95'#206#219#228#249#200'86p'#20'M>'#5#174#184#234'P'
+  +#161#221#23#216#241#5#245#235#214#184'#i)8:S'#28'.'#185#206#172#158#229'j'
+  +#220'[/Uv'#150#11#229'loL'#180#196#235'3'#13'k'#212#242'&'#181#252#167#214'~'
+  +'j'#227#180#229#4#183#253#210'~M'#153#169'L'#181'GJf'#140#144'2B'#202#148#129
+  +#139#140#204#152#132'Zf'#151'='#231#24'Ef'#20#153'Qd'#214#159#238#146#26#18
+  +'wL'#219#133#200#140'#'#179#141#127'f'#155'd'#182'&'#202#157#144#198#8#169
  +#176'u'#143#144#186#201'l'#213#147#182#17#21';'#6#22#238#229#251#137#239'xLH'
  +#3#214#140#9#195#137#135#160#200#160#200#160#200#232'~'#163#133'+'#201#21#144
  +':'#210'#h'#155'h'#206'#5'#20'=&'#164'N.e'#196#220#239'h'#1'iL'#152'(B:'#146
@ -92,7 +92,7 @@ LazarusResources.Add('TDlgEventEdit','FORMDATA',[
  +#232#19#179'a'#145'0'#225'hID'#207'3'#30'j'#174'3'#132#191','#241'u1['#223'#'
  +#141' ]dCqK'#0#175#181#16'_z3'#161#201#231#163#179#136#129#153'f'#138#0'Xd'
  +#31'$@'#183#217#158#181#191#22'8'#180'=d'#155#13'U'#225'0'#188#184#128'q]'#6
-  +#188#227'"'#140#168'.'#162'$e+tww`A'#201#133#173#225#16#164'7'#152#131''#4
+  +#188#227'"'#140#168'.'#162'$e+tww`A'#201#133#173#225#16#164'7'#152#131#127#4
  +#248'E'#2#210#160'+'#222#135#182#194'X(2y'#208#151'%'#160#244#210#22'<J'#218
  +#140'n1'#13#22'i'#20#170#174#210''''#214#5#248'%'#207'f'#9#229'YL'#232'I'#226
  +#236#134'S'#248#252'N'#8#131'd'#15'>'#169'w'#163#183'L'#128#138#203#244#206
@ -122,237 +122,239 @@ LazarusResources.Add('TDlgEventEdit','FORMDATA',[
  +#132#157'xGLg'#243#191#161#217#156#201#189#149'H'#156#154's'#1#3#151'@'#228
  +#12#183#239#249#174#248'L'#8#181#239#245'X'#235#183'Z'#210'^+f'#194'?'#137
  +#185#173'~;'#31#182#29#241#141'tg'#250#201'o%'#230#197#10'<'#213'\F'#200#154
-  +'<06'#216#8'o'#235#254#192'{'#253#26')'#219#226'CA'#187#7#247':'#198'`'#250
-  +#6#223#135'N'#253'29'#232#208#200'R'#231#201'_'#148#235' '#18'8w'#5'w>l'#207
-  +#244#15'6'#239#15#8#247#215#140#231#183#246#227#161#253#7't'#252'7'#20#26#186
-  +#144#255#168#11#21'M}'#208#217#190#163#236#173#9#159#235'7EF'#220#143'&'#6
-  +#235#22#138#148'M'#228#190#22's'#235'zJf'#136'-'#165'K'#228#28'S'#31#170#173
-  +#253'0'#152'\'#232'u'#135#224#11'I'#240#134#134'!'#246#135#160'}'#217#139#178
-  +'f'#23#30'>'#201#133']'#183'z'#180#187'd'#214#7#202'&'#198'."'#237'^'#195#181
-  ,#244#26#7'J,.'#232#233'4'#246#12#5#131#248'2'#240#19#191'I3'#164'(Pd'#236'E'
-  +#161#217#137#11'z'#30'G'#203#133#172#216#29#176#215#158#226#14#243#169#199#14
-  +#20'='#19#209'M'''#203#227'QH'#178#140';e'#229#240'PQxt'#20'5/'#222#128#255
-  +#18#196#21#253'G0/'#203#196#11'v'#228#241#254'T'#221#7'\}`'#135'gD'#193#208
-  +'h'#4'c'#180'8'#171#214#224#190#225#9#210'/j'#240'R'#176#194#17'Tp'#162#208
-  +#10#230'e'#153'x'#193#182'+'#207#252#135'J'#173'P'#151#219#208'/)T'#18#129';'
-  +#24#198#165#220#235#177'0o'#251#8#239'8'#240#222#167#224'x^+'#152#151'e'#226
-  +#5#155'/<6'#239#188'i'#130'F'#219#129#183#206' ~'#208'G'#187#195#10#158#154
-  +'['#208#231#15'ap'#2'p'#201'@'#237#167#0'N'#20#183#129'yY&^'#144't'#170'R'
-  +#189'E]'#135#148#187#2#178#245'"'#188'taC'#10#16#142#16#164#3'T'#224'%}N+BU'
-  +#204#131'yY&^'#176#246'x'#225'r'#162'k'#227#249#6#164#146#225#170#190#7'6W'#0
-  +#18#221#135'$+'#176#147#206#170#254#12'U'#193#27'0'#15#243#178'L'#188#128#177
-  +#242'`'#238#225'#'#217'Zy'#195#153'Z'#236#203'}'#133#212#219'<'#210'nY'#144
-  +'z'#179#25#170'<'#19#146's'#158'c'#215'e#'#14'dU'#202#204#27#255#23#166#132
-  +' '#8'I'#14#135#3'M&~b'#237#177'R'#172'P'#233#176'*'#197#16#131#233'-'#167'+'
-  +#209'li'#137#182#8'B'#148#188#235#255')0'#26#141#179#9#201#233't'#162#190#161
-  +#193#191'tw'#166'f'#241#206#12'3'#225#159#132'i5'#237#194#162'('#130#188#227
-  +#196#130'xAUU'#213'L'#162#135#24'#'#22#253#255'+OA'#187#249'D'#144#24' '#230
-  +#178#217#31#231#211#229#219#17')'#234#166#0#0#0#0'IEND'#174'B`'#130#0#0#6'TL'
-  +'abel'#17'RecurrenceEndsLbl'#4'Left'#3'`'#1#6'Height'#2#13#3'Top'#3#131#0#5
-  +'Width'#2'\'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#6
-  +'Until:'#11'ParentColor'#8#0#0#5'TEdit'#15'DescriptionEdit'#4'Left'#2'V'#6'H'
-  +'eight'#2#21#3'Top'#2#21#5'Width'#3'D'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7
-  +'akRight'#0#8'TabOrder'#2#0#4'Text'#6#15'DescriptionEdit'#0#0#9'TCheckBox'#8
-  +'AlarmSet'#4'Left'#2'('#6'Height'#2#19#3'Top'#3#170#0#5'Width'#2'J'#7'Captio'
-  +'n'#6#10'&Reminder:'#7'OnClick'#7#13'AlarmSetClick'#8'TabOrder'#2#3#0#0#9'TC'
-  +'omboBox'#9'StartTime'#4'Left'#3#231#0#6'Height'#2#21#3'Top'#2'g'#5'Width'#2
-  +']'#10'ItemHeight'#2#13#9'MaxLength'#2#255#14'OnChangeBounds'#7#15'StartTime'
-  +'Change'#6'OnExit'#7#13'StartTimeExit'#8'TabOrder'#2#4#0#0#9'TComboBox'#7'En'
-  +'dTime'#4'Left'#3#231#0#6'Height'#2#21#3'Top'#2''#5'Width'#2']'#10'ItemHeig'
-  +'ht'#2#13#9'MaxLength'#2#255#14'OnChangeBounds'#7#13'EndTimeChange'#6'OnExit'
-  +#7#11'EndTimeExit'#8'TabOrder'#2#5#0#0#9'TComboBox'#8'Category'#4'Left'#2'V'
-  +#6'Height'#2#19#3'Top'#2'.'#5'Width'#3#182#0#10'ItemHeight'#2#13#9'MaxLength'
-  +#2#255#5'Style'#7#16'csOwnerDrawFixed'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'R'
-  +'ecurringType'#4'Left'#3'{'#1#6'Height'#2#21#3'Top'#2'g'#5'Width'#3#183#0#10
-  +'ItemHeight'#2#13#9'MaxLength'#2#255#14'OnChangeBounds'#7#19'RecurringTypeCh'
-  +'ange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#6#0#0#7'TUpDown'#14'Inter'
-  +'valUpDown'#4'Left'#3#142#2#6'Height'#2#29#3'Top'#2'c'#5'Width'#2#19#3'Max'#3
-  +#255''#8'TabOrder'#2#9#7'OnClick'#7#19'IntervalUpDownClick'#0#0#9'TComboBox'
-  +#12'AlarmAdvType'#4'Left'#3#230#0#6'Height'#2#21#3'Top'#3#168#0#5'Width'#2'X'
-  +#10'ItemHeight'#2#13#9'MaxLength'#2#255#5'Style'#7#14'csDropDownList'#8'TabO'
-  +'rder'#2#8#0#0#7'TUpDown'#13'AdvanceUpDown'#4'Left'#3#196#0#6'Height'#2#29#3
-  +'Top'#3#164#0#5'Width'#2#19#3'Min'#2#1#3'Max'#2'x'#8'Position'#2#1#8'TabOrde'
-  +'r'#2#10#7'OnClick'#7#18'AdvanceUpDownClick'#0#0#9'TCheckBox'#8'CBAllDay'#4
-  +'Left'#2'm'#6'Height'#2#19#3'Top'#2'U'#5'Width'#2'Z'#7'Caption'#6#13'All Day'
-  +' Event'#7'OnClick'#7#13'CBAllDayClick'#8'TabOrder'#2#2#0#0#5'TEdit'#20'edtU'
-  +'nusedPlaceholder'#4'Left'#3'K'#2#6'Height'#2#21#3'Top'#2'g'#5'Width'#2'A'#8
-  +'TabOrder'#2#7#4'Text'#6#19'Placeholder control'#7'Visible'#8#0#0#9'TDateEdi'
-  +'t'#9'StartDate'#4'Left'#2'u'#6'Height'#2#23#3'Top'#2'h'#5'Width'#2'P'#23'Ca'
-  +'lendarDisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCapti'
-  +'on'#6#2'OK'#13'CancelCaption'#6#6'Cancel'#11'ButtonWidth'#2#23#10'Glyph.Dat'
-  +'a'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0
-  +#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0
+  +'<06'#216#8'o'#235#254#192'{'#253#26')'#219#226'CA'#187#7#247':'#127#198'`'
+  +#250#6#223#135'N'#253'29'#232#208#200'R'#231#201'_'#148#235' '#18'8w'#5'w>l'
+  +#207#244#15'6'#239#15#8#247#215#140#231#183#246#227#161#253#7't'#252'7'#20#26
+  +#186#144#255#168#11#21'M}'#208#217#190#163#236#173#9#159#235'7EF'#220#143'&'
+  +#6#235#22#138#148'M'#228#190#22's'#235'zJf'#136'-'#165'K'#228#28'S'#31#170
+  +#173#253'0'#152'\'#232'u'#135#224#11'I'#240#134#134'!'#246#135#160'}'#217#139
+  +#178'f'#23#30'>'#201#133']'#183'z'#180#187'd'#214#7#202'&'#198'."'#237'^'#195
+  ,#181#244#26#7'J,.'#232#233'4'#246#12#5#131#248'2'#240#19#191'I3'#164'(Pd'#236
+  +'E'#161#217#137#11'z'#30'G'#203#133#172#216#29#176#215#158#226#14#243#169#199
+  +#14#20'='#19#209'M'''#203#227'QH'#178#140';e'#229#240'PQxt'#20'5/'#222#128
+  +#255#18#196#21#253'G0/'#203#196#11'v'#228#241#254'T'#221#7'\}`'#135'gD'#193
+  +#208'h'#4'c'#180'8'#171#214#224#190#225#9#210'/j'#240'R'#176#194#17'Tp'#162
+  +#208#10#230'e'#153'x'#193#182'+'#207#252#135'J'#173'P'#151#219#208'/)T'#18
+  +#129';'#24#198#165#220#235#177'0o'#251#8#239'8'#240#222#167#224'x^+'#152#151
+  +'e'#226#5#155'/<6'#239#188'i'#130'F'#219#129#183#206' ~'#208'G'#187#195#10
+  +#158#154'['#208#231#15'ap'#2'p'#201'@'#237#167#0'N'#20#183#129'yY&^'#144't'
+  +#170'R'#189'E]'#135#148#187#2#178#245'"'#188'taC'#10#16#142#16#164#3'T'#224
+  +'%}N+BU'#204#131'yY&^'#176#246'x'#225'r'#162'k'#227#249#6#164#146#225#170#190
+  +#7'6W'#0#18#221#135'$+'#176#147#206#170#254#12'U'#193#27'0'#15#243#178'L'#188
+  +#128#177#242'`'#238#225'#'#217'Zy'#195#153'Z'#236#203'}'#133#212#219'<'#210
+  +'nY'#144'z'#179#25#170'<'#19#146's'#158'c'#215'e#'#14'dU'#202#204#27#255#23
+  +#166#132' '#8'I'#14#135#3'M&~b'#237#177'R'#172'P'#233#176'*'#197#16#131#233
+  +'-'#167'+'#209'li'#137#182#8'B'#148#188#235#255')0'#26#141#179#9#201#233't'
+  +#162#190#161#193#191'tw'#166'f'#241#206#12'3'#225#159#132'i5'#237#194#162'('
+  +#130#188#227#196#130'xAUU'#213'L'#162#135#24'#'#22#253#255'+OA'#187#249'D'
+  +#144#24' '#230#178#217#31#231#211#229#219#17')'#234#166#0#0#0#0'IEND'#174'B`'
+  +#130#0#0#6'TLabel'#17'RecurrenceEndsLbl'#4'Left'#3'`'#1#6'Height'#2#13#3'Top'
+  +#3#131#0#5'Width'#2'\'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Cap'
+  +'tion'#6#6'Until:'#11'ParentColor'#8#0#0#5'TEdit'#15'DescriptionEdit'#4'Left'
+  +#2'V'#6'Height'#2#21#3'Top'#2#21#5'Width'#3'D'#2#7'Anchors'#11#5'akTop'#6'ak'
+  +'Left'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#15'DescriptionEdit'#0#0#9'TChe'
+  +'ckBox'#8'AlarmSet'#4'Left'#2'('#6'Height'#2#19#3'Top'#3#170#0#5'Width'#2'D'
+  +#7'Caption'#6#10'&Reminder:'#7'OnClick'#7#13'AlarmSetClick'#8'TabOrder'#2#3#0
+  +#0#9'TComboBox'#9'StartTime'#4'Left'#3#231#0#6'Height'#2#21#3'Top'#2'g'#5'Wi'
+  +'dth'#2']'#10'ItemHeight'#2#13#14'OnChangeBounds'#7#15'StartTimeChange'#6'On'
+  +'Exit'#7#13'StartTimeExit'#8'TabOrder'#2#4#0#0#9'TComboBox'#7'EndTime'#4'Lef'
+  +'t'#3#231#0#6'Height'#2#21#3'Top'#2#127#5'Width'#2']'#10'ItemHeight'#2#13#14
+  +'OnChangeBounds'#7#13'EndTimeChange'#6'OnExit'#7#11'EndTimeExit'#8'TabOrder'
+  +#2#5#0#0#9'TComboBox'#8'Category'#4'Left'#2'V'#6'Height'#2#19#3'Top'#2'.'#5
+  +'Width'#3#182#0#10'ItemHeight'#2#13#10'OnDrawItem'#7#16'CategoryDrawItem'#5
+  +'Style'#7#16'csOwnerDrawFixed'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'Recurring'
+  +'Type'#4'Left'#3'{'#1#6'Height'#2#21#3'Top'#2'g'#5'Width'#3#183#0#10'ItemHei'
+  +'ght'#2#13#8'OnChange'#7#19'RecurringTypeChange'#5'Style'#7#14'csDropDownLis'
+  +'t'#8'TabOrder'#2#6#0#0#7'TUpDown'#14'IntervalUpDown'#4'Left'#3#142#2#6'Heig'
+  +'ht'#2#29#3'Top'#2'c'#5'Width'#2#19#3'Min'#2#0#3'Max'#3#255#127#8'Position'#2
+  +#0#8'TabOrder'#2#9#4'Wrap'#8#7'OnClick'#7#19'IntervalUpDownClick'#0#0#9'TCom'
+  +'boBox'#12'AlarmAdvType'#4'Left'#3#230#0#6'Height'#2#21#3'Top'#3#168#0#5'Wid'
+  +'th'#2'X'#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#8#0
+  +#0#7'TUpDown'#13'AdvanceUpDown'#4'Left'#3#196#0#6'Height'#2#29#3'Top'#3#164#0
+  +#5'Width'#2#19#3'Min'#2#1#3'Max'#2'x'#8'Position'#2#1#8'TabOrder'#2#10#4'Wra'
+  +'p'#8#7'OnClick'#7#18'AdvanceUpDownClick'#0#0#9'TCheckBox'#8'CBAllDay'#4'Lef'
+  +'t'#2'm'#6'Height'#2#19#3'Top'#2'U'#5'Width'#2'T'#7'Caption'#6#13'All Day Ev'
+  +'ent'#7'OnClick'#7#13'CBAllDayClick'#8'TabOrder'#2#2#0#0#5'TEdit'#20'edtUnus'
+  +'edPlaceholder'#4'Left'#3'K'#2#6'Height'#2#21#3'Top'#2'g'#5'Width'#2'A'#8'Ta'
+  +'bOrder'#2#7#4'Text'#6#19'Placeholder control'#7'Visible'#8#0#0#9'TDateEdit'
+  +#9'StartDate'#4'Left'#2'u'#6'Height'#2#21#3'Top'#2'h'#5'Width'#2'P'#23'Calen'
+  +'darDisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'
+  +#6#2'OK'#13'CancelCaption'#6#6'Cancel'#9'DateOrder'#7#6'doNone'#11'ButtonWid'
+  +'th'#2#23#8'CharCase'#7#8'ecNormal'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'
+  +#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0
+  +'d'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#214#158'r'#196#211#153'n'#244#209#150'h'#255#206#146'c'#255#203#142'^'#255
-  +#201#138'['#255#199#135'V'#255#195#132'R'#255#195#132'R'#255#195#132'R'#255
-  +#195#132'R'#255#195#132'R'#255#195#132'R'#255#187'wB'#176#255#255#255#0#255
-  +#255#255#0#215#161'u'#255#248#242#237#255#247#240#234#255#246#237#230#255#244
-  +#234#226#255#243#231#222#255#241#228#219#255#240#226#216#255#234#214#200#255
-  +#242#229#220#255#250#244#241#255#249#243#240#255#250#245#242#255#197#138']'
-  +#253#255#255#255#0#255#255#255#0#217#164'z'#255#249#243#238#255#235#210#190
-  +#255#255#255#255#255#235#211#191#255#255#255#255#255#235#211#192#255#255#255
-  ,#255#255#234#199#173#255#236#217#205#255#241#228#219#255#249#243#240#255#249
-  +#242#239#255#198#140'_'#255#255#255#255#0#255#255#255#0#221#168'~'#255#249
-  +#243#239#255#235#208#186#255#235#208#187#255'u'#181'z'#255'u'#181'z'#255'u'
-  +#181'z'#255#235#209#189#255#234#205#181#255#250#244#240#255#235#217#204#255
-  +#241#228#219#255#250#244#241#255#198#138'\'#255#255#255#255#0#255#255#255#0
-  +#223#170#130#255#249#243#239#255#234#206#183#255#255#255#255#255'u'#181'z'
-  +#255#148#212#155#255't'#181'y'#255#255#255#255#255#234#207#186#255#251#246
-  +#242#255#250#243#240#255#235#216#203#255#242#230#221#255#200#141'_'#255#255
-  +#255#255#0#255#255#255#0#225#174#135#255#250#244#240#255#234#203#178#255#234
-  +#204#179#255'u'#181'z'#255't'#181'y'#255's'#180'x'#255#234#206#183#255'p'#179
-  +'u'#255'o'#178't'#255'n'#177'r'#255#232#200#174#255#234#215#201#255#196#134
-  +'T'#255#255#255#255#0#255#255#255#0#227#177#140#255#250#246#241#255#234#201
-  +#174#255#255#255#255#255#234#201#176#255#255#255#255#255#233#203#179#255#255
-  +#255#255#255'o'#177's'#255#142#210#149#255'k'#175'o'#255#255#255#255#255#241
-  +#229#219#255#198#134'U'#255#255#255#255#0#255#255#255#0#229#180#143#255#250
-  +#246#242#255#233#198#170#255#233#198#172#255#234#199#172#255#233#199#173#255
-  +#233#201#174#255#233#201#176#255'l'#176'q'#255'j'#175'n'#255'h'#173'm'#255
-  +#232#204#181#255#242#231#222#255#200#138'Y'#255#255#255#255#0#255#255#255#0
-  +#231#183#148#255#251#247#244#255#233#195#166#255#255#255#255#255#232#196#169
-  +#255#255#255#255#255#233#198#170#255#255#255#255#255#232#199#172#255#255#255
-  +#255#255#232#200#176#255#255#255#255#255#247#241#235#255#203#143'_'#255#255
-  +#255#255#0#255#255#255#0#233#186#152#255#251#247#244#255'e'#164#255#255'd'
-  +#163#255#255'b'#162#255#255'a'#161#255#255'_'#159#255#255'\'#157#255#255'Z'
-  +#154#255#255'W'#152#255#255'T'#149#255#255'R'#148#255#255#251#247#244#255#206
-  +#147'd'#255#255#255#255#0#255#255#255#0#235#189#155#255#251#247#244#255'd'
-  +#164#255#255'y'#189#255#255'u'#187#255#255'q'#185#255#255'm'#184#255#255'h'
-  +#179#255#255'a'#176#255#255'Z'#171#255#255'T'#167#255#255';}'#255#255#251#247
-  +#244#255#209#151'j'#255#255#255#255#0#255#255#255#0#236#191#158#255#251#247
-  +#244#255'e'#164#255#255'd'#163#255#255'`'#160#255#255']'#158#255#255'X'#153
-  +#255#255'T'#150#255#255'M'#144#255#255'G'#139#255#255'B'#132#255#255'='#255
-  +#255#251#247#244#255#212#155'o'#255#255#255#255#0#255#255#255#0#238#193#161
-  +#235#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247
-  +#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251
-  +#247#244#255#251#247#244#255#251#247#244#255#215#160't'#248#255#255#255#0#255
-  +#255#255#0#239#194#163'~'#239#193#162#227#237#192#159#255#235#190#157#255#235
-  +#188#154#255#233#186#150#255#231#183#147#255#230#181#144#255#228#178#140#255
-  +#226#175#136#255#224#172#132#255#221#169#128#255#220#165'}'#255#218#163'z'
-  +#202#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#9'NumGlyphs'#2#1#14'OnChangeBounds'#7#15'StartDateChang'
-  +'e'#8'TabOrder'#2#11#0#0#9'TDateEdit'#7'EndDate'#4'Left'#2'u'#6'Height'#2#23
-  +#3'Top'#3#131#0#5'Width'#2'P'#23'CalendarDisplaySettings'#11#14'dsShowHeadin'
-  +'gs'#14'dsShowDayNames'#0#9'OKCaption'#6#2'OK'#13'CancelCaption'#6#6'Cancel'
-  +#11'ButtonWidth'#2#23#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0
-  +'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0
-  +#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#214#158'r'#196#211#153'n'#244#209#150'h'
-  +#255#206#146'c'#255#203#142'^'#255#201#138'['#255#199#135'V'#255#195#132'R'
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#214#158'r'#196#211#153'n'
+  +#244#209#150'h'#255#206#146'c'#255#203#142'^'#255#201#138'['#255#199#135'V'
  +#255#195#132'R'#255#195#132'R'#255#195#132'R'#255#195#132'R'#255#195#132'R'
-  +#255#187'wB'#176#255#255#255#0#255#255#255#0#215#161'u'#255#248#242#237#255
-  +#247#240#234#255#246#237#230#255#244#234#226#255#243#231#222#255#241#228#219
-  +#255#240#226#216#255#234#214#200#255#242#229#220#255#250#244#241#255#249#243
-  +#240#255#250#245#242#255#197#138']'#253#255#255#255#0#255#255#255#0#217#164
-  +'z'#255#249#243#238#255#235#210#190#255#255#255#255#255#235#211#191#255#255
-  +#255#255#255#235#211#192#255#255#255#255#255#234#199#173#255#236#217#205#255
-  +#241#228#219#255#249#243#240#255#249#242#239#255#198#140'_'#255#255#255#255#0
-  +#255#255#255#0#221#168'~'#255#249#243#239#255#235#208#186#255#235#208#187#255
-  +'u'#181'z'#255'u'#181'z'#255'u'#181'z'#255#235#209#189#255#234#205#181#255
-  +#250#244#240#255#235#217#204#255#241#228#219#255#250#244#241#255#198#138'\'
-  +#255#255#255#255#0#255#255#255#0#223#170#130#255#249#243#239#255#234#206#183
-  +#255#255#255#255#255'u'#181'z'#255#148#212#155#255't'#181'y'#255#255#255#255
-  ,#255#234#207#186#255#251#246#242#255#250#243#240#255#235#216#203#255#242#230
-  +#221#255#200#141'_'#255#255#255#255#0#255#255#255#0#225#174#135#255#250#244
-  +#240#255#234#203#178#255#234#204#179#255'u'#181'z'#255't'#181'y'#255's'#180
-  +'x'#255#234#206#183#255'p'#179'u'#255'o'#178't'#255'n'#177'r'#255#232#200#174
-  +#255#234#215#201#255#196#134'T'#255#255#255#255#0#255#255#255#0#227#177#140
-  +#255#250#246#241#255#234#201#174#255#255#255#255#255#234#201#176#255#255#255
-  +#255#255#233#203#179#255#255#255#255#255'o'#177's'#255#142#210#149#255'k'#175
-  +'o'#255#255#255#255#255#241#229#219#255#198#134'U'#255#255#255#255#0#255#255
-  +#255#0#229#180#143#255#250#246#242#255#233#198#170#255#233#198#172#255#234
-  +#199#172#255#233#199#173#255#233#201#174#255#233#201#176#255'l'#176'q'#255'j'
-  +#175'n'#255'h'#173'm'#255#232#204#181#255#242#231#222#255#200#138'Y'#255#255
-  +#255#255#0#255#255#255#0#231#183#148#255#251#247#244#255#233#195#166#255#255
-  +#255#255#255#232#196#169#255#255#255#255#255#233#198#170#255#255#255#255#255
-  +#232#199#172#255#255#255#255#255#232#200#176#255#255#255#255#255#247#241#235
-  +#255#203#143'_'#255#255#255#255#0#255#255#255#0#233#186#152#255#251#247#244
-  +#255'e'#164#255#255'd'#163#255#255'b'#162#255#255'a'#161#255#255'_'#159#255
-  +#255'\'#157#255#255'Z'#154#255#255'W'#152#255#255'T'#149#255#255'R'#148#255
-  +#255#251#247#244#255#206#147'd'#255#255#255#255#0#255#255#255#0#235#189#155
-  +#255#251#247#244#255'd'#164#255#255'y'#189#255#255'u'#187#255#255'q'#185#255
-  +#255'm'#184#255#255'h'#179#255#255'a'#176#255#255'Z'#171#255#255'T'#167#255
-  +#255';}'#255#255#251#247#244#255#209#151'j'#255#255#255#255#0#255#255#255#0
-  +#236#191#158#255#251#247#244#255'e'#164#255#255'd'#163#255#255'`'#160#255#255
-  +']'#158#255#255'X'#153#255#255'T'#150#255#255'M'#144#255#255'G'#139#255#255
-  +'B'#132#255#255'='#255#255#251#247#244#255#212#155'o'#255#255#255#255#0#255
-  +#255#255#0#238#193#161#235#251#247#244#255#251#247#244#255#251#247#244#255
+  +#255#195#132'R'#255#187'wB'#176#255#255#255#0#255#255#255#0#215#161'u'#255
+  +#248#242#237#255#247#240#234#255#246#237#230#255#244#234#226#255#243#231#222
+  +#255#241#228#219#255#240#226#216#255#234#214#200#255#242#229#220#255#250#244
+  +#241#255#249#243#240#255#250#245#242#255#197#138']'#253#255#255#255#0#255#255
+  +#255#0#217#164'z'#255#249#243#238#255#235#210#190#255#255#255#255#255#235#211
+  ,#191#255#255#255#255#255#235#211#192#255#255#255#255#255#234#199#173#255#236
+  +#217#205#255#241#228#219#255#249#243#240#255#249#242#239#255#198#140'_'#255
+  +#255#255#255#0#255#255#255#0#221#168'~'#255#249#243#239#255#235#208#186#255
+  +#235#208#187#255'u'#181'z'#255'u'#181'z'#255'u'#181'z'#255#235#209#189#255
+  +#234#205#181#255#250#244#240#255#235#217#204#255#241#228#219#255#250#244#241
+  +#255#198#138'\'#255#255#255#255#0#255#255#255#0#223#170#130#255#249#243#239
+  +#255#234#206#183#255#255#255#255#255'u'#181'z'#255#148#212#155#255't'#181'y'
+  +#255#255#255#255#255#234#207#186#255#251#246#242#255#250#243#240#255#235#216
+  +#203#255#242#230#221#255#200#141'_'#255#255#255#255#0#255#255#255#0#225#174
+  +#135#255#250#244#240#255#234#203#178#255#234#204#179#255'u'#181'z'#255't'#181
+  +'y'#255's'#180'x'#255#234#206#183#255'p'#179'u'#255'o'#178't'#255'n'#177'r'
+  +#255#232#200#174#255#234#215#201#255#196#134'T'#255#255#255#255#0#255#255#255
+  +#0#227#177#140#255#250#246#241#255#234#201#174#255#255#255#255#255#234#201
+  +#176#255#255#255#255#255#233#203#179#255#255#255#255#255'o'#177's'#255#142
+  +#210#149#255'k'#175'o'#255#255#255#255#255#241#229#219#255#198#134'U'#255#255
+  +#255#255#0#255#255#255#0#229#180#143#255#250#246#242#255#233#198#170#255#233
+  +#198#172#255#234#199#172#255#233#199#173#255#233#201#174#255#233#201#176#255
+  +'l'#176'q'#255'j'#175'n'#255'h'#173'm'#255#232#204#181#255#242#231#222#255
+  +#200#138'Y'#255#255#255#255#0#255#255#255#0#231#183#148#255#251#247#244#255
+  +#233#195#166#255#255#255#255#255#232#196#169#255#255#255#255#255#233#198#170
+  +#255#255#255#255#255#232#199#172#255#255#255#255#255#232#200#176#255#255#255
+  +#255#255#247#241#235#255#203#143'_'#255#255#255#255#0#255#255#255#0#233#186
+  +#152#255#251#247#244#255'e'#164#255#255'd'#163#255#255'b'#162#255#255'a'#161
+  +#255#255'_'#159#255#255'\'#157#255#255'Z'#154#255#255'W'#152#255#255'T'#149
+  +#255#255'R'#148#255#255#251#247#244#255#206#147'd'#255#255#255#255#0#255#255
+  +#255#0#235#189#155#255#251#247#244#255'd'#164#255#255'y'#189#255#255'u'#187
+  +#255#255'q'#185#255#255'm'#184#255#255'h'#179#255#255'a'#176#255#255'Z'#171
+  +#255#255'T'#167#255#255';}'#255#255#251#247#244#255#209#151'j'#255#255#255
+  +#255#0#255#255#255#0#236#191#158#255#251#247#244#255'e'#164#255#255'd'#163
+  +#255#255'`'#160#255#255']'#158#255#255'X'#153#255#255'T'#150#255#255'M'#144
+  +#255#255'G'#139#255#255'B'#132#255#255'='#127#255#255#251#247#244#255#212#155
+  +'o'#255#255#255#255#0#255#255#255#0#238#193#161#235#251#247#244#255#251#247
+  +#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251
+  +#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255
+  +#251#247#244#255#215#160't'#248#255#255#255#0#255#255#255#0#239#194#163'~'
+  +#239#193#162#227#237#192#159#255#235#190#157#255#235#188#154#255#233#186#150
+  +#255#231#183#147#255#230#181#144#255#228#178#140#255#226#175#136#255#224#172
+  +#132#255#221#169#128#255#220#165'}'#255#218#163'z'#202#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
+  +'hs'#2#1#9'MaxLength'#2#0#14'OnChangeBounds'#7#15'StartDateChange'#8'TabOrde'
+  +'r'#2#11#0#0#9'TDateEdit'#7'EndDate'#4'Left'#2'u'#6'Height'#2#21#3'Top'#3#131
+  +#0#5'Width'#2'P'#23'CalendarDisplaySettings'#11#14'dsShowHeadings'#14'dsShow'
+  +'DayNames'#0#9'OKCaption'#6#2'OK'#13'CancelCaption'#6#6'Cancel'#9'DateOrder'
+  +#7#6'doNone'#11'ButtonWidth'#2#23#8'CharCase'#7#8'ecNormal'#10'Glyph.Data'#10
+  +':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0
+  +' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#214#158'r'
+  +#196#211#153'n'#244#209#150'h'#255#206#146'c'#255#203#142'^'#255#201#138'['
+  +#255#199#135'V'#255#195#132'R'#255#195#132'R'#255#195#132'R'#255#195#132'R'
+  +#255#195#132'R'#255#195#132'R'#255#187'wB'#176#255#255#255#0#255#255#255#0
+  +#215#161'u'#255#248#242#237#255#247#240#234#255#246#237#230#255#244#234#226
+  +#255#243#231#222#255#241#228#219#255#240#226#216#255#234#214#200#255#242#229
+  +#220#255#250#244#241#255#249#243#240#255#250#245#242#255#197#138']'#253#255
+  +#255#255#0#255#255#255#0#217#164'z'#255#249#243#238#255#235#210#190#255#255
+  +#255#255#255#235#211#191#255#255#255#255#255#235#211#192#255#255#255#255#255
+  +#234#199#173#255#236#217#205#255#241#228#219#255#249#243#240#255#249#242#239
+  +#255#198#140'_'#255#255#255#255#0#255#255#255#0#221#168'~'#255#249#243#239
+  +#255#235#208#186#255#235#208#187#255'u'#181'z'#255'u'#181'z'#255'u'#181'z'
+  +#255#235#209#189#255#234#205#181#255#250#244#240#255#235#217#204#255#241#228
+  +#219#255#250#244#241#255#198#138'\'#255#255#255#255#0#255#255#255#0#223#170
+  ,#130#255#249#243#239#255#234#206#183#255#255#255#255#255'u'#181'z'#255#148
+  +#212#155#255't'#181'y'#255#255#255#255#255#234#207#186#255#251#246#242#255
+  +#250#243#240#255#235#216#203#255#242#230#221#255#200#141'_'#255#255#255#255#0
+  +#255#255#255#0#225#174#135#255#250#244#240#255#234#203#178#255#234#204#179
+  +#255'u'#181'z'#255't'#181'y'#255's'#180'x'#255#234#206#183#255'p'#179'u'#255
+  +'o'#178't'#255'n'#177'r'#255#232#200#174#255#234#215#201#255#196#134'T'#255
+  +#255#255#255#0#255#255#255#0#227#177#140#255#250#246#241#255#234#201#174#255
+  +#255#255#255#255#234#201#176#255#255#255#255#255#233#203#179#255#255#255#255
+  +#255'o'#177's'#255#142#210#149#255'k'#175'o'#255#255#255#255#255#241#229#219
+  +#255#198#134'U'#255#255#255#255#0#255#255#255#0#229#180#143#255#250#246#242
+  +#255#233#198#170#255#233#198#172#255#234#199#172#255#233#199#173#255#233#201
+  +#174#255#233#201#176#255'l'#176'q'#255'j'#175'n'#255'h'#173'm'#255#232#204
+  +#181#255#242#231#222#255#200#138'Y'#255#255#255#255#0#255#255#255#0#231#183
+  +#148#255#251#247#244#255#233#195#166#255#255#255#255#255#232#196#169#255#255
+  +#255#255#255#233#198#170#255#255#255#255#255#232#199#172#255#255#255#255#255
+  +#232#200#176#255#255#255#255#255#247#241#235#255#203#143'_'#255#255#255#255#0
+  +#255#255#255#0#233#186#152#255#251#247#244#255'e'#164#255#255'd'#163#255#255
+  +'b'#162#255#255'a'#161#255#255'_'#159#255#255'\'#157#255#255'Z'#154#255#255
+  +'W'#152#255#255'T'#149#255#255'R'#148#255#255#251#247#244#255#206#147'd'#255
+  +#255#255#255#0#255#255#255#0#235#189#155#255#251#247#244#255'd'#164#255#255
+  +'y'#189#255#255'u'#187#255#255'q'#185#255#255'm'#184#255#255'h'#179#255#255
+  +'a'#176#255#255'Z'#171#255#255'T'#167#255#255';}'#255#255#251#247#244#255#209
+  +#151'j'#255#255#255#255#0#255#255#255#0#236#191#158#255#251#247#244#255'e'
+  +#164#255#255'd'#163#255#255'`'#160#255#255']'#158#255#255'X'#153#255#255'T'
+  +#150#255#255'M'#144#255#255'G'#139#255#255'B'#132#255#255'='#127#255#255#251
+  +#247#244#255#212#155'o'#255#255#255#255#0#255#255#255#0#238#193#161#235#251
+  +#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255
  +#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244
-  +#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#215#160
-  +'t'#248#255#255#255#0#255#255#255#0#239#194#163'~'#239#193#162#227#237#192
-  +#159#255#235#190#157#255#235#188#154#255#233#186#150#255#231#183#147#255#230
-  +#181#144#255#228#178#140#255#226#175#136#255#224#172#132#255#221#169#128#255
-  +#220#165'}'#255#218#163'z'#202#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#251#247#244#255#251#247#244#255#215#160't'#248#255#255#255#0#255#255#255
+  +#0#239#194#163'~'#239#193#162#227#237#192#159#255#235#190#157#255#235#188#154
+  +#255#233#186#150#255#231#183#147#255#230#181#144#255#228#178#140#255#226#175
+  +#136#255#224#172#132#255#221#169#128#255#220#165'}'#255#218#163'z'#202#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#1#14'OnChangeBound'
-  +'s'#7#13'EndDateChange'#8'TabOrder'#2#12#0#0#9'TDateEdit'#11'RepeatUntil'#4
-  +'Left'#3#204#1#6'Height'#2#23#3'Top'#3#129#0#5'Width'#2'P'#23'CalendarDispla'
-  +'ySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'#6#2'OK'
-  +#13'CancelCaption'#6#6'Cancel'#11'ButtonWidth'#2#23#10'Glyph.Data'#10':'#4#0
-  +#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0
-  +#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#214#158'r'#196
-  +#211#153'n'#244#209#150'h'#255#206#146'c'#255#203#142'^'#255#201#138'['#255
-  +#199#135'V'#255#195#132'R'#255#195#132'R'#255#195#132'R'#255#195#132'R'#255
-  +#195#132'R'#255#195#132'R'#255#187'wB'#176#255#255#255#0#255#255#255#0#215
-  +#161'u'#255#248#242#237#255#247#240#234#255#246#237#230#255#244#234#226#255
-  +#243#231#222#255#241#228#219#255#240#226#216#255#234#214#200#255#242#229#220
-  +#255#250#244#241#255#249#243#240#255#250#245#242#255#197#138']'#253#255#255
-  +#255#0#255#255#255#0#217#164'z'#255#249#243#238#255#235#210#190#255#255#255
-  +#255#255#235#211#191#255#255#255#255#255#235#211#192#255#255#255#255#255#234
-  +#199#173#255#236#217#205#255#241#228#219#255#249#243#240#255#249#242#239#255
-  +#198#140'_'#255#255#255#255#0#255#255#255#0#221#168'~'#255#249#243#239#255
-  +#235#208#186#255#235#208#187#255'u'#181'z'#255'u'#181'z'#255'u'#181'z'#255
-  +#235#209#189#255#234#205#181#255#250#244#240#255#235#217#204#255#241#228#219
-  +#255#250#244#241#255#198#138'\'#255#255#255#255#0#255#255#255#0#223#170#130
-  +#255#249#243#239#255#234#206#183#255#255#255#255#255'u'#181'z'#255#148#212
-  +#155#255't'#181'y'#255#255#255#255#255#234#207#186#255#251#246#242#255#250
-  +#243#240#255#235#216#203#255#242#230#221#255#200#141'_'#255#255#255#255#0#255
-  +#255#255#0#225#174#135#255#250#244#240#255#234#203#178#255#234#204#179#255'u'
-  +#181'z'#255't'#181'y'#255's'#180'x'#255#234#206#183#255'p'#179'u'#255'o'#178
-  +'t'#255'n'#177'r'#255#232#200#174#255#234#215#201#255#196#134'T'#255#255#255
-  +#255#0#255#255#255#0#227#177#140#255#250#246#241#255#234#201#174#255#255#255
-  +#255#255#234#201#176#255#255#255#255#255#233#203#179#255#255#255#255#255'o'
-  ,#177's'#255#142#210#149#255'k'#175'o'#255#255#255#255#255#241#229#219#255#198
-  +#134'U'#255#255#255#255#0#255#255#255#0#229#180#143#255#250#246#242#255#233
-  +#198#170#255#233#198#172#255#234#199#172#255#233#199#173#255#233#201#174#255
-  +#233#201#176#255'l'#176'q'#255'j'#175'n'#255'h'#173'm'#255#232#204#181#255
-  +#242#231#222#255#200#138'Y'#255#255#255#255#0#255#255#255#0#231#183#148#255
-  +#251#247#244#255#233#195#166#255#255#255#255#255#232#196#169#255#255#255#255
-  +#255#233#198#170#255#255#255#255#255#232#199#172#255#255#255#255#255#232#200
-  +#176#255#255#255#255#255#247#241#235#255#203#143'_'#255#255#255#255#0#255#255
-  +#255#0#233#186#152#255#251#247#244#255'e'#164#255#255'd'#163#255#255'b'#162
-  +#255#255'a'#161#255#255'_'#159#255#255'\'#157#255#255'Z'#154#255#255'W'#152
-  +#255#255'T'#149#255#255'R'#148#255#255#251#247#244#255#206#147'd'#255#255#255
-  +#255#0#255#255#255#0#235#189#155#255#251#247#244#255'd'#164#255#255'y'#189
-  +#255#255'u'#187#255#255'q'#185#255#255'm'#184#255#255'h'#179#255#255'a'#176
-  +#255#255'Z'#171#255#255'T'#167#255#255';}'#255#255#251#247#244#255#209#151'j'
-  +#255#255#255#255#0#255#255#255#0#236#191#158#255#251#247#244#255'e'#164#255
-  +#255'd'#163#255#255'`'#160#255#255']'#158#255#255'X'#153#255#255'T'#150#255
-  +#255'M'#144#255#255'G'#139#255#255'B'#132#255#255'='#255#255#251#247#244#255
-  +#212#155'o'#255#255#255#255#0#255#255#255#0#238#193#161#235#251#247#244#255
-  +#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244
-  +#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247
-  +#244#255#251#247#244#255#215#160't'#248#255#255#255#0#255#255#255#0#239#194
-  +#163'~'#239#193#162#227#237#192#159#255#235#190#157#255#235#188#154#255#233
-  +#186#150#255#231#183#147#255#230#181#144#255#228#178#140#255#226#175#136#255
-  +#224#172#132#255#221#169#128#255#220#165'}'#255#218#163'z'#202#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#9'NumGlyphs'#2#1#9'MaxLength'#2#0#14'OnChangeBounds'#7#13'EndDate'
+  +'Change'#8'TabOrder'#2#12#0#0#9'TDateEdit'#11'RepeatUntil'#4'Left'#3#204#1#6
+  +'Height'#2#21#3'Top'#3#129#0#5'Width'#2'P'#23'CalendarDisplaySettings'#11#14
+  +'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'#6#2'OK'#13'CancelCaption'
+  +#6#6'Cancel'#9'DateOrder'#7#6'doNone'#11'ButtonWidth'#2#23#8'CharCase'#7#8'e'
+  +'cNormal'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('
+  +#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0
+  +#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#214#158'r'#196#211#153'n'#244#209#150'h'#255#206#146'c'
+  +#255#203#142'^'#255#201#138'['#255#199#135'V'#255#195#132'R'#255#195#132'R'
+  +#255#195#132'R'#255#195#132'R'#255#195#132'R'#255#195#132'R'#255#187'wB'#176
+  +#255#255#255#0#255#255#255#0#215#161'u'#255#248#242#237#255#247#240#234#255
+  +#246#237#230#255#244#234#226#255#243#231#222#255#241#228#219#255#240#226#216
+  +#255#234#214#200#255#242#229#220#255#250#244#241#255#249#243#240#255#250#245
+  +#242#255#197#138']'#253#255#255#255#0#255#255#255#0#217#164'z'#255#249#243
+  +#238#255#235#210#190#255#255#255#255#255#235#211#191#255#255#255#255#255#235
+  +#211#192#255#255#255#255#255#234#199#173#255#236#217#205#255#241#228#219#255
+  +#249#243#240#255#249#242#239#255#198#140'_'#255#255#255#255#0#255#255#255#0
+  +#221#168'~'#255#249#243#239#255#235#208#186#255#235#208#187#255'u'#181'z'#255
+  +'u'#181'z'#255'u'#181'z'#255#235#209#189#255#234#205#181#255#250#244#240#255
+  +#235#217#204#255#241#228#219#255#250#244#241#255#198#138'\'#255#255#255#255#0
+  +#255#255#255#0#223#170#130#255#249#243#239#255#234#206#183#255#255#255#255
+  +#255'u'#181'z'#255#148#212#155#255't'#181'y'#255#255#255#255#255#234#207#186
+  +#255#251#246#242#255#250#243#240#255#235#216#203#255#242#230#221#255#200#141
+  +'_'#255#255#255#255#0#255#255#255#0#225#174#135#255#250#244#240#255#234#203
+  +#178#255#234#204#179#255'u'#181'z'#255't'#181'y'#255's'#180'x'#255#234#206
+  +#183#255'p'#179'u'#255'o'#178't'#255'n'#177'r'#255#232#200#174#255#234#215
+  ,#201#255#196#134'T'#255#255#255#255#0#255#255#255#0#227#177#140#255#250#246
+  +#241#255#234#201#174#255#255#255#255#255#234#201#176#255#255#255#255#255#233
+  +#203#179#255#255#255#255#255'o'#177's'#255#142#210#149#255'k'#175'o'#255#255
+  +#255#255#255#241#229#219#255#198#134'U'#255#255#255#255#0#255#255#255#0#229
+  +#180#143#255#250#246#242#255#233#198#170#255#233#198#172#255#234#199#172#255
+  +#233#199#173#255#233#201#174#255#233#201#176#255'l'#176'q'#255'j'#175'n'#255
+  +'h'#173'm'#255#232#204#181#255#242#231#222#255#200#138'Y'#255#255#255#255#0
+  +#255#255#255#0#231#183#148#255#251#247#244#255#233#195#166#255#255#255#255
+  +#255#232#196#169#255#255#255#255#255#233#198#170#255#255#255#255#255#232#199
+  +#172#255#255#255#255#255#232#200#176#255#255#255#255#255#247#241#235#255#203
+  +#143'_'#255#255#255#255#0#255#255#255#0#233#186#152#255#251#247#244#255'e'
+  +#164#255#255'd'#163#255#255'b'#162#255#255'a'#161#255#255'_'#159#255#255'\'
+  +#157#255#255'Z'#154#255#255'W'#152#255#255'T'#149#255#255'R'#148#255#255#251
+  +#247#244#255#206#147'd'#255#255#255#255#0#255#255#255#0#235#189#155#255#251
+  +#247#244#255'd'#164#255#255'y'#189#255#255'u'#187#255#255'q'#185#255#255'm'
+  +#184#255#255'h'#179#255#255'a'#176#255#255'Z'#171#255#255'T'#167#255#255';}'
+  +#255#255#251#247#244#255#209#151'j'#255#255#255#255#0#255#255#255#0#236#191
+  +#158#255#251#247#244#255'e'#164#255#255'd'#163#255#255'`'#160#255#255']'#158
+  +#255#255'X'#153#255#255'T'#150#255#255'M'#144#255#255'G'#139#255#255'B'#132
+  +#255#255'='#127#255#255#251#247#244#255#212#155'o'#255#255#255#255#0#255#255
+  +#255#0#238#193#161#235#251#247#244#255#251#247#244#255#251#247#244#255#251
+  +#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255
+  +#251#247#244#255#251#247#244#255#251#247#244#255#251#247#244#255#215#160't'
+  +#248#255#255#255#0#255#255#255#0#239#194#163'~'#239#193#162#227#237#192#159
+  +#255#235#190#157#255#235#188#154#255#233#186#150#255#231#183#147#255#230#181
+  +#144#255#228#178#140#255#226#175#136#255#224#172#132#255#221#169#128#255#220
+  +#165'}'#255#218#163'z'#202#255#255#255#0#255#255#255#0#255#255#255#0#255#255
  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#9'NumGlyphs'#2#1#8'TabOrder'#2#13#0#0#5'TEdit'#12'AlarmAdvance'#4'Left'#3
-  +#130#0#6'Height'#2#23#3'Top'#3#168#0#5'Width'#2'@'#8'OnChange'#7#18'AlarmAdv'
-  +'anceChange'#8'TabOrder'#2#14#4'Text'#6#12'AlarmAdvance'#0#0#0#5'TMemo'#9'No'
-  +'tesMemo'#4'Left'#2#8#6'Height'#2'n'#3'Top'#3#224#0#5'Width'#3#167#2#7'Ancho'
-  +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ScrollBars'#7#10'ssVe'
-  +'rtical'#8'TabOrder'#2#2#0#0#11'TOpenDialog'#10'FileDialog'#4'left'#3'd'#1#3
-  +'top'#3#199#0#0#0#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#1#9'MaxLength'#2#0#8'T'
+  +'abOrder'#2#13#0#0#5'TEdit'#12'AlarmAdvance'#4'Left'#3#130#0#6'Height'#2#21#3
+  +'Top'#3#168#0#5'Width'#2'@'#8'OnChange'#7#18'AlarmAdvanceChange'#8'TabOrder'
+  +#2#14#4'Text'#6#12'AlarmAdvance'#0#0#0#5'TMemo'#9'NotesMemo'#4'Left'#2#8#6'H'
+  +'eight'#2'n'#3'Top'#3#224#0#5'Width'#3#167#2#7'Anchors'#11#5'akTop'#6'akLeft'
+  +#7'akRight'#8'akBottom'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#2#0#0
+  +#11'TOpenDialog'#10'FileDialog'#4'left'#3'd'#1#3'top'#3#199#0#0#0#0
 ]);
--- a/components/tvplanit/source/vpevnteditdlg.pas
+++ b/components/tvplanit/source/vpevnteditdlg.pas
@ -96,6 +96,8 @@ type
    edtUnusedPlaceholder: TEdit;
    imgClock: TImage;
    RecurrenceEndsLbl: TLabel;
+    procedure CategoryDrawItem(Control: TWinControl; Index: Integer;
+      ARect: TRect; State: TOwnerDrawState);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
@ -109,8 +111,6 @@ type
    procedure RecurringTypeChange(Sender: TObject);
    procedure AlarmSetClick(Sender: TObject);
    procedure EndDateChange(Sender: TObject);
-    procedure CategoryDrawItem(Control: TWinControl; Index: Integer;
-      Rect: TRect; State: TOwnerDrawState);
    procedure CBAllDayClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
@ -207,6 +207,78 @@ begin
  ReturnCode := rtCommit;
  Close;
 end;
+
+procedure TDlgEventEdit.CategoryDrawItem(Control: TWinControl; Index: Integer;
+  ARect: TRect; State: TOwnerDrawState);
+var
+  Color, SaveColor: TColor;
+  Name: string;
+  ColorRect: TRect;
+begin
+  Category.Canvas.FillRect(ARect);
+  Color := clBlack;
+  case Index of
+    0: begin
+      Color := CatColorMap.Category0.Color;
+      Name := CatColorMap.Category0.Description;
+    end;
+    1:  begin
+      Color := CatColorMap.Category1.Color;
+      Name := CatColorMap.Category1.Description;
+    end;
+    2:  begin
+      Color := CatColorMap.Category2.Color;
+      Name := CatColorMap.Category2.Description;
+    end;
+    3:  begin
+      Color := CatColorMap.Category3.Color;
+      Name := CatColorMap.Category3.Description;
+    end;
+    4:  begin
+      Color := CatColorMap.Category4.Color;
+      Name := CatColorMap.Category4.Description;
+    end;
+    5:  begin
+      Color := CatColorMap.Category5.Color;
+      Name := CatColorMap.Category5.Description;
+    end;
+    6:  begin
+      Color := CatColorMap.Category6.Color;
+      Name := CatColorMap.Category6.Description;
+    end;
+    7:  begin
+      Color := CatColorMap.Category7.Color;
+      Name := CatColorMap.Category7.Description;
+    end;
+    8:  begin
+      Color := CatColorMap.Category8.Color;
+      Name := CatColorMap.Category8.Description;
+    end;
+    9:  begin
+      Color := CatColorMap.Category9.Color;
+      Name := CatColorMap.Category9.Description;
+    end;
+  end; {Case}
+
+  SaveColor := Category.Canvas.Brush.Color;
+  Category.Canvas.Brush.Color := Color;
+  Category.Canvas.Pen.Color := clBlack;
+  ColorRect.Left := ARect.Left + 3;
+  ColorRect.Top := ARect.Top + 2;
+  ColorRect.Bottom := ARect.Bottom - 2;
+  ColorRect.Right := ColorRect.Left + 20;
+  Category.Canvas.FillRect(ColorRect);
+  {$IFDEF VERSION5}
+  Category.Canvas.Rectangle(ColorRect);
+  {$ELSE}
+  Category.Canvas.Rectangle(ColorRect.Left, ColorRect.Top, ColorRect.Right,
+    ColorRect.Bottom);
+  {$ENDIF}
+  ARect.Left := ColorRect.Right + 5;
+  Category.Canvas.Brush.Color := SaveColor;
+  Category.Canvas.TextOut(ARect.Left, ARect.Top, Name);
+end;
+
 {=====}

 procedure TDlgEventEdit.CancelBtnClick(Sender: TObject);
@ -298,12 +370,12 @@ end;
 {=====}

 procedure TDlgEventEdit.StartTimeChange(Sender: TObject);
-{var                                                                   } 
-{  ST: TDateTime;                                                      }                                                       
+var
+  ST: TDateTime;
 begin
  { Verify the value is valid }
  try
-    {ST :=} StrToTime(StartTime.Text);
+    ST := StrToTime(StartTime.Text);
  except
    StartTime.Color := clRed;
    if Visible then
@ -314,14 +386,14 @@ begin

  { if the end time is less than the start time then change the end time to }
  { follow the start time by 30 minutes }
-  {if ST > StrToDateTime(EndTime.Text) then begin                      } 
-  {  if TimeFormat = tf24Hour then                                     } 
-  {    EndTime.Text := FormatDateTime ('h:mm',                         } 
-  {                                    ST + (30/MinutesInDay))         } 
-  {  else                                                              } 
-  {    EndTime.Text := FormatDateTime ('hh:mm AM/PM',                  } 
-  {                                    ST + (30/MinutesInDay));        } 
-  {end;                                                                } 
+  if ST > StrToTime(EndTime.Text) then begin
+    if TimeFormat = tf24Hour then
+      EndTime.Text := FormatDateTime ('h:mm',
+                                      ST + (30/MinutesInDay))
+    else
+      EndTime.Text := FormatDateTime ('hh:mm AM/PM',
+                                      ST + (30/MinutesInDay));
+  end;

 end;
 {=====}
@ -355,14 +427,14 @@ begin

  { if the end time is less than the start time then change the start time to }
  { precede the end time by 30 minutes }
-  {if ET < StrToDateTime(StartTime.Text) then begin                    } 
-  {  if TimeFormat = tf24Hour then                                     } 
-  {    StartTime.Text := FormatDateTime ('h:mm',                       } 
-  {                                      ET - (30/MinutesInDay))       } 
-  {  else                                                              } 
-  {    StartTime.Text := FormatDateTime ('h:mm AM/PM',                 } 
-  {                                      ET - (30/MinutesInDay));      } 
-  {end;                                                                } 
+  if ET < StrToTime(StartTime.Text) then begin
+    if TimeFormat = tf24Hour then
+      StartTime.Text := FormatDateTime ('h:mm',
+                                        ET - (30/MinutesInDay))
+    else
+      StartTime.Text := FormatDateTime ('h:mm AM/PM',
+                                        ET - (30/MinutesInDay));
+  end;
 end;
 {=====}

@ -530,78 +602,6 @@ begin
 end;
 {=====}

-procedure TDlgEventEdit.CategoryDrawItem(Control: TWinControl;
-  Index: Integer; Rect: TRect; State: TOwnerDrawState);
-var
-  Color, SaveColor: TColor;
-  Name: string;
-  ColorRect: TRect;
-begin
-  Category.Canvas.FillRect(Rect);
-  Color := clBlack;
-  case Index of
-    0: begin
-      Color := CatColorMap.Category0.Color;
-      Name := CatColorMap.Category0.Description;
-    end;
-    1:  begin
-      Color := CatColorMap.Category1.Color;
-      Name := CatColorMap.Category1.Description;
-    end;
-    2:  begin
-      Color := CatColorMap.Category2.Color;
-      Name := CatColorMap.Category2.Description;
-    end;
-    3:  begin
-      Color := CatColorMap.Category3.Color;
-      Name := CatColorMap.Category3.Description;
-    end;
-    4:  begin
-      Color := CatColorMap.Category4.Color;
-      Name := CatColorMap.Category4.Description;
-    end;
-    5:  begin
-      Color := CatColorMap.Category5.Color;
-      Name := CatColorMap.Category5.Description;
-    end;
-    6:  begin
-      Color := CatColorMap.Category6.Color;
-      Name := CatColorMap.Category6.Description;
-    end;
-    7:  begin
-      Color := CatColorMap.Category7.Color;
-      Name := CatColorMap.Category7.Description;
-    end;
-    8:  begin
-      Color := CatColorMap.Category8.Color;
-      Name := CatColorMap.Category8.Description;
-    end;
-    9:  begin
-      Color := CatColorMap.Category9.Color;
-      Name := CatColorMap.Category9.Description;
-    end;
-  end; {Case}
-
-  SaveColor := Category.Canvas.Brush.Color;
-  Category.Canvas.Brush.Color := Color;
-  Category.Canvas.Pen.Color := clBlack;
-  ColorRect.Left := Rect.Left + 3;
-  ColorRect.Top := Rect.Top + 2;
-  ColorRect.Bottom := Rect.Bottom - 2;
-  ColorRect.Right := ColorRect.Left + 20;
-  Category.Canvas.FillRect(ColorRect);
-  {$IFDEF VERSION5}
-  Category.Canvas.Rectangle(ColorRect);
-  {$ELSE}
-  Category.Canvas.Rectangle(ColorRect.Left, ColorRect.Top, ColorRect.Right,
-    ColorRect.Bottom);
-  {$ENDIF}
-  Rect.Left := ColorRect.Right + 5;
-  Category.Canvas.Brush.Color := SaveColor;
-  Category.Canvas.TextOut(Rect.Left, Rect.Top, Name);
-end;
-{=====}
-
 procedure TDlgEventEdit.CBAllDayClick(Sender: TObject);
 begin
  StartDate.Enabled := not CBAllDay.Checked;
--- a/components/tvplanit/source/vpmisc.pas
+++ b/components/tvplanit/source/vpmisc.pas
@ -221,7 +221,7 @@ end;

 function LoadBaseBitmap(lpBitmapName : PAnsiChar) : HBITMAP;
 begin
-//TODO:  Result := LoadBitmap(FindClassHInstance(TVpCustomControl), lpBitmapName);
+//  Result := LoadBitmap(FindClassHInstance(TVpCustomControl), lpBitmapName);
 end;
 {=====}

--- a/components/tvplanit/source/vpweekview.pas
+++ b/components/tvplanit/source/vpweekview.pas
@ -74,7 +74,6 @@ type
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  public
    constructor Create(AOwner: TComponent); override;
-    procedure Move(const Loc: TRect; Redraw: Boolean);
  end;

  TVpWvHeadAttributes = class(TPersistent)
@ -309,22 +308,10 @@ begin
 end;
 {=====}

-procedure TVpWvInPlaceEdit.Move(const Loc: TRect; Redraw: Boolean);
-begin
-  CreateHandle;
-  Redraw := Redraw or not IsWindowVisible(Handle);
-  with Loc do
-    SetWindowPos(Handle, HWND_TOP, Left, Top, Right - Left, Bottom - Top,
-      {SWP_SHOWWINDOW or }SWP_NOREDRAW);
-  if Redraw then Invalidate;
-  SetFocus;
-end;
-{=====}
-
 procedure TVpWvInPlaceEdit.CreateParams(var Params: TCreateParams);
 begin
  inherited CreateParams(Params);
-  Params.Style := Params.Style{ or ES_MULTILINE};
+//  Params.Style := Params.Style or ES_MULTILINE;
 end;
 {=====}

@ -778,6 +765,8 @@ var
    EAIndex  : Integer;
    DayStr   : string;
    EventList: TList;
+    TodayStartTime: Double;
+    TodayEndTime: Double;
  begin
    RenderCanvas.Pen.Color := RealLineColor;
    RenderCanvas.Pen.Style := psSolid;
@ -812,8 +801,7 @@ var
      { draw day head}
      RenderCanvas.Font.Assign(FDayHeadAttributes.Font);
      RenderCanvas.Brush.Color := RealDayHeadAttrColor;
-      TextRect := Rect(DayRect.Left, DayRect.Top, DayRect.Right, DayRect.Top
-        + wvDayHeadHeight);
+      TextRect := Rect(DayRect.Left, DayRect.Top, DayRect.Right, DayRect.Top + wvDayHeadHeight);
      TPSFillRect (RenderCanvas, Angle, RenderIn, TextRect);
      if FDayHeadAttributes.Bordered then
        TPSRectangle (RenderCanvas, Angle, RenderIn, TextRect);
@ -882,19 +870,21 @@ var

            { format the display text }
            DayStr := '';
-            if ShowEventTime then begin
+            TodayStartTime := TVpEvent(EventList.List^[j]).StartTime;
+            TodayEndTime := TVpEvent(EventList.List^[j]).EndTime;
+            if trunc(TodayStartTime) < trunc(StartDate + I) then //First Event
+              TodayStartTime := 0;
+            if trunc(TodayEndTime) > trunc(StartDate + I) then //Last Event
+              TodayEndTime := 0.9999;
+            if ShowEventTime then
+              begin
               if TimeFormat = tf24Hour then
-                DayStr := FormatDateTime('hh:mm',
-                  TVpEvent(EventList.List^[j]).StartTime)
-                  + ' - ' + FormatDateTime('hh:mm',
-                  TVpEvent(EventList.List^[j]).EndTime) + ': '
+                 DayStr := FormatDateTime('hh:mm',TodayStartTime)
+                  + ' - ' + FormatDateTime('hh:mm',TodayEndTime) + ': '
              else
-                DayStr := FormatDateTime('hh:mm AM/PM',
-                  TVpEvent(EventList.List^[j]).StartTime)
-                  + ' - ' + FormatDateTime('hh:mm AM/PM',
-                  TVpEvent(EventList.List^[j]).EndTime) + ': ';
+                DayStr := FormatDateTime('hh:mm AM/PM',TVpEvent(EventList.List^[j]).StartTime)
+                  + ' - ' + FormatDateTime('hh:mm AM/PM',TVpEvent(EventList.List^[j]).EndTime) + ': ';
              end;
-
            if DayStr = '' then
              DayStr := TVpEvent(EventList.List^[j]).Description
            else
@ -1066,8 +1056,7 @@ var
    end;

    { build header caption }
-    HeadStr := HeadStr + RSWeekof + ' '
-      + FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
+    HeadStr := HeadStr + RSWeekof + ' ' + FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
    { draw the text }
    if (DisplayOnly) and
       (RenderCanvas.TextWidth (HeadStr) >= RenderIn.Right - RenderIn.Left) then
@ -1822,11 +1811,13 @@ begin
      wvInPlaceEditor := TVpWvInPlaceEdit.Create(Self);
      wvInPlaceEditor.Parent := self;
      wvInPlaceEditor.OnExit := EndEdit;
-      wvInPlaceEditor.Move(Rect(wvActiveEventRec.Left + TextMargin,
-        wvActiveEventRec.Top, wvActiveEventRec.Right - TextMargin,
-        wvActiveEventRec.Bottom), true);
+      wvInPlaceEditor.SetBounds(wvActiveEventRec.Left + TextMargin,
+                                wvActiveEventRec.Top,
+                                wvActiveEventRec.Right - (TextMargin*2),
+                                wvActiveEventRec.Bottom- (TextMargin*2));
      wvInPlaceEditor.Text := FActiveEvent.Description;
      Invalidate;
+      wvInPlaceEditor.SetFocus;
    end;
  end;
 end;
@ -1938,7 +1929,7 @@ begin
    wvInPlaceEditor.Free;
    wvInPlaceEditor := nil;
    Invalidate;
-    SetFocus;
+//    SetFocus;
  end;
 end;
 {=====}