#contents
[[English site is here.:http://github.com/toooooooby/o3-layered-window-for-delphi/wikis]]

*はじめに [#m4623262]

レイヤードウインドウが簡単に作ることができるDelphi用ライブラリ
のはず。

#ref(http://github.com/toooooooby/o3-layered-window-for-delphi/tree/master/documents/images/screenshot01.jpg?raw=true,nolink)

githubにて開発中。

toooooooby's o3-layered-window-for-delphi at master — GitHub
http://github.com/toooooooby/o3-layered-window-for-delphi/tree/master

*使い方 [#oca5bc49]
まずは、usesします。(GDIPlusを使う例なので、GDIPlusのunitもuses しています)

  uses
    :
    O3LayeredWindowUnit, GDIPAPI, GDIPOBJ;

適用したいFormで以下のように宣言します
#pre{{
private
   :
  FLayeredWindow: TO3LayeredWindow;
}}
Formのコンストラクターなどで以下のように生成して適用します。

#code(delphi){{
constructor TMyForm.Create;
var
  Graphics: TGPGraphics;
  Image: TGPImage;
begin
  FLayeredWindow := TO3LayeredWindow.Create(Self);
  FLayeredWindow.Parent := Self;

  // TO3LayeredWindow.Surface:TBitmapを弄る
  // 以下はGDIPlus(GDI+)を使う例
  Graphics := nil; Image := nil;
  try
    Image := TGPImage.Create('test.png');
    FLayeredWindow.Surface.SetSize(
      Image.GetWidth, Image.GetHeight);
    Graphics := TGPGraphics.Create(
      FLayeredWindow.Surface.Canvas.Handle);
    Graphics.Clear(aclTransparent);
    Graphics.DrawImage(Image, 0, 0);
  finally
    FreeAndNil(Image); 
    FreeAndNil(Graphics);
  end;

  // TO3LayeredWindow.Surface を弄ったら UpdateLayerで表示
  FLayeredWindow.UpdateLayer;
end;
}}

一応コンポーネントなので開放は自動です。

*ダウンロード [#rd392162]
#ref(http://tobysoft.net/archives/delphi/O3LayeredWindowForDelphi-1.0.0.zip)

*謝辞 [#dba9be6c]

サンプルには以下が含まれています。
-gdiplus http://www.progdigy.com
-jedi.inc http://www.delphi-jedi.org

以下のサイトを参考にしました。

-Alpha Blended Splash Screen in Delphi - Part 2 | MelanderBlog
http://melander.dk/articles/alphasplash2/2/
-LayeredWindow.zip
http://gusuku.michikusa.jp/

*ライセンス [#a9841a63]

MPL 1.1
Mozilla Public License version 1.1
http://www.mozilla.org/MPL/MPL-1.1.html

*TODO [#lfd98467]
-google code projectにプロジェクトページを立てる

*history [#z2be39c6]
-[[1.0.0:http://tobysoft.net/archives/delphi/O3LayeredWindowForDelphi-1.0.0.zip]] 最初のリリース


----
#pcomment(,reply)
Front page   New Pages Search Recent changes   Help   RSS of recent changes