help.pas

实现黑白棋的游戏

//帮助单元 help.pas
//BY Lishun,1999,all rights reserved

unit help;

interface

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

type
  Taboutfrm = class(TForm)
    Image1: TImage;
    Label2: TLabel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    suplabel2: TLabel;
    suplabel3: TLabel;
    suplabel1: TLabel;
    suplabel4: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure supLabel1Click(Sender: TObject);
    procedure supLabel2Click(Sender: TObject);
    procedure supLabel3Click(Sender: TObject);
    procedure suplabel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure suplabel3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure suplabel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure suplabel4Click(Sender: TObject);
    procedure suplabel4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure back;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aboutfrm: Taboutfrm;
  t2, t3, t4, l2, l3, l4: integer;

implementation

uses main;

{$R *.DFM}

procedure Taboutfrm.back;
begin
  suplabel1.font.color := clblue;
  suplabel2.font.color := clblue;
  suplabel2.font.Size := 8;
  suplabel2.left := l2;
  suplabel2.top := t2;
  suplabel3.font.color := clblue;
  suplabel3.font.Size := 8;
  suplabel3.left := l3;
  suplabel3.top := t3;
  suplabel4.font.color := clblue;
  suplabel4.font.Size := 8;
  suplabel4.left := l4;
  suplabel4.top := t4;
end;

procedure Taboutfrm.Image1Click(Sender: TObject);
begin
  close;
end;

procedure Taboutfrm.supLabel1Click(Sender: TObject);
begin
  Application.HelpCommand(help_finder, 0);
end;

procedure Taboutfrm.supLabel2Click(Sender: TObject);
begin
  shellexecute(handle, 'open', pchar('http:/' + '/raindrops.yeah.net'), nil, nil, sw_show);
end;

procedure Taboutfrm.supLabel3Click(Sender: TObject);
begin
  shellexecute(handle, 'open', pchar('mailto:[e-mail]'), nil, nil, sw_show);
end;

procedure Taboutfrm.suplabel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  back;
  suplabel1.font.color := clred;
end;

procedure Taboutfrm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  back;
end;

procedure Taboutfrm.suplabel3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  back;
  suplabel3.font.color := clred;
  suplabel3.font.Size := 10;
  suplabel3.left := l3 - 10;
  suplabel3.top := t3 - 2;
end;

procedure Taboutfrm.suplabel2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  back;
  suplabel2.font.color := clred;
  suplabel2.font.Size := 10;
  suplabel2.left := l2 - 20;
  suplabel2.top := t2 - 2;
end;

procedure Taboutfrm.suplabel4Click(Sender: TObject);
begin
  shellexecute(handle, 'open', pchar('http:/' + '/blacwet.yeah.net'), nil, nil, sw_show);
end;

procedure Taboutfrm.suplabel4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  back;
  suplabel4.font.color := clred;
  suplabel4.font.Size := 10;
  suplabel4.left := l4 - 10;
  suplabel4.top := t4 - 2;
end;

procedure Taboutfrm.FormShow(Sender: TObject);
begin
  aboutfrm.DoubleBuffered := true;
  t2 := suplabel2.Top;
  t3 := suplabel3.Top;
  t4 := suplabel4.Top;
  l2 := suplabel2.Left;
  l3 := suplabel3.Left;
  l4 := suplabel4.Left;
end;

end.