frmstatistics.pas

Mailserver Source code - Delphi. Simple Mail server source code. SMTP and POP3 protocols.

unit FrmStatistics;

interface

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

type
  TFrmStatistics1 = class(TForm)
    Panel5: TPanel;
    HintLabel: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    Label1: TLabel;
  private
    { Private declarations }
    function  GetShowText:string;
    procedure SetShowText(AStr:string);
  public
    { Public declarations }
    property ShowText:string read  GetShowText write SetShowText;
  end;

var
  FrmStatistics1: TFrmStatistics1;

implementation

{$R *.dfm}

function TFrmStatistics1.GetShowText:string;
begin
  result:=Label1.Caption;
end;

procedure  TFrmStatistics1.SetShowText(AStr:string);
begin
  Label1.Caption:=AStr;
end;

end.