2022-07-16 09:39:42
Re②:ファイルリストとイメージリストの相互選択
いつもお世話になっております。 今回もご叮寧にありがとうございます。 私の情報不足・力量不足で失礼しました。 いただきましたアドバイスをもとに、現在作成中のコードから切り抜いて、ダイジェスト版を作成してみました。 (切り貼りで作成したためご容赦ください) 写真メモリスとイメージビューの連携は、お陰様で出来ました。 ありがとうございます。 しかしながら、上下のキーでの操作ができなくなる または、イメージビューの選択状態が外れる といった癖はあります(アドバイスの通りですが) 可能であれば、さらなる改良・アドバイスをいただければと幸いでございます。 よろしくお願いいたします。 #ここから-------------------------------------------------------- もし、デスクトップW>=1920ならば、 DTW=1920 違えば、 DTW=デスクトップW もし、デスクトップH>=1080ならば、 DTH=1080 違えば、 DTH=デスクトップH 母艦について H=20。X=600。Y=0。W=DTW-母艦のX。 #----------------------------------------------------------------------- TODOフォームとはフォーム これについて 可視はオン W=260。H=1000。X=DTW-W。Y=母艦のH。 TOH=TODOフォームのH TOW=TODOフォームのW #----------------------------------------------------------------------- サムネイルフォームとはフォーム これについて 可視はオン W=母艦のW-TODOフォームのW。H=TODOフォームのH/2。X=母艦のX。Y=母艦のH 記録画ビューワフォームとはフォーム これについて 可視はオン W=母艦のW-TODOフォームのW。H=DTH-母艦のH-サムネイルフォームのH-40。X=母艦のX。Y=母艦のH+サムネイルフォームのH IMGとはイメージ。 これについて 親部品は記録画ビューワフォーム レイアウトは全体。 #----------------------------------------------------------------------- 写真メモリストとはリスト これについて 親部品はTODOフォーム 文字書体は「MS ゴシック|10|細字」 W=TOW-10。H=TOH/2-7。X=5。Y=5 写真メモリストアップ処理 クリックした時は~ 対象ファイルは写真メモリストのテキスト それを元名に代入 元名=「{元名}.jpg」 メモ写真描画処理 イメージビューの値=写真メモリストの値。# 値を合わせる。 イメージビューを注目。# リストビューは注目しないと選択状態が見えない。 #----------------------------------------------------------------------- サムネイル用とはイメージ 対象フォルダ=「{母艦パス}Memo画像\」 G=「{対象フォルダ}*.jpg;*.jpeg」の全ファイル列挙。 対象フォルダ&「*.jpg;*.jpeg」のファイル列挙して反復 サムネイル用の画像は対象フォルダ&対象。 サムネイル用を100,100で画像比率変えず中央リサイズ。 対象フォルダ&「サムネイル用\」にフォルダ作成。 サムネイル用を「{対象フォルダ}サムネイル用\{対象}」へ画像保存。 T=「{対象フォルダ}サムネイル用\」&「*.jpg;*.jpeg」の全ファイル列挙。 画像リストとはイメージリスト これについて 画像W=100。画像H=100 Tを反復して対象を追加 イメージビューとはリストビュー これについて 親部品はサムネイルフォーム レイアウトは全体 背景色は黒色 文字色は白色 画像リストを画像設定 Tを反復 「,ビュー{回数},{対象からファイル名抽出},{回数-1}」を一括追加 クリックした時は~ エラー無視 写真メモリストの値=イメージビューの値。 対象ファイルはイメージビューのテキスト それを元名に代入 メモ写真描画処理 母艦の閉じた時は~ 「{対象フォルダ}サムネイル用」のファイル完全削除 #----------------------------------------------------------------------- ●写真メモリストアップ処理 LIST1=配列。LIST=配列 LIST1=""。LIST="" 「{母艦パス}Memo画像\*.jpg;.JPG」をファイル列挙して反復 仮画表=それ 仮画表&改行をLIST1へ追加 仮画表の拡張子抽出 仮画表を""に拡張子変更 それ&改行をLISTへ追加 写真メモリストのアイテムはLIST ●メモ写真描画処理 黒で画面クリア 描画処理反映 IMGの画像は「{母艦パス}Memo画像\{元名}」 IMGを記録画ビューワフォームのW,記録画ビューワフォームのHで画像比率変えず中央リサイズ IMGを記録画ビューワフォームの0,0へ画像コピー 描画処理反映 |