Subversion Repositories jumper

Rev

Blame | Last modification | View Log | RSS feed

  1. unit About;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  7.   Buttons, ExtCtrls, ShellAPI;
  8.  
  9. type
  10.   TAboutBox = class(TForm)
  11.     AboutPanel: TPanel;
  12.     ProgramIcon: TImage;
  13.     ProductName: TLabel;
  14.     Version: TLabel;
  15.     Copyright: TLabel;
  16.     Comments: TLabel;
  17.     OKButton: TButton;
  18.     ProjectLeader: TLabel;
  19.     CompanyHomepage: TLabel;
  20.     LeaderHomepage: TLabel;
  21.     procedure OKButtonClick(Sender: TObject);
  22.     procedure LinkClick(Sender: TObject);
  23.   end;
  24.  
  25. var
  26.   AboutBox: TAboutBox;
  27.  
  28. implementation
  29.  
  30. {$R *.dfm}
  31.  
  32. procedure TAboutBox.OKButtonClick(Sender: TObject);
  33. begin
  34.   Close;
  35. end;
  36.  
  37. procedure TAboutBox.LinkClick(Sender: TObject);
  38. begin
  39.   ShellExecute(Handle, 'open', PChar('http://'+TLabel(Sender).Hint+'/'), '', '', SW_NORMAL);
  40. end;
  41.  
  42. end.
  43.  
  44.