home *** CD-ROM | disk | FTP | other *** search
/ Computer Active Guide 2009 April / CAGidas04.iso / Programos / essentialpim3.exe / Reports / WeekA5.fr3 < prev    next >
Encoding:
Extensible Markup Language  |  2009-04-03  |  24.5 KB  |  71 lines

  1. <?xml version="1.0" encoding="utf-8"?>
  2. <TfrxReport Version="4.7.79" DotMatrixReport="False" IniFile="\Software\Fast Reports" OldStyleProgress="True" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39885,6566664815" ReportOptions.Description.Text="" ReportOptions.LastChange="39900,3774358218" ScriptLanguage="PascalScript" ScriptText.Text="const hght=44;    var   CalendarStartDate: TDateTime;   DayWidth,DayLeft,AllDayTop,TimeTop,NotTimeTop,NotTimeBottom: Extended;   TimeBand1Count: Integer; function StartOfTheMonth(const AValue: TDateTime): TDateTime; var   LYear, LMonth, LDay: Word; begin   DecodeDate(AValue, LYear, LMonth, LDay);   Result := EncodeDate(LYear, LMonth, 1); end; procedure CalendarOnBeforePrint(Sender: TfrxComponent); begin   CalendarStartDate := 0; end; procedure CalHeaderOnBeforePrint(Sender: TfrxComponent); begin   if CalendarStartDate = 0 then    CalendarStartDate := <Days."Day">   else    CalendarStartDate := CalendarStartDate + 42;   CalendarStartDate := StartOfTheMonth(CalendarStartDate) - DayOfWeek(StartOfTheMonth(CalendarStartDate) -    <FirstDayOfWeek> + 5) mod 7; end; procedure CalDayOnAfterData(Sender: TfrxComponent); var   D: TDateTime; begin   D := CalendarStartDate + <Line> - 1;   with TfrxMemoView(Sender) do   begin    if MonthOf(D) <> MonthOf(CalendarStartDate + 7) then     Text := ''    else    begin     Text := IntToStr(DayOf(D));     if 1 shl ((DayOfWeek(D) + 5) mod 7) and <WorkDays> = 0 then      Font.Color := clRed     else      Font.Color := clWindowText;    end;    if (Text <> '') and (TaskCount(D) > 0) then     Color := $D0D0D0    else     Color := clNone;   end; end; procedure OnAfterPrint(Sender: TfrxComponent); begin   DayLeft := 56;   DayWidth := (Engine.PageWidth - 56) / <TasksWeekViewDays>;   AllDayTop := Engine.CurY;   TimeTop := AllDayTop + <AllDayTasks."RecordCount"> * 24; end; procedure AllDaysOnBeforePrint(Sender: TfrxComponent); begin   DayLeft := 56 + (<Line> - 1) * DayWidth;   Engine.CurY := AllDayTop; end; procedure DaysOnBeforePrint(Sender: TfrxComponent); begin   DayLeft := 56 + (<Line> - 1) * DayWidth; end; procedure TableCellOnBeforePrint(Sender: TfrxComponent); begin   with TfrxMemoView(Sender) do   begin    Left := DayLeft;    Width := DayWidth;    if (Font.Style <> 0) and (1 shl ((DayOfWeek(<Days."Day">) + 5) mod 7) and <WorkDays> = 0) then     Font.Color := clRed    else     Font.Color := clWindowText;   end; end; procedure AllDayOnBeforePrint(Sender: TfrxComponent); begin   TableCellOnBeforePrint(Sender);   with TfrxMemoView(Sender) do    if <AllDayTasks."idTask"> = 0 then     Color := clNone    else    begin     Color := <AllDayTasks."BackgroundColor">;     if <AllDayTasks."Subject"> <> '' then      Memo.Text := '<b>[AllDayTasks."Subject"]</b>'#13#10'[AllDayTasks."Text"]'     else      Memo.Text := '[AllDayTasks."Text"]';    end; end; procedure NotTimeOnBeforePrint(Sender: TfrxComponent); begin   if <Line> = 1 then    Engine.CurY := NotTimeTop;   TableCellOnBeforePrint(Sender);   if <NotTimeTasks."idTask"> = 0 then    TfrxMemoView(Sender).Color := clNone   else    TfrxMemoView(Sender).Color := <NotTimeTasks."BackgroundColor">; end; procedure TimeBand1BeforePrint(Sender: TfrxComponent); begin   if <Line> = 1 then    TimeBand1Count := Trunc(Engine.FreeSpace / hght);   TfrxView(Sender).Visible := <Line> <= TimeBand1Count; end; procedure TimeBand2BeforePrint(Sender: TfrxComponent); begin   TfrxView(Sender).Visible := <Line> > TimeBand1Count; end; procedure TimeLineOnAfterData(Sender: TfrxComponent); begin   TfrxView(Sender).Left := 56 + TfrxView(Sender).Tag * DayWidth; end; procedure TimeOnBeforePrint(Sender: TfrxComponent); var   H: Integer;   S: String; begin   H := <Line> + 6;   S := FormatDateTime('AMPM', H / 24);   if (S = '') or ((H <> 7) and (H <> 12)) then    TfrxMemoView(Sender).Text := '00'   else    TfrxMemoView(Sender).Text := S; end; procedure HourOnBeforePrint(Sender: TfrxComponent); var   H: Integer; begin   H := <Line> + 6;   if Pos('AM', <ShortTimeFormat>) <> 0 then    if H = 0 then H := 12 else     if H > 12 then Dec(H, 12);   if (Pos('hh', <ShortTimeFormat>) <> 0) and (H < 10) then    TfrxMemoView(Sender).Text := '0' + IntToStr(H)   else    TfrxMemoView(Sender).Text := IntToStr(H); end; procedure OnBeforePrint(Sender: TfrxComponent); begin   if TimeBand1Count < 12 then   begin    Engine.NewPage;    TimeTop := Engine.CurY;    NotTimeTop := TimeTop + (12 - TimeBand1Count) * hght;   end   else    if <TasksWeekViewDays> = 1 then     NotTimeTop := TimeTop + hght * 12                      else     NotTimeTop := TimeTop + hght * 12 + 20; end; procedure SetTaskText(MemoView: TfrxMemoView); var   S: String; begin   if <DayTasks."TimeStr"> = '' then S := ''   else S := '[DayTasks."TimeStr"]  ';   with MemoView.Memo do   begin    if <DayTasks."Subject"> <> '' then      Text := '<b>' + S + '[DayTasks."Subject"]</b>'#13#10     else      Text := S;    if <DayTasks."Location"> <> '' then     Text := Text + '([DayTasks."Location"])'#13#10;    Text := Text + '[DayTasks."Text"]';   end; end; procedure Task1OnBeforePrint(Sender: TfrxComponent); begin   with TfrxMemoView(Sender) do   begin    if Tag = 0 then    begin     Engine.CurY := TimeTop;     Left := 57 + (Engine.PageWidth - 56) * (<DayTasks."Level"> - 1) / <DayTasks."MaxLevel">;     Width := (Engine.PageWidth - 56) / <DayTasks."MaxLevel"> - 2;    end    else    begin     Engine.CurY := TimeTop + 20;     Left := 57 + DetailData4.DataSet.RecNo * DayWidth + DayWidth * (<DayTasks."Level"> - 1) / <DayTasks."MaxLevel">;     Width := DayWidth / <DayTasks."MaxLevel"> - 2;    end;    Top := <DayTasks."StartLine"> * hght / 2 + 1;    if <DayTasks."StartLine"> >= TimeBand1Count * 2 then    begin     Height := 0;     Frame.Typ := 0;    end    else     if <DayTasks."EndLine"> > TimeBand1Count * 2 then     begin      Height := (TimeBand1Count * 2 - <DayTasks."StartLine">) * hght / 2;      Frame.Typ := <ftLeft> + <ftRight> + <ftTop>;     end     else     begin      Height := (<DayTasks."EndLine"> - <DayTasks."StartLine">) * hght / 2 - 2;      Frame.Typ := <ftLeft> + <ftRight> + <ftTop> + <ftBottom>;     end;    Color := <DayTasks."BackgroundColor">;   end;   SetTaskText(TfrxMemoView(Sender)); end; procedure Task2OnBeforePrint(Sender: TfrxComponent); begin   Engine.CurY := TimeTop;   with TfrxMemoView(Sender) do   begin    if Tag = 0 then    begin     Left := 57 + (Engine.PageWidth - 56) * (<DayTasks."Level"> - 1) / <DayTasks."MaxLevel">;     Width := (Engine.PageWidth - 56) / <DayTasks."MaxLevel"> - 2;    end    else    begin     Left := 57 + DetailData4.DataSet.RecNo * DayWidth + DayWidth * (<DayTasks."Level"> - 1) / <DayTasks."MaxLevel">;     Width := DayWidth / <DayTasks."MaxLevel"> - 2;    end;    if <DayTasks."EndLine"> <= TimeBand1Count * 2 then    begin     Height := 0;     Frame.Typ := 0;    end    else     if <DayTasks."StartLine"> < TimeBand1Count * 2 then     begin      Top := -1;      Height := (<DayTasks."EndLine"> - TimeBand1Count * 2) * hght / 2;      Frame.Typ := <ftLeft> + <ftRight> + <ftBottom>;      Font.Color := clWindow;                                                                    end     else     begin      Top := (<DayTasks."StartLine"> - TimeBand1Count * 2) * hght / 2 + 1;      Height := (<DayTasks."EndLine"> - <DayTasks."StartLine">) * hght / 2 - 2;      Frame.Typ := <ftLeft> + <ftRight> + <ftTop> + <ftBottom>;      Font.Color := clWindowText;     end;    Color := <DayTasks."BackgroundColor">;   end;   SetTaskText(TfrxMemoView(Sender)); end; procedure OnAfterData(Sender: TfrxComponent); function GetParamName(const Params: String; var Pos: Integer; var ParamName: Char): Boolean; var   I: Integer;   S: String; begin   I := Pos;   while (I <= Length(Params)) and (Params[I] <> '=') do Inc(I);   S := Copy(Params, Pos, I - Pos);   Pos := I + 1;   Result := (S <> '') and (S[1] in['A'..'Z']);   if Result then    ParamName := S[1]; end;    function GetParamValue(const Params: String; var Pos: Integer; var ParamValue: Integer): Boolean; var   I: Integer;   S: String;                          begin   I := Pos;   while (I <= Length(Params)) and (Params[I] in['0'..'9']) do Inc(I);   S := Copy(Params, Pos, I - Pos);   Pos := I;   Result := S <> '';   if Result then                                   ParamValue := StrToInt(S); end;    var   Params: String;                                    Pos,ParamValue: Integer;   ParamName,ParamSign: Char;   E: Extended;                                begin   Pos := 1;   with TfrxView(Sender) do   begin    Params := TagStr;                                  while GetParamName(Params, Pos, ParamName) do     if GetParamValue(Params, Pos, ParamValue) then     begin      if (Pos <= Length(Params)) and (Params[Pos] = '%') then      begin       if ParamName in['L', 'R', 'W'] then        E := Engine.PageWidth * ParamValue / 100       else        E := Engine.PageHeight * ParamValue / 100;       Inc(Pos);      end      else       E := ParamValue;      if (Pos <= Length(Params)) and (Params[Pos] in['+', '-']) then      begin       ParamSign := Params[Pos];       Inc(Pos);       if GetParamValue(Params, Pos, ParamValue) then        if ParamSign = '+' then         E := E + ParamValue        else         E := E - ParamValue;      end;      case ParamName of       'L': Left := E;       'T': Top := E;       'R': Left := E - Width;       'B': Top := E - Height;       'W': Width := E;       'H': Height := E;      end;      Inc(Pos);     end;   end; end; begin end." PropData="044C65667403940003546F70027408446174617365747301010C1400000020446174615365744E616D653D225765656B732200010C1300000020446174615365744E616D653D22446179732200010C1700000020446174615365744E616D653D224461795461736B732200010C1A00000020446174615365744E616D653D22416C6C4461795461736B732200010C1B00000020446174615365744E616D653D224E6F7454696D655461736B73220000095661726961626C65730100055374796C650100">
  3.   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  4.   <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="15" RightMargin="62" TopMargin="0" BottomMargin="87,2" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
  5.     <TfrxMasterData Name="MasterData1" Height="124" Left="0" Top="16" Width="502,67749" OnBeforePrint="CalendarOnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSetName="Weeks" PrintIfDetailEmpty="True" RowCount="0" StartNewPage="True">
  6.       <TfrxMemoView Name="Memo1" Align="baClient" Left="0" Top="0" Width="502,67749" Height="124" ShowHint="False" DisplayFormat.FormatStr="d mmmm" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Arial" Font.Style="1" Frame.Typ="15" GapX="15" GapY="30" ParentFont="False" Text="[Weeks."FirstDay"] - [Weeks."LastDay"]"/>
  7.       <TfrxSubreport Name="Subreport1" Align="baRight" Left="222,67749" Top="14" Width="140" Height="115" ShowHint="False" Page="Page2" PrintOnParent="True"/>
  8.       <TfrxSubreport Name="Subreport2" Align="baRight" Left="362,67749" Top="14" Width="140" Height="115" ShowHint="False" Page="Page2" PrintOnParent="True"/>
  9.     </TfrxMasterData>
  10.     <TfrxDetailData Name="DetailData1" Height="0" Left="0" Top="160" Width="502,67749" OnAfterPrint="OnAfterPrint" ColumnWidth="0" ColumnGap="0" RowCount="1"/>
  11.     <TfrxDetailData Name="DetailData2" Height="20" Left="0" Top="180" Width="502,67749" OnBeforePrint="AllDaysOnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSetName="Days" PrintIfDetailEmpty="True" RowCount="0">
  12.       <TfrxMemoView Name="Memo5" Left="0" Top="0" Width="100" Height="20" OnBeforePrint="TableCellOnBeforePrint" ShowHint="False" DataField="Day" DataSetName="Days" DisplayFormat.FormatStr="d ddd" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[Days."Day"]"/>
  13.     </TfrxDetailData>
  14.     <TfrxSubdetailData Name="SubdetailData1" Height="24" Left="0" Top="220" Width="502,67749" ColumnWidth="0" ColumnGap="0" DataSetName="AllDayTasks" RowCount="0">
  15.       <TfrxMemoView Name="Memo6" Left="0" Top="0" Width="100" Height="24" OnBeforePrint="AllDayOnBeforePrint" ShowHint="False" AllowHTMLTags="True" DataSetName="AllDayTasks" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" Frame.Typ="15" GapX="3" ParentFont="False" Text=""/>
  16.     </TfrxSubdetailData>
  17.     <TfrxDetailData Name="DetailData3" Height="44" Left="0" Top="264" Width="502,67749" OnBeforePrint="TimeBand1BeforePrint" ColumnWidth="0" ColumnGap="0" RowCount="12">
  18.       <TfrxMemoView Name="Memo7" Align="baClient" Left="0" Top="0" Width="502,67749" Height="44" OnBeforePrint="TimeOnBeforePrint" ShowHint="False" Frame.Typ="15" GapX="35" GapY="2" Text=""/>
  19.       <TfrxMemoView Name="Memo8" Left="1" Top="11" Width="34" Height="30" OnBeforePrint="HourOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-27" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text=""/>
  20.       <TfrxLineView Name="Line1" Left="56" Top="0" Width="0" Height="44" ShowHint="False" Frame.Typ="1"/>
  21.       <TfrxLineView Name="Line2" Left="56" Top="22" Width="600" Height="0" OnAfterData="OnAfterData" ShowHint="False" TagStr="W=100%-56" Frame.Typ="4"/>
  22.       <TfrxLineView Name="Line3" Tag="1" Left="156" Top="0" Width="0" Height="44" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  23.       <TfrxLineView Name="Line4" Tag="2" Left="256" Top="0" Width="0" Height="44" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  24.       <TfrxLineView Name="Line5" Tag="3" Left="356" Top="0" Width="0" Height="44" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  25.       <TfrxLineView Name="Line6" Tag="4" Left="456" Top="0" Width="0" Height="44" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  26.       <TfrxLineView Name="Line7" Tag="5" Left="556" Top="0" Width="0" Height="44" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  27.       <TfrxLineView Name="Line8" Tag="6" Left="656" Top="0" Width="0" Height="44" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  28.     </TfrxDetailData>
  29.     <TfrxDetailData Name="DetailData4" Height="0" Left="0" Top="328" Width="502,67749" ColumnWidth="0" ColumnGap="0" DataSetName="Days" RowCount="0"/>
  30.     <TfrxSubdetailData Name="SubdetailData2" Height="22" Left="0" Top="348" Width="502,67749" ColumnWidth="0" ColumnGap="0" DataSetName="DayTasks" RowCount="0">
  31.       <TfrxMemoView Name="Memo9" Tag="1" Left="0" Top="1" Width="300" Height="21" OnBeforePrint="Task1OnBeforePrint" ShowHint="False" AllowHTMLTags="True" Color="-16777211" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" GapX="4" ParentFont="False" Text=""/>
  32.     </TfrxSubdetailData>
  33.     <TfrxDetailData Name="DetailData5" Height="0" Left="0" Top="392" Width="502,67749" OnBeforePrint="OnBeforePrint" ColumnWidth="0" ColumnGap="0" RowCount="1"/>
  34.     <TfrxDetailData Name="DetailData6" Height="46" Left="0" Top="412" Width="502,67749" OnBeforePrint="TimeBand2BeforePrint" ColumnWidth="0" ColumnGap="0" RowCount="12">
  35.       <TfrxMemoView Name="Memo10" Align="baClient" Left="0" Top="0" Width="502,67749" Height="46" OnBeforePrint="TimeOnBeforePrint" ShowHint="False" Frame.Typ="15" GapX="35" GapY="2" Text=""/>
  36.       <TfrxMemoView Name="Memo11" Left="1" Top="11" Width="34" Height="30" OnBeforePrint="HourOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-27" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text=""/>
  37.       <TfrxLineView Name="Line9" Left="56" Top="0" Width="0" Height="46" ShowHint="False" Frame.Typ="1"/>
  38.       <TfrxLineView Name="Line10" Left="56" Top="23" Width="600" Height="0" OnAfterData="OnAfterData" ShowHint="False" TagStr="W=100%-56" Frame.Typ="4"/>
  39.       <TfrxLineView Name="Line11" Tag="1" Left="156" Top="0" Width="0" Height="46" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  40.       <TfrxLineView Name="Line12" Tag="2" Left="256" Top="0" Width="0" Height="46" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  41.       <TfrxLineView Name="Line13" Tag="3" Left="356" Top="0" Width="0" Height="46" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  42.       <TfrxLineView Name="Line14" Tag="4" Left="456" Top="0" Width="0" Height="46" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  43.       <TfrxLineView Name="Line15" Tag="5" Left="556" Top="0" Width="0" Height="46" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  44.       <TfrxLineView Name="Line16" Tag="6" Left="656" Top="0" Width="0" Height="46" OnAfterData="TimeLineOnAfterData" ShowHint="False" Frame.Typ="1"/>
  45.     </TfrxDetailData>
  46.     <TfrxDetailData Name="DetailData7" Height="0" Left="0" Top="480" Width="502,67749" OnBeforePrint="DaysOnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSetName="Days" RowCount="0"/>
  47.     <TfrxSubdetailData Name="SubdetailData3" Height="23" Left="0" Top="500" Width="502,67749" ColumnWidth="0" ColumnGap="0" DataSetName="DayTasks" RowCount="0">
  48.       <TfrxMemoView Name="Memo12" Tag="1" Left="0" Top="1" Width="300" Height="22" OnBeforePrint="Task2OnBeforePrint" ShowHint="False" AllowHTMLTags="True" Color="-16777211" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" GapX="4" ParentFont="False" Text=""/>
  49.     </TfrxSubdetailData>
  50.     <TfrxSubdetailData Name="SubdetailData4" Height="23" Left="0" Top="544" Width="502,67749" ColumnWidth="0" ColumnGap="0" DataSetName="NotTimeTasks" RowCount="0">
  51.       <TfrxMemoView Name="Memo13" Left="0" Top="0" Width="100" Height="23" OnBeforePrint="NotTimeOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" Frame.Typ="15" GapX="3" HideZeros="True" ParentFont="False" Text="[NotTimeTasks."TimeStr"]  [NotTimeTasks."Subject"] [NotTimeTasks."Text"]"/>
  52.     </TfrxSubdetailData>
  53.     <TfrxLineView Name="Line17" Left="503,5" Top="0" Width="0" Height="793,7007874" ShowHint="False" Frame.Style="fsDash" Frame.Typ="1" Frame.Width="0,5"/>
  54.     <TfrxLineView Name="Line18" Left="-56,69291339" Top="793,7007874" Width="559,37007874" Height="0" ShowHint="False" Frame.Style="fsDash" Frame.Typ="4" Frame.Width="0,5"/>
  55.     <TfrxLineView Name="Line19" Left="0" Top="0" Width="0" Height="793,700787401575" ShowHint="False" Frame.Typ="1" Frame.Width="0,1"/>
  56.     <TfrxMemoView Name="Memo14" Left="-34" Top="320" Width="16" Height="156" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Rotation="90" Text="EssentialPIM Printout"/>
  57.     <TfrxMemoView Name="Memo15" Left="-22" Top="320" Width="16" Height="156" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="4" HAlign="haCenter" ParentFont="False" Rotation="90" Text="www.essentialpim.com"/>
  58.   </TfrxReportPage>
  59.   <TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="0" RightMargin="0" TopMargin="0" BottomMargin="0" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
  60.     <TfrxHeader Name="Header1" Height="15" Left="0" Top="0" Width="0" OnBeforePrint="CalHeaderOnBeforePrint">
  61.       <TfrxMemoView Name="Memo2" Left="0" Top="0" Width="119" Height="14" ShowHint="False" DisplayFormat.FormatStr="mmmm yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[CalendarStartDate+7]"/>
  62.     </TfrxHeader>
  63.     <TfrxMasterData Name="MasterData2" Height="15" Left="0" Top="15" Width="0" Columns="7" ColumnWidth="17" ColumnGap="0" RowCount="7">
  64.       <TfrxMemoView Name="Memo3" Left="0" Top="0" Width="17" Height="13" ShowHint="False" DisplayFormat.FormatStr="ddd" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" Frame.Typ="8" HAlign="haCenter" ParentFont="False" Text="[CalendarStartDate+<Line>-1]"/>
  65.     </TfrxMasterData>
  66.     <TfrxMasterData Name="MasterData3" Height="13" Left="0" Top="30" Width="0" Columns="7" ColumnWidth="17" ColumnGap="0" RowCount="42">
  67.       <TfrxMemoView Name="Memo4" Left="0" Top="0" Width="17" Height="13" OnAfterData="CalDayOnAfterData" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text=""/>
  68.     </TfrxMasterData>
  69.   </TfrxReportPage>
  70. </TfrxReport>
  71.