6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 StdCtrls, Menus, Clipbrd, ExtCtrls, UrlMon, ShellAPI, MMSystem,
11 TAboutDialog = class(TForm)
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);
33 AboutDialog: TAboutDialog;
38 ST: array[0..10] of string =
39 ('
\81y
\8a´
\8eÓ
\81z
\96\88\93x
\82 \82è
\82ª
\82Æ
\82¤
\82²
\82´
\82¢
\82Ü
\82·
\81y
\8eÓ
\88Ó
\81z',
40 '
\82¢
\82Â
\82à
\83z
\83b
\83g
\83]
\83k
\82Ì
\83\
\81[
\83X
\82ð
\8eQ
\8dl
\82É
\82³
\82¹
\82Ä
\82¢
\82½
\82¾
\82¢
\82Ä
\82¨
\82è
\82Ü
\82·',
41 '
\83A
\83C
\83R
\83\93\82È
\82Ç
\82Ì
\91f
\8dÞ
\82Í
\8b\8d\82³
\82ñ
\8dì
\82Ì
\83A
\83C
\83R
\83\93\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
42 'gzip
\83R
\83\93\83|
\81[
\83l
\83\93\83g
\82Í
\96¼
\96³
\82µ
\82³
\82ñ
\8dì
\82Ì
\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
43 '
\88Ã
\8d\86\89»
\8f\88\97\9d\82ÍJane
\8dì
\8eÒ
\82³
\82ñ
\82Ì
\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
44 'Dolib
\8aÖ
\98A
\82ÍDax
\82³
\82ñ
\8dì
\82Ì
\82ð
\8eg
\82Á
\82Ä
\82¨
\82è
\82Ü
\82·',
45 'Dolib
\82ð
\89ü
\91¢
\82·
\82é
\82Æ
\82«kage
\8dì
\8eÒ
\82³
\82ñ
\82Ì
\83\
\81[
\83X
\82ð
\8eQ
\8dl
\82É
\82µ
\82Ä
\82¨
\82è
\82Ü
\82·',
46 '
\82¢
\82Â
\82àDel
\83X
\83\8c\82Å
\83t
\83T
\83M
\83R
\82³
\82ñ
\82É
\8f\95\82¯
\82Ä
\82à
\82ç
\82Á
\82Ä
\82Ü
\82·',
47 '
\82¢
\82ë
\82¢
\82ë
\82È
\83\
\81[
\83X
\82ð
\8eQ
\8dl
\82É
\82µ
\82Ä
\82¨
\82è
\82Ü
\82·',
48 '
\83M
\83R
\83i
\83r
\83X
\83\8c\82Å
\82Í
\83\86\81[
\83U
\82Ì
\95û
\81X
\82É
\93Ã
\82Ü
\82³
\82ê
\82Ä
\82¨
\82è
\82Ü
\82·',
49 '
\82Æ
\82Ä
\82à
\82¨
\82¢
\82µ
\82ã
\82¤
\82²
\82´
\82¢
\82Ü
\82µ
\82½');
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 = '
\83M
\83R
\83i
\83r
\82Ì
\83y
\81[
\83W';
56 // TIP_MONAZILLA: string = '2ch
\97p
\83u
\83\89\83E
\83U
\82ð
\8dì
\90¬
\82µ
\82Ä
\82¢
\82é
\83T
\83C
\83g' + #13#10
57 // + '
\83M
\83R
\83i
\83r
\82à
\82Ü
\82º
\82Ä
\82à
\82ç
\82Á
\82Ä
\82Ü
\82·';
58 // TIP_365CC: string = '2ch
\83L
\83\83\83\89\82Ì
\91f
\8dÞ
\82ð
\90»
\8dì
\82µ
\82Ä
\82é
\8b\8d\82³
\82ñ
\82Ì
\83y
\81[
\83W' + #13#10
59 // + '
\83M
\83R
\83i
\83r
\82Å
\82à
\97\98\97p
\82³
\82¹
\82Ä
\82à
\82ç
\82Á
\82Ä
\82Ü
\82·
\81B';
64 procedure TAboutDialog.FormCreate(Sender: TObject);
69 bnum := GikoSys.GetVersionBuild;
71 build := 'Build ' + IntToStr(bnum);
72 { VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
73 + Format('%.2d', [MINOR_VERSION]) + ' '
75 + IntToStr(BETA_VERSION)
76 + BETA_VERSION_BUILD + ' '
79 VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
80 + FloatToStr(BETA_VERSION)
81 + BETA_VERSION_BUILD + ' '
83 // Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
85 // BNGikoNaviImage.Hint := TIP_GIKONAVI;
86 // BNMonazillaImage.Hint := TIP_MONAZILLA;
87 // BN365ccImage.Hint := TIP_365CC;
88 // BNGikoNaviImage.Cursor := 5;
89 // BNMonazillaImage.Cursor := 5;
90 // BN365ccImage.Cursor := 5;
91 // HiLabel.Cursor := 5;
92 // DoubleBuffered := True;
98 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
100 GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
103 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
105 GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
108 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
110 GikoSys.OpenBrowser(URL_365CC, gbtAuto);
113 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
115 Timer2.Interval := 3000;
116 Label5.Caption := ST[FCnt];
118 if FCnt > (Length(ST) - 1) then FCnt := 0;
121 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
123 ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
126 procedure TAboutDialog.FormClose(Sender: TObject;
127 var Action: TCloseAction);
129 // AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
130 // sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
133 {procedure TAboutDialog.Image1Click(Sender: TObject);
139 Timer2.Enabled := False;
140 Timer1.Enabled := True;
142 hResInfo := FindResource(HInstance, '#101', 'WAVE');
143 hglb := LoadResource(HInstance, hResInfo);
144 FRes := LockResource(hglb);
145 sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
149 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
151 Canvas.Brush.Style := bsClear;
152 Canvas.Font.Color := Random($FFFFFF);
153 Canvas.Font.Size := Random(30);
154 Canvas.TextOut(Random(Width), Random(Height), '
\83l
\83^
\90Ø
\82ê');