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.2 - (show annotations) (download) (as text)
Sat Jul 2 11:43:20 2005 UTC (18 years, 9 months ago) by h677
Branch: Bb50
CVS Tags: v1_50_2_606, v1_50_0_595, v1_50_0_598, v1_50_0_593, v1_50_0_596, v1_50_0_603, v1_50_0_604, v1_50_0_606, b50, v1_50_0_600, v1_50_2_604, v1_50_0_594, v1_50_0_602, v1_50_0_601, v1_50_0_605, v1_50_0_599
Changes since 1.6.2.1: +8 -0 lines
File MIME type: text/x-pascal
Clipboardへのコピーボタンを追加

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

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