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.6.2.1 - (show annotations) (download) (as text)
Sat Jul 2 10:57:12 2005 UTC (18 years, 9 months ago) by h677
Branch: Bb50
Changes since 1.6: +17 -6 lines
File MIME type: text/x-pascal
バージョン情報にpluginとIEのバージョンを表示できるようにした。

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

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