www.pudn.com > FaxConvert.zip > About.pas

unit About; 
 
interface 
 
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, ShellAPI, Dialogs; 
 
type 
  TTComAbout = class(TForm) 
    Panel1: TPanel; 
    Image1: TImage; 
    Bevel1: TBevel; 
    Label1: TLabel; 
    Label4: TLabel; 
    Label6: TLabel; 
    Bevel2: TBevel; 
    Label11: TLabel; 
    Label12: TLabel; 
    Button1: TButton; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label5: TLabel; 
    Label9: TLabel; 
    procedure FormCreate(Sender: TObject); 
    procedure LinkLabelMouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure LinkLabelMouseUp(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure Label5Click(Sender: TObject); 
    procedure Label6Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
TPhoneBookEntry = record 
  Name: String[30]; 
  ConnectionType: String[10]; 
  Address: String[50]; 
  WsPort: String[50]; 
  WsServer: Boolean; 
  DataBits: Byte; 
  Parity: Byte; 
  StopBits: Byte; 
  Emulation: Byte; 
  DefProtocol: Byte; 
end; 
 
var 
  AsciiUploadCRTranslation, 
  AsciiUploadLFTranslation, 
  AsciiDownloadCRTranslation, 
  AsciiDOwnloadLFTranslation : Byte; 
  ZModemAutoReceive: Boolean; 
  PhoneBookFile: String; 
 
const 
  IniName = 'TCom3.ini'; 
  crHand = 1; 
 
implementation 
 
{$R *.DFM} 
{$IFDEF Win32} 
  {$R Cursors.R32} 
{$ELSE} 
  {$R Cursors.R16} 
{$ENDIF} 
 
procedure TTComAbout.FormCreate(Sender: TObject); 
begin 
  Screen.Cursors[crHand] := LoadCursor(HInstance, 'HAND_CURSOR'); 
  Label5.Cursor := crHand; 
  Label6.Cursor := crHand; 
end; 
 
procedure TTComAbout.LinkLabelMouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  (Sender as TLabel).Left := (Sender as TLabel).Left + 1; 
end; 
 
procedure TTComAbout.LinkLabelMouseUp(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  (Sender as TLabel).Left := (Sender as TLabel).Left - 1; 
end; 
 
procedure TTComAbout.Label5Click(Sender: TObject); 
begin 
  if ShellExecute(0, 'open', 'http://www.turbopower.com', '', '', SW_SHOWNORMAL) <= 32 then 
    ShowMessage('Unable to start web browser. Make sure you have it properly set-up on your system.'); 
end; 
 
procedure TTComAbout.Label6Click(Sender: TObject); 
begin 
  if ShellExecute(0, 'open', 'news://news.turbopower.com', '', '', SW_SHOWNORMAL) <= 32 then 
    ShowMessage('Unable to start web browser. Make sure you have it properly set-up on your system.'); 
end; 
 
end.