自作プログラム（ＸＥ８、Comunity１０．３）　　　　　　　　　　　　　戻る

mymemo（マイメモ）　Ver1.00 　　　2018.2.3 TManthCalendar,TMEMOを貼り付け、カレンダーを見ながらメモするプログラムで、コーディングはフアイルの入出力の部分ぐらいです。 メモを書き入れ、プログラムを終了すれば、mymemo.exe　を置いたフオルダーに TEST.TXT　として書き込み、プログラムの起動時に 読み込まれます。 「OneDrive」などにプログラムを入れておけば、ほかのPCからもメモを読めます。 mymemo_exe.zip　　約1.05Kb　実行フアイル mymemo_src.zip　　約12.5Kb　ソースフアイル いずれも、７−Zip（無償の圧縮、解凍ソフト）　を用いて圧縮したＺＩＰフアイルです

mcalendar　Ver1.00　　　2018.2.23 EncodeDate()を利用してカレンダーの日付、曜日、小の月、うるう年など調べて、指定された月のカレンダーを作成しました。 小の月、うるう年は２９、３１日をセットしてEncodeDate()を呼びエラーならその月は２８、３０日としております。 Try,Catchで処理しておりましたら、デバッグの時、エラーが出て上手くできず、デバッグの時はその部分をコメントアウトしてデバッグしました。 画像は縦長のカレンダーの時は横長画像にしたほうがバランスが良いようで、トリミングの機能をつけてみました。 文字の大きさが印刷画面と違い、Image→Font→Heightに補正をかけ印刷画面に近いようにしてみましたが必ずしも上手くいっておりません。 右画面で印刷　枠高（ドット＞文字高（ドット）　ならはみ出さないでプリントできそうです。　 mcalendar_exe.zip　　実行フアイル　約1.24Ｍｂ mcalender_src.zip　　ソースフアイル　約26.7Ｋｂ ７−Zip（無償の圧縮、解凍ソフト）　を用いて圧縮したzipフアイルです 自己解凍フアイルにするとＡＶＡＳＴ，Windows Defenderなどで異常フアイルとされるようなので、ＺＩＰとしました。

以前に載せたことがありましたが，今回、C++Builder１０．３．３でコンパイルしなおしました（ｂｉｎａｒｙ，ｅｄｉｔｏｒ） ファイルの内容を１６進ダンプして見たい事があり，作りました．ファイルを１６進ダンプし，多少の修正が可能としております Ｖｅｒ　１.０５　検索が全く動作しておらないＢｕｇの修正，Ｈｏｍｅ，Ｅｎｄキ−で先頭，最後に移動出来るようにしました ２０２１．１.３　bed　filename　のようにパラメタ−つきで起動できる用にしました。 ｂｅｄ＿ｅｘｅ　Ｖｅｒ　1.05　実行ファイル ｂｅｄ＿ｓｒｃ　Ｖｅｒ　1.05　ソ−ス　ファイル 使用法 １　：　→←↑↓，Ｈｏｍｅ，・dｎｄ，ＰａｇｅＵｐ，ＰａａｇｅＤｏｗｎ　によりスクロ−ルなど出来ます ２　：　キャレットの点滅した位置で　１-　Ｆ　までの１６進数が直接入力できます ３　：　保存も出来ます ４　：　検索は１６進でのみ可能（ＦＦＤ８　など）

fdman　Ver1.00 ＷｉｎｄｏｗｓＡｐｉのＳＨＦｉｌｅＯｐｅｒａｔｉｏｎ（＆ｆｓ）を利用したＦｉｌｅ、Ｄｉｒｅｃｔｏｒｙのコピ−、移動、名前の変更、削除、バックアップを行うプログラムです。 ＳＨＦｉｌｅＯｐｅｒａｔｉｏｎを利用することで、特にＤｉｒに対するプログラムが簡単になりました。 現在はIFileOperation interfaceの利用が推奨されているようです。 隠しフアイルは表示出来ますが、隠しＤｉｒは表示は出来ません。ＤｉｒはＭｕｌｔｉをチェックすれば複数のＤｉｒを操作出来ます。 ファイルのアイコンの表示、保存する機能も入れて見ました。 fdman_exe.zip　実行フアイル fdman_src.zip　ソース　フアイル

ｆｄｒａｇ　　　ｖｅｒ1.00　　2017.07.07 　ｆｄｒａｇ＿ｅｘｅ．zip　　　実行フアイル 　ｆｄｒａｇ＿ｓｒｃ.zip　　　 ソース　フアイル ＦｉｌｅＬｉｓｔＢｏｘの１ファイルのアプリケション間でのＤｒａｇ＆Ｄｒｏｐを行うプログラム ヘッダ−ファイルに下記を追加 void __fastcall DropFiles(TWMDropFiles msg); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, DropFiles) END_MESSAGE_MAP(TForm) ＣＰＰファイルで void __fastcall TForm1::DropFiles(TWMDropFiles msg) { int FilCount; wchar_t FileName[255]; FilCount= ::DragQueryFile((HDROP)msg.Drop,0xffffffff,NULL,255); 　　　　　　. 　　　　　　. など追加 ＦｉｌｅＬｉｓｔＢｏｘのＭｏｕｓｅＭｏｖｅに DoDragDrop(dataObject, dropSource, DROPEFFECT_COPY, &dropEffect);　など追加、詳細はソ−スファイルを見て下さい

ｎｕｍ　ｖｅｒ1.00　2013.3.10(ＸＥ８で再コンパイル) ｎｕｍ_exe.zip　　　実行フアイル ｎｕｍ_src.zip　　　ソース　フアイル ＴＳｔｒｉｎｇＧｒｉｄの使用法を調べたく、試行錯誤したプログラムで、ナンバ−プレスの問題も一応解けるようです。問題を入力しＣｈｅｃｋボタンを繰り返しクリック すればなんとかなります。 ＳｔｒｉｎｇＧｒｉｄに枠線は StringGrid1→Canvas→Brush→Color=clBlack; StringGrid1→Canvas→FrameRect(rect); をＯｎＤｒａｗＣｅｌｌイベントに書き、描写しております 各セルへのフオ−カスはＳｔｒｉｎｇＧｒｉｄのＲｏｗ、Ｃｏｌに座標をセットしております。移動は Ｔａｂ、Ｅｎｔｅｒ、矢印キ−で可能です。 ＳｔｒｉｎｇＧｒｉｄのＯｐｔｉｏｎは左記のようにＣｈｅｃｋをいれております。 枠線の描画にStringGrid1→Canvas→FrameRect(rect)を使いましたが、下記のようにStringGrid1→Canvas→Pen を使うほうが綺麗に 描けるようです Form1→StringGrid1→Canvas→Pen→Width=4; Form1→StringGrid1→Canvas→Pen→Color=clBlack; for(i=0;i<4;i++) { Form1→StringGrid1→Canvas→MoveTo(i*230,0); Form1→StringGrid1→Canvas→LineTo(i*230,230*3); Form1→StringGrid1→Canvas→MoveTo(0,i*230); Form1→StringGrid1→Canvas→LineTo(230*3,i*230); 　}

tate.exe　　ｖｅｒ1.00　2013.8.1(XE8で再コンパイル) 　tate_exe.zip　　　実行フアイル 　tate_src.zip　　　ソース　フアイル 熨斗紙などにフオントを指定、縦書き（Font→Orientation=2700　を指定しているため横書きは不可）する事を目的としたプログラムです。 ＭｅｔａＦｉｌｅに描画し、表示、印刷は Form1→Image1→Picture→Assign(Metafile);　Printer()→Canvas→StretchDraw(rect, Metafile);で行っております。 上段、下段でフオントを別々に選択可能とし、印刷位置も調節可能としました。熨斗などは背景として画像を貼り付けました（ＢＭＰ、ＪＰＧ、ＰＮＧ）。 下段は連名を想定し二行を印刷可能としました（下段は同じフオントを使用） 文字、フオントなど変更した際、ＭｅｔａＦｉｌｅを全体に消し、再描画するため画面が少し乱れます。 余談ですが、最初　Ｆｏｒｍ上で文字入力、編集するプログラムを組んで見たのですが、Ｒａｄｉｏｂｕｔｔｏｎなどを配置すると、Ｆｏｒｍ上でＫｅｙ入力 が出来なくなり、ＫｅｙＰｒｅｖｉｅｗをｔｒｕｅにすると漢字入力が出来なくなったりとトラブリ、解決できず、断念し、このようにしました。 熨斗紙の背景画像（ｂ、ｂ1、ｂ2.ｐｎｇ）をｔａｔｅ−ｓｒｃ．ｅｘｅに入れて置きました。

Ｃ++Ｂｕｉｄｅｒ２００９からＰＮＧ、ＧＩＦ、ＩＣＯＮ、ＴＩＦＦ、ＪＰＧ、ＢＭＰなどの画像フオ−マットがサポ−トされるようになった事を 知り試して見ました。 #include jpeg.hpp、gifimg.hpp、pngimage.hpp、Graphics.hpp　などヘッダ−フアイルを追加すれば各フオ−マット　フアイルを表示してくれました。 ＢＭＰ→Ａｓｓｉｇｎ（ＴＩＦ）などがエラ−で利用出来ず、ＴＩＦＦ、ＩＣＯは表示のみでＰＮＧ、ＧＩＦ、ＢＭＰ、ＪＰＧに変換してセ−ブが私には出来ませんでした。 gview2_exe.zip　実行フアイル gview2_src.zip　ソース　フアイル OpenDialog　を利用し、フアイル名を取得し、 gif→LoadFromFile(FileName)　 bmp→Assign(gif)とし、 ＢＭＰにＡｓｓｉｇｎし、表示、Ｓａｖｅは逆に、ｇｉｆ→Ａｓｓｉｇｎ（ＢＭＰ）、ｇｉｆ→SaveToFile(ＦｉｌｅＮａｍｅ)で変換しセ−ブしております。 Ｖｅｒ１．１０　目的は「SnippingTool」などでキャプチャ−した画像を、手軽にプリントするためです。 GetDeviceCaps(dc,LOGPIXELSX)、PrintDialog、Printer()→BeginDoc()、Printer()→Canvas→StretchDraw(p_rect,bmp)、Printer()→EndDoc() など利用して印刷できるようにしました。 Ｖｅｒ１．２０　画像によって正常にプリント出来ないＢｕｇの修正 ＰｒｉｎｔｅｒはＣａｎｏｎのＩＰ４５００しか持ってなく、他のプリンタ−は試しておりません。