Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/Splash.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1.1.1 - (hide annotations) (download) (as text) (vendor branch)
Sat Aug 9 13:51:12 2003 UTC (20 years, 8 months ago) by hi_
Branch: hi
CVS Tags: b33
Changes since 1.1: +0 -0 lines
File MIME type: text/x-pascal
ソキオャコ?ョ

1 hi_ 1.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     + IntToStr(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