program lenzoom;
{
シンプルに徹したプログラマ向け拡大鏡。
puffbitsよりさらにシンプル。
タイトルバーなし、一覧設定ウィンドウなし、一時停止時のキャッシュもなしなど。

※課題
・プログラムをAPIで書き換えてファイルサイズを小さく。
・ショートカットのカスタマイズを別プログラムで設定ファイルに書き出す。


2011-04-08:Ver 1.1.9.112
・「自身をキャプチャしない」設定の時のちらつきを軽減。
・フォームのサイズ変更した後マウスを動かさずにいるとキャプチャが間引かれるためデ
　スクトップ画面と拡大画面の違いが目立つことがあったのでサイズ変更後一度だけ更新
　頻度を下げるようにして対処。
・ルーペモードで一時停止した後一時停止を解除した場合ルーペモードとして機能してい
　なかった不具合を修正。
・情報表示欄の状態ステータスをテキストでの表示から画像を表示するように変更。

2011-04-07:Ver 1.1.8.112
・セカンダリモニターがマイナスの位置にある時に一時停止でキャプチャできていなかっ
　た不具合を修正。
・定点キャプチャモードの時にマイナス位置にあるモニターに掴んで移動できなかった不
　具合を修正。
・ルーペモードでカーソルの方向キーを押してもフォームの移動にならずキャプチャポイ
　ントにカーソルが移動してしまう不具合を修正。

2011-03-03:Ver 1.1.7.111
・自身のファイル名をUnicodeな文字を含んだものに変えた場合の一時ファイル名の主ファ
　イル名にUnicodeを含まないものにするように修正。
　関連付けされた実行ファイルがUnicede対応ではない場合への最低限の対処。
　わざわざこのプログラムのファイル名をUnicodeな文字を含んだものに変えるという特別
　な場合に対しての(あまり必要性もない)修正。
　ただし自身をUnicodeな文字を含むフォルダに置かれた場合は関連付けされた実行ファイ
　ル側で対処されていない限りどうにもならないことなので対処しきれない。

2011-02-11:Ver 1.1.6.110
・[Ctrl]を押しながらコピーしたときプログラムのパスにUnicodeな文字があると一時ファ
　イルを作成できず関連付けされたプログラムへ渡せなかった不具合を修正。

2011-02-10:Ver 1.1.5.110
・起動中にシステムを終了させたりログオフさせたりした場合設定を保存できなくなって
　いた不具合を修正。

2011-01-21:Ver 1.1.4.110
・DLLプリロード攻撃対策。

2011-01-12:Ver 1.1.3.110
・サイズ変更のカーソルがちらつく不具合を修正。
・定点キャプチャの時サイズ変更しようとフレームをドラッグしてもサイズ変更にならず
　キャプチャポイントの移動になってしまう不具合を修正。

2011-01-11:Ver 1.1.2.110
・ルーペモードの時のウィンドウ情報が間違っていた不具合を修正。

2011-01-06:Ver 1.1.1.106
・バイナリ設定の構造体をヘッダーと設定情報、ショートカットキーとマウスジェスチャ
　に分けた。　

2011-01-05:Ver 1.1.0.106
・設定ファイルをiniファイルからバイナリで持つように変更。
・定点キャプチャ、スムースキャプチャの設定を保存するように変更。
マイナーバージョンアップ。

2011-01-01:Ver 1.0.0.103
・puffbitsから一時停止時のキャッシュ機能、タイトルバーとサイズ変更フレーム、一覧
　設定ウィンドウ、ショートカットカスタマイズウィンドウ、その他一部メニューを省略。
　将来のAPIでの書き換えに向けて不要な機能をばっさりと削除。

}
//{$DEFINE DEBUG}
(*
{$IFDEF DEBUG}
	HeapChecker,
{$ENDIF}
*)
uses
	my_safedll,
{$IFDEF DEBUG}
	HeapChecker,
{$ENDIF}
	Forms,
	general        in 'general.pas',
	my_monitor     in 'my_monitor.pas',
	my_settingfile in 'my_settingfile.pas',
	main           in 'main.pas' {App_LenZoom};

{$R *.res}

begin
{$IFDEF DEBUG}
	HeapChecker.OutputClassName := True;
	HeapChecker.DumpLeakMemory  := True;
{$ENDIF}
	Application.Initialize;
	Application.Title := 'LenZoom';
  Application.CreateForm(TApp_LenZoom, App_LenZoom);
  Application.Run;
end.