バシバシ消せる画像ビューア JunkCrusher > たたき台

history TOP

2008/03/10:作成

download TOP

注意：最新版はかなり怪しいです。で、次の機能を付け加えながら気づいたところを修正するわけですが、新しい機能の不具合も一緒に付け加えるわけで。なので、ダウンロードできるファイルはすべて怪しいです。

はじめに TOP

これまでずーっと画像ビューアに、IrfanView を使ってきました。今でも最新版を追いかけています。自分の必要な範囲ではほぼ無敵です。速いし。見たこともない形式にも対応してるし。

ただ、たった一つ気に入らない点があります。今見ている画像があって、その画像が入っているフォルダがいらないときってありますか? あります。しかし IrfanView は表示中の画像が入っているフォルダを「つかむ」らしくて消させてくれません。おまけにもうその画像を見ていないときでも「つかみ」っぱなしのときさえあります。

別に消さないならいいんです。でも消したいんです。

このプログラムの想定する環境 TOP

それはこんな感じです。

画像が複数入っているフォルダがある。たとえていうと一話分ぐらいの漫画の画像とか。たとえですけど。
そういうフォルダがたくさんある。
結構なペースでそういうフォルダが増える。
増えるばっかりでも困るので、消していきたい。
消すときはフォルダ単位で、消していきたい。
中に入っている画像を見て、消すかどうかをきめたい。
楽にやりたい。エクスプローラとビューアを切替ながらなんてのはいやだ。

そういうことです。いつものことながら探せばいくらでもありそうですけど。

利用したもの TOP

画像を表示するのはいいんですが、アプリケーション以外に DLL などはできるだけ使いたくないなぁと。で、Windows の 2000 か XP から利用できる GDI+ をかつてやってみようと思ったんですが...あっちゅうまにくじけました。その代わりに、Delphi で使えるようにいい感じにしてくれてる unit を見つけました。

http://www.progdigy.com

ここ(だったと思うんですが)からダウンロードできる gdiplus.zip(1,170,664bytes/サイズは当時のもの) を展開してできるいくつかのファイルのうち、

DirectDraw.pas
DirectX.inc
GDIPAPI.pas
GDIPOBJ.pas
GDIPUTIL.pas
Jedi.inc

を、プロジェクトフォルダに置いて、くちゃくちゃとやると、.png や .gif など Delphi 標準では表示の面倒な画像をパチャッと表示できるようになります。

参考までに、こんな感じです。いったんメモリ上に書き込んでから PaintBox に書き出していますが、流れは簡単です。TGPgraphics と Canvas を関連付け。TGPImage とファイルを関連付け。TGPgraphics に TGPImage を DrawImage する。以上の3ステップです。

少し躓いたのは、毎回 Create/Free をやらないとだめみたい、という点です。少なくとも TGPgraphics だけでも生成/破棄の回数を減らしたくなるのが人情ですが、だめみたいです。

uses
    GDIPOBJ, GDIPAPI;

//-----------------------------------------------------------------------------
//  画像描画
procedure TForm2.PaintBoxPaint(Sender: TObject);
var
    LFileName: String;
    LBox: TPaintBox;
    LGPImage: TGPImage;
    LGraphics: TGPGraphics;
    LHeight: Integer;
    LWidth: Integer;
begin
    LFileName := Self.Caption;

    LBox := TPaintBox(Sender);
    //  背景クリア
    FBitmap.Canvas.FillRect(LBox.ClientRect);
    //  ファイルの存在チェック
    if (FileExists(LFileName)) then
    begin
        //  GDI+ クラスに読み込ませる
        LGraphics := TGPgraphics.Create(FBitmap.Canvas.Handle);
        LGPImage := TGPImage.Create(LFileName);
        //  画像ファイルなら
        if (LGPImage.GetType = ImageTypeBitmap) then
        begin
            //  画像高さ
            LHeight := LGPImage.GetHeight;
            //  画像幅
            LWidth := LGPImage.GetWidth;
            //  原寸
            LGraphics.DrawImage(LGPImage, 0, 0, LWidth, LHeight);
        end;
        LGPImage.Free();
        LGraphics.Free();
    end;
    //  画面に転送
    BitBlt(LBox.Canvas.Handle, 0, 0, LBox.Width, LBox.Height,
            FBitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;

スクリーンショット TOP

起動したところです。左・中・右のうっとうしい三分割画面です。
タイトルバー：今いるフォルダです。
左：そのフォルダのサブフォルダの一覧です。
中：サブフォルダ一覧で選択されているフォルダの中に入っているファイル一覧です。
右：ファイル一覧で選択されているファイルが画像なら描画します。全体が入るように縮小します。

フォルダ一覧で、適当なフォルダまで移動して「Enter」キーで中に入れます(面倒だったので、マウスのダブルクリックとかでは入れません)。
このとき「+」マークの付いているフォルダはサブフォルダがあることを表現しているんですが、サブフォルダがあるフォルダだけに入れます。右にファイルの一覧を表示しているので、サブフォルダがないフォルダには入る必要がないんです。
逆に、一階層フォルダをあがる場合は「BkSpace」です。