home *** CD-ROM | disk | FTP | other *** search
/ Computer Active Guide 2009 April / CAGidas04.iso / Programos / essentialpim3.exe / Reports / NotesClassic.fr3 < prev    next >
Encoding:
Extensible Markup Language  |  2009-04-03  |  9.1 KB  |  24 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="39870,0249421296" ReportOptions.Description.Text="" ReportOptions.LastChange="39906,51517875" ScriptLanguage="PascalScript" ScriptText.Text="procedure CategoryOnAfterData(Sender: TfrxComponent); begin   with TfrxMemoView(Sender) do   begin    Color := <ToDos."Category.Color">;    if Color <> clWindow then     Frame.Color := clBlack    else     Frame.Color := clNone;   end;   OnAfterData(Sender); end;   procedure PictureOnAfterData(Sender: TfrxComponent); begin   OnAfterData(Sender);   TfrxView(Sender).Left := TfrxView(Sender).Left + 1; end; procedure TextMemOnAfterData(Sender: TfrxComponent); begin   with TfrxMemoView(Sender).Font do    if <ToDos."Completion"> = '100%' then    begin     Color := clGray;     Style := <fsStrikeOut>;    end    else    begin     if (<ToDos."DueDate"> <> '') and (<ToDos."DueDate"> < Now) then      Color := clRed     else      Color := clWindowText;     Style := 0;    end;   OnAfterData(Sender); end; procedure SubjectOnAfterData(Sender: TfrxComponent); var   X: Integer; begin   TextMemOnAfterData(Sender);   with TfrxMemoView(Sender) do   begin    X := <ToDos."Level"> * 12;    Left := Left + X;    Width := Width - X;    Memo.Text := <ToDos."Subject">;    if (<ToDos."Subject"> = '') or (<ToDos."Text"> = '') then     Memo.Text := Memo.Strings[0] + <ToDos."Text">    else     Memo.Text := Memo.Strings[0] + #13#10 + '<i>' + <ToDos."Text"> + '</i>';   end; end; procedure SubjectOnAfterData2(Sender: TfrxComponent); var   X: Integer; begin   TextMemOnAfterData(Sender);   with TfrxMemoView(Sender) do   begin    X := <ToDos."Level"> * 12;    Left := Left + X;    Width := Width - X;    Memo.Text := <ToDos."Subject">;   end; 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;   if Sender is TfrxMemoView then    with TfrxMemoView(Sender).Frame do     if TfrxMemoView(Sender).Color <> clNone then      Typ := Typ or ftBottom or ftTop     else     begin      Typ := Typ and not ftBottom or ftTop;      if <ToDos."HasParent"> then       Typ := Typ and not ftTop;     end; end; begin end." PropData="044C65667403940003546F70027408446174617365747301010C2E00000020446174615365743D225265706F727473444D2E4E6F7465732220446174615365744E616D653D224E6F7465732200010C3400000020446174615365743D225265706F727473444D2E4E6F7465546162732220446174615365744E616D653D224E6F7465546162732200010C1700000020446174615365744E616D653D2243617074696F6E73220000095661726961626C65730100055374796C650100">
  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="70,4" TopMargin="0" BottomMargin="81,3" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
  5.     <TfrxMasterData Name="MasterData1" Height="40" Left="0" Top="98,26778" Width="470,929438" ColumnWidth="0" ColumnGap="0" DataSet="ReportsDM.Notes" DataSetName="Notes" RowCount="0" Stretched="True">
  6.       <TfrxMemoView Name="Memo1" Align="baWidth" Left="0" Top="0" Width="470,929438" Height="20" ShowHint="False" DataField="Name" DataSet="ReportsDM.Notes" DataSetName="Notes" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[Notes."Name"]"/>
  7.     </TfrxMasterData>
  8.     <TfrxDetailData Name="DetailData1" Height="60" Left="0" Top="204,09462" Width="470,929438" AllowSplit="True" ColumnWidth="0" ColumnGap="0" DataSet="ReportsDM.NoteTabs" DataSetName="NoteTabs" RowCount="0" Stretched="True">
  9.       <TfrxMemoView Name="Memo2" Align="baWidth" Left="0" Top="0" Width="470,929438" Height="20" ShowHint="False" Text="[NoteTabs."Name"]:"/>
  10.       <TfrxRichView Name="Rich1" Align="baWidth" Left="0" Top="20" Width="470,929438" Height="20" ShowHint="False" StretchMode="smActualHeight" DataField="FormatedText" DataSet="ReportsDM.NoteTabs" DataSetName="NoteTabs" GapX="2" GapY="1" PropData="0852696368456469740A080000000000000000000000"/>
  11.     </TfrxDetailData>
  12.     <TfrxFooter Name="Footer1" Height="20" Left="0" Top="162,51979" Width="470,929438"/>
  13.     <TfrxPageHeader Name="PageHeader1" Height="18,8976377952756" Left="0" Top="18,89765" Width="470,929438">
  14.       <TfrxLineView Name="Line1" Left="471,685039370079" Top="0" Width="0" Height="816" ShowHint="False" Frame.Style="fsDash" Frame.Typ="1" Frame.Width="0,5"/>
  15.       <TfrxLineView Name="Line2" Left="0" Top="0" Width="0" Height="816" ShowHint="False" Frame.Typ="1" Frame.Width="0,5"/>
  16.       <TfrxMemoView Name="Memo27" Left="-34" Top="0" Width="16" Height="468" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Rotation="90" VAlign="vaCenter" Text="EssentialPIM Printout"/>
  17.       <TfrxMemoView Name="Memo28" Left="-22" Top="0" Width="16" Height="476" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-11" Font.Name="Arial" Font.Style="4" ParentFont="False" Rotation="90" VAlign="vaCenter" Text="www.essentialpim.com"/>
  18.     </TfrxPageHeader>
  19.     <TfrxPageFooter Name="PageFooter1" Height="0" Left="0" Top="325,03958" Width="470,929438">
  20.       <TfrxLineView Name="Line3" Left="-56,6929133858268" Top="0" Width="528" Height="0" ShowHint="False" Frame.Style="fsDash" Frame.Typ="4" Frame.Width="0,5"/>
  21.     </TfrxPageFooter>
  22.   </TfrxReportPage>
  23. </TfrxReport>
  24.