Browse Subversion Repository
Contents of /about.pas
 Parent Directory
|  Revision Log
Revision 1 -
( show annotations)
( download)
( as text)
Mon Nov 7 12:03:00 2011 UTC
(12 years, 4 months ago)
by shiraishikazuo
File MIME type: text/x-pascal
File size: 1679 byte(s)
| 1 |
unit about; |
| 2 |
|
| 3 |
{$IFDEF FPC} |
| 4 |
{$MODE DELPHI}{$H+} |
| 5 |
{$ENDIF} |
| 6 |
|
| 7 |
(***************************************) |
| 8 |
(* Copyright (C) 2006, SHIRAISHI Kazuo *) |
| 9 |
(***************************************) |
| 10 |
|
| 11 |
|
| 12 |
interface |
| 13 |
|
| 14 |
uses Classes, Graphics, Forms, Controls, StdCtrls, |
| 15 |
Buttons, ComCtrls, ExtCtrls, LResources; |
| 16 |
|
| 17 |
type |
| 18 |
|
| 19 |
{ TAboutBox } |
| 20 |
|
| 21 |
TAboutBox = class(TForm) |
| 22 |
Label1: TLabel; |
| 23 |
Web: TLabel; |
| 24 |
Panel1: TPanel; |
| 25 |
OKButton: TBitBtn; |
| 26 |
ProductName: TLabel; |
| 27 |
Copyright: TLabel; |
| 28 |
Comments: TLabel; |
| 29 |
Memo1: TMemo; |
| 30 |
version: TLabel; |
| 31 |
procedure FormCreate(Sender: TObject); |
| 32 |
procedure Label1Click(Sender: TObject); |
| 33 |
procedure WebClick(Sender: TObject); |
| 34 |
private |
| 35 |
{ Private 宣言 } |
| 36 |
public |
| 37 |
{ Public 宣言 } |
| 38 |
end; |
| 39 |
|
| 40 |
var |
| 41 |
AboutBox: TAboutBox; |
| 42 |
|
| 43 |
|
| 44 |
implementation |
| 45 |
{$IFNDEF Win32} |
| 46 |
uses unix; |
| 47 |
{$ELSE} |
| 48 |
uses windows,shellapi; |
| 49 |
{$ENDIF} |
| 50 |
{$R *.lfm} |
| 51 |
|
| 52 |
procedure TAboutBox.FormCreate(Sender: TObject); |
| 53 |
begin |
| 54 |
version.Caption:='Version 0.9.4.6'; |
| 55 |
Web.Font.Color:=clBlue; |
| 56 |
{$IFDEF LCLGTK2} |
| 57 |
memo1.enabled:=false; |
| 58 |
{$ENDIF} |
| 59 |
end; |
| 60 |
|
| 61 |
procedure OpenWeb(s:string); |
| 62 |
begin |
| 63 |
{$IFDEF windows} |
| 64 |
ShellExecuteA(AboutBox.Handle,'Open',PChar(s), '','',SW_SHOW); |
| 65 |
{$ELSE} |
| 66 |
{$IFDEF Darwin} |
| 67 |
Shell('Open '+s); |
| 68 |
{$ELSE} |
| 69 |
Shell('firefox '+s+' &'); |
| 70 |
{$ENDIF} |
| 71 |
{$ENDIF} |
| 72 |
end; |
| 73 |
|
| 74 |
|
| 75 |
procedure TAboutBox.Label1Click(Sender: TObject); |
| 76 |
begin |
| 77 |
OpenWeb('http://en.sourceforge.jp/forum/forum.php?forum_id=16171') |
| 78 |
end; |
| 79 |
|
| 80 |
|
| 81 |
procedure TAboutBox.WebClick(Sender: TObject); |
| 82 |
begin |
| 83 |
OpenWeb('http://hp.vector.co.jp/authors/VA008683/english/BASICAcc.htm') |
| 84 |
end; |
| 85 |
|
| 86 |
|
| 87 |
|
| 88 |
initialization |
| 89 |
|
| 90 |
|
| 91 |
|
| 92 |
end. |
| 93 |
|
| |
Parent Directory
Revision Log