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.2 - (show annotations) (download) (as text)
Sat Aug 9 14:22:48 2003 UTC (20 years, 8 months ago) by yoffy
Branch: MAIN
CVS Tags: c33_4, b34, b35, b36
Changes since 1.1: +42 -53 lines
File MIME type: text/x-pascal
・Windows 95 でもお気に入りが使えるようになった。
・ツールバーを右クリックすることで表示/非表示が行えようになった。
・ツールバーから絞込検索ができるようになった。
・「ログ有りのスレッドのみを表示する」「新着スレッドの未表示する」の各ボタンと絞込み検索が And 検索になった。
・レスのプレビューでトリップが確認できるようになった。
・ギコナビは Delphi 6 Personal でビルドできるようになった。

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 絎h? }
27 FCnt: Integer;
28 public
29 { Public 絎h? }
30 end;
31
32 var
33 AboutDialog: TAboutDialog;
34
35 implementation
36
37 const
38 ST: array[0..10] of string =
39 ('????茗???罸?墾?????????????????障????茗????',
40 '???ゃ?????????障?????純?若?鴻?????????????????????????????障??',
41 '?≪?ゃ?潟?潟?????????????????篏????≪?ゃ?潟?潟??篏帥?c???????障??',
42 'gzip?潟?潟???若???潟???????<??????篏?????篏帥?c???????障??',
43 '???桁????????ane篏???????????篏帥?c???????障??',
44 'Dolib?∫?c??ax????篏?????篏帥?c???????障??',
45 'Dolib???拷??????????kage篏??????????純?若?鴻?????????????????障??',
46 '???ゃ??Del?鴻???с???泣???潟?????????????????c???障??',
47 '???????????純?若?鴻?????????????????障??',
48 '???潟?????鴻???с?????若?吟???鴻??????障???????????障??',
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 = '???潟?????????若??#39;;
56 // TIP_MONAZILLA: string = '2ch?????????吟??篏????????????泣?ゃ??' + #13#10
57 // + '???潟???????障?????????c???障??';
58 // TIP_365CC: string = '2ch???c?????????茖巡??????????????????若??#39; + #13#10
59 // + '???潟?????с?????????????????c???障????';
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), '???水????');
155
156 end;}
157
158 end.

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