From b6ccf41e4f0319682eb7d9b7f0f56a7063e85f38 Mon Sep 17 00:00:00 2001 From: christian_u Date: Thu, 24 Dec 2009 22:41:52 +0000 Subject: [PATCH] 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 --- components/tvplanit/source/vpalarmdlg.lfm | 59 +- components/tvplanit/source/vpalarmdlg.lrs | 62 +-- components/tvplanit/source/vpdata.pas | 37 +- components/tvplanit/source/vpdayview.pas | 55 +- components/tvplanit/source/vpevnteditdlg.lfm | 37 +- components/tvplanit/source/vpevnteditdlg.lrs | 548 ++++++++++--------- components/tvplanit/source/vpevnteditdlg.pas | 186 +++---- components/tvplanit/source/vpmisc.pas | 2 +- components/tvplanit/source/vpweekview.pas | 59 +- 9 files changed, 523 insertions(+), 522 deletions(-) diff --git a/components/tvplanit/source/vpalarmdlg.lfm b/components/tvplanit/source/vpalarmdlg.lfm index deb9725a4..2c7d11064 100644 --- 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 diff --git a/components/tvplanit/source/vpalarmdlg.lrs b/components/tvplanit/source/vpalarmdlg.lrs index de8c8a645..32175030d 100644 --- 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 ]); diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas index c7b9f1535..c28c5792f 100644 --- 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,16 +906,11 @@ end; procedure TVpEvent.SetAllDayEvent(Value: Boolean); 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); + if Value <> FAllDayEvent then + begin + FAllDayEvent := Value; + Changed := true; 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; diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas index 5ff027027..325fd5c6e 100644 --- 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 + - TextMargin, - dvActiveEventRec.Top + TextMargin, - dvActiveEventRec.Right, - dvActiveEventRec.Bottom - 1), - true); + dvInPlaceEditor.SetBounds(dvActiveIconRec.Right + FGutterWidth + + TextMargin, + dvActiveEventRec.Top + TextMargin, + dvActiveEventRec.Right, + 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); diff --git a/components/tvplanit/source/vpevnteditdlg.lfm b/components/tvplanit/source/vpevnteditdlg.lfm index ad782e02c..4d08dc7c2 100644 --- 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 diff --git a/components/tvplanit/source/vpevnteditdlg.lrs b/components/tvplanit/source/vpevnteditdlg.lrs index b1cf9a045..28846eacb 100644 --- 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'#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'#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''#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 ]); diff --git a/components/tvplanit/source/vpevnteditdlg.pas b/components/tvplanit/source/vpevnteditdlg.pas index 575b7e177..30856454d 100644 --- 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; diff --git a/components/tvplanit/source/vpmisc.pas b/components/tvplanit/source/vpmisc.pas index fe3e662d5..d265a5675 100644 --- 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; {=====} diff --git a/components/tvplanit/source/vpweekview.pas b/components/tvplanit/source/vpweekview.pas index 3c0bb40fa..eae50ab3e 100644 --- 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 - if TimeFormat = tf24Hour then - DayStr := FormatDateTime('hh:mm', - TVpEvent(EventList.List^[j]).StartTime) - + ' - ' + FormatDateTime('hh:mm', - TVpEvent(EventList.List^[j]).EndTime) + ': ' + 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',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) + ': '; - end; - + 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; {=====}