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.3 - (hide 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 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 ' + BETA_VERSION_NAME_J
52 yoffy 1.2 + FloatToStr(BETA_VERSION)
53 hi_ 1.1 + 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