Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/About.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.3.8.1 - (show annotations) (download) (as text)
Sat Jun 11 04:48:13 2005 UTC (18 years, 10 months ago) by h677
Branch: remodeling
CVS Tags: v1_50_0_581, v1_50_0_580, v1_50_0_587, v1_50_0_586, v1_50_0_585, v1_50_0_582, v1_50_0_588, v1_50_0_584
Changes since 1.3: +4 -28 lines
File MIME type: text/x-pascal
バージョン情報にファイルバージョンまで表示するように変更
UAにファイルバージョンまで付加

1 unit About;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 StdCtrls, Menus, Clipbrd, ExtCtrls, UrlMon, ShellAPI, MMSystem,
8 GikoSystem;
9
10 type
11 TAboutDialog = class(TForm)
12 Label1: TLabel;
13 Image1: TImage;
14 Button1: TButton;
15 VersionEdit: TEdit;
16 procedure FormCreate(Sender: TObject);
17 // procedure BNGikoNaviImageClick(Sender: TObject);
18 // procedure BNMonazillaImageClick(Sender: TObject);
19 // procedure BN365ccImageClick(Sender: TObject);
20 // procedure Timer2Timer(Sender: TObject);
21 // procedure HiLabelClick(Sender: TObject);
22 procedure FormClose(Sender: TObject; var Action: TCloseAction);
23 // procedure Image1Click(Sender: TObject);
24 // procedure Timer1Timer(Sender: TObject);
25 private
26 { Private ?辿?転 }
27 // FCnt: Integer;
28 public
29 { Public ?辿?転 }
30 end;
31
32 var
33 AboutDialog: TAboutDialog;
34
35 implementation
36
37 const
38 ST: array[0..10] of string =
39 ('?y?卒???z???x?????????造???卒???????y?????z',
40 '???????z?b?g?]?k???\?[?X???Q?l?????邸???????転?????即??????',
41 '?A?C?R?????????f?鄭?????????????A?C?R?????g?????即??????',
42 'gzip?R???|?[?l???g???添???直???????????g?????即??????',
43 '?????泥??????Jane?????????????g?????即??????',
44 'Dolib???A??Dax???????????g?????即??????',
45 'Dolib???端?????辿???鼎kage???????????\?[?X???Q?l???直???即??????',
46 '??????Del?X???長?t?T?M?R?????????纏?????巽????????',
47 '???谷???谷???\?[?X???Q?l???直???即??????',
48 '?M?R?i?r?X???長?????[?U???撤?X?????????????即??????',
49 '?????? ?即???直???造???卒?????直??');
50
51 // MAIL_GIKOANVI: string = 'mailto:gikonavi@ice.dti2.ne.jp';
52 // URL_GIKONAVI: string = 'http://gikonavi.hp.infoseek.co.jp/';
53 // URL_MONAZILLA: string = 'http://www.monazilla.org/';
54 // URL_365CC: string = 'http://www.kyoto.zaq.ne.jp/365cc/';
55 // TIP_GIKONAVI: string = '?M?R?i?r???y?[?W';
56 // TIP_MONAZILLA: string = '2ch?p?u???E?U?????店?直?????辿?T?C?g' + #13#10
57 // + '?M?R?i?r???????????巽????????';
58 // TIP_365CC: string = '2ch?L???????f?鄭???泥???直???辿?????????y?[?W' + #13#10
59 // + '?M?R?i?r?長?????p???邸?????巽?????????B';
60
61 {$R *.DFM}
62 //{$R gikoSound.res}
63
64 procedure TAboutDialog.FormCreate(Sender: TObject);
65 begin
66 VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
67 + FloatToStr(BETA_VERSION)
68 + '('
69 + GikoSys.Version
70 + ')';
71 end;
72
73
74 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
75 begin
76 GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
77 end;
78
79 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
80 begin
81 GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
82 end;
83
84 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
85 begin
86 GikoSys.OpenBrowser(URL_365CC, gbtAuto);
87 end;}
88
89 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
90 begin
91 Timer2.Interval := 3000;
92 Label5.Caption := ST[FCnt];
93 inc(FCnt);
94 if FCnt > (Length(ST) - 1) then FCnt := 0;
95 end;}
96
97 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
98 begin
99 ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
100 end;}
101
102 procedure TAboutDialog.FormClose(Sender: TObject;
103 var Action: TCloseAction);
104 begin
105 // AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
106 // sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
107 end;
108
109 {procedure TAboutDialog.Image1Click(Sender: TObject);
110 var
111 hResInfo: HRSRC;
112 hglb: HGLOBAL;
113 FRes: Pointer;
114 begin
115 Timer2.Enabled := False;
116 Timer1.Enabled := True;
117 Refresh;
118 hResInfo := FindResource(HInstance, '#101', 'WAVE');
119 hglb := LoadResource(HInstance, hResInfo);
120 FRes := LockResource(hglb);
121 sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
122
123 end;}
124
125 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
126 begin
127 Canvas.Brush.Style := bsClear;
128 Canvas.Font.Color := Random($FFFFFF);
129 Canvas.Font.Size := Random(30);
130 Canvas.TextOut(Random(Width), Random(Height), '?l?^????');
131
132 end;}
133
134 end.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26