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.1 - (show annotations) (download) (as text)
Sat Aug 9 13:51:12 2003 UTC (20 years, 8 months ago) by hi_
Branch: MAIN
Branch point for: hi
File MIME type: text/x-pascal
Initial revision

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