Browse CVS Repository
Contents of /gikonavigoeson/gikonavi/Splash.pas
Parent Directory
| Revision Log
| 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. |
| |