program wallaw; { vcaptの壁紙設定フォームから。 課題 ・画像の位置調整の詳細設定。  (X,Y)の値を直接入力できるように。 ・画像の拡大・縮小(表示の倍率ではなくモニター画像にセットする画像の拡大率) ・チェンジャー機能。 2016-05-30:Ver 0.3.4.27 ・壁紙作成で起動時にWindowsに壁紙が設定されていないと壁紙作成ができなかった不具合  を修正。 ・壁紙作成で起動時に壁紙画像を読み込んでタブに表示していたのをとりやめ。  壁紙は壁紙画像のみに表示するようにした。 ・壁紙選択でモニターインデックスが0でないモニターがプライマリモニターであった場合  の表示の不具合に対処。 2012-04-12:Ver 0.3.3.27 ・Windows7でエラーになっていた不具合を修正。 2012-01-27:Ver 0.3.2.27 ・壁紙作成で「壁紙に設定」と「壁紙用に保存」で壁紙用ファイルを保存したら壁紙選択  のリストに追加するようにした。 2011-11-14:Ver 0.3.1.26 ・壁紙選択タブに「ファイル操作」機能を実装。  リスト中の選択ファイルのリネーム、コピー、移動、削除(ゴミ箱へ)が可能。 ・壁紙選択タブの画像情報を「壁紙画像の大きさと縮尺率」から「壁紙画像と元画像の大  きさ」に変更。 ・壁紙作成タブの壁紙画像の横に「壁紙用に保存」と「壁紙に設定」ボタンをつけた。  自分で作っておきながら一瞬迷うので分かりやすいようにボタンで。 2011-10-31:Ver 0.3.0.22 ・壁紙作成機能だけでなく壁紙選択機能もつけた。  それぞれのフォームをタブにドッキングしてで切り替え。 ・壁紙作成で背景色選択のコンボボックスを「中央に表示」「フルスクリーン」以外では  選択不可にするようにした。 マイナーバージョンアップ 2011-09-22:Ver 0.2.1.19 ・動画キャプチャウィンドウの実装を取りやめ。  必要ならプログラムリストに登録すれば良いだけのことなのでシンプルに。 2011-09-18:Ver 0.2.0.19 ・画像の位置指定に対応。 ・拡大時にモニター画像のダブルクリックで正しいモニター画像が適用されなかった不具  合を修正。  マウスの位置をイメージのクライアント座標で渡さなければならなかったのを親ウィン  ドウのクライアント座標で渡していたため。 ・壁紙の設定をメニューに持つようにした。  それに伴い他のプログラムから呼び出すとアクセス違反のエラーが出るようになったの  でやっつけ気味な対処。 マイナーバージョンアップ。 2011-09-14:Ver 0.1.0.13 ・元画像の反転と回転操作を行えるようにした。 ・壁紙画像の上と右1ドットがずれる不具合を修正。 ・壁紙の背景色を選択できるよう壁紙画像の下に選択ボタンを配置した。  実際は背景色は隠されるので有意性はあまりない。 ・画像を掴んで移動する際表示領域エリア外に移動しないようにした。  移動途中でマウスキャプチャを横取りされた場合でもおかしくならないように。 ・背景色と壁紙ファイルの設定がOS再起動後に元に戻ってしまっていた不具合を修正。  レジストリに書き込まないとセッション扱いになるようだ。 2011-09-10:Ver 0.0.2.2 ・アイコンを読み込めるようにした。 ・元画像と壁紙プレビュー画像の実寸表示、マウスホイールでの拡大縮小とマウスで掴ん  で移動に対応。 ・画像のサイズと縮尺率を表示するようにした。 ・画像を閉じた後タブの表示が更新されないことがあった不具合を修正。 2011-09-09:Ver 0.0.1.2 ・メニューの「終了」の動作が「画像を閉じる」と同じになっていた不具合を修正。 ・「壁紙再読み込み」機能追加。 ・起動中モニター情報が変わったときに以前のモニター情報のまま作業を続けるか現在の  モニター情報にするか選択するダイアログを出すようにして以前の作業を続行できるよ  うにした。 ・アイコンを昔の壁紙ビデオのもので流用。 ・Shift+「閉じる」で確認ダイアログを出さずにタブを閉じるようにした。 ・閉じるのアイコン上にマウスカーソルが来たらカーソルをハンドポイントに変更するよ  うにした。 ・プログラム起動で起動済みなら前面に移動の処理で大文字と小文字の区別をしていたた  め起動済みであっても新規に起動してしまうことがあった不具合を修正。 2011-09-07:Ver 0.0.0.2 vcaptの壁紙設定フォームからの変更点。 ・上部に読み込む画像をタブで管理。 ・下部に壁紙プレビュー画面。 ・上部と下部のサイズをスプリッタで変更可能。 ・ツールバー。 ・メインメニュー。 2011-08-27:作成開始。 vcaptの壁紙設定フォームを基に読み込む画像をタブで切り替える方式に変更。 } (* {$IFDEF FASTMM4} FastMM4, {$ENDIF} *) //{$DEFINE FASTMM4} uses FastMM4, my_safedll, Forms, main in 'main.pas' {App_TOOLWallpaper}, setwall in 'setwall.pas' {App_TOOLWallpaperSet}, createwall in 'createwall.pas' {App_TOOLWallpaperCreate}, child in 'child.pas' {App_TOOLWallpaperChild}; {$R *.res} begin Application.Initialize; Application.CreateForm(TApp_TOOLWallpaper, App_TOOLWallpaper); Application.Run; end.