pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fixed some small bugs

Browse Source 
fixed dayview
reworked event Edit Dlg

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1084 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2009-12-24 22:41:52 +00:00
parent 3cc5d924ae
commit b6ccf41e4f
9 changed files with 523 additions and 522 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
components/tvplanit/source/vpalarmdlg.lfm
View File

@ -1,38 +1,41 @@
object AlarmNotifyForm: TAlarmNotifyForm object AlarmNotifyForm: TAlarmNotifyForm
Left = 176 Left = 490
Height = 197 Height = 209
Top = 232 Top = 253
Width = 400 Width = 407
HorzScrollBar.Page = 399 HorzScrollBar.Page = 399
VertScrollBar.Page = 196 VertScrollBar.Page = 196
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Reminder' Caption = 'Reminder'
ClientHeight = 197 ClientHeight = 209
ClientWidth = 400 ClientWidth = 407
Color = clWindow Color = clWindow
KeyPreview = True KeyPreview = True
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
Position = poDefault Position = poDefault
LCLVersion = '0.9.29'
object SnoozeCaption: TLabel object SnoozeCaption: TLabel
Left = 48 Left = 24
Height = 13 Height = 57
Top = 136 Top = 136
Width = 78 Width = 102
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = 'SnoozeCaption' Caption = 'SnoozeCaption'
ParentColor = False ParentColor = False
WordWrap = True
end end
object lSubject: TLabel object lSubject: TLabel
Left = 24 Left = 24
Height = 14 Height = 16
Top = 32 Top = 32
Width = 47 Width = 46
Caption = 'lSubject' Caption = 'lSubject'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False
end end
object lNotes: TLabel object lNotes: TLabel
Left = 24 Left = 24
@ -46,35 +49,35 @@ object AlarmNotifyForm: TAlarmNotifyForm
end end
object lTime: TLabel object lTime: TLabel
Left = 24 Left = 24
Height = 14 Height = 16
Top = 8 Top = 8
Width = 25 Width = 31
Caption = 'lTime' Caption = 'lTime'
ParentColor = False ParentColor = False
end end
object DismissBtn: TButton object DismissBtn: TButton
Left = 216 Left = 176
Height = 25 Height = 32
Top = 168 Top = 170
Width = 88 Width = 112
Caption = 'DismissBtn' Caption = 'DismissBtn'
OnClick = DismissBtnClick OnClick = DismissBtnClick
TabOrder = 0 TabOrder = 0
end end
object SnoozeBtn: TButton object SnoozeBtn: TButton
Left = 312 Left = 296
Height = 25 Height = 32
Top = 136 Top = 136
Width = 83 Width = 99
Caption = 'SnoozeBtn' Caption = 'SnoozeBtn'
OnClick = SnoozeBtnClick OnClick = SnoozeBtnClick
TabOrder = 1 TabOrder = 1
end end
object OpenItemBtn: TButton object OpenItemBtn: TButton
Left = 312 Left = 296
Height = 25 Height = 32
Top = 168 Top = 170
Width = 83 Width = 99
Caption = 'OpenItemBtn' Caption = 'OpenItemBtn'
Default = True Default = True
OnClick = OpenItemBtnClick OnClick = OpenItemBtnClick
@ -82,11 +85,10 @@ object AlarmNotifyForm: TAlarmNotifyForm
end end
object SnoozeCombo: TComboBox object SnoozeCombo: TComboBox
Left = 136 Left = 136
Height = 21 Height = 23
Top = 136 Top = 136
Width = 168 Width = 152
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] ItemHeight = 15
ItemHeight = 13
Items.Strings = ( Items.Strings = (
'5 Minutes' '5 Minutes'
'10 Minutes' '10 Minutes'
@ -117,6 +119,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
object EventDialog: TVpEventEditDialog object EventDialog: TVpEventEditDialog
Version = 'v1.03' Version = 'v1.03'
TimeFormat = tf24Hour TimeFormat = tf24Hour
Options = []
Placement.Position = mpCenterTop Placement.Position = mpCenterTop
Placement.Top = 10 Placement.Top = 10
Placement.Left = 10 Placement.Left = 10

62
components/tvplanit/source/vpalarmdlg.lrs
View File

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

37
components/tvplanit/source/vpdata.pas
View File

@ -55,7 +55,7 @@ type
TVpAlarmAdvType = (atMinutes, atHours, atDays); TVpAlarmAdvType = (atMinutes, atHours, atDays);
TVpRepeatType = (rtNone, rtDaily, rtWeekly, rtMonthlyByDay, rtMonthlyByDate, TVpRepeatType = (rtNone=0, rtDaily, rtWeekly, rtMonthlyByDay, rtMonthlyByDate,
rtYearlyByDay, rtYearlyByDate, rtCustom); rtYearlyByDay, rtYearlyByDate, rtCustom);
TVpContactSort = (csLastFirst, csFirstLast); TVpContactSort = (csLastFirst, csFirstLast);
@ -185,7 +185,11 @@ type
property EventCount: Integer read GetCount; property EventCount: Integer read GetCount;
end; end;
{ TVpEvent }
TVpEvent = class TVpEvent = class
private
FLocation: string;
protected{private} protected{private}
FOwner: TVpSchedule; FOwner: TVpSchedule;
FItemIndex: Integer; FItemIndex: Integer;
@ -267,6 +271,7 @@ type
{ is Zero if IntervalCode <> 7 } { is Zero if IntervalCode <> 7 }
property CustInterval : Integer read FCustInterval write SetCustInterval; property CustInterval : Integer read FCustInterval write SetCustInterval;
property Owner: TVpSchedule read FOwner; property Owner: TVpSchedule read FOwner;
property Location: string read FLocation write FLocation;
{ Reserved for your use } { Reserved for your use }
property UserField0: string read FUserField0 write FUserField0; property UserField0: string read FUserField0 write FUserField0;
property UserField1: string read FUserField1 write FUserField1; property UserField1: string read FUserField1 write FUserField1;
@ -901,16 +906,11 @@ end;
procedure TVpEvent.SetAllDayEvent(Value: Boolean); procedure TVpEvent.SetAllDayEvent(Value: Boolean);
begin begin
if Value <> FAllDayEvent then begin if Value <> FAllDayEvent then
FAllDayEvent := Value; begin
if FAllDayEvent then begin FAllDayEvent := Value;
{Set the StartTime to 12:00 AM} Changed := true;
StartTime := Trunc(StartTime);
{Set the EndTime to 11:59 PM}
EndTime := StartTime + 1 - (1 / MinutesInDay);
end; end;
Changed := true;
end;
end; end;
{=====} {=====}
@ -1266,20 +1266,21 @@ end;
function TVpSchedule.EventCountByDay(Value: TDateTime): Integer; function TVpSchedule.EventCountByDay(Value: TDateTime): Integer;
var var
I: Integer; I: Integer;
Evnt: TVpEvent; Event: TVpEvent;
begin begin
result := 0; result := 0;
for I := 0 to pred(EventCount) do begin 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 } { if this is a repeating event and it falls on today then inc }
{ result } { result }
if (Evnt.RepeatCode > rtNone) if (Event.RepeatCode > rtNone)
and (RepeatsOn(Evnt, Value)) and (RepeatsOn(Event, Value))
then then
Inc(Result) Inc(Result)
{ otherwise if it is an event that naturally falls on today, then } { otherwise if it is an event that naturally falls on today, then }
{ inc result } { 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); Inc(Result);
end; end;
end; end;
@ -1306,7 +1307,8 @@ begin
EventList.Add(Event) EventList.Add(Event)
{ otherwise if this event naturally falls on "Date" then add it to } { otherwise if this event naturally falls on "Date" then add it to }
{ the list. } { 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); EventList.Add(Event);
end; end;
end; end;
@ -1327,7 +1329,8 @@ begin
{ Add this days events to the Event List. } { Add this days events to the Event List. }
for I := 0 to pred(EventCount) do begin for I := 0 to pred(EventCount) do begin
Event := GetEvent(I); 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); EventList.Add(Event);
end; end;
end; end;

55
components/tvplanit/source/vpdayview.pas
View File

@ -126,7 +126,6 @@ type
{$ENDIF} {$ENDIF}
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure Move(const Loc: TRect; Redraw: Boolean);
end; end;
TVpRHAttributes = class(TPersistent) TVpRHAttributes = class(TPersistent)
@ -532,19 +531,6 @@ begin
end; 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); procedure TVpDvInPlaceEdit.CreateParams(var Params: TCreateParams);
begin begin
inherited CreateParams(Params); inherited CreateParams(Params);
@ -2236,14 +2222,14 @@ begin
dvInPlaceEditor := TVpDvInPlaceEdit.Create(Self); dvInPlaceEditor := TVpDvInPlaceEdit.Create(Self);
dvInPlaceEditor.Parent := self; dvInPlaceEditor.Parent := self;
dvInPlaceEditor.OnExit := EndEdit; dvInPlaceEditor.OnExit := EndEdit;
dvInPlaceEditor.Move (Rect (dvActiveIconRec.Right + FGutterWidth + dvInPlaceEditor.SetBounds(dvActiveIconRec.Right + FGutterWidth +
TextMargin, TextMargin,
dvActiveEventRec.Top + TextMargin, dvActiveEventRec.Top + TextMargin,
dvActiveEventRec.Right, dvActiveEventRec.Right,
dvActiveEventRec.Bottom - 1), dvActiveEventRec.Bottom - 1);
true);
dvInPlaceEditor.Text := FActiveEvent.Description; dvInPlaceEditor.Text := FActiveEvent.Description;
Invalidate; Invalidate;
dvInPlaceEditor.SetFocus;
end; end;
end; end;
{=====} {=====}
@ -3010,6 +2996,8 @@ var
{ event represented by this record. } { event represented by this record. }
WidthDivisor : Integer; { the maximum OLEvents of all of this event's } WidthDivisor : Integer; { the maximum OLEvents of all of this event's }
{ overlapping neighbors. } { overlapping neighbors. }
RealStartTime : TDateTime;
RealEndTime : TDateTime;
end; end;
type type
TVpDvEventArray = array of TVpDvEventRec; TVpDvEventArray = array of TVpDvEventRec;
@ -3050,8 +3038,7 @@ var
{ returns the number of events which overlap the specified event } { returns the number of events which overlap the specified event }
function CountOverlappingEvents(Event: TVpEvent; function CountOverlappingEvents(Event: TVpEvent;const EArray: TVpDvEventArray): Integer;
const EArray: TVpDvEventArray): Integer;
var var
K, SelfLevel: Integer; K, SelfLevel: Integer;
Tmp: TVpEvent; Tmp: TVpEvent;
@ -3623,8 +3610,7 @@ begin
for I := 0 to pred(MaxVisibleEvents) do begin for I := 0 to pred(MaxVisibleEvents) do begin
if EventArray[I].Event = nil then if EventArray[I].Event = nil then
Break; Break;
EventArray[I].WidthDivisor := GetMaxOLEvents( EventArray[I].WidthDivisor := GetMaxOLEvents(TVpEvent(EventArray[I].Event), EventArray);
TVpEvent(EventArray[I].Event), EventArray);
end; end;
{Make one last pass, to make sure that we have set up the width } {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 } { Determine how much time is represented by one pixel. It is the }
{ amount of time represented by one line, divided by the height of } { amount of time represented by one line, divided by the height of }
{ a line in pixels. } { a line in pixels. }
PixelDuration := (LineDuration if (dvLineMatrix[Col, StartLine].Rec.Bottom - dvLineMatrix[Col, StartLine].Rec.Top) > 0 then
/ (dvLineMatrix[Col, StartLine].Rec.Bottom - PixelDuration := (LineDuration / (dvLineMatrix[Col, StartLine].Rec.Bottom - dvLineMatrix[Col, StartLine].Rec.Top))
dvLineMatrix[Col, StartLine].Rec.Top)); else
PixelDuration := 0;
{ Iterate through events and paint them } { Iterate through events and paint them }
for I := 0 to pred(MaxVisibleEvents) do begin for I := 0 to pred(MaxVisibleEvents) do begin
@ -3682,11 +3669,17 @@ begin
if Event = nil then if Event = nil then
Break; Break;
{ Find the line on which this event starts }
EventSLine := GetStartLine(Event.StartTime, Granularity);
{ remove the date portion from the start and end times } { remove the date portion from the start and end times }
EventSTime := Event.StartTime - trunc(Event.StartTime); EventSTime := Event.StartTime;
EventETime := Event.EndTime - trunc(Event.EndTime); 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 } { Handle End Times of Midnight }
if EventETime = 0 then if EventETime = 0 then
EventETime := EncodeTime (23, 59, 59, 0); EventETime := EncodeTime (23, 59, 59, 0);

37
components/tvplanit/source/vpevnteditdlg.lfm
View File

@ -13,10 +13,10 @@ object DlgEventEdit: TDlgEventEdit
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
ParentFont = False
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 0
Height = 41 Height = 41
Top = 344 Top = 344
Width = 697 Width = 697
@ -289,7 +289,7 @@ object DlgEventEdit: TDlgEventEdit
Left = 40 Left = 40
Height = 19 Height = 19
Top = 170 Top = 170
Width = 74 Width = 68
Caption = '&Reminder:' Caption = '&Reminder:'
OnClick = AlarmSetClick OnClick = AlarmSetClick
TabOrder = 3 TabOrder = 3
@ -300,7 +300,6 @@ object DlgEventEdit: TDlgEventEdit
Top = 103 Top = 103
Width = 93 Width = 93
ItemHeight = 13 ItemHeight = 13
MaxLength = -1
OnChangeBounds = StartTimeChange OnChangeBounds = StartTimeChange
OnExit = StartTimeExit OnExit = StartTimeExit
TabOrder = 4 TabOrder = 4
@ -311,7 +310,6 @@ object DlgEventEdit: TDlgEventEdit
Top = 127 Top = 127
Width = 93 Width = 93
ItemHeight = 13 ItemHeight = 13
MaxLength = -1
OnChangeBounds = EndTimeChange OnChangeBounds = EndTimeChange
OnExit = EndTimeExit OnExit = EndTimeExit
TabOrder = 5 TabOrder = 5
@ -322,7 +320,7 @@ object DlgEventEdit: TDlgEventEdit
Top = 46 Top = 46
Width = 182 Width = 182
ItemHeight = 13 ItemHeight = 13
MaxLength = -1 OnDrawItem = CategoryDrawItem
Style = csOwnerDrawFixed Style = csOwnerDrawFixed
TabOrder = 1 TabOrder = 1
end end
@ -332,8 +330,7 @@ object DlgEventEdit: TDlgEventEdit
Top = 103 Top = 103
Width = 183 Width = 183
ItemHeight = 13 ItemHeight = 13
MaxLength = -1 OnChange = RecurringTypeChange
OnChangeBounds = RecurringTypeChange
Style = csDropDownList Style = csDropDownList
TabOrder = 6 TabOrder = 6
end end
@ -342,8 +339,11 @@ object DlgEventEdit: TDlgEventEdit
Height = 29 Height = 29
Top = 99 Top = 99
Width = 19 Width = 19
Min = 0
Max = 32767 Max = 32767
Position = 0
TabOrder = 9 TabOrder = 9
Wrap = False
OnClick = IntervalUpDownClick OnClick = IntervalUpDownClick
end end
object AlarmAdvType: TComboBox object AlarmAdvType: TComboBox
@ -352,7 +352,6 @@ object DlgEventEdit: TDlgEventEdit
Top = 168 Top = 168
Width = 88 Width = 88
ItemHeight = 13 ItemHeight = 13
MaxLength = -1
Style = csDropDownList Style = csDropDownList
TabOrder = 8 TabOrder = 8
end end
@ -365,13 +364,14 @@ object DlgEventEdit: TDlgEventEdit
Max = 120 Max = 120
Position = 1 Position = 1
TabOrder = 10 TabOrder = 10
Wrap = False
OnClick = AdvanceUpDownClick OnClick = AdvanceUpDownClick
end end
object CBAllDay: TCheckBox object CBAllDay: TCheckBox
Left = 109 Left = 109
Height = 19 Height = 19
Top = 85 Top = 85
Width = 90 Width = 84
Caption = 'All Day Event' Caption = 'All Day Event'
OnClick = CBAllDayClick OnClick = CBAllDayClick
TabOrder = 2 TabOrder = 2
@ -387,13 +387,15 @@ object DlgEventEdit: TDlgEventEdit
end end
object StartDate: TDateEdit object StartDate: TDateEdit
Left = 117 Left = 117
Height = 23 Height = 21
Top = 104 Top = 104
Width = 80 Width = 80
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
DateOrder = doNone
ButtonWidth = 23 ButtonWidth = 23
CharCase = ecNormal
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -431,18 +433,21 @@ object DlgEventEdit: TDlgEventEdit
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0
OnChangeBounds = StartDateChange OnChangeBounds = StartDateChange
TabOrder = 11 TabOrder = 11
end end
object EndDate: TDateEdit object EndDate: TDateEdit
Left = 117 Left = 117
Height = 23 Height = 21
Top = 131 Top = 131
Width = 80 Width = 80
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
DateOrder = doNone
ButtonWidth = 23 ButtonWidth = 23
CharCase = ecNormal
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -480,18 +485,21 @@ object DlgEventEdit: TDlgEventEdit
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0
OnChangeBounds = EndDateChange OnChangeBounds = EndDateChange
TabOrder = 12 TabOrder = 12
end end
object RepeatUntil: TDateEdit object RepeatUntil: TDateEdit
Left = 460 Left = 460
Height = 23 Height = 21
Top = 129 Top = 129
Width = 80 Width = 80
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
OKCaption = 'OK' OKCaption = 'OK'
CancelCaption = 'Cancel' CancelCaption = 'Cancel'
DateOrder = doNone
ButtonWidth = 23 ButtonWidth = 23
CharCase = ecNormal
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -529,11 +537,12 @@ object DlgEventEdit: TDlgEventEdit
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0
TabOrder = 13 TabOrder = 13
end end
object AlarmAdvance: TEdit object AlarmAdvance: TEdit
Left = 130 Left = 130
Height = 23 Height = 21
Top = 168 Top = 168
Width = 64 Width = 64
OnChange = AlarmAdvanceChange OnChange = AlarmAdvanceChange

548
components/tvplanit/source/vpevnteditdlg.lrs
View File

@ -6,54 +6,54 @@ LazarusResources.Add('TDlgEventEdit','FORMDATA',[
+#6#17'Add / Edit Events'#12'ClientHeight'#3#129#1#11'ClientWidth'#3#185#2#21 +#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' +'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' +'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' +'Show'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9'
+'LVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#6'Height'#2')'#3'Top'#3'X'#1#5 +'.29'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2')'#3'Top'#3'X'#1#5'Width'
+'Width'#3#185#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientH' +#3#185#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2
+'eight'#2')'#11'ClientWidth'#3#185#2#8'TabOrder'#2#0#0#6'TLabel'#15'Resource' +')'#11'ClientWidth'#3#185#2#8'TabOrder'#2#0#0#6'TLabel'#15'ResourceNameLbl'#4
+'NameLbl'#4'Left'#2#8#6'Height'#2#16#3'Top'#2#12#5'Width'#3#129#1#8'AutoSize' +'Left'#2#8#6'Height'#2#16#3'Top'#2#12#5'Width'#3#129#1#8'AutoSize'#8#7'Capti'
+#8#7'Caption'#6#13'Resource Name'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Fon' +'on'#6#13'Resource Name'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7
+'t.Color'#7#8'clMaroon'#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#10'Fo' +#8'clMaroon'#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11
+'nt.Style'#11#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#7'TButton'#5 +#6'fsBold'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#7'TButton'#5'OKBtn'#4'Le'
+'OKBtn'#4'Left'#3#6#2#6'Height'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5 +'ft'#3#6#2#6'Height'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5'akTop'#7
+'akTop'#7'akRight'#0#7'Caption'#6#3'&OK'#7'Default'#9#7'OnClick'#7#10'OKBtnC' +'akRight'#0#7'Caption'#6#3'&OK'#7'Default'#9#7'OnClick'#7#10'OKBtnClick'#8'T'
+'lick'#8'TabOrder'#2#0#7'TabStop'#8#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'^' +'abOrder'#2#0#7'TabStop'#8#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'^'#2#6'Heig'
+#2#6'Height'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5'akTop'#7'akRight' +'ht'#2#25#3'Top'#2#8#5'Width'#2'U'#7'Anchors'#11#5'akTop'#7'akRight'#0#6'Can'
+#0#6'Cancel'#9#7'Caption'#6#7'&Cancel'#7'OnClick'#7#14'CancelBtnClick'#8'Tab' +'cel'#9#7'Caption'#6#7'&Cancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2
+'Order'#2#1#7'TabStop'#8#0#0#0#9'TGroupBox'#19'AppointmentGroupBox'#4'Left'#2 +#1#7'TabStop'#8#0#0#0#9'TGroupBox'#19'AppointmentGroupBox'#4'Left'#2#8#6'Hei'
+#8#6'Height'#3#211#0#3'Top'#2#5#5'Width'#3#167#2#7'Anchors'#11#5'akTop'#6'ak' +'ght'#3#211#0#3'Top'#2#5#5'Width'#3#167#2#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'Left'#7'akRight'#0#7'Caption'#6#11'Appointment'#12'ClientHeight'#3#193#0#11 +'akRight'#0#7'Caption'#6#11'Appointment'#12'ClientHeight'#3#193#0#11'ClientW'
+'ClientWidth'#3#163#2#8'TabOrder'#2#1#0#6'TLabel'#14'DescriptionLbl'#4'Left' +'idth'#3#163#2#8'TabOrder'#2#1#0#6'TLabel'#14'DescriptionLbl'#4'Left'#2#5#6
+#2#5#6'Height'#2#13#3'Top'#2#25#5'Width'#2'M'#8'AutoSize'#8#7'Caption'#6#12 +'Height'#2#13#3'Top'#2#25#5'Width'#2'M'#8'AutoSize'#8#7'Caption'#6#12'Descri'
+'Description:'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#8#6'Heigh' +'ption:'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#8#6'Height'#2#2
+'t'#2#2#3'Top'#2'F'#5'Width'#3#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi' +#3'Top'#2'F'#5'Width'#3#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0
+'ght'#0#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#8#6'Height'#2#2#3'Top'#3#160#0#5'W' +#0#6'TBevel'#6'Bevel2'#4'Left'#2#8#6'Height'#2#2#3'Top'#3#160#0#5'Width'#3
+'idth'#3#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0#0#6'TLabel'#11 +#147#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#0#0#6'TLabel'#11'Catego'
+'CategoryLbl'#4'Left'#2#5#6'Height'#2#13#3'Top'#2'1'#5'Width'#2'M'#8'AutoSiz' +'ryLbl'#4'Left'#2#5#6'Height'#2#13#3'Top'#2'1'#5'Width'#2'M'#8'AutoSize'#8#7
+'e'#8#7'Caption'#6#9'Category:'#11'ParentColor'#8#0#0#6'TLabel'#12'StartTime' +'Caption'#6#9'Category:'#11'ParentColor'#8#0#0#6'TLabel'#12'StartTimeLbl'#4
+'Lbl'#4'Left'#2'/'#6'Height'#2#13#3'Top'#2'j'#5'Width'#2';'#9'Alignment'#7#14 +'Left'#2'/'#6'Height'#2#13#3'Top'#2'j'#5'Width'#2';'#9'Alignment'#7#14'taRig'
+'taRightJustify'#8'AutoSize'#8#7'Caption'#6#10'StartTime:'#11'ParentColor'#8 +'htJustify'#8'AutoSize'#8#7'Caption'#6#10'StartTime:'#11'ParentColor'#8#0#0#6
+#0#0#6'TLabel'#10'EndTimeLbl'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#130#0#5'W' +'TLabel'#10'EndTimeLbl'#4'Left'#2'0'#6'Height'#2#13#3'Top'#3#130#0#5'Width'#2
+'idth'#2'9'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#8'E' +'9'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#8'EndTime:'
+'ndTime:'#11'ParentColor'#8#0#0#6'TImage'#6'Image2'#4'Left'#3'`'#1#6'Height' +#11'ParentColor'#8#0#0#6'TImage'#6'Image2'#4'Left'#3'`'#1#6'Height'#2#18#3'T'
+#2#18#3'Top'#2'R'#5'Width'#2#18#12'Picture.Data'#10#148#2#0#0#23'TPortableNe' +'op'#2'R'#5'Width'#2#18#12'Picture.Data'#10#148#2#0#0#23'TPortableNetworkGra'
+'tworkGraphicx'#2#0#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8 +'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
+#6#0#0#0#31#243#255'a'#0#0#2'?IDATx'#218#141#147#219'K'#211'a'#28#198#7#251 +#31#243#255'a'#0#0#2'?IDATx'#218#141#147#219'K'#211'a'#28#198#7#251'3bv'#208
+'3bv'#208#146'B'#186#176'B'#214'9'#203'd-Od'#6#173'6_'#215't'#228#161#129'e' +#146'B'#186#176'B'#214'9'#203'd-Od'#6#173'6_'#215't'#228#161#129'e'#206#197
+#206#197#154#254#220#220#161#29#220'I'#205#177'aIF%'#252#192'h'#132'e'#181 +#154#254#220#220#161#29#220'I'#205#177'aIF%'#252#192'h'#132'e'#181#141#13#215
+#141#13#215'a'#249'#'#232#218';'#17#188#13#239#158#190#27']8'#253'a'#187'xo' +'a'#249'#'#232#218';'#17#188#13#239#158#190#27']8'#253'a'#187'xo'#222#195#243
+#222#195#243'<'#239#243#225'+'#1' '#249#223#186#241#188'q'#176'eZ!'#21';'#147 +'<'#239#243#225'+'#1' '#249#223#186#241#188'q'#176'eZ!'#21';'#147#148'"'#208
+#148'"'#208'4U/('#198'/Dv'#21#232#251#172#149#221']'#212#24'toUq'#205'|'#219 +'4U/('#198'/Dv'#21#232#251#172#149#221']'#212#24'toUq'#205'|'#219#250#205#23
+#250#205#23#205#184#22'U'#162'!\'#7#253#203'vt<S'#225#164#249#184'OT'#160'w' +#205#184#22'U'#162'!\'#7#253#203'vt<S'#225#164#249#184'OT'#160'w'#169'C'#174
+#169'C'#174''#175#230#185#164#17#254#172#3#145#159'ADWB'#152#202#249#16#252 +#127#175#230#185#164#17#254#172#3#145#159'ADWB'#152#202#249#16#252#250#4#222
+#250#4#222#229'1'#140#165',h'#13'5'#162#170#183'r'#180'H'#160#231'C'#187#172 +#229'1'#140#165',h'#13'5'#162#170#183'r'#180'H'#160#231'C'#187#172#235#221'-'
+#235#221'-'#222#179'l'#197#236#175'iL'#254#240#226'i'#206#143#208'77|Y;\i'#14 +#222#179'l'#197#236#175'iL'#254#240#226'i'#206#143#208'77|Y;\i'#14#214#148#25
+#214#148#25#143#191#24'q'#213']'#143#131#186#3#206'"'#1#138'l0z'#128#25'a' +#143#191#24'q'#213']'#143#131#186#3#206'"'#1#138'l0'#127'z'#128#25'a'#18#145
+#18#145'\'#16#238#140#13#186'95'#206#219#228#249#200'86p'#20'M>'#5#174#184 +'\'#16#238#140#13#186'95'#206#219#228#249#200'86p'#20'M>'#5#174#184#234'P'
+#234'P'#161#221#23#216#241#5#245#235#214#184'#i)8:S'#28'.'#185#206#172#158 +#161#221#23#216#241#5#245#235#214#184'#i)8:S'#28'.'#185#206#172#158#229'j'
+#229'j'#220'[/Uv'#150#11#229'loL'#180#196#235'3'#13'k'#212#242'&'#181#252#167 +#220'[/Uv'#150#11#229'loL'#180#196#235'3'#13'k'#212#242'&'#181#252#167#214'~'
+#214'~j'#227#180#229#4#183#253#210'~M'#153#169'L'#181'GJf'#140#144'2B'#202 +'j'#227#180#229#4#183#253#210'~M'#153#169'L'#181'GJf'#140#144'2B'#202#148#129
+#148#129#139#140#204#152#132'Zf'#151'='#231#24'Ef'#20#153'Qd'#214#159#238#146 +#139#140#204#152#132'Zf'#151'='#231#24'Ef'#20#153'Qd'#214#159#238#146#26#18
+#26#18'wL'#219#133#200#140'#'#179#141'f'#155'd'#182'&'#202#157#144#198#8#169 +'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' +#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 +#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 +':'#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'#' +#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' +#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 +#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 +#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 +#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 +#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 +#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 +#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 +#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 +'<06'#216#8'o'#235#254#192'{'#253#26')'#219#226'CA'#187#7#247':'#127#198'`'
+#6#223#135'N'#253'29'#232#208#200'R'#231#201'_'#148#235' '#18'8w'#5'w>l'#207 +#250#6#223#135'N'#253'29'#232#208#200'R'#231#201'_'#148#235' '#18'8w'#5'w>l'
+#244#15'6'#239#15#8#247#215#140#231#183#246#227#161#253#7't'#252'7'#20#26#186 +#207#244#15'6'#239#15#8#247#215#140#231#183#246#227#161#253#7't'#252'7'#20#26
+#144#255#168#11#21'M}'#208#217#190#163#236#173#9#159#235'7EF'#220#143'&'#6 +#186#144#255#168#11#21'M}'#208#217#190#163#236#173#9#159#235'7EF'#220#143'&'
+#235#22#138#148'M'#228#190#22's'#235'zJf'#136'-'#165'K'#228#28'S'#31#170#173 +#6#235#22#138#148'M'#228#190#22's'#235'zJf'#136'-'#165'K'#228#28'S'#31#170
+#253'0'#152'\'#232'u'#135#224#11'I'#240#134#134'!'#246#135#160'}'#217#139#178 +#173#253'0'#152'\'#232'u'#135#224#11'I'#240#134#134'!'#246#135#160'}'#217#139
+'f'#23#30'>'#201#133']'#183'z'#180#187'd'#214#7#202'&'#198'."'#237'^'#195#181 +#178'f'#23#30'>'#201#133']'#183'z'#180#187'd'#214#7#202'&'#198'."'#237'^'#195
,#244#26#7'J,.'#232#233'4'#246#12#5#131#248'2'#240#19#191'I3'#164'(Pd'#236'E' ,#181#244#26#7'J,.'#232#233'4'#246#12#5#131#248'2'#240#19#191'I3'#164'(Pd'#236
+#161#217#137#11'z'#30'G'#203#133#172#216#29#176#215#158#226#14#243#169#199#14 +'E'#161#217#137#11'z'#30'G'#203#133#172#216#29#176#215#158#226#14#243#169#199
+#20'='#19#209'M'''#203#227'QH'#178#140';e'#229#240'PQxt'#20'5/'#222#128#255 +#14#20'='#19#209'M'''#203#227'QH'#178#140';e'#229#240'PQxt'#20'5/'#222#128
+#18#196#21#253'G0/'#203#196#11'v'#228#241#254'T'#221#7'\}`'#135'gD'#193#208 +#255#18#196#21#253'G0/'#203#196#11'v'#228#241#254'T'#221#7'\}`'#135'gD'#193
+'h'#4'c'#180'8'#171#214#224#190#225#9#210'/j'#240'R'#176#194#17'Tp'#162#208 +#208'h'#4'c'#180'8'#171#214#224#190#225#9#210'/j'#240'R'#176#194#17'Tp'#162
+#10#230'e'#153'x'#193#182'+'#207#252#135'J'#173'P'#151#219#208'/)T'#18#129';' +#208#10#230'e'#153'x'#193#182'+'#207#252#135'J'#173'P'#151#219#208'/)T'#18
+#24#198#165#220#235#177'0o'#251#8#239'8'#240#222#167#224'x^+'#152#151'e'#226 +#129';'#24#198#165#220#235#177'0o'#251#8#239'8'#240#222#167#224'x^+'#152#151
+#5#155'/<6'#239#188'i'#130'F'#219#129#183#206' ~'#208'G'#187#195#10#158#154 +'e'#226#5#155'/<6'#239#188'i'#130'F'#219#129#183#206' ~'#208'G'#187#195#10
+'['#208#231#15'ap'#2'p'#201'@'#237#167#0'N'#20#183#129'yY&^'#144't'#170'R' +#158#154'['#208#231#15'ap'#2'p'#201'@'#237#167#0'N'#20#183#129'yY&^'#144't'
+#189'E]'#135#148#187#2#178#245'"'#188'taC'#10#16#142#16#164#3'T'#224'%}N+BU' +#170'R'#189'E]'#135#148#187#2#178#245'"'#188'taC'#10#16#142#16#164#3'T'#224
+#204#131'yY&^'#176#246'x'#225'r'#162'k'#227#249#6#164#146#225#170#190#7'6W'#0 +'%}N+BU'#204#131'yY&^'#176#246'x'#225'r'#162'k'#227#249#6#164#146#225#170#190
+#18#221#135'$+'#176#147#206#170#254#12'U'#193#27'0'#15#243#178'L'#188#128#177 +#7'6W'#0#18#221#135'$+'#176#147#206#170#254#12'U'#193#27'0'#15#243#178'L'#188
+#242'`'#238#225'#'#217'Zy'#195#153'Z'#236#203'}'#133#212#219'<'#210'nY'#144 +#128#177#242'`'#238#225'#'#217'Zy'#195#153'Z'#236#203'}'#133#212#219'<'#210
+'z'#179#25#170'<'#19#146's'#158'c'#215'e#'#14'dU'#202#204#27#255#23#166#132 +'nY'#144'z'#179#25#170'<'#19#146's'#158'c'#215'e#'#14'dU'#202#204#27#255#23
+' '#8'I'#14#135#3'M&~b'#237#177'R'#172'P'#233#176'*'#197#16#131#233'-'#167'+' +#166#132' '#8'I'#14#135#3'M&~b'#237#177'R'#172'P'#233#176'*'#197#16#131#233
+#209'li'#137#182#8'B'#148#188#235#255')0'#26#141#179#9#201#233't'#162#190#161 +'-'#167'+'#209'li'#137#182#8'B'#148#188#235#255')0'#26#141#179#9#201#233't'
+#193#191'tw'#166'f'#241#206#12'3'#225#159#132'i5'#237#194#162'('#130#188#227 +#162#190#161#193#191'tw'#166'f'#241#206#12'3'#225#159#132'i5'#237#194#162'('
+#196#130'xAUU'#213'L'#162#135#24'#'#22#253#255'+OA'#187#249'D'#144#24' '#230 +#130#188#227#196#130'xAUU'#213'L'#162#135#24'#'#22#253#255'+OA'#187#249'D'
+#178#217#31#231#211#229#219#17')'#234#166#0#0#0#0'IEND'#174'B`'#130#0#0#6'TL' +#144#24' '#230#178#217#31#231#211#229#219#17')'#234#166#0#0#0#0'IEND'#174'B`'
+'abel'#17'RecurrenceEndsLbl'#4'Left'#3'`'#1#6'Height'#2#13#3'Top'#3#131#0#5 +#130#0#0#6'TLabel'#17'RecurrenceEndsLbl'#4'Left'#3'`'#1#6'Height'#2#13#3'Top'
+'Width'#2'\'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#6 +#3#131#0#5'Width'#2'\'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Cap'
+'Until:'#11'ParentColor'#8#0#0#5'TEdit'#15'DescriptionEdit'#4'Left'#2'V'#6'H' +'tion'#6#6'Until:'#11'ParentColor'#8#0#0#5'TEdit'#15'DescriptionEdit'#4'Left'
+'eight'#2#21#3'Top'#2#21#5'Width'#3'D'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7 +#2'V'#6'Height'#2#21#3'Top'#2#21#5'Width'#3'D'#2#7'Anchors'#11#5'akTop'#6'ak'
+'akRight'#0#8'TabOrder'#2#0#4'Text'#6#15'DescriptionEdit'#0#0#9'TCheckBox'#8 +'Left'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#15'DescriptionEdit'#0#0#9'TChe'
+'AlarmSet'#4'Left'#2'('#6'Height'#2#19#3'Top'#3#170#0#5'Width'#2'J'#7'Captio' +'ckBox'#8'AlarmSet'#4'Left'#2'('#6'Height'#2#19#3'Top'#3#170#0#5'Width'#2'D'
+'n'#6#10'&Reminder:'#7'OnClick'#7#13'AlarmSetClick'#8'TabOrder'#2#3#0#0#9'TC' +#7'Caption'#6#10'&Reminder:'#7'OnClick'#7#13'AlarmSetClick'#8'TabOrder'#2#3#0
+'omboBox'#9'StartTime'#4'Left'#3#231#0#6'Height'#2#21#3'Top'#2'g'#5'Width'#2 +#0#9'TComboBox'#9'StartTime'#4'Left'#3#231#0#6'Height'#2#21#3'Top'#2'g'#5'Wi'
+']'#10'ItemHeight'#2#13#9'MaxLength'#2#255#14'OnChangeBounds'#7#15'StartTime' +'dth'#2']'#10'ItemHeight'#2#13#14'OnChangeBounds'#7#15'StartTimeChange'#6'On'
+'Change'#6'OnExit'#7#13'StartTimeExit'#8'TabOrder'#2#4#0#0#9'TComboBox'#7'En' +'Exit'#7#13'StartTimeExit'#8'TabOrder'#2#4#0#0#9'TComboBox'#7'EndTime'#4'Lef'
+'dTime'#4'Left'#3#231#0#6'Height'#2#21#3'Top'#2''#5'Width'#2']'#10'ItemHeig' +'t'#3#231#0#6'Height'#2#21#3'Top'#2#127#5'Width'#2']'#10'ItemHeight'#2#13#14
+'ht'#2#13#9'MaxLength'#2#255#14'OnChangeBounds'#7#13'EndTimeChange'#6'OnExit' +'OnChangeBounds'#7#13'EndTimeChange'#6'OnExit'#7#11'EndTimeExit'#8'TabOrder'
+#7#11'EndTimeExit'#8'TabOrder'#2#5#0#0#9'TComboBox'#8'Category'#4'Left'#2'V' +#2#5#0#0#9'TComboBox'#8'Category'#4'Left'#2'V'#6'Height'#2#19#3'Top'#2'.'#5
+#6'Height'#2#19#3'Top'#2'.'#5'Width'#3#182#0#10'ItemHeight'#2#13#9'MaxLength' +'Width'#3#182#0#10'ItemHeight'#2#13#10'OnDrawItem'#7#16'CategoryDrawItem'#5
+#2#255#5'Style'#7#16'csOwnerDrawFixed'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'R' +'Style'#7#16'csOwnerDrawFixed'#8'TabOrder'#2#1#0#0#9'TComboBox'#13'Recurring'
+'ecurringType'#4'Left'#3'{'#1#6'Height'#2#21#3'Top'#2'g'#5'Width'#3#183#0#10 +'Type'#4'Left'#3'{'#1#6'Height'#2#21#3'Top'#2'g'#5'Width'#3#183#0#10'ItemHei'
+'ItemHeight'#2#13#9'MaxLength'#2#255#14'OnChangeBounds'#7#19'RecurringTypeCh' +'ght'#2#13#8'OnChange'#7#19'RecurringTypeChange'#5'Style'#7#14'csDropDownLis'
+'ange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#6#0#0#7'TUpDown'#14'Inter' +'t'#8'TabOrder'#2#6#0#0#7'TUpDown'#14'IntervalUpDown'#4'Left'#3#142#2#6'Heig'
+'valUpDown'#4'Left'#3#142#2#6'Height'#2#29#3'Top'#2'c'#5'Width'#2#19#3'Max'#3 +'ht'#2#29#3'Top'#2'c'#5'Width'#2#19#3'Min'#2#0#3'Max'#3#255#127#8'Position'#2
+#255''#8'TabOrder'#2#9#7'OnClick'#7#19'IntervalUpDownClick'#0#0#9'TComboBox' +#0#8'TabOrder'#2#9#4'Wrap'#8#7'OnClick'#7#19'IntervalUpDownClick'#0#0#9'TCom'
+#12'AlarmAdvType'#4'Left'#3#230#0#6'Height'#2#21#3'Top'#3#168#0#5'Width'#2'X' +'boBox'#12'AlarmAdvType'#4'Left'#3#230#0#6'Height'#2#21#3'Top'#3#168#0#5'Wid'
+#10'ItemHeight'#2#13#9'MaxLength'#2#255#5'Style'#7#14'csDropDownList'#8'TabO' +'th'#2'X'#10'ItemHeight'#2#13#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#8#0
+'rder'#2#8#0#0#7'TUpDown'#13'AdvanceUpDown'#4'Left'#3#196#0#6'Height'#2#29#3 +#0#7'TUpDown'#13'AdvanceUpDown'#4'Left'#3#196#0#6'Height'#2#29#3'Top'#3#164#0
+'Top'#3#164#0#5'Width'#2#19#3'Min'#2#1#3'Max'#2'x'#8'Position'#2#1#8'TabOrde' +#5'Width'#2#19#3'Min'#2#1#3'Max'#2'x'#8'Position'#2#1#8'TabOrder'#2#10#4'Wra'
+'r'#2#10#7'OnClick'#7#18'AdvanceUpDownClick'#0#0#9'TCheckBox'#8'CBAllDay'#4 +'p'#8#7'OnClick'#7#18'AdvanceUpDownClick'#0#0#9'TCheckBox'#8'CBAllDay'#4'Lef'
+'Left'#2'm'#6'Height'#2#19#3'Top'#2'U'#5'Width'#2'Z'#7'Caption'#6#13'All Day' +'t'#2'm'#6'Height'#2#19#3'Top'#2'U'#5'Width'#2'T'#7'Caption'#6#13'All Day Ev'
+' Event'#7'OnClick'#7#13'CBAllDayClick'#8'TabOrder'#2#2#0#0#5'TEdit'#20'edtU' +'ent'#7'OnClick'#7#13'CBAllDayClick'#8'TabOrder'#2#2#0#0#5'TEdit'#20'edtUnus'
+'nusedPlaceholder'#4'Left'#3'K'#2#6'Height'#2#21#3'Top'#2'g'#5'Width'#2'A'#8 +'edPlaceholder'#4'Left'#3'K'#2#6'Height'#2#21#3'Top'#2'g'#5'Width'#2'A'#8'Ta'
+'TabOrder'#2#7#4'Text'#6#19'Placeholder control'#7'Visible'#8#0#0#9'TDateEdi' +'bOrder'#2#7#4'Text'#6#19'Placeholder control'#7'Visible'#8#0#0#9'TDateEdit'
+'t'#9'StartDate'#4'Left'#2'u'#6'Height'#2#23#3'Top'#2'h'#5'Width'#2'P'#23'Ca' +#9'StartDate'#4'Left'#2'u'#6'Height'#2#21#3'Top'#2'h'#5'Width'#2'P'#23'Calen'
+'lendarDisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCapti' +'darDisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'
+'on'#6#2'OK'#13'CancelCaption'#6#6'Cancel'#11'ButtonWidth'#2#23#10'Glyph.Dat' +#6#2'OK'#13'CancelCaption'#6#6'Cancel'#9'DateOrder'#7#6'doNone'#11'ButtonWid'
+'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 +'th'#2#23#8'CharCase'#7#8'ecNormal'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'
+#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 +#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#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#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#0#255#255#255#0#255#255#255#0#255#255#255#0#214#158'r'#196#211#153'n'
+#214#158'r'#196#211#153'n'#244#209#150'h'#255#206#146'c'#255#203#142'^'#255 +#244#209#150'h'#255#206#146'c'#255#203#142'^'#255#201#138'['#255#199#135'V'
+#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#195#132'R'#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#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 +#255#195#132'R'#255#187'wB'#176#255#255#255#0#255#255#255#0#215#161'u'#255
+#247#240#234#255#246#237#230#255#244#234#226#255#243#231#222#255#241#228#219 +#248#242#237#255#247#240#234#255#246#237#230#255#244#234#226#255#243#231#222
+#255#240#226#216#255#234#214#200#255#242#229#220#255#250#244#241#255#249#243 +#255#241#228#219#255#240#226#216#255#234#214#200#255#242#229#220#255#250#244
+#240#255#250#245#242#255#197#138']'#253#255#255#255#0#255#255#255#0#217#164 +#241#255#249#243#240#255#250#245#242#255#197#138']'#253#255#255#255#0#255#255
+'z'#255#249#243#238#255#235#210#190#255#255#255#255#255#235#211#191#255#255 +#255#0#217#164'z'#255#249#243#238#255#235#210#190#255#255#255#255#255#235#211
+#255#255#255#235#211#192#255#255#255#255#255#234#199#173#255#236#217#205#255 ,#191#255#255#255#255#255#235#211#192#255#255#255#255#255#234#199#173#255#236
+#241#228#219#255#249#243#240#255#249#242#239#255#198#140'_'#255#255#255#255#0 +#217#205#255#241#228#219#255#249#243#240#255#249#242#239#255#198#140'_'#255
+#255#255#255#0#221#168'~'#255#249#243#239#255#235#208#186#255#235#208#187#255 +#255#255#255#0#255#255#255#0#221#168'~'#255#249#243#239#255#235#208#186#255
+'u'#181'z'#255'u'#181'z'#255'u'#181'z'#255#235#209#189#255#234#205#181#255 +#235#208#187#255'u'#181'z'#255'u'#181'z'#255'u'#181'z'#255#235#209#189#255
+#250#244#240#255#235#217#204#255#241#228#219#255#250#244#241#255#198#138'\' +#234#205#181#255#250#244#240#255#235#217#204#255#241#228#219#255#250#244#241
+#255#255#255#255#0#255#255#255#0#223#170#130#255#249#243#239#255#234#206#183 +#255#198#138'\'#255#255#255#255#0#255#255#255#0#223#170#130#255#249#243#239
+#255#255#255#255#255'u'#181'z'#255#148#212#155#255't'#181'y'#255#255#255#255 +#255#234#206#183#255#255#255#255#255'u'#181'z'#255#148#212#155#255't'#181'y'
,#255#234#207#186#255#251#246#242#255#250#243#240#255#235#216#203#255#242#230 +#255#255#255#255#255#234#207#186#255#251#246#242#255#250#243#240#255#235#216
+#221#255#200#141'_'#255#255#255#255#0#255#255#255#0#225#174#135#255#250#244 +#203#255#242#230#221#255#200#141'_'#255#255#255#255#0#255#255#255#0#225#174
+#240#255#234#203#178#255#234#204#179#255'u'#181'z'#255't'#181'y'#255's'#180 +#135#255#250#244#240#255#234#203#178#255#234#204#179#255'u'#181'z'#255't'#181
+'x'#255#234#206#183#255'p'#179'u'#255'o'#178't'#255'n'#177'r'#255#232#200#174 +'y'#255's'#180'x'#255#234#206#183#255'p'#179'u'#255'o'#178't'#255'n'#177'r'
+#255#234#215#201#255#196#134'T'#255#255#255#255#0#255#255#255#0#227#177#140 +#255#232#200#174#255#234#215#201#255#196#134'T'#255#255#255#255#0#255#255#255
+#255#250#246#241#255#234#201#174#255#255#255#255#255#234#201#176#255#255#255 +#0#227#177#140#255#250#246#241#255#234#201#174#255#255#255#255#255#234#201
+#255#255#233#203#179#255#255#255#255#255'o'#177's'#255#142#210#149#255'k'#175 +#176#255#255#255#255#255#233#203#179#255#255#255#255#255'o'#177's'#255#142
+'o'#255#255#255#255#255#241#229#219#255#198#134'U'#255#255#255#255#0#255#255 +#210#149#255'k'#175'o'#255#255#255#255#255#241#229#219#255#198#134'U'#255#255
+#255#0#229#180#143#255#250#246#242#255#233#198#170#255#233#198#172#255#234 +#255#255#0#255#255#255#0#229#180#143#255#250#246#242#255#233#198#170#255#233
+#199#172#255#233#199#173#255#233#201#174#255#233#201#176#255'l'#176'q'#255'j' +#198#172#255#234#199#172#255#233#199#173#255#233#201#174#255#233#201#176#255
+#175'n'#255'h'#173'm'#255#232#204#181#255#242#231#222#255#200#138'Y'#255#255 +'l'#176'q'#255'j'#175'n'#255'h'#173'm'#255#232#204#181#255#242#231#222#255
+#255#255#0#255#255#255#0#231#183#148#255#251#247#244#255#233#195#166#255#255 +#200#138'Y'#255#255#255#255#0#255#255#255#0#231#183#148#255#251#247#244#255
+#255#255#255#232#196#169#255#255#255#255#255#233#198#170#255#255#255#255#255 +#233#195#166#255#255#255#255#255#232#196#169#255#255#255#255#255#233#198#170
+#232#199#172#255#255#255#255#255#232#200#176#255#255#255#255#255#247#241#235 +#255#255#255#255#255#232#199#172#255#255#255#255#255#232#200#176#255#255#255
+#255#203#143'_'#255#255#255#255#0#255#255#255#0#233#186#152#255#251#247#244 +#255#255#247#241#235#255#203#143'_'#255#255#255#255#0#255#255#255#0#233#186
+#255'e'#164#255#255'd'#163#255#255'b'#162#255#255'a'#161#255#255'_'#159#255 +#152#255#251#247#244#255'e'#164#255#255'd'#163#255#255'b'#162#255#255'a'#161
+#255'\'#157#255#255'Z'#154#255#255'W'#152#255#255'T'#149#255#255'R'#148#255 +#255#255'_'#159#255#255'\'#157#255#255'Z'#154#255#255'W'#152#255#255'T'#149
+#255#251#247#244#255#206#147'd'#255#255#255#255#0#255#255#255#0#235#189#155 +#255#255'R'#148#255#255#251#247#244#255#206#147'd'#255#255#255#255#0#255#255
+#255#251#247#244#255'd'#164#255#255'y'#189#255#255'u'#187#255#255'q'#185#255 +#255#0#235#189#155#255#251#247#244#255'd'#164#255#255'y'#189#255#255'u'#187
+#255'm'#184#255#255'h'#179#255#255'a'#176#255#255'Z'#171#255#255'T'#167#255 +#255#255'q'#185#255#255'm'#184#255#255'h'#179#255#255'a'#176#255#255'Z'#171
+#255';}'#255#255#251#247#244#255#209#151'j'#255#255#255#255#0#255#255#255#0 +#255#255'T'#167#255#255';}'#255#255#251#247#244#255#209#151'j'#255#255#255
+#236#191#158#255#251#247#244#255'e'#164#255#255'd'#163#255#255'`'#160#255#255 +#255#0#255#255#255#0#236#191#158#255#251#247#244#255'e'#164#255#255'd'#163
+']'#158#255#255'X'#153#255#255'T'#150#255#255'M'#144#255#255'G'#139#255#255 +#255#255'`'#160#255#255']'#158#255#255'X'#153#255#255'T'#150#255#255'M'#144
+'B'#132#255#255'='#255#255#251#247#244#255#212#155'o'#255#255#255#255#0#255 +#255#255'G'#139#255#255'B'#132#255#255'='#127#255#255#251#247#244#255#212#155
+#255#255#0#238#193#161#235#251#247#244#255#251#247#244#255#251#247#244#255 +'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 +#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 +#255#251#247#244#255#251#247#244#255#215#160't'#248#255#255#255#0#255#255#255
+'t'#248#255#255#255#0#255#255#255#0#239#194#163'~'#239#193#162#227#237#192 +#0#239#194#163'~'#239#193#162#227#237#192#159#255#235#190#157#255#235#188#154
+#159#255#235#190#157#255#235#188#154#255#233#186#150#255#231#183#147#255#230 +#255#233#186#150#255#231#183#147#255#230#181#144#255#228#178#140#255#226#175
+#181#144#255#228#178#140#255#226#175#136#255#224#172#132#255#221#169#128#255 +#136#255#224#172#132#255#221#169#128#255#220#165'}'#255#218#163'z'#202#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#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#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' +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+'s'#7#13'EndDateChange'#8'TabOrder'#2#12#0#0#9'TDateEdit'#11'RepeatUntil'#4 +#255#255#0#9'NumGlyphs'#2#1#9'MaxLength'#2#0#14'OnChangeBounds'#7#13'EndDate'
+'Left'#3#204#1#6'Height'#2#23#3'Top'#3#129#0#5'Width'#2'P'#23'CalendarDispla' +'Change'#8'TabOrder'#2#12#0#0#9'TDateEdit'#11'RepeatUntil'#4'Left'#3#204#1#6
+'ySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'#6#2'OK' +'Height'#2#21#3'Top'#3#129#0#5'Width'#2'P'#23'CalendarDisplaySettings'#11#14
+#13'CancelCaption'#6#6'Cancel'#11'ButtonWidth'#2#23#10'Glyph.Data'#10':'#4#0 +'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'#6#2'OK'#13'CancelCaption'
+#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 +#6#6'Cancel'#9'DateOrder'#7#6'doNone'#11'ButtonWidth'#2#23#8'CharCase'#7#8'e'
+#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 +'cNormal'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255 +#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
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255 +#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+#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#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#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 +#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 +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+#130#0#6'Height'#2#23#3'Top'#3#168#0#5'Width'#2'@'#8'OnChange'#7#18'AlarmAdv' +#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#1#9'MaxLength'#2#0#8'T'
+'anceChange'#8'TabOrder'#2#14#4'Text'#6#12'AlarmAdvance'#0#0#0#5'TMemo'#9'No' +'abOrder'#2#13#0#0#5'TEdit'#12'AlarmAdvance'#4'Left'#3#130#0#6'Height'#2#21#3
+'tesMemo'#4'Left'#2#8#6'Height'#2'n'#3'Top'#3#224#0#5'Width'#3#167#2#7'Ancho' +'Top'#3#168#0#5'Width'#2'@'#8'OnChange'#7#18'AlarmAdvanceChange'#8'TabOrder'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ScrollBars'#7#10'ssVe' +#2#14#4'Text'#6#12'AlarmAdvance'#0#0#0#5'TMemo'#9'NotesMemo'#4'Left'#2#8#6'H'
+'rtical'#8'TabOrder'#2#2#0#0#11'TOpenDialog'#10'FileDialog'#4'left'#3'd'#1#3 +'eight'#2'n'#3'Top'#3#224#0#5'Width'#3#167#2#7'Anchors'#11#5'akTop'#6'akLeft'
+'top'#3#199#0#0#0#0 +#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
]); ]);

186
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -96,6 +96,8 @@ type
edtUnusedPlaceholder: TEdit; edtUnusedPlaceholder: TEdit;
imgClock: TImage; imgClock: TImage;
RecurrenceEndsLbl: TLabel; RecurrenceEndsLbl: TLabel;
procedure CategoryDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
procedure OKBtnClick(Sender: TObject); procedure OKBtnClick(Sender: TObject);
procedure CancelBtnClick(Sender: TObject); procedure CancelBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -109,8 +111,6 @@ type
procedure RecurringTypeChange(Sender: TObject); procedure RecurringTypeChange(Sender: TObject);
procedure AlarmSetClick(Sender: TObject); procedure AlarmSetClick(Sender: TObject);
procedure EndDateChange(Sender: TObject); procedure EndDateChange(Sender: TObject);
procedure CategoryDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure CBAllDayClick(Sender: TObject); procedure CBAllDayClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -207,6 +207,78 @@ begin
ReturnCode := rtCommit; ReturnCode := rtCommit;
Close; Close;
end; 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); procedure TDlgEventEdit.CancelBtnClick(Sender: TObject);
@ -298,12 +370,12 @@ end;
{=====} {=====}
procedure TDlgEventEdit.StartTimeChange(Sender: TObject); procedure TDlgEventEdit.StartTimeChange(Sender: TObject);
{var } var
{ ST: TDateTime; } ST: TDateTime;
begin begin
{ Verify the value is valid } { Verify the value is valid }
try try
{ST :=} StrToTime(StartTime.Text); ST := StrToTime(StartTime.Text);
except except
StartTime.Color := clRed; StartTime.Color := clRed;
if Visible then if Visible then
@ -314,14 +386,14 @@ begin
{ if the end time is less than the start time then change the end time to } { if the end time is less than the start time then change the end time to }
{ follow the start time by 30 minutes } { follow the start time by 30 minutes }
{if ST > StrToDateTime(EndTime.Text) then begin } if ST > StrToTime(EndTime.Text) then begin
{ if TimeFormat = tf24Hour then } if TimeFormat = tf24Hour then
{ EndTime.Text := FormatDateTime ('h:mm', } EndTime.Text := FormatDateTime ('h:mm',
{ ST + (30/MinutesInDay)) } ST + (30/MinutesInDay))
{ else } else
{ EndTime.Text := FormatDateTime ('hh:mm AM/PM', } EndTime.Text := FormatDateTime ('hh:mm AM/PM',
{ ST + (30/MinutesInDay)); } ST + (30/MinutesInDay));
{end; } end;
end; end;
{=====} {=====}
@ -355,14 +427,14 @@ begin
{ if the end time is less than the start time then change the start time to } { if the end time is less than the start time then change the start time to }
{ precede the end time by 30 minutes } { precede the end time by 30 minutes }
{if ET < StrToDateTime(StartTime.Text) then begin } if ET < StrToTime(StartTime.Text) then begin
{ if TimeFormat = tf24Hour then } if TimeFormat = tf24Hour then
{ StartTime.Text := FormatDateTime ('h:mm', } StartTime.Text := FormatDateTime ('h:mm',
{ ET - (30/MinutesInDay)) } ET - (30/MinutesInDay))
{ else } else
{ StartTime.Text := FormatDateTime ('h:mm AM/PM', } StartTime.Text := FormatDateTime ('h:mm AM/PM',
{ ET - (30/MinutesInDay)); } ET - (30/MinutesInDay));
{end; } end;
end; end;
{=====} {=====}
@ -530,78 +602,6 @@ begin
end; 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); procedure TDlgEventEdit.CBAllDayClick(Sender: TObject);
begin begin
StartDate.Enabled := not CBAllDay.Checked; StartDate.Enabled := not CBAllDay.Checked;

2
components/tvplanit/source/vpmisc.pas
View File

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

59
components/tvplanit/source/vpweekview.pas
View File

@ -74,7 +74,6 @@ type
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure Move(const Loc: TRect; Redraw: Boolean);
end; end;
TVpWvHeadAttributes = class(TPersistent) TVpWvHeadAttributes = class(TPersistent)
@ -309,22 +308,10 @@ begin
end; 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); procedure TVpWvInPlaceEdit.CreateParams(var Params: TCreateParams);
begin begin
inherited CreateParams(Params); inherited CreateParams(Params);
Params.Style := Params.Style{ or ES_MULTILINE}; // Params.Style := Params.Style or ES_MULTILINE;
end; end;
{=====} {=====}
@ -778,6 +765,8 @@ var
EAIndex : Integer; EAIndex : Integer;
DayStr : string; DayStr : string;
EventList: TList; EventList: TList;
TodayStartTime: Double;
TodayEndTime: Double;
begin begin
RenderCanvas.Pen.Color := RealLineColor; RenderCanvas.Pen.Color := RealLineColor;
RenderCanvas.Pen.Style := psSolid; RenderCanvas.Pen.Style := psSolid;
@ -812,8 +801,7 @@ var
{ draw day head} { draw day head}
RenderCanvas.Font.Assign(FDayHeadAttributes.Font); RenderCanvas.Font.Assign(FDayHeadAttributes.Font);
RenderCanvas.Brush.Color := RealDayHeadAttrColor; RenderCanvas.Brush.Color := RealDayHeadAttrColor;
TextRect := Rect(DayRect.Left, DayRect.Top, DayRect.Right, DayRect.Top TextRect := Rect(DayRect.Left, DayRect.Top, DayRect.Right, DayRect.Top + wvDayHeadHeight);
+ wvDayHeadHeight);
TPSFillRect (RenderCanvas, Angle, RenderIn, TextRect); TPSFillRect (RenderCanvas, Angle, RenderIn, TextRect);
if FDayHeadAttributes.Bordered then if FDayHeadAttributes.Bordered then
TPSRectangle (RenderCanvas, Angle, RenderIn, TextRect); TPSRectangle (RenderCanvas, Angle, RenderIn, TextRect);
@ -882,19 +870,21 @@ var
{ format the display text } { format the display text }
DayStr := ''; DayStr := '';
if ShowEventTime then begin TodayStartTime := TVpEvent(EventList.List^[j]).StartTime;
if TimeFormat = tf24Hour then TodayEndTime := TVpEvent(EventList.List^[j]).EndTime;
DayStr := FormatDateTime('hh:mm', if trunc(TodayStartTime) < trunc(StartDate + I) then //First Event
TVpEvent(EventList.List^[j]).StartTime) TodayStartTime := 0;
+ ' - ' + FormatDateTime('hh:mm', if trunc(TodayEndTime) > trunc(StartDate + I) then //Last Event
TVpEvent(EventList.List^[j]).EndTime) + ': ' TodayEndTime := 0.9999;
if ShowEventTime then
begin
if TimeFormat = tf24Hour then
DayStr := FormatDateTime('hh:mm',TodayStartTime)
+ ' - ' + FormatDateTime('hh:mm',TodayEndTime) + ': '
else else
DayStr := FormatDateTime('hh:mm AM/PM', DayStr := FormatDateTime('hh:mm AM/PM',TVpEvent(EventList.List^[j]).StartTime)
TVpEvent(EventList.List^[j]).StartTime) + ' - ' + FormatDateTime('hh:mm AM/PM',TVpEvent(EventList.List^[j]).EndTime) + ': ';
+ ' - ' + FormatDateTime('hh:mm AM/PM', end;
TVpEvent(EventList.List^[j]).EndTime) + ': ';
end;
if DayStr = '' then if DayStr = '' then
DayStr := TVpEvent(EventList.List^[j]).Description DayStr := TVpEvent(EventList.List^[j]).Description
else else
@ -1066,8 +1056,7 @@ var
end; end;
{ build header caption } { build header caption }
HeadStr := HeadStr + RSWeekof + ' ' HeadStr := HeadStr + RSWeekof + ' ' + FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
+ FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
{ draw the text } { draw the text }
if (DisplayOnly) and if (DisplayOnly) and
(RenderCanvas.TextWidth (HeadStr) >= RenderIn.Right - RenderIn.Left) then (RenderCanvas.TextWidth (HeadStr) >= RenderIn.Right - RenderIn.Left) then
@ -1822,11 +1811,13 @@ begin
wvInPlaceEditor := TVpWvInPlaceEdit.Create(Self); wvInPlaceEditor := TVpWvInPlaceEdit.Create(Self);
wvInPlaceEditor.Parent := self; wvInPlaceEditor.Parent := self;
wvInPlaceEditor.OnExit := EndEdit; wvInPlaceEditor.OnExit := EndEdit;
wvInPlaceEditor.Move(Rect(wvActiveEventRec.Left + TextMargin, wvInPlaceEditor.SetBounds(wvActiveEventRec.Left + TextMargin,
wvActiveEventRec.Top, wvActiveEventRec.Right - TextMargin, wvActiveEventRec.Top,
wvActiveEventRec.Bottom), true); wvActiveEventRec.Right - (TextMargin*2),
wvActiveEventRec.Bottom- (TextMargin*2));
wvInPlaceEditor.Text := FActiveEvent.Description; wvInPlaceEditor.Text := FActiveEvent.Description;
Invalidate; Invalidate;
wvInPlaceEditor.SetFocus;
end; end;
end; end;
end; end;
@ -1938,7 +1929,7 @@ begin
wvInPlaceEditor.Free; wvInPlaceEditor.Free;
wvInPlaceEditor := nil; wvInPlaceEditor := nil;
Invalidate; Invalidate;
SetFocus; // SetFocus;
end; end;
end; end;
{=====} {=====}