home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Construc / Unit2.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-06-05  |  1.7 KB  |  60 lines
  1. unit Unit2;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   HTTPApp, Db, DBTables, DBWeb, DMQueryTableProducer, MidItems, XMLBrokr,
  6.   CompProd, PagItems, MidProd, Provider;
  7.  
  8. type
  9.   TDataModule2 = class(TDataModule)
  10.     PageProducer1: TPageProducer;
  11.     DataSetTableProducer1: TDataSetTableProducer;
  12.     Query1: TQuery;
  13.     QueryTableProducer1: TQueryTableProducer;
  14.     DMQueryTableProducer1: TDMQueryTableProducer;
  15.     DataSetProvider1: TDataSetProvider;
  16.     MidasPageProducer1: TMidasPageProducer;
  17.     XMLBroker1: TXMLBroker;
  18.     DataForm1: TDataForm;
  19.     DataGrid1: TDataGrid;
  20.     DataNavigator1: TDataNavigator;
  21.     SpeciesNo: TTextColumn;
  22.     Category: TTextColumn;
  23.     Common_Name: TTextColumn;
  24.     SpeciesName: TTextColumn;
  25.     Lengthcm: TTextColumn;
  26.     Length_In: TTextColumn;
  27.     StatusColumn1: TStatusColumn;
  28.     FirstButton1: TFirstButton;
  29.     PriorPageButton1: TPriorPageButton;
  30.     PriorButton1: TPriorButton;
  31.     NextButton1: TNextButton;
  32.     NextPageButton1: TNextPageButton;
  33.     LastButton1: TLastButton;
  34.     procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  35.       const TagString: String; TagParams: TStrings;
  36.       var ReplaceText: String);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. var
  44.   DataModule2: TDataModule2;
  45.  
  46. implementation
  47. {$R *.DFM}
  48.  
  49. procedure TDataModule2.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  50.   const TagString: String; TagParams: TStrings; var ReplaceText: String);
  51. begin
  52.   if TagString = 'DATE' then
  53.     if TagParams.Values['FORMAT'] <> '' then
  54.       ReplaceText := FormatDateTime(TagParams.Values['FORMAT'],Date)
  55.     else
  56.       ReplaceText := DateToStr(Date)
  57. end;
  58.  
  59. end.
  60.