about.pas

最好的局域网搜索软件

unit About;

interface

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

type
  TAboutForm = class(TForm)
    BtnOK: TButton;
    Memo1: TMemo;
    procedure BtnOKClick(Sender: TObject);
    procedure ShowBrand;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure FtpDownDebug(Sender: TObject);
  end;

var
  AboutForm: TAboutForm;

implementation
uses Main, FtpDownloadThread;
{$R *.DFM}

procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle:integer;color:TColor);
var
  LogFont               : TLogFont;
  MyFont,SaveFont       : TFont;
begin
  SaveFont := TFont.Create;
  SaveFont.Assign(CV.Font);
  MyFont:= SaveFont;
  MyFont.Style := [fsBold];
  MyFont.Name := 'Times New Roman';
  GetObject(MyFont.Handle, sizeof(TLogFont), @LogFont);
  with LogFont do
    begin
      lfEscapement := angle *10;
      lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
      lfQuality := PROOF_QUALITY;
      lfHeight:=30;
      //lfStrikeOut := 1;
    end; {with}
  CV.Font.Handle := CreateFontIndirect(LogFont);
  CV.Font.Color := color;
  SetBkMode(CV.Handle, TRANSPARENT);
  CV.TextOut(x, y, sText);
  CV.Font.Assign(SaveFont);
  SaveFont.Free;
end;

procedure TAboutForm.ShowBrand;
begin
  Canvas.Brush.Color := clBlack;
  Canvas.Rectangle(0,0,60,300);
  AngleTextOut(Canvas,'LAN EXPLORER',10, 213, 90,clRed);
  AngleTextOut(Canvas,'LAN EXPLORER',11, 214, 90,clYellow);
end;

procedure TAboutForm.BtnOKClick(Sender: TObject);
begin

  Close;

end;

procedure TAboutForm.FormPaint(Sender: TObject);
begin
   ShowBrand;
end;

procedure TAboutForm.FormCreate(Sender: TObject);
begin
  
  if bk<>nil then
  begin
    Brush.Bitmap :=  bk;
    Memo1.Ctl3D := false;
  end;

end;

procedure TAboutForm.FtpDownDebug(Sender: TObject);
begin

  if tag = 0 then
  begin
    tag := 1;
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('------------------------------');
    Memo1.Lines.Add('以下为FTP下载调试信息');
    Memo1.Lines.Add('------------------------------');
  end;

  with Sender as TFtpStatus do Memo1.Lines.Add(':'+Content);

end;

end.