喫茶XRAYトップページ

[スレッド全体
]

[1398] 画像のサムネイル表示返信 削除
2007/8/31 (金) 19:12:37 Mr.XRAY
▼ Syakeさん

なんか私のレスに惑されることになってしまったようですね。
過去に挫折した経験があるので、機会があればSyakeさんのコードを
拝借し、挑戦してみたいと思っています。

画像に限らず、サムネイルの表示は難しそうです。数個程度なら速度は気に
する必要はなさそうですが、数が多くなると。
やはり速度はほしいですからね。


[1454] Re:画像のサムネイル表示返信 削除
2007/11/15 (木) 19:47:21 Mr.XRAY
▼ Syakeさん

> 過去に挫折した経験があるので、機会があればSyakeさんのコードを
> 拝借し、挑戦してみたいと思っています。


自前でサムネイル表示に挑戦しようと思いやってみました.
nanaさんのDLしたら,あれっ?!

「インデックスが範囲を...」

で,Syakeさんのコードでやってみました.表示されました.
これから時間をみて,少しずついろいろやってみようと思います.

※ nanaさんのとは,以下のものです.
http://www1.cncm.ne.jp/~ogawate/delphi/samples/thumbnail/08.html

動作確認環境 WindowsXP(SP2) + Delphi7 Pro


[1455] Re2:画像のサムネイル表示返信 削除
2007/11/16 (金) 15:57:02 Syake
▼ Mr.XRAYさん
> ※ nanaさんのとは,以下のものです.
> http://www1.cncm.ne.jp/~ogawate/delphi/samples/thumbnail/08.html


私の場合、TStringListの多用はメモリーを多く消費すると言う事を
どこかで見ましたのでそこら辺からとりかかりました。
それと、サムネイルをファイルに保持して高速化を図りました。
って、聴こえは良いですが実のところ画像が追加された場合が面倒な
ので中途半端で終わっちゃってます(^_^;)

[1457] Re3:画像のサムネイル表示返信 削除
2007/11/24 (土) 10:32:16 Mr.XRAY
▼ Syakeさん

> 私の場合、TStringListの多用はメモリーを多く消費すると言う事を

そうですね.確かにPCのリソースが少ない時代は.私,多用しています.
今はメモリも豊富ですし...  (^_^)

で,エクスプローラの[縮小版]機能のサムネイルのサンプル作成しました.

http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/T_ExplThumbnail.htm

(1) XPMan使用時の問題
OnData内でItemを操作すると[インデックス...]となるようです.

(2) スレッド使用時に縮小画像のビットマップがnilになる問題
同一スレッド内に,この縮小画像取得のコード(特にIMalloc関係)を
記述すると取得可能となるようです.

ということのようです.
例によって細かい動作仕様(バグ?)と,誤字脱字はご容赦下さいませ.


[1458] Re4:画像のサムネイル表示返信 削除
2007/11/24 (土) 10:37:18 Mr.XRAY
> そうですね.確かにPCのリソースが少ない時代は.私,多用しています.
> 今はメモリも豊富ですし...  (^_^)


TList関係で文字列を扱うと,当然同じ意味でリソースを喰うのではない
かと思われます.
サムネイルのサンプルでも,TComponentListを使用していますので,
TListよりもリソース使いますね.(^_^;

まっ,動けば正義ということで...

[1459] Re3:画像のサムネイル表示返信 削除
2007/11/24 (土) 11:18:54 Mr.XRAY
▼ Syakeさん

> って、聴こえは良いですが実のところ画像が追加された場合が面倒な

サポートしました.
http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/T_ExplThumbnail.htm#03

のリスト3で,btnRefreshボタンが[最新の情報に更新]用です.
メソッド名は,RefreshThumbnailList です.

このメソッドでは,まず存在しない(削除されている)ファイルを検索し,
次にリストにないファイルを追加しています.
描画自体は追加ファイル分のみですので,時間がかかるのはこの追加分
だけです.もっとも,追加分が多いと... (苦笑)

(検索しながら削除,追加でもいいんですが...)

[1460] Re4:画像のサムネイル表示返信 削除
2007/11/29 (木) 16:49:42 Syake
▼ Mr.XRAYさん

ListView1CustomDrawItem
        FileName := FThumbList.Items[Item.Index].FileName;
        TextRect := Item.DisplayRect(drLabel);
        DrawText(Canvas.Handle,PChar(FileName),-1,TextRect,DT_CENTER);
end;


[1461] Re5:画像のサムネイル表示返信 削除
2007/11/29 (木) 17:01:49 Syake
▼ Mr.XRAYさん
間違えて送信してしまいましたm(__)m

見ぬ間に激進ですね。
さすがでございます。
>サポートしました.
>http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/T_ExplThumbnail.htm#03

勉強させていただきますです。


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82