'********************************************
'くっきー作
'ロゴを表示するルーチン。
'
'********************************************
'このルーチンは、ロゴを表示するための物です。
'********************************************
'
'下準備として、まずロゴの絵をプログラムのあるフォルダ
'（ディレクトリ）に「logo.bmp」という名前で保存して下さい。」
'
'[リソース−新規作成]で、
'「form2」を作って下さい。
'そして、プロパティーで縦横サイズをロゴの縦横＋６くらいとあわせ、
'テキストを「form2」から「ソフトの名前」へ。
'フレームの種類を「ダイアログフレーム」に。
'タイトルバーを「なし」に、
'可視を「なし」にして下さい。
'
'また、メインフォームの
'可視も「なし」にして下さい。
'
'それで準備ＯＫです。
'あとは実行すれば、ロゴが表示されます。
'********************************************
'☆コツ
'ビットマップは大変容量が大きくなるので、
'256色ぐらいにした方がよいでしょう。
'ペイントの場合、保存するときに下の
'24ビット　ビットマップを
'多少が質が落ちますが、256色に変えたほうが効率的です。
'********************************************

#include "WINDOWS.BI"


SETMOUSEPOINTER 2

var shared FLOGO as object
BITMAPOBJECT FLOGO

'*****************************
'FLOGO.LOADRESOURCE "logo"
'リソースとして、ロゴを登録したら上の命令文と下の命令文を
'入れ替えて下さい。
FLOGO.LOADFILE "logo.BMP"
'*****************************


var shared LOGO as object
LOGO.CREATEWINDOW "form2",0

LOGO.DRAWBITMAP FLOGO,0,0
'ディスプレイの幅高さを獲得する。
W_DISPLAY=GETDEVICECAPS( 8) ' 単位dot
H_DISPLAY=GETDEVICECAPS(10) ' 単位dot
'ウィンドウの幅高さを獲得する。
W_WINDOW=LOGO.GETWIDTH  ' 単位dot
H_WINDOW=LOGO.GETHEIGHT ' 単位dot
'ウィンドウのセンタリングする。
X=(W_DISPLAY-W_WINDOW)/2
Y=(H_DISPLAY-H_WINDOW)/2
LOGO.MOVEWINDOW X, Y
'ウィンドウを書く
LOGO.SHOWWINDOW -1

'*******************************
'ここに、始まる前の処理を入れておく
'システムカラーと使うルーチンなど
'*******************************
'
'ロゴの表示時間
wait 100

SHOWWINDOW -1

'メインのウィンドウができあがるまで、
'ロゴを表示し続ける。
wait 100

LOGO.SHOWWINDOW 0
LOGO.DESTROYWINDOW
SETACTIVEWINDOW
SETMOUSEPOINTER 0

'*****************************************
'ここより下に普通のルーチンを書く。
'