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.3 - (show annotations) (download) (as text)
Fri Jun 10 14:02:12 2005 UTC (18 years, 10 months ago) by h677
Branch: MAIN
CVS Tags: v1_56_0_715, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_731, v1_57_0_730, v1_50_2_606, v1_51_0_612, v1_51_1_639, v1_53_0_671, v1_50_0_595, v1_54_0_677, v1_54_0_676, marged-Bb50, v1_54_0_678, v1_56_0_707, v1_56_0_705, v1_56_0_704, v1_56_0_703, v1_56_0_702, v1_56_0_701, v1_56_0_700, v1_51_0_626, v1_57_0_723, b51, v1_52_1_658, v1_51_0_622, v1_50_0_598, v1_57_0_725, v1_57_0_726, v1_57_0_727, v1_57_0_720, v1_57_0_722, v1_50_0_590, v1_50_0_593, v1_57_0_728, v1_57_0_729, v1_50_0_596, v1_52_0_646, v1_51_0_611, v1_51_0_620, v1_52_0_644, v1_52_0_643, v1_57_0_719, v1_57_0_718, v1_56_0_716, v1_54_0_687, v1_56_0_710, v1_56_0_711, v1_56_1_717, v1_56_1_716, v1_51_0_634, v1_51_0_635, v1_51_0_636, v1_51_0_637, v1_54_0_688, v1_54_0_689, v1_51_0_632, v1_51_0_633, v1_50_0_603, v1_54_0_684, v1_54_0_685, v1_53_0_664, v1_52_0_647, v1_50_0_604, v1_51_0_638, v1_52_0_648, v1_53_0_661, v1_53_0_663, v1_53_0_662, v1_53_0_665, v1_53_0_667, v1_53_0_666, v1_53_0_669, v1_53_0_668, v1_55_0_692, v1_55_0_693, v1_55_0_696, v1_55_0_697, v1_55_0_694, v1_55_0_695, merged-remodeling, v1_52_0_645, v1_52_0_651, v1_54_1_691, v1_52_0_650, v1_56_2_724, v1_50_0_606, v1_56_2_722, v1_52_0_652, v1_55_1_697, v1_52_0_642, v1_52_0_654, v1_51_0_616, v1_56_0_714, v1_51_0_614, v1_51_0_615, v1_53_0_672, v1_51_0_613, v1_53_0_670, v1_51_1_640, v1_54_0_686, v1_51_0_618, v1_51_0_619, v1_54_0_680, v1_54_0_681, b50, v1_56_0_712, v1_56_0_713, v1_54_0_682, v1_56_0_721, v1_50_0_600, v1_51_0_630, v1_54_0_683, v1_51_0_631, root-of-draw, v1_54_0_679, marged_bRESPOPUP, v1_50_2_604, v1_54_0_675, v1_51_0_628, v1_51_0_617, root-of-Bb50, root-of-Bb51, v1_56_0_706, root-of-Bb53, v1_50_0_594, v1_52_1_657, v1_54_0_674, v1_52_0_660, v1_50_0_602, v1_51_0_629, v1_54_0_690, v1_51_0_627, v1_50_0_601, v1_51_0_625, v1_51_0_623, v1_50_0_605, v1_52_0_655, v1_56_0_709, v1_52_0_656, v1_56_0_708, v1_52_0_649, v1_53_1_673, v1_50_0_599, v1_56_0_699, v1_56_0_698, v1_51_0_624, v1_51_1_641, v1_51_0_621
Branch point for: Bb56, Bb55, Bb53, Bb52, Bb51, Bb50, bRESPOPUP, bListSU, Bb54, Bdraw
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