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.1 - (show annotations) (download) (as text)
Sat Aug 9 13:50:39 2003 UTC (20 years, 8 months ago) by hi_
Branch: MAIN
Branch point for: hi
File MIME type: text/x-pascal
Initial revision

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 Timer2: TTimer;
13 Label1: TLabel;
14 Label2: TLabel;
15 BN365ccImage: TImage;
16 BNMonazillaImage: TImage;
17 BNGikoNaviImage: TImage;
18 Image6: TImage;
19 Label3: TLabel;
20 VersionLabel: TLabel;
21 Label5: TLabel;
22 Label4: TLabel;
23 HiLabel: TLabel;
24 Image1: TImage;
25 Button1: TButton;
26 Timer1: TTimer;
27 procedure FormCreate(Sender: TObject);
28 procedure BNGikoNaviImageClick(Sender: TObject);
29 procedure BNMonazillaImageClick(Sender: TObject);
30 procedure BN365ccImageClick(Sender: TObject);
31 procedure Timer2Timer(Sender: TObject);
32 procedure HiLabelClick(Sender: TObject);
33 procedure FormClose(Sender: TObject; var Action: TCloseAction);
34 procedure Image1Click(Sender: TObject);
35 procedure Timer1Timer(Sender: TObject);
36 private
37 { Private éŒž }
38 FCnt: Integer;
39 public
40 { Public éŒž }
41 end;
42
43 var
44 AboutDialog: TAboutDialog;
45
46 implementation
47
48 const
49 ST: array[0..10] of string =
50 ('yŠ´ŽÓz–ˆ“x‚ ‚肪‚Ć‚¤‚˛‚´‚˘‚Ü‚ˇyŽÓˆÓz',
51 '‚˘‚‚ŕƒzƒbƒgƒ]ƒk‚Ěƒ\[ƒX‚đŽQl‚É‚ł‚š‚Ä‚˘‚˝‚ž‚˘‚Ä‚¨‚č‚Ü‚ˇ',
52 'ƒAƒCƒRƒ“‚Ȃǂ̑fŢ‚Í‹‚ł‚ńě‚ĚƒAƒCƒRƒ“‚đŽg‚Á‚Ä‚¨‚č‚Ü‚ˇ',
53 'gzipƒRƒ“ƒ|[ƒlƒ“ƒg‚Í–ź–ł‚ľ‚ł‚ńě‚Ě‚đŽg‚Á‚Ä‚¨‚č‚Ü‚ˇ',
54 'ˆĂ†‰ťˆ—‚ÍJaneěŽŇ‚ł‚ń‚Ě‚đŽg‚Á‚Ä‚¨‚č‚Ü‚ˇ',
55 'DolibŠÖ˜A‚ÍDax‚ł‚ńě‚Ě‚đŽg‚Á‚Ä‚¨‚č‚Ü‚ˇ',
56 'Dolib‚đ‰ü‘˘‚ˇ‚é‚Ć‚ŤkageěŽŇ‚ł‚ń‚Ěƒ\[ƒX‚đŽQl‚É‚ľ‚Ä‚¨‚č‚Ü‚ˇ',
57 '‚˘‚‚ŕDelƒXƒŒ‚ĹƒtƒTƒMƒR‚ł‚ń‚ɏ•‚݂Ăŕ‚ç‚Á‚Ă܂ˇ',
58 '‚˘‚낢‚ë‚Čƒ\[ƒX‚đŽQl‚É‚ľ‚Ä‚¨‚č‚Ü‚ˇ',
59 'ƒMƒRƒiƒrƒXƒŒ‚Ĺ‚Íƒ†[ƒU‚Ě•űX‚ɓÂ܂ł‚ę‚Ä‚¨‚č‚Ü‚ˇ',
60 '‚Ć‚Ä‚ŕ ‚¨‚˘‚ľ‚イ‚˛‚´‚˘‚Ü‚ľ‚˝');
61
62 MAIL_GIKOANVI: string = 'mailto:gikonavi@ice.dti2.ne.jp';
63 URL_GIKONAVI: string = 'http://gikonavi.hp.infoseek.co.jp/';
64 URL_MONAZILLA: string = 'http://www.monazilla.org/';
65 URL_365CC: string = 'http://www.kyoto.zaq.ne.jp/365cc/';
66 TIP_GIKONAVI: string = 'ƒMƒRƒiƒr‚Ěƒy[ƒW';
67 TIP_MONAZILLA: string = '2ch—pƒuƒ‰ƒEƒU‚đěŹ‚ľ‚Ä‚˘‚éƒTƒCƒg' + #13#10
68 + 'ƒMƒRƒiƒr‚ŕ‚Ü‚ş‚Ä‚ŕ‚ç‚Á‚Ă܂ˇ';
69 TIP_365CC: string = '2chƒLƒƒƒ‰‚Ě‘fŢ‚đťě‚ľ‚Ă鋍‚ł‚ń‚Ěƒy[ƒW' + #13#10
70 + 'ƒMƒRƒiƒr‚Ĺ‚ŕ—˜—p‚ł‚š‚Ä‚ŕ‚ç‚Á‚Ă܂ˇB';
71
72 {$R *.DFM}
73 {$R gikoSound.res}
74
75 procedure TAboutDialog.FormCreate(Sender: TObject);
76 var
77 build: string;
78 bnum: Integer;
79 begin
80 bnum := GikoSys.GetVersionBuild;
81 if bnum > 0 then
82 build := 'Build ' + IntToStr(bnum);
83 { VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
84 + Format('%.2d', [MINOR_VERSION]) + ' '
85 + BETA_VERSION_NAME_J
86 + IntToStr(BETA_VERSION)
87 + BETA_VERSION_BUILD + ' '
88 + build;
89 }
90 VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
91 + IntToStr(BETA_VERSION)
92 + BETA_VERSION_BUILD + ' '
93 + build;
94 // Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
95
96 BNGikoNaviImage.Hint := TIP_GIKONAVI;
97 BNMonazillaImage.Hint := TIP_MONAZILLA;
98 BN365ccImage.Hint := TIP_365CC;
99 BNGikoNaviImage.Cursor := 5;
100 BNMonazillaImage.Cursor := 5;
101 BN365ccImage.Cursor := 5;
102 HiLabel.Cursor := 5;
103 DoubleBuffered := True;
104 FCnt := 0;
105 Randomize;
106 end;
107
108
109 procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
110 begin
111 GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
112 end;
113
114 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
115 begin
116 GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
117 end;
118
119 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
120 begin
121 GikoSys.OpenBrowser(URL_365CC, gbtAuto);
122 end;
123
124 procedure TAboutDialog.Timer2Timer(Sender: TObject);
125 begin
126 Timer2.Interval := 3000;
127 Label5.Caption := ST[FCnt];
128 inc(FCnt);
129 if FCnt > (Length(ST) - 1) then FCnt := 0;
130 end;
131
132 procedure TAboutDialog.HiLabelClick(Sender: TObject);
133 begin
134 ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
135 end;
136
137 procedure TAboutDialog.FormClose(Sender: TObject;
138 var Action: TCloseAction);
139 begin
140 // AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
141 sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
142 end;
143
144 procedure TAboutDialog.Image1Click(Sender: TObject);
145 var
146 hResInfo: HRSRC;
147 hglb: HGLOBAL;
148 FRes: Pointer;
149 begin
150 Timer2.Enabled := False;
151 Timer1.Enabled := True;
152 Refresh;
153 hResInfo := FindResource(HInstance, '#101', 'WAVE');
154 hglb := LoadResource(HInstance, hResInfo);
155 FRes := LockResource(hglb);
156 sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
157
158 end;
159
160 procedure TAboutDialog.Timer1Timer(Sender: TObject);
161 begin
162 Canvas.Brush.Style := bsClear;
163 Canvas.Font.Color := Random($FFFFFF);
164 Canvas.Font.Size := Random(30);
165 Canvas.TextOut(Random(Width), Random(Height), 'ƒlƒ^Ř‚ę');
166
167 end;
168
169 end.

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