www.pudn.com > DriveRescuev1.8.zip > aboutdlg.pas

unit aboutdlg; 
 
interface 
 
uses 
  SysUtils, Windows, Messages, Classes, Graphics, Controls, 
  StdCtrls, ExtCtrls, Forms, Menus, clipbrd; 
 
type 
  TAboutDialog = class(TForm) 
    Label1: TLabel; 
    Panel2: TPanel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label9: TLabel; 
    Image1: TImage; 
    Label10: TLabel; 
    Label11: TLabel; 
    LabelHTMLaddress1: TLabel; 
    PopupMenu1: TPopupMenu; 
    CopyHTMLaddress1: TMenuItem; 
    Button1: TButton; 
    Label8: TLabel; 
    Timer1: TTimer; 
    LabelHTMLaddress2: TLabel; 
    procedure FormKeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    procedure FormClick(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure LabelHTMLaddress1MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure LabelHTMLaddress1Click(Sender: TObject); 
    procedure CopyHTMLaddress1Click(Sender: TObject); 
  end; 
 
var 
  AboutDialog: TAboutDialog; 
  scrollpos: integer; 
  movepos: integer; 
   
implementation 
 
uses main; 
 
{$R *.DFM} 
 
procedure TAboutDialog.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  close; 
end; 
 
procedure TAboutDialog.FormClick(Sender: TObject); 
begin 
  close; 
end; 
 
 
procedure TAboutDialog.Timer1Timer(Sender: TObject); 
var 
  i, j: integer; 
  s: string; 
begin 
  (*s:=''; 
 
  begin 
    inc(scrollpos); 
    if scrollpos > length(TesterNames) then scrollpos:=1; 
 
    i:=1; j:=scrollpos; 
    for i:=1 to 58 do 
    begin 
      if j > length(TesterNames) then j := 1; 
      s:=s + TesterNames[j]; 
      inc(j); 
    end; 
 
    LabelTester.caption:=s; 
  end;*) 
end; 
 
procedure TAboutDialog.FormCreate(Sender: TObject); 
begin 
  scrollpos:=1; 
end; 
 
 
procedure TAboutDialog.LabelHTMLaddress1MouseMove(Sender: TObject; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  (Sender as TLabel).font.color:=clblue; 
end; 
 
procedure TAboutDialog.Panel2MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
begin 
  LabelHTMLaddress1.font.color:=clNavy; 
  LabelHTMLaddress2.font.color:=clNavy;   
end; 
 
procedure TAboutDialog.LabelHTMLaddress1Click(Sender: TObject); 
begin 
  winexec(pchar(sIBrowserExec + (Sender as TLabel).caption), SW_SHOWNORMAL); 
end; 
 
procedure TAboutDialog.CopyHTMLaddress1Click(Sender: TObject); 
var 
  clipboard: tclipboard; 
begin 
 if PopupMenu1.PopupComponent is TLabel then 
 begin 
   clipboard:=TClipboard.Create; 
   try 
     clipboard.astext:=(PopupMenu1.PopupComponent as TLabel).caption; 
   finally 
     clipboard.free; 
   end; 
 end; 
end; 
 
end.