Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/Splash.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:51 2003 UTC (20 years, 8 months ago) by yoffy
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, c33_4, v1_49_0_540, v1_49_0_542, v1_49_0_545, v1_49_0_544, v1_49_0_547, b47, b34, b35, b36, 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.1: +1 -1 lines
File MIME type: text/x-pascal
・Windows 95 でもお気に入りが使えるようになった。
・ツールバーを右クリックすることで表示/非表示が行えようになった。
・ツールバーから絞込検索ができるようになった。
・「ログ有りのスレッドのみを表示する」「新着スレッドの未表示する」の各ボタンと絞込み検索が And 検索になった。
・レスのプレビューでトリップが確認できるようになった。
・ギコナビは Delphi 6 Personal でビルドできるようになった。

1 unit Splash;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 StdCtrls, ComCtrls, ExtCtrls,
8 GikoSystem;
9
10 type
11 TSplashWindow = class(TForm)
12 ProgressPanel: TPanel;
13 VersionLabel: TLabel;
14 ProgressBar: TProgressBar;
15 SplashImage: TImage;
16 procedure FormDeactivate(Sender: TObject);
17 procedure FormCreate(Sender: TObject);
18 private
19 { Private ?辿?転 }
20 protected
21 procedure CreateParams(var Params: TCreateParams); override;
22 public
23 { Public ?辿?転 }
24 end;
25
26 var
27 SplashWindow: TSplashWindow;
28
29 implementation
30
31 {$R *.DFM}
32
33 procedure TSplashWindow.CreateParams(var Params: TCreateParams);
34 begin
35 inherited;
36 // Params.Style := Params.Style or WS_THICKFRAME;
37 // Params.ExStyle := Params.ExStyle or WS_EX_DLGMODALFRAME;
38 Params.Style := Params.Style or WS_DLGFRAME;
39 end;
40
41 procedure TSplashWindow.FormDeactivate(Sender: TObject);
42 begin
43 Release;
44 SplashWindow := nil;
45 end;
46
47 procedure TSplashWindow.FormCreate(Sender: TObject);
48 var
49 FileName: string;
50 begin
51 // VersionLabel.Caption := 'Version ' + VERSION + ' ' + VERSION_TYPE;
52 { VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
53 + Format('%.2d', [MINOR_VERSION]) + ' '
54 + BETA_VERSION_NAME_J
55 + IntToStr(BETA_VERSION)
56 + BETA_VERSION_BUILD;
57 }
58 VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
59 + FloatToStr(BETA_VERSION)
60 + BETA_VERSION_BUILD;
61 try
62 FileName := GikoSys.GetAppDir + 'gikoNavi.bmp';
63 if FileExists(FileName) then begin
64 SplashImage.Picture.LoadFromFile(FileName);
65 ClientHeight := SplashImage.Picture.Height + ProgressPanel.Height;
66 ClientWidth := SplashImage.Picture.Width;
67 end;
68 except
69 end;
70 end;
71
72 initialization
73 SplashWindow := TSplashWindow.Create(nil);
74 SplashWindow.Show;
75 SplashWindow.Update;
76 end.

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