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.4 - (hide annotations) (download) (as text)
Sat Oct 6 05:27:27 2007 UTC (16 years, 6 months ago) by h677
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_59_0_778, v1_63_1_819, v1_57_0_737, v1_62_0_812, v1_57_0_735, v1_57_0_739, v1_57_0_738, v1_59_1_765, v1_60_0_788, v1_60_0_789, v1_58_0_748, v1_58_0_745, v1_60_0_781, v1_60_0_782, v1_58_0_746, v1_60_0_784, v1_60_0_786, v1_60_0_787, v1_59_0_767, v1_59_1_778, v1_59_0_768, v1_59_0_769, v1_57_1_744, v1_57_0_736, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_61_0_796, v1_61_0_797, v1_61_0_795, v1_61_0_798, v1_61_0_799, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_62_0_805, v1_62_0_804, v1_62_0_807, v1_62_0_806, v1_62_0_803, v1_62_0_802, v1_62_0_809, v1_60_0_780, v1_60_0_779, v1_62_0_810, v1_62_0_811, v1_58_0_747, v1_60_0_783, v1_59_2_785, v1_60_1_793, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_62_1_813, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_57_0_744, v1_61_0_800, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794, v1_61_1_801, HEAD
Branch point for: Bb57, Bb62, Bb63, Bb60, Bb61, Bb59, Bb58
Changes since 1.3: +4 -2 lines
File MIME type: text/x-pascal
外部からのD&DをListViewだけが受け取るように修正。
デストラクタの修正

1 hi_ 1.1 unit Splash;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 h677 1.4 StdCtrls, ComCtrls, ExtCtrls;
8 hi_ 1.1
9     type
10     TSplashWindow = class(TForm)
11     ProgressPanel: TPanel;
12     VersionLabel: TLabel;
13     ProgressBar: TProgressBar;
14     SplashImage: TImage;
15     procedure FormDeactivate(Sender: TObject);
16     procedure FormCreate(Sender: TObject);
17     private
18     { Private ?辿?転 }
19     protected
20     procedure CreateParams(var Params: TCreateParams); override;
21     public
22     { Public ?辿?転 }
23     end;
24    
25     var
26     SplashWindow: TSplashWindow;
27    
28     implementation
29    
30 h677 1.4 uses
31     GikoSystem;
32    
33 hi_ 1.1 {$R *.DFM}
34    
35     procedure TSplashWindow.CreateParams(var Params: TCreateParams);
36     begin
37     inherited;
38     // Params.Style := Params.Style or WS_THICKFRAME;
39     // Params.ExStyle := Params.ExStyle or WS_EX_DLGMODALFRAME;
40     Params.Style := Params.Style or WS_DLGFRAME;
41     end;
42    
43     procedure TSplashWindow.FormDeactivate(Sender: TObject);
44     begin
45     Release;
46     SplashWindow := nil;
47     end;
48    
49     procedure TSplashWindow.FormCreate(Sender: TObject);
50     var
51     FileName: string;
52     begin
53     VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
54 yoffy 1.2 + FloatToStr(BETA_VERSION)
55 hi_ 1.1 + BETA_VERSION_BUILD;
56     try
57     FileName := GikoSys.GetAppDir + 'gikoNavi.bmp';
58     if FileExists(FileName) then begin
59     SplashImage.Picture.LoadFromFile(FileName);
60     ClientHeight := SplashImage.Picture.Height + ProgressPanel.Height;
61     ClientWidth := SplashImage.Picture.Width;
62     end;
63     except
64     end;
65     end;
66    
67     initialization
68     SplashWindow := TSplashWindow.Create(nil);
69     SplashWindow.Show;
70     SplashWindow.Update;
71     end.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26