feedproperty_frm.pas

自己写的一个 RSS 阅读器

unit FeedProperty_Frm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,uFeed, StdCtrls, ComCtrls;

type
  TfmFeedProperty = class(TForm)
    Label1: TLabel;
    EdtTitle: TEdit;
    EdtXmlUrl: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    MemoDescription: TMemo;
    Label4: TLabel;
    edtHtmlUrl: TEdit;
    Label5: TLabel;
    EdtRefreshInterval: TEdit;
    UpDown1: TUpDown;
    Button2: TButton;
    Label6: TLabel;
    LbLastUpdate: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    fFeed:TFeedItem;
    { Private declarations }
  public
    procedure GetProperty(aFeed:TFeedItem);
    { Public declarations }
  end;

var
  fmFeedProperty: TfmFeedProperty;

procedure FeedPropertyExec(aFeed:TFeedItem);

implementation

{$R *.dfm}

procedure FeedPropertyExec(aFeed:TFeedItem);
var pForm:TfmFeedProperty;
begin
  pForm:=TfmFeedProperty.Create(Application.MainForm);
  try
    pForm.GetProperty(aFeed);
    pForm.ShowModal;
  finally // wrap up
    pForm.Free;
  end;    // try/finally
end;

procedure TfmFeedproperty.GetProperty(aFeed:TFeedItem);
begin
  fFeed:=aFeed;
  EdtTitle.Text:=fFeed.Outline.Title;
  EdtXmlUrl.Text:=fFeed.Outline.XmlUrl;
  edtHtmlUrl.Text := fFeed.Outline.HtmlUrl;
  MemoDescription.Lines.Clear;
  MemoDescription.Lines.Add(fFeed.Outline.Description);
  UpDown1.Position := fFeed.Outline.RefreshInterval;
  LbLastUpdate.Caption := fFeed.Rss.LastUpdate.ToString;
end;

procedure TfmFeedProperty.Button1Click(Sender: TObject);
begin
  fFeed.Outline.Title := EdtTitle.Text;
  fFeed.Outline.XmlUrl := EdtXmlUrl.Text;
  fFeed.Outline.HtmlUrl := edtHtmlUrl.Text;
  fFeed.Outline.Description := MemoDescription.Lines.Text;
  fFeed.Outline.RefreshInterval := UpDown1.Position;
  fFeed.SetTimerInterval(UpDown1.Position);
  fFeed.Rss.ExecItemChanged;
  Close;
end;

procedure TfmFeedProperty.Button2Click(Sender: TObject);
begin
  Close;
end;

end.