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.8.1 - (show annotations) (download) (as text)
Sat Jun 11 04:47:27 2005 UTC (18 years, 10 months ago) by h677
Branch: remodeling
CVS Tags: v1_50_0_581, v1_50_0_580, v1_50_0_587, v1_50_0_586, v1_50_0_585, v1_50_0_582, v1_50_0_588, v1_50_0_584
Changes since 1.2: +0 -7 lines
File MIME type: text/x-pascal
隠蔽行の削除

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 ' + BETA_VERSION_NAME_J
52 + FloatToStr(BETA_VERSION)
53 + BETA_VERSION_BUILD;
54 try
55 FileName := GikoSys.GetAppDir + 'gikoNavi.bmp';
56 if FileExists(FileName) then begin
57 SplashImage.Picture.LoadFromFile(FileName);
58 ClientHeight := SplashImage.Picture.Height + ProgressPanel.Height;
59 ClientWidth := SplashImage.Picture.Width;
60 end;
61 except
62 end;
63 end;
64
65 initialization
66 SplashWindow := TSplashWindow.Create(nil);
67 SplashWindow.Show;
68 SplashWindow.Update;
69 end.

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