Browse CVS Repository
Contents of /gikonavigoeson/gikonavi/Splash.pas
Parent Directory
| Revision Log
| Revision Graph
Revision 1.2 -
( show annotations)
( download)
( as text)
Sat Aug 9 14:22:51 2003 UTC
(20 years, 8 months ago)
by yoffy
Branch: MAIN
CVS Tags: b49, b48, v1_50_0_572, bv1_49_0_564, bv1_49_0_563, v1_50_0_557, b37, v1_49_0_548, c33_4, v1_49_0_540, v1_49_0_542, v1_49_0_545, v1_49_0_544, v1_49_0_547, b47, b34, b35, b36, v1_48_0_530, b44, v1_49_0_554, v1_50_0_577, b41, v1_49_0_551, b40, v1_48_0_510, bv1_49_0_565, b43, v1_48_0_535, v1_49_0_552, v1_50_0_574, v1_49_0_553, v_step1, v1_49_0_546, v1_50_0_573, v1_48_0_539, v1_48_0_538, b46, v1_48_0_533, v1_50_0_571, v1_48_0_537, v1_49_2_569, v1_50_0_576, v1_50_0_578, v1_50_0_579, v1_48_0_536, root-of-remodel, v1_49_0_541, v1_50_0_561
Branch point for: remodeling, BRANCH_TORA, Bb49, stable
Changes since 1.1: +1 -1 lines
File MIME type: text/x-pascal
・Windows 95 でもお気に入りが使えるようになった。
・ツールバーを右クリックすることで表示/非表示が行えようになった。
・ツールバーから絞込検索ができるようになった。
・「ログ有りのスレッドのみを表示する」「新着スレッドの未表示する」の各ボタンと絞込み検索が And 検索になった。
・レスのプレビューでトリップが確認できるようになった。
・ギコナビは Delphi 6 Personal でビルドできるようになった。
| 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 |
+ FloatToStr(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. |
| |