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 - (show annotations) (download) (as text)
Thu Sep 4 08:22:06 2003 UTC (20 years, 7 months ago) by h677
Branch: MAIN
CVS Tags: b49, b48, v1_50_0_572, bv1_49_0_564, bv1_49_0_563, v1_50_0_557, b37, v1_49_0_548, v1_49_0_540, v1_49_0_542, v1_49_0_545, v1_49_0_544, v1_49_0_547, b47, v1_48_0_530, b44, v1_49_0_554, v1_50_0_577, b41, v1_49_0_551, b40, v1_48_0_510, bv1_49_0_565, b43, v1_48_0_535, v1_49_0_552, v1_50_0_574, v1_49_0_553, v_step1, v1_49_0_546, v1_50_0_573, v1_48_0_539, v1_48_0_538, b46, v1_48_0_533, v1_50_0_571, v1_48_0_537, v1_49_2_569, v1_50_0_576, v1_50_0_578, v1_50_0_579, v1_48_0_536, root-of-remodel, v1_49_0_541, v1_50_0_561
Branch point for: remodeling, BRANCH_TORA, Bb49, stable
Changes since 1.2: +1 -1 lines
File MIME type: text/x-pascal
コンパイル時に[警告][ヒント]がなるべく出ないように修正。

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 var
66 build: string;
67 bnum: Integer;
68 begin
69 bnum := GikoSys.GetVersionBuild;
70 if bnum > 0 then
71 build := 'Build ' + IntToStr(bnum);
72 { VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
73 + Format('%.2d', [MINOR_VERSION]) + ' '
74 + BETA_VERSION_NAME_J
75 + IntToStr(BETA_VERSION)
76 + BETA_VERSION_BUILD + ' '
77 + build;
78 }
79 VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
80 + FloatToStr(BETA_VERSION)
81 + BETA_VERSION_BUILD + ' '
82 + build;
83 // Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
84
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;
93 // FCnt := 0;
94 // Randomize;
95 end;
96
97
98 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
99 begin
100 GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
101 end;
102
103 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
104 begin
105 GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
106 end;
107
108 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
109 begin
110 GikoSys.OpenBrowser(URL_365CC, gbtAuto);
111 end;}
112
113 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
114 begin
115 Timer2.Interval := 3000;
116 Label5.Caption := ST[FCnt];
117 inc(FCnt);
118 if FCnt > (Length(ST) - 1) then FCnt := 0;
119 end;}
120
121 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
122 begin
123 ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
124 end;}
125
126 procedure TAboutDialog.FormClose(Sender: TObject;
127 var Action: TCloseAction);
128 begin
129 // AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
130 // sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
131 end;
132
133 {procedure TAboutDialog.Image1Click(Sender: TObject);
134 var
135 hResInfo: HRSRC;
136 hglb: HGLOBAL;
137 FRes: Pointer;
138 begin
139 Timer2.Enabled := False;
140 Timer1.Enabled := True;
141 Refresh;
142 hResInfo := FindResource(HInstance, '#101', 'WAVE');
143 hglb := LoadResource(HInstance, hResInfo);
144 FRes := LockResource(hglb);
145 sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
146
147 end;}
148
149 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
150 begin
151 Canvas.Brush.Style := bsClear;
152 Canvas.Font.Color := Random($FFFFFF);
153 Canvas.Font.Size := Random(30);
154 Canvas.TextOut(Random(Width), Random(Height), '?l?^????');
155
156 end;}
157
158 end.

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